archtotm.m

来自「多目标遗传算法,遗传算法,遗传算法,遗传算法,遗传算法」· M 代码 · 共 36 行

function ArchToTm
global Arch Tmatrix nfun
for i=1:length(Arch)
    for r=1:nfun
        Arch(i).box2(r)=ceil(Arch(i).obj(r)/0.05);
        if  Arch(i).box2(r)>21
             Arch(i).box2(r)=21;
        elseif  Arch(i).box2(r)<=0
             Arch(i).box2(r)=1;
        end
    end
end
for i=1:length(Arch)
    Arch(i).distance2=0;
    for j=1:nfun
        Arch(i).distance2=Arch(i).distance2+Arch(i).obj(r)^2;
    end
    Arch(i).distance2=(Arch(i).distance2)^(1/2);
end
for i=1:length(Arch)
    if length(Tmatrix{Arch(i).box2(1),Arch(i).box2(2),Arch(i).box2(3)})==0
        Tmatrix{Arch(i).box2(1),Arch(i).box2(2),Arch(i).box2(3)}=Arch(i);
    else
        if Tmatrix{Arch(i).box2(1),Arch(i).box2(2),Arch(i).box2(3)}.distance2>Arch(i).distance2
            Tmatrix{Arch(i).box2(1),Arch(i).box2(2),Arch(i).box2(3)}=Arch(i);
        end
    end
end