Mercurial > repos > public > sbplib

view stripeMatrix.m @ 1036:8a9393084b30 feature/burgers1d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change argument order to the "correct" order, i.e providing diffOp specific parameters before the opSet.
author Vidar Stiernström <vidar.stiernstrom@it.uu.se>
date Fri, 18 Jan 2019 08:58:26 +0100
parents 5cb99f56f55e
children
line wrap: on
line source

% Creates a matrix of size n,m with the values of val on the diagonals diag.
%   A = stripeMatrix(val,diags,n,m)
function A = stripeMatrix(val,diags,n,m)
    default_arg('m',n);

    D = ones(n,1)*val;
    A = spdiags(D,diags,n,m);
end