sa_locationmove.m

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

function [x1,changex,l1,tabu]=sa_locationmove(x0,l0,tabu)
nu1=rand;
  if nu1>0.5
   [x1,changex,l1]=drop(x0,l0);
  else 
    [x1,changex,l1]=swap_location(x0,l0);
  end
% 满足容量需求
 while  findintabu(x1,tabu)==1  %不满足条件
          nu1=rand;  clear x1,l1;
            if nu1>0.5
                 [x1,changex,l1]=drop(x0,l0);
           else 
                [x1,changex,l1]=swap_location(x0,l0); 
           end
    end