Mercurial > repos > public > sbplib

view diags.m @ 817:b723495cdb2f v0.2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add functions for easily creating struct arrays and struct cell arrays
author Jonatan Werpers <jonatan@werpers.com>
date Fri, 07 Sep 2018 09:21:57 +0200
parents 0b87863cb29c
children
line wrap: on
line source

function A = diags(B,d,m,n)
    assert(size(B,1) == m);

    A = repmat(B(:,1)*0, [1, n]);

    for i = 1:size(B,2)
        A(:,d(i)+ (1:m)) = A(:,d(i)+ (1:m)) + diag(B(:,i));
    end
end