遗传算法解决 TSP问题 matlab 2017a 编程

clear clc close all X =[16.47,96.10 16.47,94.44 20.09,92.54 22.39,93.37 25.23,97.24 22.00,96.05 20.47,97.02 17.20,96.29 16.30,97.38 14.05,98.12 16.53,97.38 21.52,95.59 19.41,97.13 20.09,92.55]; %个城市坐标位置,可以换成load CityPosition1.mat % load CityPosition1.mat; NIND=100; %种群大小 MAXGEN=200; Pc=0.9; %交叉概率 Pm=0.05; %变异概率 GGAP=0.9; %代沟(Generation gap) D=Distanse(X); %生成距离矩阵 N=size(D,1); %% 初始化种群 Chrom=InitPop(NIND,N); %% 在二维图上画出所有坐标点 X的坐标点。 % figure % plot(X(:,1),X(:,2),'o'); %% 画出随机解的路线图 DrawPath(Chrom(1,:),X) pause(0.0001) %% 输出随机解的路线和总距离 disp('初始种群中的一个随机值:'); %OutputPath(Chrom(1,:)); disp( Chrom(1,:) ); % Rlength=PathLength(D,Chrom(1,:)); % disp(['总距离：',num2str(Rlength)]); RL = 0; R_Route = [Chrom(1,:),Chrom(1,1)]; for i=1:size(Chrom,2) DL = D(R_Route(1,i),R_Route(1,i+1)); RL = RL + DL; end RL = RL + D(R_Route(1,15),R_Route(1,1)); disp(['总距离：',num2str(RL)]); disp('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~') %% 优化 gen=0; figure; hold on;box on xlim([0,MAXGEN]) title('优化过程') xlabel('代数') ylabel('最优值') ObjV=PathLength(D,Chrom); %计算路线长度 preObjV=min(ObjV); while gen<MAXGEN %% 计算适应度 ObjV=PathLength(D,Chrom); %计算路线长度 % fprintf('%d %1.10f\n',gen,min(ObjV)) line([gen-1,gen],[preObjV,min(ObjV)]);pause(0.0001) preObjV=min(ObjV); FitnV=Fitness(ObjV); %% 选择 SelCh=Select(Chrom,FitnV,GGAP); %% 交叉操作 SelCh=Recombin(SelCh,Pc); %% 变异 SelCh=Mutate(SelCh,Pm); %% 逆转操作 SelCh=Reverse(SelCh,D); %% 重插入子代的新种群 Chrom=Reins(Chrom,SelCh,ObjV); %% 更新迭代次数 gen=gen+1 ; end %% 画出最优解的路线图 ObjV=PathLength(D,Chrom); %计算路线长度 [minObjV,minInd]=min(ObjV); DrawPath(Chrom(minInd(1),:),X) %% 输出最优解的路线和总距离 disp('最优解:') p=OutputPath(Chrom(minInd(1),:)); disp(['总距离：',num2str(ObjV(minInd(1)))]); disp('-------------------------------------------------------------')