Mercurial > repos > public > sbplib

view stripeMatrix.m @ 155:cf748f33cd5b feature/grids

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removed some extra lines, added some notes and comments. Fixed classname.
author Jonatan Werpers <jonatan@werpers.com>
date Thu, 18 Feb 2016 17:17:41 +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