findintabu.m

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

function value=findintabu(x,tabu)


value=0;
y=x';
one=(y(:))';
for l=1:7
        j=1;
        while (j<length(one))&(tabu(l,j)==one(j))
           j=j+1;
     end
       if j==length(one)
         value=1;
         break;
     end    
     end