select.m

此算法为基于信息熵的免疫算法求TSP的源程序!

function path=Select(path,SelectP)
[row,col]=size(path);
roulette=cumsum(SelectP);
for i=1:row
    tempP=rand(1);
    for j=1:length(roulette)
        if tempP<roulette(j)
            break;
        end
    end
    selectedpath(i,:)=path(j,:);
end
path=selectedpath;