Mercurial > repos > public > sbplib
changeset 51:0be702829bb9
Generalized spdiag. Added function for createing a banded sparse matrix.
author | Jonatan Werpers <jonatan@werpers.com> |
---|---|
date | Wed, 11 Nov 2015 15:15:26 -0800 |
parents | 75ebf5d3cfe5 |
children | 4f5a65f49035 |
files | spdiag.m stripeMatrix.m |
diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/spdiag.m Thu Nov 05 17:10:57 2015 -0800 +++ b/spdiag.m Wed Nov 11 15:15:26 2015 -0800 @@ -1,4 +1,4 @@ function A = spdiag(a,i) - n = length(a); + n = length(a)-abs(i); A = spdiags(a,i,n,n); end \ No newline at end of file
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/stripeMatrix.m Wed Nov 11 15:15:26 2015 -0800 @@ -0,0 +1,7 @@ +% Creates a matrix of size n,m with the values of val on the diagonals diag. +function A = stripeMatrix(val,diags,n,m) + default_arg('m',n); + + D = ones(n,1)*val; + A = spdiags(D,diags,n,m); +end \ No newline at end of file