unique.m

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

function x = unique(x)
%UNIQUE (overloaded)

% Author Johan L鰂berg 
% $Id: unique.m,v 1.2 2004/07/01 11:17:14 johanl Exp $   

if min(x.n,x.m)~=1
    error('UNIQUE currently only supported for vectors')
end

base = x.basis;
vars = x.lmi_variables;
[new_base,i,j] = unique(base,'rows');

x.basis = new_base;
if x.m==1
x.n = size(new_base,1);
else
    x.m = size(new_base,1);
end