Mercurial > repos > public > sbplib

view spdiag.m @ 736:d991f8a0b61c feature/poroelastic

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add grid.blockEvalOn for functions with different functional expressions for different grid blocks
author Martin Almquist <malmquist@stanford.edu>
date Wed, 25 Apr 2018 14:56:17 -0700
parents 8e0067aef5b0
children e76321b89c1e
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