Mercurial > repos > public > sbplib
view spdiagVariable.m @ 794:0cac17097c37 feature/poroelastic
Added tag elastic1.0 for changeset 08f3ffe63f48
author | Martin Almquist <malmquist@stanford.edu> |
---|---|
date | Wed, 25 Jul 2018 18:06:08 -0700 |
parents | 7368affc8f78 |
children |
line wrap: on
line source
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