Q&A
###前提・実現したいこと
Excel VBAにてTSP(巡回セールスマン問題)をやっています。2-opt法から3-opt法にするにはどこをどのようにprogramを変えればいいのかわかりません。回答よろしくお願いします。
###発生している問題・エラーメッセージ
エラーメッセージ
###該当のソースコード
Do
Max_Improve = 0
For i = 1 To n - 2 Step 1
a = Current_Tour(i)
b = Current_Tour(i + 1)
For j = i + 2 To n Step 1
c = Current_Tour(j)
d = Current_Tour(j + 1)
Length_ab_cd = Dist_Matrix(a, b) + Dist_Matrix(c, d)
Length_ac_bd = Dist_Matrix(a, c) + Dist_Matrix(b, d)
Delta_Len = Length_ac_bd - Length_ab_cd
If -Delta_Len > Max_Improve Then
Max_Improve = -Delta_Len
Idx_a_Max = i
Idx_c_Max = j
End If
Next j
Next i
If Max_Improve > 0 Then
Do While Idx_c_Max > (Idx_a_Max + 1)
Temp = Current_Tour(Idx_a_Max + 1)
Current_Tour(Idx_a_Max + 1) = Current_Tour(Idx_c_Max)
Current_Tour(Idx_c_Max) = Temp
Idx_c_Max = Idx_c_Max - 1
Idx_a_Max = Idx_a_Max + 1
Loop
Current_Length = Current_Length - Current_Length
End If
Loop While Max_Improve > 0
Current_Length = 0
For i = 1 To n Step 1
Current_Length = Current_Length + Dist_Matrix(Current_Tour(i), Current_Tour(i + 1))
Next i
###試したこと
変数としてe,fを追加することは分かります。
###補足情報(言語/FW/ツール等のバージョンなど)
より詳細な情報
ベストアンサー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。