A1.rar

A1.rar

function Pre = contrl（fitnessxPresizepop）

tol = 1e-4;
T = 3;
As=zeros（sizepopT）;
Bs=zeros（sizepopT）;
for i=1:sizepop
    for j=1:T
        if j ~= 3
            As（ij）=（fitness（ij）>Pre.Fit（ij））;
        else
            if fitness（ij） == 0 && Pre.Fit（ij）==0
                As（ij） = 1;
            elseif  fitness（ij） == 0 && Pre.Fit（ij）~=0
                As（ij） = 1;
            elseif  fitness（ij） ~= 0 && Pre.Fit（ij）~=0
                As（ij） = （fitness（ij）            end
        end
        Bs（ij）=（abs（fitness（ij）-Pre.Fit（ij））    end
    for t=1:T
        Dn=nchoosek（1:Tt）;
        [Hj~]=size（Dn）;
        HT = randperm（Hj）;
        for k=1:Hj
            Dt = setdiff（1:TDn（HT（k）:））;
            Os = sum（As（iDn（HT（k）:）））+sum（Bs（iDt））;
            if Os==T
                Pre.x（i:）=x（i:）;
                Pre.Fit（i:）=fitness（i:）;
            end
            Os=[];
            Dt=[];
        end
        Dn=[];
        HT=[];
    end
end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1041  2017-04-20 23:22  A1\contrl.m

     文件         74  2017-04-20 22:59  A1\fun1.m

     文件         67  2017-04-20 22:59  A1\fun2.m

     文件        207  2017-04-20 23:19  A1\fun3.m

     文件       2269  2017-04-20 23:16  A1\Grid.m

     文件       2638  2017-04-20 23:23  A1\MOPSO.m

     文件        722  2017-04-20 23:07  A1\Pareto_fun.m

     目录          0  2017-04-20 23:23  A1

----------- ---------  ---------- -----  ----

                 7018                    8