Mercurial > hg > ishara
diff general/arrutils/setdiag.m @ 4:e44f49929e56
Adding reorganised general toolbox, now in several subdirectories.
| author | samer |
|---|---|
| date | Sat, 12 Jan 2013 19:21:22 +0000 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/general/arrutils/setdiag.m Sat Jan 12 19:21:22 2013 +0000 @@ -0,0 +1,9 @@ +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;