用禁忌搜索算法实现TSP问题

《用禁忌搜索算法实现TSP问题》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、functiontabu_search()clc,clearMAX=100;D=[02.32.84.14.16.2;2.301.72.22.24.5;2.81.705.15.13.6;4.12.25.100.12.3;4.12.25.10.102.3;6.24.53.62.32.30];n=6;length_min=MAX;t=30;A=ones(t,6);x=1:6;Y=1:6;p=1;forN=1:MAXX=updatepath(x,n);d=pathlength(D,X,n);[miny,minp]=sort(d);w=X(m

2、inp(1),:);ifminy(1)6w=X(minp(j),:);j=j+1;endx=w;A(p,:)=x;p=p+1;ifp==t+1p=1;endendendYlength_minendfunctiond=pathlength(D,X,n)%n=6;%X=updatepath(n);d=zeros(1,n);forj=1:nfori=1:

3、n-1d(j)=d(j)+D(X(j,i),X(j,i+1));endendend%------------------------------functionX=updatepath(x,n)X=ones(n,n);%y=1:n;%x=1:6;fori=1:6m=round(rand(1)*5+0.5);t=x(m);x(m)=x(i);x(i)=t;X(i,:)=x;endendfunctionf=check(A,x)f=0;[m,~]=size(A);fori=1:my=A(i,:);ifx==yf=1;endendend