summaryrefslogtreecommitdiffstats
path: root/scilab/modules/compatibility_functions/macros/mtlb_eig.sci
blob: 4c7f9cf4350100376d39e3d7ea1e0413bdb91f12 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2002-2004 - INRIA - Vincent COUVERT 
// 
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution.  The terms
// are also available at    
// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt

function [vd,D]=mtlb_eig(A,B)
// Emulation function for eig() Matlab function

warnobsolete("spec", "5.1.2")

[lhs,rhs]=argn()

if rhs==1 then
  if lhs==1 then
    vd=spec(A)
  else
    [vd,D]=spec(A)
  end  
else
  error(msprintf(gettext("%s: use with %d input argument(s) is not yet implemented.\n"),"mtlb_eig",2));
end
endfunction