satsp.asv

来自「用matlab实现免疫遗传算法求解tsp问题」· ASV 代码 · 共 23 行

function [bestpath,minpathlong]=SATSP(TSPMatrix,T,T0,a)
path=Initialize(TSPMatrix);
S=0;
i=1;
while(T>T0)
    temppath=path;
    newpath=Generate(path);
    path=Matrolips(path,newpath,TSPMatrix,T);
    %if(length(path==temppath)==length(TSPMatrix))
        %S=S+1;
        %else
        %S=0;
        %end
    %if(S==s)
        %break;
        %end
    T=a*T;
    
    i=i+1;
end
bestpath=path;
minpathlong=pathlong(path,TSPMatrix);