sa_routingmove.m

来自「TSP问题,即旅行商问题,matlab环境下可以运行」· M 代码 · 共 22 行

function [x1,changex,l1,tabu]=sa_routingmove(x0,l0,tabu)
 nu1=rand;
if nu1>0.7
[x1,changex,l1]=insert(x0,l0); 
elseif nu1>0.4
    [x1,changex,l1]=swap_routing(x0,l0); 
else
     [x1,changex,l1]=newroute(x0,l0); 
end
     % 满足容量需求
      while  (condition(x1,changex,l1)==0) | (findintabu(x1,tabu)==1) %不满足条件
           nu1=rand;  clear x1,l1;
            if nu1>0.7
                 [x1,changex,l1]=insert(x0,l0); 
           elseif nu1>0.4
                 [x1,changex,l1]=swap_routing(x0,l0); 
            else
                  [x1,changex,l1]=newroute(x0,l0); 
             end
     end