13 lines
215 B
Mathematica
13 lines
215 B
Mathematica
|
function isherm=isessentiallyhermitian(X)
|
||
|
|
%ISHERMITIAN Check if variable is essentially Hermitian
|
||
|
|
|
||
|
|
[n,m] = size(X);
|
||
|
|
issym = 0;
|
||
|
|
|
||
|
|
if (n==m)
|
||
|
|
isherm = norm(X-X',1)<1e-10; % Should be scaled with size maybe
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
|