swap_location.m

TSP问题,即旅行商问题,matlab环境下可以运行

function [x1,changex,l1]=swap_location(x0,l0)
global customer;
global depot;
global demand;
 NumberRoute=length(l0);  
a=ceil(NumberRoute*rand);
b=0;
for j=1:NumberRoute
if x0(a,1)~=x0(j,1)
   b=j;
   break;
end
end

if b==0
      for j=1:depot
          if j==x0(a,1)
              alldis(j)=100000;
          else
            alldis(j)=distance(demand,x0(a,1)+customer,j+customer);
        end
      end
      [dis,n]=min(alldis);
       x0(a,1)=n;
       x1=x0;
       l1=l0;
       changex=[1 a n];
else
 temp=x0(a,1);
x0(a,1)=x0(b,1);
x0(b,1)=temp;
l1=l0;
x1=x0;
changex=[2 a b];
end