概述
效果图:
可运行的Matlan代码:
clear
clc
Ant = 300;%蚂蚁数量
Times = 80;%移动次数
Rou = 0.9;%荷尔蒙发挥系数
P0 = 0.2;%转移概率
Lower_1 = -1;%搜索范围
Upper_1 = 1;
Lower_2 = -1;
Upper_2 = 1;
% 以下为自定义
X = zeros(Ant,2);
Tau = ones(1,Ant);
Tau_Best = zeros(1,Times);
P = zeros(Times,Ant);
for i=1:Ant
X(i,1)=(Lower_1+(Upper_1-Lower_1)*rand);
X(i,2)=(Lower_1+(Upper_2-Lower_2)*rand);
Tau(i)=F(X(i,1),X(i,2));
end
step=0.05;
f='-(x.^2+3*y.^4-0.2*cos(3*pi*x)-0.4*cos(4*pi*y)+0.6)';
[x,y]=meshgrid(Lower_1:step:Upper_1,Lower_2:step:Upper_2);
z=eval(f);
figure(1);
subplot(1,2,1);
mesh(x,y,z);
hold on;
plot3(X(:,1),X(:,2),Tau,'k*')
hold on;
text(0.1,0.8,-0.1,'蚂蚁的初始位置分布');
xlabel('x');ylabel('y');zlabel('f(x,y)');
for T=1:Times
lamda=1/T;
[Tau_Best(T),BestIndex]=max(Tau);
for i=1:Ant
P(T,i)=(Tau(BestIndex)-Tau(i))/Tau(BestIndex);%计算转移状态概率
end
for i=1:Ant
if P(T,i)<P0%局部搜索
temp1=X(i,1)+(2*rand-1)*lamda;
temp2=X(i,2)+(2*rand-1)*lamda;
else%全局搜索
temp1=X(i,1)+(Upper_1-Lower_1)*(rand-0.5);
temp2=X(i,2)+(Upper_2-Lower_2)*(rand-0.5);
end
if temp1<Lower_1%越界处理
temp1=Lower_1;
end
if temp1>Upper_1
temp1=Upper_1;
end
if temp2<Lower_2
temp2=Lower_2;
end
if temp2>Upper_2
temp2=Upper_2;
end
if F(temp1,temp2)>F(X(i,1),X(i,2))%更新位置
X(i,1)=temp1;
X(i,2)=temp2;
end
end
for i=1:Ant
Tau(i)=(1-Rou)*Tau(i)+F(X(i,1),X(i,2));%更新荷尔蒙
end
end
subplot(1,2,2);
mesh(x,y,z);
hold on;
x = X(:,1);
y = X(:,2);
plot3(x,y,eval(f),'k*');
hold on;
text(0.1,0.8,-0.1,'蚂蚁的最终位置分布');
xlabel('x');ylabel('y');zlabel('f(x,y)');
[max_value,max_index]=max(Tau);
maxX = X(max_index,1);
maxY = X(max_index,2);
maxValue = F(X(max_index,1),X(max_index,2));
function f = F(x,y)
f = -(x.^2+3*y.^4-0.2*cos(3*pi*x)-0.4*cos(4*pi*y)+0.6);
end
参考:https://www.omegaxyz.com/2018/01/26/aco/
原资料中的代码不能直接运行,没有初始化变量。本文为改进版。
最后
以上就是虚拟面包为你收集整理的【算法】可完整运行的ACO蚁群算法(Matlab)的全部内容,希望文章能够帮你解决【算法】可完整运行的ACO蚁群算法(Matlab)所遇到的程序开发问题。
如果觉得靠谱客网站的内容还不错,欢迎将靠谱客网站推荐给程序员好友。
本图文内容来源于网友提供,作为学习参考使用,或来自网络收集整理,版权属于原作者所有。
发表评论 取消回复