Mercurial > repos > public > sbplib

annotate stripeMatrix.m @ 387:45c69aff2f41 feature/beams

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Swtich to using centerd difference for calculating the first derivative
author Jonatan Werpers <jonatan@werpers.com>
date Thu, 05 Jan 2017 18:36:01 +0100
parents 5cb99f56f55e
children
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.
358
5cb99f56f55e Added some utility functions. Improved some documentation.
Jonatan Werpers <jonatan@werpers.com>
parents: 51
diff changeset
2 % A = stripeMatrix(val,diags,n,m)
51
0be702829bb9 Generalized spdiag. Added function for createing a banded sparse matrix.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
3 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
4 default_arg('m',n);
0be702829bb9 Generalized spdiag. Added function for createing a banded sparse matrix.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
5
0be702829bb9 Generalized spdiag. Added function for createing a banded sparse matrix.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
6 D = ones(n,1)*val;
0be702829bb9 Generalized spdiag. Added function for createing a banded sparse matrix.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
7 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
8 end