updatetabu.m

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

function newtabu=updatetabu(x,tabu)

 y=x';
%如果解被接受，将这个解放到数组的第一个元素中，其他的元素往后移
one=(y(:))';
len1=length(one);
len2=length(tabu);
if len1>=len2
    newtabu=zeros(7,len1);
newtabu(1,1:len1)=one(1:len1);
newtabu(2:7,1:len2)=tabu(1:6,1:len2);
else 
       newtabu=zeros(7,len2);
newtabu(1,1:len1)=one(1:len1);
newtabu(2:7,1:len2)=tabu(1:6,1:len2);
end