Mercurial > repos > public > sbplib
view spdiag.m @ 974:1c334842bf23 feature/poroelastic
Extract tuning from alpha.
author | Martin Almquist <malmquist@stanford.edu> |
---|---|
date | Tue, 25 Dec 2018 16:39:06 +0100 |
parents | e76321b89c1e |
children |
line wrap: on
line source
function A = spdiag(a,i) default_arg('i',0); if isrow(a) a = a'; end n = length(a)+abs(i); A = spdiags(a,i,n,n); end