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 warnobsolete("spec", "5.1.2")
  14
  15 [lhs,rhs]=argn()
  16
  17 if rhs==1 then
  18   if lhs==1 then
  19     vd=spec(A)
  20   else
  21     [vd,D]=spec(A)
  22   end
  23 else
  24   error(msprintf(gettext("%s: use with %d input argument(s) is not yet implemented.\n"),"mtlb_eig",2));
  25 end
  26 endfunction