view general/arrutils/setdiag.m @ 54:9bcf5e133bf0

Added from old stats library.

function A=setdiag(A,x)
% setdiag - set elements on diagonal to something
%
% setdiag :: [[N,M]], real -> [[N,M]].
% setdiag :: [[N,N]], [[N]] -> [[N,N]].

dom=size(A);
i=1:min(dom);
A(sub2ind(dom,i,i))=x;