Mercurial > repos > public > sbplib

view spdiag.m @ 1068:e0ecce90f8cf feature/laplace_curvilinear_test

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add variable b. Tested for interface and Dirichlet, but not Neumann yet.
author Martin Almquist <malmquist@stanford.edu>
date Tue, 22 Jan 2019 19:18:24 -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