Mercurial > hg > ishara

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added from old stats library.
author samer
date Mon, 23 Feb 2015 16:08:09 +0000
parents e44f49929e56
children
rev   line source
samer@4 1 function A=setdiag(A,x)
samer@4 2 % setdiag - set elements on diagonal to something
samer@4 3 %
samer@4 4 % setdiag :: [[N,M]], real -> [[N,M]].
samer@4 5 % setdiag :: [[N,N]], [[N]] -> [[N,N]].
samer@4 6
samer@4 7 dom=size(A);
samer@4 8 i=1:min(dom);
samer@4 9 A(sub2ind(dom,i,i))=x;