ts.txt

這是一個用vb撰寫而成的TS演算法

'Public Class Form1

'    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'    End Sub
'End Class

Private Sub close_Click()
    Form1.SetCar.Enabled = True
    Form1.SetCenter.Enabled = True
    Form1.SetHospital.Enabled = True
    Form1.CmdRunTS.Enabled = True
    Erase Assign, Support, T_VRP, TSP, TSP_len
    Unload(Me)
    Form1.Enabled = True
    Form1.Show()
End Sub
Private Sub Form_Load()
    Randomize()
    Dim i, j, k As Integer
    Dim dIffer As Single
    Dim Space As Single
    Dim choose As Integer
    Dim pick, still As Single
    Dim Temp_r() As String
    Dim Temp_c() As String
    Dim ok As Integer
    ReDim TabuList(TabuNum - 1)
    'Solution Representation
    CarNum = SumFun(HospitalDemand) / CarCapacity
    CarNum = Fix(CarNum) + 1
    If CarNum \ Days <> 0 Then CarNum = Days * (Fix(CarNum / Days) + 1)
    CarNumText.Text = CarNum
    ReDim Assign(CarNum - 1, HospitalNum - 1)
    ReDim Support(HospitalNum - 1)
    ReDim T_VRP(CarNum - 1)
    ReDim Temp_r(HospitalNum - 1)
    ReDim Temp_c(CarNum - 1)
    ReDim TSP(CarNum - 1)
    ReDim TSP_len(CarNum - 1)
    'Initial solution
    For i = 0 To CarNum - 1

        Space = CarCapacity
        For j = 0 To HospitalNum - 2
            Assign(i, j) = Fix(Rnd * Space)
            Temp_r(j) = CStr(Assign(i, j))
            Space = Space - Assign(i, j)
        Next j
        Assign(i, j) = Space
        Temp_r(j) = CStr(Assign(i, j))
        T_VRP(i) = SumFun(Temp_r)
    Next i
    For i = 0 To HospitalNum - 1
        For j = 0 To CarNum - 1
            Temp_c(j) = Assign(j, i)
        Next j
        Support(i) = SumFun(Temp_c)
    Next i
    '