* Deactivate images generation during documentation build since graphics functions...
[scilab.git] / scilab / modules / overloading / macros / %c_diag.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) INRIA
3 // 
4 // This file must be used under the terms of the CeCILL.
5 // This source file is licensed as described in the file COPYING, which
6 // you should have received as part of this distribution.  The terms
7 // are also available at    
8 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
9
10 function d=%c_diag(a,k)
11
12 [lhs,rhs]=argn(0)
13 if rhs==1 then k=0,end
14 [m,n]=size(a)
15 if m>1&n>1 then
16   if k<=0 then
17     mn=min(m+k,n)
18     i0=-k+1
19   else
20     mn=min(m,n-k)
21     i0=k*m+1
22   end
23   a=matrix(a,m*n,1)
24   i=i0+((0:mn-1)*(m+1))
25   d=a(i)
26 else
27   nn = max(m,n)+abs(k)
28   mn=max(m,n)
29   i=(1:mn)+((1:mn)+(k-1))*nn
30   d(i)=a
31   d=matrix(d,nn,nn)
32 end
33 endfunction