Mercurial > repos > public > sbplib

comparison spdiag.m @ 570:7d5d74940987 feature/grids

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge laplace refactor. Refactor class to more closely resemble SBP notation. Fix bc bugs
author Jonatan Werpers <jonatan@werpers.com>
date Fri, 01 Sep 2017 11:07:15 +0200
parents 8e0067aef5b0
children e76321b89c1e
comparison
equal deleted inserted replaced
568:12ee11893453 570:7d5d74940987
1 function A = spdiag(a,i) 1 function A = spdiag(a,i)
2 default_arg('i',0); 2 default_arg('i',0);
3
4 if isrow(a)
5 a = a';
6 end
7
3 n = length(a)-abs(i); 8 n = length(a)-abs(i);
4 A = spdiags(a,i,n,n); 9 A = spdiags(a,i,n,n);
5 end 10 end