projects
/
scilab.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
mass replace on gettext("xxxx" to gettext(
[scilab.git]
/
scilab
/
modules
/
compatibility_functions
/
macros
/
mtlb_eig.sci
1
function [vd,D]=mtlb_eig(A,B)
2
// Copyright INRIA
3
// Emulation function for eig() Matlab function
4
// V.C.
5
6
[lhs,rhs]=argn()
7
8
if rhs==1 then
9
if lhs==1 then
10
vd=spec(A)
11
else
12
[vd,D]=spec(A)
13
if isreal(vd,0) & size(vd,"*")>1 then
14
vd(:,1:2)=-vd(:,1:2)
15
end
16
end
17
else
18
error(gettext("mtlb_eig() used with 2 rhs: not yet implemented."));
19
end
20
endfunction