34 lines
669 B
Mathematica
34 lines
669 B
Mathematica
|
function issym=ishermitian(X)
|
||
|
|
%ISHERMITIAN Check if variable is Hermitian
|
||
|
|
|
||
|
|
n = X.dim(1);
|
||
|
|
m = X.dim(2);
|
||
|
|
issym = 0;
|
||
|
|
if (n==m)
|
||
|
|
|
||
|
|
if isequal(X.conicinfo,[1 0])
|
||
|
|
issym = 1;
|
||
|
|
return
|
||
|
|
end
|
||
|
|
|
||
|
|
if isa(X.basis,'lazybasis')
|
||
|
|
issym = 1;
|
||
|
|
else
|
||
|
|
|
||
|
|
% What are the linear indicies to the transposed matrices
|
||
|
|
ind = reshape(reshape(1:n^2,n,n)',n^2,1);
|
||
|
|
|
||
|
|
if ~isreal(X.basis)
|
||
|
|
residual = X.basis-conj(X.basis(ind,:));
|
||
|
|
else
|
||
|
|
residual = X.basis-X.basis(ind,:);
|
||
|
|
end
|
||
|
|
|
||
|
|
if nnz(residual)>0
|
||
|
|
issym = norm(residual,1)<1e-10;
|
||
|
|
else
|
||
|
|
issym = 1;
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|