Mercurial > repos > public > sbplib

annotate stripeMatrix.m @ 98:b30f3d8845f4 feature/arclen-param

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removed arclength property. Constructor compatible again. Translation and rotation are fast now, but ti is slow.
author Martin Almquist <martin.almquist@it.uu.se>
date Sun, 06 Dec 2015 13:47:12 +0100
parents 0be702829bb9
children 5cb99f56f55e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
51
0be702829bb9 Generalized spdiag. Added function for createing a banded sparse matrix.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
1 % Creates a matrix of size n,m with the values of val on the diagonals diag.
0be702829bb9 Generalized spdiag. Added function for createing a banded sparse matrix.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
2 function A = stripeMatrix(val,diags,n,m)
0be702829bb9 Generalized spdiag. Added function for createing a banded sparse matrix.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
3 default_arg('m',n);
0be702829bb9 Generalized spdiag. Added function for createing a banded sparse matrix.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
4
0be702829bb9 Generalized spdiag. Added function for createing a banded sparse matrix.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
5 D = ones(n,1)*val;
0be702829bb9 Generalized spdiag. Added function for createing a banded sparse matrix.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
6 A = spdiags(D,diags,n,m);
0be702829bb9 Generalized spdiag. Added function for createing a banded sparse matrix.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
7 end