roadlength.asv

自己根据其他例子改编的MATLAB的GA工具箱实现TSP的程序

%roadlength.m 求路径总长度S。
%N：中间节点个数
%NIND：种群个体数目
%order：各个个体序列的序号
%orderV：order的转置
%variable：变量
%var:路径矩阵
%d：距离矩阵
%D:路段长度
%S：路径长度
function S = roadlength(variable,N,NIND,d)
orderV(N,NIND)=0;
for i=1:NIND
    [a,orderV(:,i)]=sortrows(variable(i,:)',1);
end
order=orderV';
var(NIND,N+2)=0;
for i=1:N
    var(:,i+1)=order(:,i);
end
D(NIND,N+1)=0;
S(NIND)=0;
for i=1:NIND
for j=1:N+1
    D(i,j)=d(var(i,j)+1,var(i,j+1)+1);
S(i)=S(i)+D(i,j);
end 
end
S=S';