Mercurial > repos > public > sbplib
view spdiagVariable.m @ 752:0be9b4d6737b feature/utux2D
Merge with feature/interpolation to get new interpolation operators.
author | Martin Almquist <malmquist@stanford.edu> |
---|---|
date | Tue, 22 May 2018 13:31:09 -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