CeCILL license headers
[scilab.git] / scilab / modules / compatibility_functions / macros / mtlb_eig.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2002-2004 - INRIA - Vincent COUVERT 
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 [vd,D]=mtlb_eig(A,B)
11 // Emulation function for eig() Matlab function
12
13 [lhs,rhs]=argn()
14
15 if rhs==1 then
16   if lhs==1 then
17     vd=spec(A)
18   else
19     [vd,D]=spec(A)
20     if isreal(vd,0) & size(vd,"*")>1 then
21       vd(:,1:2)=-vd(:,1:2)
22     end
23   end  
24 else
25   error(gettext("mtlb_eig() used with 2 rhs: not yet implemented."));
26 end
27 endfunction