以下是解放军信息工程大学一个老师编的 matlab 程序,请尊重原作者劳动,引用时请注明出处。
我经过修改增加了注释,已经运行过,无误,
function
[R_best,L_best,L_ave,Shortest_Route,Shortest_Length]=ACATSP(C,NC_max,m,Alpha,Beta,R
ho,Q)
%%-------------------------------------------------------------------------
%% 主要符号说明
%% C n 个城市的坐标,n×2 的矩阵
%% NC_max 最大迭代次数
%% m 蚂蚁个数
%% Alpha 表征信息素重要程度的参数
%% Beta 表征启发式因子重要程度的参数
%% Rho 信息素蒸发系数
%% Q 信息素增加强度系数
%% R_best 各代最佳路线
%% L_best 各代最佳路线的长度
%%=========================================================================
%%第一步:变量初始化
n=size(C,1);%n 表示问题的规模(城市个数)
D=zeros(n,n);%D 表示完全图的赋权邻接矩阵
for i=1:n
for j=1:n
if i~=j
D(i,j)=((C(i,1)-C(j,1))^2+(C(i,2)-C(j,2))^2)^0.5;
else
D(i,j)=eps; %i=j 时不计算,应该为 0,但后面的启发因子要取倒数,用 eps(浮
点相对精度)表示
end
D(j,i)=D(i,j); %对称矩阵
end
end
Eta=1./D; %Eta 为启发因子,这里设为距离的倒数
Tau=ones(n,n); %Tau 为信息素矩阵
Tabu=zeros(m,n); %存储并记录路径的生成
NC=1; %迭代计数器,记录迭代次数