Mercurial > repos > public > sbplib

view stripeMatrix.m @ 186:1fc2eeb4f4e6 feature/grids

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Moved multiblock grid to the multiblock package. Continued implementation. Added multiblock diffOp and removed some functions no longer needed.
author Jonatan Werpers <jonatan@werpers.com>
date Thu, 03 Mar 2016 20:03:06 +0100
parents 0be702829bb9
children 5cb99f56f55e
line wrap: on
line source

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

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