人工鱼群算法源代码Word版

1、传播优秀Word版文档 ，希望对您有帮助，可双击去除！%人工鱼群算法formatlongVisual=2.5;Step=0.3;N=50;Try_number=50;a1=-10;b1=10;a2=-10;b2=10;d=;h=1e-1;Friend_number=50;k=0;m=50;X1=rand(N,1)*(b1-a1)+a1;X2=rand(N,1)*(b2-a2)+a2;X=X1X2;%人工鱼数量fori=1:Nwwww=X(i,1),X(i,2);d(i)=maxf(wwww);endw,i=max(d);maxX=X(i,1),X(i,2);%初始公告板记录maxY=w;%初始

2、公告板记录figurex=;figurey=;figurez=;figurex(numel(figurex)+1)=maxX(1);figurey(numel(figurey)+1)=maxX(2);figurez(numel(figurez)+1)=maxY;kkk=0;while(km)fori=1:NXX=X(i,1),X(i,2);%人工鱼当前状态Xi传播优秀Word版文档 ，希望对您有帮助，可双击去除！nf=0;Xc=0;forj=1:N%聚群行为开始XXX=X(j,1),X(j,2);if(norm(XXX-XX)maxf(XX)XXnext1=XX+rand*Step*(Xc-X

3、X)/norm(Xc-XX);if(XXnext1(1)b1)XXnext1(1)=b1;endif(XXnext1(1)b2)XXnext1(2)=b2;endif(XXnext1(2)b1)XXnext1(1)=b1;endif(XXnext1(1)b2)XXnext1(2)=b2;endif(XXnext1(2)a2)XXnext1(2)=a2;endend%聚群行为结束%maxX=XX;%追尾行为开始%maxY=maxf(XX);forj=1:Friend_numberXXX=X(j,1),X(j,2);if(norm(XXX-XX)maxY)maxX=XXX;maxY=maxf(XX

4、X);endendif(maxY)maxf(XX)XXnext2=XX+rand*Step*(maxX-XX)/norm(maxX-XX);if(XXnext2(1)b1)XXnext2(1)=b1;end传播优秀Word版文档 ，希望对您有帮助，可双击去除！if(XXnext2(1)b2)XXnext2(2)=b2;endif(XXnext2(2)b1)XXnext2(1)=b1;endif(XXnext2(1)b2)XXnext2(2)=b2;endif(XXnext2(2)maxf(XXnext2)X(i,1)=XXnext1(1);X(i,2)=XXnext1(2);elseX(i,1

5、)=XXnext2(1);X(i,2)=XXnext2(2);endend%一次迭代结束fori=1:NXXXX=X(i,1),X(i,2);ifmaxf(XXXX)maxYmaxY=maxf(XXXX);maxX=XXXX;figurex(numel(figurex)+1)=maxX(1);figurey(numel(figurey)+1)=maxX(2);figurez(numel(figurez)+1)=maxY;endendk=k+1;%进入下一次迭代传播优秀Word版文档 ，希望对您有帮助，可双击去除！endmaxXmaxYplot3(figurex,figurey,figurez)functionXXnext=gmjprey(XX,Try_number,Visual,Step)pp=0;forj=1:Try_numberXXj=XX+rand*Step*Visual;if(maxf(XX)maxf(XXj)XXnext=XX+rand*Step*(XXj-XX)/norm(XXj-XX);pp=1;breaken