* Deactivate images generation during documentation build since graphics functions...
[scilab.git] / scilab / test / good / %b_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 function d=%b_diag(a,k)
10
11 [lhs,rhs]=argn(0)
12 if rhs==1 then k=0,end
13 [m,n]=size(a)
14 if m>1&n>1 then
15   if k<=0 then
16     mn=min(m+k,n)
17     i0=-k+1
18   else
19     mn=min(m,n-k)
20     i0=k*m+1
21   end
22   a=matrix(a,m*n,1)
23   i=i0+((0:mn-1)*(m+1))
24   d=a(i)
25 else
26   nn = max(m,n)+abs(k)
27   mn=max(m,n)
28   i=(1:mn)+((1:mn)+(k-1))*nn
29   d(i)=a
30   d=matrix(d,nn,nn)
31 end
32 endfunction