(完整版)基于改进遗传算法的路径规划MATLAB实现_第1页
(完整版)基于改进遗传算法的路径规划MATLAB实现_第2页
免费预览已结束,剩余1页可下载查看

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、基于遗传算法的路径规划MATLAB实现主程序:clearall;closeall;t=23;%过程点个数-t1s=500;%种群规模pc=0.90;%交叉概率pm=0.20;%变异概率pop=zeros(s,t);fori=1:spop(i,1:t-1)=randperm(t-1);endfork=1:1:2000%进化代次数kifmod(k,10)=1kendpop=lujingdis(pop);c=15;%选择淘汰个数pop=lujingselect(pop,c);p=rand;ifp>=pcpop=lujingcross(pop);endifp>=pmpop=lujingmu

2、tate(pop);Endendpopmin(pop(:,t)J=pop(:,t);fi=1./J;Oderfi,Indexfi=sort(fi);%安排fi从小到大BestS=pop(Indexfi(s),:);%使BestS=E(m),m即是属于max(fi)的IndexfiI=BestS;x=23610141722202325302825212916181591165;y=526142927242822263030171315413316227;%过程点坐标%x=12346911108964;%12个过程点的坐标%y=12348101195212;fori=1:1:t-1x1(i)=x(

3、I(i);y1(i)=y(I(i);endx(t)=x(I(1);y(t)=y(I(1);a=1111111111111111111111111111111101111111011111101111011111111111110111111111111111011100011111111111111111111111111111111111111111111011111111111111111111111011111111111111111111111111111111111111110111111111111111111111111111111111111111111111111111011

4、111111111111111111111111111111111111111111111110111111111111111111111111111111111111111111111111111101111111111110111111101111111111111111111111111111111111111111111111111111111011111111111111111111111111111111111111110111111111101111111111111111111111111111111111111111111011111111111101111111111111

5、111111111111111101111111111110111111111111111101111111111111111111111111111101111111111111111111111110111111111110111111111011111111111111111111111111111111111111111111011111111111111111111111111111111111111110111111111111111111111111111111111111110111111111111111011111111111111111110111111111111111

6、11111111111111111011111111011111101111111111111;%31*31栅格%a=1111111111111001110010100111110011110110111111111111111111111001101111111111111011111111110111110011;%11*11栅格b=a;b(end+1,end+1)=0;colormap(000;111),pcolor(b)axisimagexy;%绘制栅格图holdon;figure(1);plot(x,y,'-or');适应度函数程序:lujingdis.mfuncti

7、onpop=qiujuli(pop)s,t=size(pop);fori=1:1:sdd=0;forj=1:1:t-2dd=dd+lujingcalculate(pop(i,j),pop(i,j+1);endpop(i,t)=dd;End距离计算程序:lujingcalculatemfunctiond=juli(m,n)x=23610141722202325302825212916181591165;y=526142927242822263030171315413316227;%x=12346911108964;%y=12348101195212;d=sqrt(x(m)-x(n)人2+(y(m

8、)-y(n)人2);选择算子程序:lujingselectmfunctionpop=select(pop,k)s,t=size(pop);m11=(pop(:,t);m11=m11'mmax=zeros(1,k);mmin=zeros(1,k);num=1;whilenum<k+1a,mmax(num)=max(m11);m11(mmax(num)=a;num=num+1;endnum=1;whilenum<k+1b,mmin(num)=min(m11);m11(mmin(num)=a;num=num+1;endfori=1:kpop(mmax(i),:)=pop(mmin

9、(i),:);End交叉算子程序:lujingcrossmfunctionpop=cross(pop)s,t=size(pop);pop1=pop;fori=1:2:sm=randperm(t-3)+1;crosspoint(1)=min(m(1),m(2);crosspoint(2)=max(m(1),m(2);forj=1:crosspoint(1)whilefind(pop(i,crosspoint(1)+1:crosspoint(2)=pop(i,j)zhi=find(pop(i,crosspoint(1)+1:crosspoint(2)=pop(i,j);y=pop(i+1,cros

10、spoint(1)+zhi);pop(i,j)=y;endendforj=crosspoint(2)+1:t-1whilefind(pop(i,crosspoint(1)+1:crosspoint(2)=pop(i,j)zhi=find(pop(i,crosspoint(1)+1:crosspoint(2)=pop(i,j);y=pop(i+1,crosspoint(1)+zhi);pop(i,j)=y;endendendpop=lujingdis(pop);fori=1:sifpop1(i,t)<pop(i,t)pop(i,:)=pop1(i,:);endEnd变异算子程序:lujingmutate.mfunctionpop=mutate(pop)s,t=size(pop);pop1=pop;fori=1:2:sm=randperm(t-3)+1;mutatepoint(1)=min(m(1),m(2);mutatepoint(2)=max(m(1),m(2);mutate=round(mutatepoint(2)-mutatepoint(1)/2-0.5);forj=1:mutatezhong=pop(i,mutatepo

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论