学习共享：高级蚁群算法求解1000以上城市的TSP问题（旅行商），附大量TSPLIB数据！

yqdaqinqin

收藏学习！！！！！！！！！！！！！！

hongselianqiu

楼主 我想请问一下 为什么我写的算法就是不收敛

君子爱财

虽不能至，心向往之。

wdkj2011

谢谢分享谢谢分享

imcjp

法师，你的这段代码有问题（各种版本的增强蚁群算法+3opt+加速技巧.xls）

按你的意思，你应该不会是想把pheromone数组重新定义吧
而且，你对每一行都取最大值，这样会导致结果出现pheromone(u,v)!=pheromone(v,u)
但一般图都是对称的呀

imcjp

法师，你的这段代码有问题（各种版本的增强蚁群算法+3opt+加速技巧.xls）


按你的意思，你应该不会是想把pheromone数组重新定义吧
而且，你对每一行都取最大值，这样会导致结果出现pheromone(u,v)!=pheromone(v,u)
但一般图都是对称的呀

imcjp

imcjp 发表于 2013-6-30 19:10
法师，你的这段代码有问题（各种版本的增强蚁群算法+3opt+加速技巧.xls）

其实你这样等价于从头开始，真正的restart，不过这段代码没什么意义，只是相当于把配合romone整个设为0。
你用vba调试一下就知道了

imcjp

imcjp 发表于 2013-7-1 20:58
其实你这样等价于从头开始，真正的restart，不过这段代码没什么意义，只是相当于把配合romone整个设为0。 ...

另外，我想说3opt应该有8种变换，除本身外有另外7种。
假如本身是a1,a2,b1,b2,c1,c2，其中三条子路径是a2b1，b2c1，c2a1
那么剩下7种是
a1,b1,a2,b2,c1,c2
a1,a2,b1,c1,b2,c2
a1,b1,a2,c1,b2,c2
a1,b2,c1,a2,b1,c2
a1,b2,c1,b1,a2,c2
a1,c1,b2,a2,b1,c2
a1,c1,b2,b1,a2,c2

灰袍法师

imcjp 发表于 2013-7-1 20:58
其实你这样等价于从头开始，真正的restart，不过这段代码没什么意义，只是相当于把配合romone整个设为0。 ...

确实是代码有错误，正确的代码要把这里的第三行删掉
Sub regen_pheromone()
Dim u As Long, v As Long, max_inrow() As Double
ReDim pheromone(1 To total_city, 1 To total_city)

imcjp

imcjp 发表于 2013-7-1 21:04
另外，我想说3opt应该有8种变换，除本身外有另外7种。
假如本身是a1,a2,b1,b2,c1,c2，其中三条子路径是a ...

你3opt里应该没调用2opt吧。所以3opt里包含2opt也是必要的。因为，换3个位置的结果，并不一定比换2个位置的结果好。而且这样写有利于编程，可以用一个循环下来搞定7种情况。
另外，这7种情况里头，只有1,2,7种实质是2opt，其他4种是3opt。
经过测试，这样写的效果比你之前的代码精确度会高一些。