11 lines
163 B
Mathematica
11 lines
163 B
Mathematica
|
function x = double(x);
|
||
|
|
%DOUBLE (Overloaded)
|
||
|
|
|
||
|
|
x = double(x.Evaluated{1});
|
||
|
|
|
||
|
|
if isessentiallyhermitian(x)
|
||
|
|
x = min(eig(x)) >= 0;
|
||
|
|
else
|
||
|
|
x = min(x(:)) >= 0;
|
||
|
|
end
|