Mercurial > repos > public > sbplib

annotate stripeMatrix.m @ 353:fd4f1c80755d feature/hypsyst

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
meged with default
author Ylva Rydin <ylva.rydin@telia.com>
date Thu, 10 Nov 2016 20:49:25 +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