Mercurial > repos > public > sbplib

annotate operator_def/assemble_boundary_op.m @ 829:e0913772dc1c feature/operator_files

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add D2 files
author Ylva Rydin <ylva.rydin@telia.com>
date Mon, 10 Sep 2018 19:25:41 +0200
parents ed8d34894589
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
822
4808c4bd844e Add assemble_boundary_op
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
1 function [op_l, op_r] = assemble_boundary_op(op,m)
4808c4bd844e Add assemble_boundary_op
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
2 l = length(op);
4808c4bd844e Add assemble_boundary_op
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
3
4808c4bd844e Add assemble_boundary_op
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
4 op_l = sparse(m,1);
4808c4bd844e Add assemble_boundary_op
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
5 op_l(1:l) = op;
4808c4bd844e Add assemble_boundary_op
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
6
4808c4bd844e Add assemble_boundary_op
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
7 op_r = sparse(m,1);
824
ed8d34894589 fix bug in assemble_D1
Ylva Rydin <ylva.rydin@telia.com>
parents: 822
diff changeset
8 op_r(m-l+1:m) = fliplr(op);
822
4808c4bd844e Add assemble_boundary_op
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
9 end