issymmetric.m

来自「国外专家做的求解LMI鲁棒控制的工具箱,可以相对高效的解决LMI问题」· M 代码 · 共 16 行

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

% Author Johan L鰂berg 
% $Id: issymmetric.m,v 1.2 2004/07/02 08:17:31 johanl Exp $

[n,m] = size(X);
issym = 0;

if (n==m)
  issym = norm(X-X',1)<1e-10; % Should be scaled with size maybe
end