move.asv

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

function x1=move(x0)


          if unidrnd(2)==1
                [x1,changex]=drop(x0);
          else [x1,changex]=swap_location(x0);
          end


% 满足容量需求
      while  condition(x1)==0  %不满足条件
                if unidrnd(2)==1
                [x1,changex]=drop(x0);
               else [x1,changex]=swap_location(x0);
                end
      end

      while chechtabu(x1)==0 %在tabu中
             SCx1=SC(x1);
             if SCx1<=bestSC
                  bestx=x1;
                  bestSC=SCx1;
                  update:%解禁
              else 
              
                           if change(x0,x1)==0
                 x0=x1;
                
                 update_tabu;
     
end