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

给力肖方红~ · 发表于 2012-8-26 01:52

{:soso_e154:}求法师✪笼罩！

给力肖方红~ · 发表于 2012-8-26 01:55

本帖最后由给力肖方红~ 于 2012-8-26 01:55 编辑

Sub gen_city_dist()
Dim i As Long, j As Long, from_city As Long, to_city As Long, matrix_size As Long, dist As Double
'Dim x1, y1, x2, y2
matrix_size = UBound(city_data) - LBound(city_data) + 1
ReDim city_dist(1 To matrix_size, 1 To matrix_size)

Open "C:\data.txt" For Input As #1
For j = 1 To 4
For i = 1 To 4
Input #1, city_dist(i, j)
If EOF(1) Then Exit For
Next
If EOF(1) Then Exit For
Next
Close #1
End Sub

artin88 · 发表于 2012-9-1 22:01

算法实在是太重要了

pitt888 · 发表于 2012-9-4 09:00

完全不懂啊，不过我不懂的东西肯定是高深的，哈哈

double6969 · 发表于 2012-9-7 16:07

好贴啊很实用！

liujiqing · 发表于 2012-9-8 08:42

这个真的很强大，感谢楼主分享

zhouxingyu · 发表于 2012-9-10 09:34

很强大的说.

zhq0078 · 发表于 2012-9-10 11:04

果断留印收藏，对算法优化一直很感兴趣。

baoshaobo000 · 发表于 2012-9-13 17:28

确实是好帖,涨见识了.

李燕娟 · 发表于 2012-9-16 14:41

看得头疼，但也还是看完了，虽然不懂，但也学习下。

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

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