Mercurial > repos > public > sbplib

changeset 51:0be702829bb9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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