SPEA2MATLAB源代码

改进强度的Pareto进化算法：SPEA2;Matlab编写。带23个测试算例。

function [EPOPEpatime]=APESPEA2f（POPpaFitNe）
% Authors: Maoguo Gong and Licheng Jiao
% April 7 2006
% Copyright （C） 2005-2006 by Maoguo Gong （e-mail: gongmg@126.com）
%--------------------------------------------------------------------------
tic;
ndsign=find（Fit<1）;
if length（ndsign）<=Ne
    [aaata1]=sort（Fit）;
    EPOP=POP（ta1（1:Ne）:）;
    Epa=pa（ta1（1:Ne）:）;
else
    tP=POP（ndsign:）;
    tpa=pa（ndsign:）;
    [NsC]=size（tpa）;
    for i=1:Ns
        for j=i+1:Ns
            E（ij）=sqrt（sum（（tpa（i:）-tpa（j:））.^2））;
            E（ji）=E（ij）;
        end
    end
    while Ns>Ne
        SE=[];SE=sort（E2）;
        i=1;cc=[1:Ns]‘;dd=[];
        while i            EC=[];EC=SE（cci+1）;
            [aabb]=min（EC）;dd=find（EC==aa）;cc=cc（dd）;
            if length（cc）==1
                i=Ns+1;deleti=cc;
            end
            i=i+1;
        end
        if length（cc）~=1
            deleti=cc（1）;
        end
        tP（deleti:）=[];tpa（deleti:）=[];
        E（deleti:）=[];E（:deleti）=[];
        Ns=Ns-1;
    end
    EPOP=tP;Epa=tpa;    
end% environmental selection
time=toc;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2013-02-27 22:01  SPEA2\
     文件      486708  2011-12-24 21:18  SPEA2\A closer look at drawbacks of minimizing weighted.pdf
     目录           0  2013-02-27 22:01  SPEA2\SPEA2\
     文件        1144  2009-09-09 10:58  SPEA2\SPEA2\APESPEA2f.m
     文件         456  2009-09-09 10:58  SPEA2\SPEA2\BTSf.m
     文件         384  2009-09-09 10:58  SPEA2\SPEA2\DONtwo.m
     文件        1178  2009-09-09 11:01  SPEA2\SPEA2\EMOinstruction.m
     文件        1338  2009-09-09 10:58  SPEA2\SPEA2\FASPEA2f.m
     文件         647  2009-09-09 10:58  SPEA2\SPEA2\Frontshow.m
     文件        4933  2009-09-09 10:58  SPEA2\SPEA2\OVcom.m
     文件        1203  2009-09-09 10:58  SPEA2\SPEA2\PNmutation.m
     文件        1504  2009-09-09 10:58  SPEA2\SPEA2\SBXcross.m
     文件        3945  2011-12-24 19:51  SPEA2\SPEA2\SPEA2_Demo.m
     文件        2175  2009-09-09 10:58  SPEA2\SPEA2\getbud.m
     文件      228958  2011-12-15 17:20  SPEA2\SPEA2-Improving the Strength Pareto Evolutionary Algorithm.pdf
     文件      145408  2011-12-21 10:31  SPEA2\SPEA2.doc
     目录           0  2013-02-27 22:01  SPEA2\SPEA2_MATLAB\
     文件         179  2007-11-26 12:15  SPEA2\SPEA2_MATLAB\demo_funct.m
     文件         367  2011-12-24 20:34  SPEA2\SPEA2_MATLAB\demo_moea.m
     文件        5698  2007-11-26 15:24  SPEA2\SPEA2_MATLAB\moea.m
     文件        2962  2007-11-26 12:17  SPEA2\SPEA2_MATLAB\moea_copyrights.m
     文件       71219  2007-11-26 16:39  SPEA2\SPEA2_MATLAB\moea_manual.pdf
     目录           0  2013-02-27 22:01  SPEA2\SPEA2_MATLAB\source\
     文件         175  2007-11-26 13:16  SPEA2\SPEA2_MATLAB\source\build_spea2.m
     文件       15713  2007-11-26 12:20  SPEA2\SPEA2_MATLAB\source\selector.c
     文件        2355  2007-11-26 12:20  SPEA2\SPEA2_MATLAB\source\selector.h
     文件        7587  2007-11-26 12:20  SPEA2\SPEA2_MATLAB\source\spea2.c
     文件       24801  2007-11-26 12:21  SPEA2\SPEA2_MATLAB\source\variator.c
     文件        4523  2007-11-26 12:21  SPEA2\SPEA2_MATLAB\source\variator.h
     文件       19968  2007-01-08 11:37  SPEA2\SPEA2_MATLAB\spea2.mexw32
     目录           0  2013-02-27 22:01  SPEA2\spea2_good\
............此处省略23个文件信息