利用商业软件cplex求解旅行商问题
Option Explicit
Private Type point
x As Double
y As Double
End Type
Private Type save
i As Long
j As Long
s As Double
End Type
Private points() As point, cost() As Double, saving() As save, n As Long, m As Long
Private trip() As String
'http://www.dayi.net/Comments.asp?questionID=37611&topic=VB
'C-W Saving Algorithm
1