Mercurial > repos > public > sbplib
view spdiag.m @ 958:72cd29107a9a feature/poroelastic
Temporary changes in multiblock.DiffOp. Change traction operators in Elastic2dvariable to be true boundary operators. But adjoint FD conv test fails for dirichlet BC so need to debug!
author | Martin Almquist <malmquist@stanford.edu> |
---|---|
date | Wed, 05 Dec 2018 18:58:10 -0800 |
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