ordervalues.m

来自「有监督自组织映射-偏最小二乘算法(A supervised self-organ」· M 代码 · 共 25 行

function [OrdVal] = OrderValues(X, Threshold);

[Nobj,Nvar]=size(X);

LimitVal = -1;
if (nargin == 2)
    if (Threshold <= Nvar & Threshold > 0)
        LimitVal = Threshold;
    end
end

for iobj=1:Nobj
    Xrow = X(iobj,:);
    LowerVal = min(Xrow);
    for j=Nvar:-1:1
        [dummy,ind]=max(Xrow);
        if j >= LimitVal
            OrdVal(iobj,ind) = j-LimitVal+1;
        else
            OrdVal(iobj,ind) = 0;
        end
        Xrow(ind) = LowerVal-1;
    end
end