issymmetric.m

optimization toolbox

function issym=issymmetric(X)
%ISSYMMETRIC Check if variable is symmetric

% Author Johan L鰂berg 
% $Id: issymmetric.m,v 1.1 2006/08/10 18:00:21 joloef Exp $  

n = X.dim(1);
m = X.dim(2);
if (n==m)
    % What are the linar indicies to the transposed matrices
    if isa(X.basis,'lazybasis')
        issym = 1;
    else
        ind = reshape(reshape(1:n^2,n,n)',n^2,1);
        issym = norm(X.basis-X.basis(ind,:),1)<1e-10;   
    end
else
    issym = 0;
end