?? view.htm
字號:
<TR>
<TD colSpan=2 height=3></TD></TR></TBODY></TABLE>
<TABLE
style="BORDER-RIGHT: #666666 1px solid; BORDER-TOP: #666666 1px solid; BORDER-LEFT: #666666 1px solid; WIDTH: 95%; BORDER-BOTTOM: #666666 1px solid"
height=21 cellSpacing=0 cellPadding=0 width="95%" bgColor=#e3e3e3 border=0>
<TBODY>
<TR>
<TD align=right><SPAN title=幫助及常見問題><A
href="http://bbs.matwav.com/html/help.html" target=_blank>幫助</A></SPAN> |
<SPAN title=全文檢索><A href="http://bbs.matwav.com/post/search">搜索</A></SPAN>
| <SPAN title=注冊新賬號><A
href="http://bbs.matwav.com/user/register">注冊</A></SPAN> | <SPAN
title=會員登錄論壇><A href="http://bbs.matwav.com/user/login">登錄</A></SPAN> |
<SPAN title=發帖最多的用戶，回復最多的話題，人氣最旺的話題><A
href="http://bbs.matwav.com/stat/top">排行榜</A></SPAN> | <SPAN
title=按每月、日、周以及小時的帖子數統計><A
href="http://bbs.matwav.com/stat/analysis">發帖統計</A></SPAN>
<BR></TD></TR></TBODY></TABLE><BR clear=all>
<SCRIPT language=javascript>
function copyText(obj) {
var rng = document.body.createTextRange();
rng.moveToElementText(obj);
rng.scrollIntoView();
rng.select();
rng.execCommand("Copy");
rng.collapse(false);
}
</SCRIPT>
<TABLE cellSpacing=0 cellPadding=2 width="95%" border=0>
<TBODY>
<TR>
<TD><B><FONT face=arial size=3><B>»</B></FONT> <A class=nav
href="http://bbs.matwav.com/index.html"><B>研學論壇</B></A> <FONT
face=arial size=3><B>»</B></FONT> <A class=nav
href="http://bbs.matwav.com/post/page?bid=7&sty=1&age=0&tpg=1"><B>遺傳算法</B></A>
<BR><BR><IMG alt=按打印兼容模式打印這個話題 src="view.files/icon_print.gif"
align=absMiddle border=0> <A class=mod title=按打印兼容模式打印這個話題
href="http://bbs.matwav.com/post/print?bid=7&id=80816"><B>打印話題</B></A>
<IMG alt=把這個話題寄給朋友 src="view.files/icon_friend.gif"
align=absMiddle border=0> <A class=mod title=把這個話題寄給朋友
href="http://bbs.matwav.com/post/forward?bid=7&id=80816&done=%2Fpost%2Fview%3Fbid%3D7%26id%3D80816%26sty%3D1%26tpg%3D1%26age%3D0"><B>寄給朋友</B></A>
<IMG alt=該主題的所有更新都將Email到你的郵箱 src="view.files/icon_watch.gif"
align=absMiddle border=0> <B><FONT color=#c0c0c0>訂閱主題</FONT></B>
</B></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=2 width="95%" border=0>
<TBODY>
<TR>
<TD align=right><A
href="http://bbs.matwav.com/post/reply?bid=7&parent=80816&done=%2Fpost%2Fview%3Fbid%3D7%26id%3D80816%26sty%3D1%26tpg%3D1%26age%3D0"><IMG
alt="reply to topic" src="view.files/newreply.gif" align=absMiddle
border=0></A><IMG alt="flat mode" src="view.files/flat_d.gif"
align=absMiddle border=0><A
href="http://bbs.matwav.com/post/view?bid=7&id=80816&tpg=1&ppg=1&sty=3&age=0#80816"><IMG
alt="threaded mode" src="view.files/threaded.gif" align=absMiddle
border=0></A><A
href="http://bbs.matwav.com/post/view?bid=7&id=80816&tpg=1&ppg=1&sty=1&age=0&prev=1"><IMG
alt="go to previous topic" src="view.files/prev.gif" align=absMiddle
border=0></A><A
href="http://bbs.matwav.com/post/view?bid=7&id=80816&tpg=1&ppg=1&sty=1&age=0&next=1"><IMG
alt="go to next topic" src="view.files/next.gif" align=absMiddle
border=0></A> </TD></TR></TBODY></TABLE><A name=80816></A>
<TABLE cellSpacing=1 cellPadding=4 width="95%" bgColor=#000000 border=0>
<TBODY>
<TR class=head>
<TD align=middle width=150><FONT color=#ffffff><B>作者</B></FONT></TD>
<TD><FONT color=#ffffff><B>【共享】遺傳算法的MATLAB6.5 源程序 </B></FONT></TD></TR>
<TR class=even>
<TD vAlign=top width=150><B>wqjk</B> <BR><IMG
src="view.files/face_byhtsai_amuro.gif" border=0> <BR><BR><BR>論壇游民<IMG
src="view.files/advu.gif" border=0> <BR><BR><B>發貼:</B> 2 <BR><B>技術分:</B> 0
<BR><B>積分:</B>3 <BR><IMG height=1 src="view.files/pixel.gif" width=150
border=0> </TD>
<TD vAlign=top width="100%"><IMG src="view.files/post.gif" align=absMiddle
border=0>于 2004-08-20 15:31 <A
href="http://bbs.matwav.com/user/info?uid=21786"><IMG alt="user profile"
src="view.files/icon_profile.gif" align=absMiddle border=0></A><A
href="http://bbs.matwav.com/user/message?action=WriteMessage&to=wqjk&subject=Re%3A%A1%BE%B9%B2%CF%ED%A1%BF%D2%C5%B4%AB%CB%E3%B7%A8%B5%C4MATLAB6.5+%D4%B4%B3%CC%D0%F2"
target=_blank><IMG alt="send a private message to user"
src="view.files/icon_pm.gif" align=absMiddle border=0></A><A
href="http://bbs.matwav.com/post/reply?bid=7&parent=80816&done=%2Fpost%2Fview%3Fbid%3D7%26id%3D80816%26sty%3D1%26tpg%3D1%26age%3D0&quote=1"><IMG
alt="reply to post" src="view.files/icon_quote.gif" align=absMiddle
border=0></A><A
href="http://bbs.matwav.com/post/search?username=wqjk&action=Search"><IMG
alt="search all posts by" src="view.files/icon_find.gif" align=absMiddle
border=0></A><A href="javascript:copyText(document.all.text80816);"><IMG
alt="select and copy to clipboard. ie only, sorry for netscape users:-)"
src="view.files/icon_copy.gif" align=absMiddle border=0></A><A
href="http://bbs.matwav.com/user/favorite?action=Add&bid=7&id=80816"
target=_blank><IMG alt="add this post to my favorite list"
src="view.files/icon_favorite.gif" align=absMiddle border=0></A>
<HR color=#000000 noShade SIZE=1>
<SPAN class=javascript id=text80816>function [x,endPop,bPop,traceInfo] =
ga(bounds,eevalFN,eevalOps,startPop,opts,...<BR>termFN,termOps,selectFN,selectOps,xOverFNs,xOverOps,mutFNs,mutOps)<BR><BR>n=nargin;<BR>if
n<2 | n==6 | n==10 | n==12<BR>disp('Insufficient arguements')
<BR>end<BR>if n<3 %Default eevalation
opts.<BR>eevalOps=[];<BR>end<BR>if n<5<BR>opts = [1e-6 1
0];<BR>end<BR>if isempty(opts)<BR>opts = [1e-6 1 0];<BR>end<BR><BR>if
any(eevalFN<48) %Not using a .m file<BR>if opts(2)==1 %Float
ga<BR>e1str=['x=c1; c1(xZomeLength)=', eevalFN ';']; <BR>e2str=['x=c2;
c2(xZomeLength)=', eevalFN ';']; <BR>else %Binary
ga<BR>e1str=['x=b2f(endPop(j,<IMG alt=Smile src="view.files/smile.gif"
width=15>,bounds,bits); endPop(j,xZomeLength)=',...<BR> eevalFN
';'];<BR>end<BR>else %Are using a .m file<BR>if opts(2)==1 %Float
ga<BR>e1str=['[c1 c1(xZomeLength)]=' eevalFN '(c1,[gen eevalOps]);'];
<BR>e2str=['[c2 c2(xZomeLength)]=' eevalFN '(c2,[gen eevalOps]);'];
<BR>else %Binary ga<BR>e1str=['x=b2f(endPop(j,<IMG alt=Smile
src="view.files/smile.gif" width=15>,bounds,bits);[x v]=' eevalFN
...<BR> '(x,[gen eevalOps]); endPop(j,<IMG alt=Smile
src="view.files/smile.gif" width=15>=[f2b(x,bounds,bits) v];'];
<BR>end<BR>end<BR><BR>if n<6 %Default termination
information<BR>termOps=[100];<BR>termFN='maxGenTerm';<BR>end<BR>if n<12
%Default muatation information<BR>if opts(2)==1 %Float
GA<BR>mutFNs=['boundaryMutation multiNonUnifMutation nonUnifMutation
unifMutation'];<BR>mutOps=[4 0 0;6 termOps(1) 3;4 termOps(1) 3;4 0
0];<BR>else %Binary
GA<BR>mutFNs=['binaryMutation'];<BR>mutOps=[0.05];<BR>end<BR>end<BR>if
n<10 %默認的交叉信息<BR>if opts(2)==1 %浮點編碼<BR>xOverFNs=['arithXover
heuristicXover simpleXover'];<BR>xOverOps=[2 0;2 3;2 0];<BR>else %Binary
GA<BR>xOverFNs=['simpleXover'];<BR>xOverOps=[0.6];<BR>end<BR>end<BR>if
n<9 %Default select opts only i.e. roullete
wheel.<BR>selectOps=[];<BR>end<BR>if n<8 %Default select
info<BR>selectFN=['normGeomSelect'];<BR>selectOps=[0.08];<BR>end<BR>if
n<6 %默認的算法終止準則<BR>termOps=[100];<BR>termFN='maxGenTerm';<BR>end<BR>if
n<4 %初始種群為空<BR>startPop=[];<BR>end<BR>if isempty(startPop)
%隨機生成初始種群<BR>startPop=initializega(80,bounds,eevalFN,eevalOps,opts(1:2));<BR>end<BR><BR>if
opts(2)==0
%二進制編碼<BR>bits=calcbits(bounds,opts(1));<BR>end<BR><BR>xOverFNs=parse(xOverFNs);<BR>mutFNs=parse(mutFNs);<BR><BR>xZomeLength
= size(startPop,2); %Length of the
xzome=numVars+fittness<BR>numVar = xZomeLength-1; %變量數目<BR>popSize =
size(startPop,1); %種群中個體數目<BR>endPop = zeros(popSize,xZomeLength);
%次種群矩陣<BR>c1 = zeros(1,xZomeLength); %個體<BR>c2 =
zeros(1,xZomeLength); %個體<BR>numXOvers =
size(xOverFNs,1); %交叉操作次數<BR>numMuts =
size(mutFNs,1); %變異操作次數<BR>epsilon =
opts(1); %適應度門限值<BR>oeval =
max(startPop(:,xZomeLength)); %初始種群中的最優值<BR>bFoundIn = 1;<BR>done =
0;<BR>gen = 1;<BR>collectTrace = (nargout>3);<BR>floatGA =
opts(2)==1;<BR>display = opts(3);<BR><BR>while(~done)<BR>[beval,bindx] =
max(startPop(:,xZomeLength)); %當前種群的最優值<BR>best = startPop(bindx,<IMG
alt=Smile src="view.files/smile.gif" width=15>;<BR><BR>if
collectTrace<BR>traceInfo(gen,1)=gen;
%當前代<BR>traceInfo(gen,2)=startPop(bindx,xZomeLength);
%最優適應度<BR>traceInfo(gen,3)=mean(startPop(:,xZomeLength));
%平均適應度<BR>traceInfo(gen,4)=std(startPop(:,xZomeLength)); <BR>end<BR><BR>if
( (abs(beval - oeval)>epsilon) | (gen==1)) <BR>if
display<BR>fprintf(1,'\n%d %f\n',gen,beval); <BR>end<BR>if
floatGA<BR>bPop(bFoundIn,<IMG alt=Smile src="view.files/smile.gif"
width=15>=[gen startPop(bindx,<IMG alt=Smile src="view.files/smile.gif"
width=15>]; <BR>else<BR>bPop(bFoundIn,<IMG alt=Smile
src="view.files/smile.gif" width=15>=[gen
b2f(startPop(bindx,1:numVar),bounds,bits)...<BR>
startPop(bindx,xZomeLength)];<BR>end<BR>bFoundIn=bFoundIn+1;
<BR>oeval=beval; <BR>else<BR>if display<BR>fprintf(1,'%d
',gen); <BR>end<BR>end<BR><BR>endPop =
feeval(selectFN,startPop,[gen selectOps]); %選擇操作<BR><BR>if floatGA <BR>for
i=1:numXOvers,<BR>for j=1:xOverOps(i,1),<BR> a =
round(rand*(popSize-1)+1); %一個父代個體<BR> b =
round(rand*(popSize-1)+1);
%另一個父代個體<BR> xN=deblank(xOverFNs(i,<IMG alt=Smile
src="view.files/smile.gif" width=15>); %交叉函數<BR> [c1 c2] =
feeval(xN,endPop(a,<IMG alt=Smile src="view.files/smile.gif"
width=15>,endPop(b,<IMG alt=Smile src="view.files/smile.gif"
width=15>,bounds,[gen… xOverOps(i,<IMG alt=Smile
src="view.files/smile.gif" width=15>]);<BR> <BR> if
c1(1:numVar)==endPop(a,(1:numVar)) <BR>
c1(xZomeLength)=endPop(a,xZomeLength); <BR> elseif
c1(1:numVar)==endPop(b,(1:numVar))<BR>
c1(xZomeLength)=endPop(b,xZomeLength);<BR> else
<BR> eeval(e1str);<BR> end<BR> if
c2(1:numVar)==endPop(a,(1:numVar))<BR>
c2(xZomeLength)=endPop(a,xZomeLength);<BR> elseif
c2(1:numVar)==endPop(b,(1:numVar))<BR>
c2(xZomeLength)=endPop(b,xZomeLength);<BR> else
<BR> eeval(e2str);<BR> end
<BR> <BR> endPop(a,<IMG alt=Smile
src="view.files/smile.gif" width=15>=c1;<BR> endPop(b,<IMG
alt=Smile src="view.files/smile.gif"
width=15>=c2;<BR>end<BR>end<BR><BR>for i=1:numMuts,<BR>for
j=1:mutOps(i,1),<BR> a =
round(rand*(popSize-1)+1);<BR> c1 =
feeval(deblank(mutFNs(i,<IMG alt=Smile src="view.files/smile.gif"
width=15>),endPop(a,<IMG alt=Smile src="view.files/smile.gif"
width=15>,bounds,[gen mutOps(i,<IMG alt=Smile src="view.files/smile.gif"
width=15>]);<BR> if c1(1:numVar)==endPop(a,(1:numVar))
<BR>
c1(xZomeLength)=endPop(a,xZomeLength);<BR> else<BR>
eeval(e1str);<BR> end<BR> endPop(a,<IMG alt=Smile
src="view.files/smile.gif" width=15>=c1;<BR>end<BR>end<BR><BR>else
%遺傳操作的統計模型<BR>for i=1:numXOvers,<BR>xN=deblank(xOverFNs(i,<IMG alt=Smile
src="view.files/smile.gif" width=15>);
<BR>cp=find(rand(popSize,1)<xOverOps(i,1)==1);<BR>if
rem(size(cp,1),2) cp=cp(1<IMG alt=Sad src="view.files/smile_sad.gif"
width=15>size(cp,1)-1)); end<BR>cp=reshape(cp,size(cp,1)/2,2);<BR>for
j=1:size(cp,1)<BR> a=cp(j,1); b=cp(j,2); <BR>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -