上传者: 24798249
|
上传时间: 2021-07-20 08:46:04
|
文件大小: 885B
|
文件类型: SLN
利用商业软件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