view general/arrutils/setdiag.m @ 13:03694e5c8365

Reorganised some high order list functions to correct class-based method dispatch; fixed some docs.

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;