下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、Ax63oEiOA-for i=1:popsizeAx63oEiOA-for i=1:popsizefor j=1:vartotal angle(i,j)=2*pi*rand;chrom(i,1,j)=cos(angle(i,j);chrom(i,2,j)=sin(angle(i,j); selfangle(i,j)=2*pi*rand;selfchrom(i,1,j)=cos(angle(i,j);selfchrom(i,2,j)=sin(angle(i,j); dangle(i,j)=0;endend%pUiibAx6(Aex6EEia)pAuQ6ald%pUii6Ax6(Aex6EEia
2、)pAuQdyld%y0i,oAx6x0Eixi6AfOApAU坯c6aYd%y0i,oAx6x0Eixi6AfOApAu坯fOyTd%36E_xaQ0bAi(EUiE)aOaa-%3iBddyIA clear all;clear all;%aAe2eOpopsize=50;%OOE1Avartotal=2;%aAioEyinertia=0.5;%iB00ox6wselfw=2.0;%x0總d6x6c1globalw=2.0;%EOOdx6c2mutatep=0.05;%aOiiAAEmaxgen=500;%IPzuEy%Eyxe2iO varrange(1,1)=-512; %xx!BjOp
3、 varrange(1,2)=512; %xxizoOp varrange(2,1)=-512; %xx!BjOp varrange(2,2)=512; %xxizoOp for i=1:popsizefor j=1:2for k=1:vartotalchromx(i,j,k)=0.5*(varrange(k,2)*(1+chrom(i,j,k)+varrange(k,1)*(1- chrom(i,j,k);selfchromx(i,j,k)=0.5*(varrange(k,2)*(1+selfchrom(i,j,k)+varrange(k,1) *(1-selfchrom(i,j,k);en
4、dendend%EaEE6|iE一一for i=1:popsizefor j=1:2fitness(i,j)=-chromx(i,j,1)*sin(abs(chromx(i,j,2)+1-chromx(i,j,1)A0.5)*cos(abs(chromx(i,j,2)+1+chromx(i,j,1)A0.5) -(chromx(i,j,2)+1)*cos(abs(chromx(i,j,2)+1- chromx(i,j,1)A0.5)*sin(abs(chromx(i,j,2)+1+chromx(i,j,1)A0.5);selffitness(i,j)=- selfchromx(i,j,1)*s
5、in(abs(selfchromx(i,j,2)+1- selfchromx(i,j,1)A0.5)*cos(abs(selfchromx(i,j,2)+1+selfchromx(i,j,1) )7.5)(selfchromx(i,j,2)+1)*cos(abs(selfchromx(i,j,2)+1- selfchromx(i,j,1)A0.5)*sin(abs(selfchromx(i,j,2)+1+selfchromx(i,j,1) )7.5);endend%總總0;?總(3吻一minfit=fitness(1,1);if fitness(1,1)fitness(1,2)minfit=f
6、itness(1,2);endmaxfit=fitness(1,2);bestchain=2;if fitness(1,1)fitness(1,2)maxfit=fitness(1,1);bestchain=1;endminfitindex=1;maxfitindex=1; avgfit=(fitness(1,1)+fitness(1,2)/(2*popsize);for i=2:popsizefor j=1:2if minfitfitness(i,j) minfit=fitness(i,j);minfitindex=i;endif maxfitfitness(i,j) maxfit=fitn
7、ess(i,j);maxfitindex=i;bestchain=j;end avgfit=avgfit+fitness(i,j)/(2*popsize);endend%一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一36E_E0 xiQAagloangle(1,:)=angle(maxfitindex,:);%npAE0 xi0AIaiglochrom(1,:,:)=chrom(maxfitindex,:,:);%36E E%0 xi0Af0Aglochromx(1,:,:)=chromx(maxfitindex,:,:);%3
8、6E E0 xi0Ai0Aglofit=fitness(maxfitindex,bestchain);%npAE0 xiz6EE0;?E%一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一3lBd0N-eaEfor gen=1:maxgengenglofitfor i=1:popsizefor j=1:vartotalt1=selfangle(i,j)-angle(i,j);if t1pit1=t1-2*pi;endt2=gloangle(1,j)-angle(i,j);if t2pit2=t2-2*pi;enddangle(i,j
9、)=inertia*dangle(i,j)+selfw*rand*t1+globalw*rand*t2;angle(i,j)=angle(i,j)+dangle(i,j); %0i6pAIaichrom(i,1,j)=cos(angle(i,j);%0i_6pAi0Achrom(i,2,j)=sin(angle(i,j);%di_6pAi0A%aOaachromx(i,1,j)=0.5*(varrange(j,2)*(1+chrom(i,1,j)+varrange(j,1)*(1- chrom(i,1,j);chromx(i,2,j)=0.5*(varrange(j,2)*(1+chrom(i
10、,2,j)+varrange(j,1)*(1- chrom(i,2,j);endfor j=1:1:2 fitness(i,j)=-chromx(i,j,1)*sin(abs(chromx(i,j,2)+1- chromx(i,j,1)A0.5)*cos(abs(chromx(i,j,2)+1+chromx(i,j,1)A0.5) -(chromx(i,j,2)+1)*cos(abs(chromx(i,j,2)+1- chromx(i,j,1)A0.5)*sin(abs(chromx(i,j,2)+1+chromx(i,j,1)A0.5);endend%Ax0I0Aa0ifor i=1:pop
11、sizefor j=1:vartotalif randfitness(1,2)minfit=fitness(1,2);endmaxfit=fitness(1,2);bestchain=2;if fitness(1,1)fitness(1,2)maxfit=fitness(1,1); bestchain=1;endminfitindex=1;maxfitindex=1; avgfit=(fitness(1,1)+fitness(1,2)/(2*popsize); for i=2:popsizefor j=1:2if minfitfitness(i,j) minfit=fitness(i,j);m
12、infitindex=i;endif maxfitfitness(i,j) maxfit=fitness(i,j);maxfitindex=i;bestchain=j;end avgfit=avgfit+fitness(i,j)/(2*popsize);endend%v Zs/z O zs 3AxOEixiOA1OAfor i=1:popsizet1=fitness(i,1);if t1fitness(i,2) t1=fitness(i,2);endt2=selffitness(i,1);if t2t2selfangle(i,:)=angle(i,:); selfchrom(i,:,:)=chrom(i,:,:); selfchromx(i,:,:)
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 干部知識(shí)競賽專項(xiàng)試題
- 記賬實(shí)操-開具農(nóng)產(chǎn)品電票的操作流程
- 鮮肉經(jīng)營用工合同
- 土建安全責(zé)任合同
- 廣告服務(wù)相關(guān)項(xiàng)目投資計(jì)劃書
- 自動(dòng)化生產(chǎn)單元相關(guān)行業(yè)投資規(guī)劃報(bào)告范本
- 端子機(jī)相關(guān)行業(yè)投資方案范本
- 2-Keto-d-gluconic-acid-hemicalcium-monohydrate-生命科學(xué)試劑-MCE
- 2-5-Dimethylpyrazine-Standard-生命科學(xué)試劑-MCE
- 《勞動(dòng)教育》課程實(shí)施方案(試行)
- 女性私密保養(yǎng)課件
- 山東省濰坊市2023-2024學(xué)年六年級上學(xué)期期中數(shù)學(xué)試卷
- 六年級語文上冊第四單元整本書閱讀《童年》課件
- 《食品衛(wèi)生與安全》塑化劑安全案例
- 橡膠塑煉與混煉-混煉(橡膠加工課件)
- 第14講 非對稱韋達(dá)定理(解析幾何)(解析版)
- 論進(jìn)位計(jì)數(shù)制
- 檔案館建設(shè)標(biāo)準(zhǔn)
- 中國癲癇臨床診療指南完整課件
- 詳解宣貫公安機(jī)關(guān)信訪工作規(guī)定內(nèi)容課件
- 《百家爭鳴》優(yōu)課一等獎(jiǎng)?wù)n件
評論
0/150
提交評論