資源簡介
遺傳算法的工具箱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工具箱\CRTba
?????文件???????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個文件信息
- 上一篇:UBUNTU LINUX教程
- 下一篇:亞馬遜國際站的商品圖片及視頻并保存.docx
評論
共有 條評論