Mercurial > repos > public > sbplib
diff spdiagVariable.m @ 717:8e4274ee6dd8 feature/utux2D
Merge with feature/poroelastic
| author | Martin Almquist <malmquist@stanford.edu> |
|---|---|
| date | Sat, 03 Mar 2018 14:58:21 -0800 |
| parents | 7368affc8f78 |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/spdiagVariable.m Sat Mar 03 14:58:21 2018 -0800 @@ -0,0 +1,17 @@ +function A = spdiagVariable(a,i) + default_arg('i',0); + + if isrow(a) + a = a'; + end + + n = length(a)+abs(i); + + if i > 0 + a = [sparse(i,1); a]; + elseif i < 0 + a = [a; sparse(abs(i),1)]; + end + + A = spdiags(a,i,n,n); +end \ No newline at end of file