遗传算法的工具箱 GA工具箱

遗传算法的工具箱function [Chrom, Lind, BaseV] = crtbp(Nind, Lind, Base) nargs = nargin ; % Check parameter consistency if nargs >= 1, [mN, nN] = size(Nind) ; end if nargs >= 2, [mL, nL] = size(Lind) ; end if nargs == 3, [mB, nB] = size(Base) ; end if nN == 2 if (nargs == 1) Lind = Nind(2) ; Nind = Nind(1) ; BaseV = crtbase(Lind) ; elseif (nargs == 2 & nL == 1) BaseV = crtbase(Nind(2),Lind) ; Lind = Nind(2) ; Nind = Nind(1) ; elseif (nargs == 2 & nL > 1) if Lind ~= length(Lind), error('Lind and Base disagree'); end BaseV = Lind ; Lind = Nind(2) ; Nind = Nind(1) ; end

clc;
clear all;
figure（1）;
fplot（‘variable.*sin（10*pi*variable）+2.0‘[-12]）;   %画出函数曲线

tic             %计算程序运行时间，和toc连用，tic表示开始，toc表示结束
NIND=40;
MAXGEN=25;
PRECI=10;
GGAP=0.9;
trace=zeros（2MAXGEN）;
FieldD=[PRECI;-1;2;1;0;1;1];   %该处包含编码长度、编码范围等信息
Chrom=crtbp（NINDPRECI）;
gen=0;
variable=bs2rv（ChromFieldD）;
ObjV=variable.*sin（10*pi*variable）+2.0;
while gen    FitnV=ranking（-ObjV）;
    SelCh=select（‘sus‘ChromFitnVGGAP）;
    SelCh=recombin（‘xovsp‘SelCh0.7）;
    SelCh=mut（SelCh）;
    variable=bs2rv（SelChFieldD）;
    ObjVSel=variable.*sin（10*pi*variable）+2.0;
    [Chrom ObjV]=reins（ChromSelCh11ObjVObjVSel）;
    gen=gen+1;
    [YI]=max（ObjVSel）;hold on;
    plot（variable（I）Y‘ro‘）;
    trace（1gen）=max（ObjVSel）;
    trace（2gen）=sum（ObjVSel）/length（ObjVSel）;
end
t=toc

variable=bs2rv（ChromFieldD）;
hold ongrid;
plot（variable‘ObjV‘‘b*‘）;
figure（2）;
plot（trace（1:）‘）;
hold on;
plot（trace（2:）‘‘-.‘）;grid;
%legend（‘解的变化‘‘种群均值的变化‘）;

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

     文件       3217  1998-04-22 10:44  GA工具箱\BS2RV.M

     文件       1835  1998-04-22 10:44  GA工具箱\CONTENTS.M

     文件       1168  1998-04-22 10:44  GA工具箱\CRTbase.M

     文件       2187  1998-04-22 10:44  GA工具箱\CRTBP.M

     文件       2094  2007-09-20 19:49  GA工具箱\CRTRP.M

     文件       1310  2007-09-17 20:54  GA工具箱\F5.asv

     文件       2862  2007-03-28 10:20  GA工具箱\ff.asv

     文件        212  2007-09-17 21:19  GA工具箱\fg5.asv

     文件       1060  2006-11-07 09:04  GA工具箱\GA1.m

     文件       1102  2007-09-17 18:39  GA工具箱\GA2.asv

     文件       1098  2005-12-07 20:25  GA工具箱\GA2.m

     文件       3429  2007-09-25 10:37  GA工具箱\GshubertA.asv

     文件       1248  2007-09-25 17:13  GA工具箱\GshubertA1.asv

     文件       2303  2007-09-25 15:53  GA工具箱\GshubertA2.asv

     文件      11283  2007-10-10 20:48  GA工具箱\hs_err_pid1772.log

     文件      10819  2008-05-06 17:04  GA工具箱\hs_err_pid2172.log

     文件      10795  2008-05-09 20:39  GA工具箱\hs_err_pid2420.log

     文件       7205  1998-04-22 10:44  GA工具箱\MIGRATE.M

     文件       4019  1998-04-22 10:44  GA工具箱\MPGA.M

     文件         96  2007-05-06 21:41  GA工具箱\multi.asv

     文件       1609  1998-04-22 10:44  GA工具箱\MUT.M

     文件       3437  1998-04-22 10:44  GA工具箱\MUTATE.M

     文件       4943  1998-04-22 10:44  GA工具箱\MUTBGA.M

     文件       2632  2005-12-01 19:50  GA工具箱\OBJFUN1.M

     文件       2559  1998-04-22 10:44  GA工具箱\OBJHARV.M

     文件       4709  1998-04-22 10:44  GA工具箱\RANKING.M

     文件       1825  1998-04-22 10:44  GA工具箱\RECDIS.M

     文件       1895  1998-04-22 10:44  GA工具箱\RECINT.M

     文件       1953  1998-04-22 10:44  GA工具箱\RECLIN.M

     文件       4852  1998-04-22 10:44  GA工具箱\RECMUT.M

............此处省略21个文件信息