最短路径算法源码 VB

本例以由拓扑关系的 arc/info 文件为数据源。其中 a1,b1,c1 是以 fnode 排序生成的数组，a1 对应

fnode,b1 对应 tnode,c1 对应 length,同样 a2,b2,c2,是以 tnode 生成的数组。Indexa1 是对应某一起点

与其相连的终点的个数，indexb1 时对应某一终点与其相连的起点的个数，即其拓扑关系。

Public Function shortpath(startno As Integer, endno As Integer) As Single

以开始点，结束点为参数。

Dim result() As Single

Dim result1 As Integer

定义结果点

ReDim ycd(1 To maxno) As Boolean

ReDim rs1(1 To maxno) As Single

ReDim result(1 To 2, 1 To maxno) As Single

定义结果，其中 result(1,maxno)为结果点，result(2,maxno)为结果长度。

For I = 1 To maxno// maxno 为网中最大的节点数。

Yc(i) = False //标记已经查过的点。

Ycd(i) = False //标记已经作结果点用过的点

rs1(i) = 1E+38 //假设从起点到任一点的距离都为无穷大

Next I

s1 = c1(indexa1(1, ll) - I + 1) + result(2, ll)找出长度并求和

If yc(result1) = True Then GoTo 200 如果以被经查过进行下一个

If ycd(result1) = True Then//如果已经作为结果点判断哪一个长

Else

GoTo 200

End If

End If

如果上面的条件都不符合则进行下面的语句

ycd(result1) = True

rs1(result1) = s1