alldifferent.m

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

function F=alldifferent(x,M)
%ALLDIFFERENT (overloaded)

% Author Johan L鰂berg 
% $Id: alldifferent.m,v 1.1 2004/08/26 07:10:03 johanl Exp $   

x = recover(getvariables(x));
n = length(x);

if nargin==1
    M = 1000;
end

F = set([]);
for i = 2:n
    for j = 1:n-i+1       
        x1 = x(j);
        x2 = x(j+i-1);
        d = binvar(1,1);
        F = F + set(x2 < x1+M*d-0.5);
        F = F + set(x1 < x2+M*(1-d)-0.5);       
    end
end