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

jiangjiang11 · 发表于 2019-12-28 11:05

法师您好，看了您的算法帮助很大，我这里实际应用中有个小问题，在Function get_next_city中，我想判断如果当前城市和下个城市的横纵坐标都不相同，则增加一个城市，让新增城市的横坐标或纵坐标相对于当前城市保持不变，我在函数中添加了一段代码是这样的

If ((get_next_city.XValues) <> (current_city.XValues)) & ((get_next_city.YValues) <> (current_city.YValues)) Then
try_city.XValues = get_next_city.XValues
try_city.YValues = current_city.YValues
If Not visited(try_city) Then
         get_next_city = try_city
         Exit Function
      End If
End If

本人不会VBA具体语法，所以在编译时有错误，请法师指教一下如何改正，而且这种增加城市的方法是否合理，感谢！

马上 · 发表于 2020-3-12 08:31

牛人，不知有缘合作否？

chis3 · 发表于 2020-3-14 08:30

雖然應該沒機會用到
先mark一下有機會學習

liaoliangbang · 发表于 2020-4-15 09:32

收藏！！！！

yuanblock · 发表于 2022-7-20 18:53

正在学习算法类的程序，谢谢楼主

shawlay · 发表于 2022-10-30 19:04

本帖最后由 shawlay 于 2022-10-30 19:05 编辑

这是不是类似于深度算法，求解最优路径呢

静听溪流 · 发表于 2024-2-12 20:58

MARK标记下

高个子 · 发表于 2024-2-13 20:44

shawlay 发表于 2022-10-30 19:04
这是不是类似于深度算法，求解最优路径呢

是的，这个问题还是比较复杂的。

三金吃面了 · 发表于 2024-2-21 14:26

法师，厉害！不断学习。目前我工作中就面临需要一个工具来针对某一个城市里N个送货点进行排线，出发地需要固定。还不知道如何下手找寻到趁手的工具。

三金吃面了 · 发表于 2024-2-22 09:18

本帖最后由三金吃面了于 2024-2-22 10:46 编辑

不知法师是否能看到，这里如何修改为不循环计算路径，只求固定出发点一次走完的最优路径？

		自动登录	找回密码
密码			免费注册

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