Mercurial > repos > public > sbplib

view spdiag.m @ 1346:464e6f65c2c6 feature/poroelastic

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Refactor computation of borrowing from C. Update to correct number of boundary points for borrowing from R.
author Martin Almquist <martin.almquist@it.uu.se>
date Tue, 30 Apr 2024 14:18:47 +0200
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