lpmethod_vb.vb
“求解Method参数值不同的模型;狗万app足彩'显示哪个值给出最短的求解时间。Imports System Imports Gurobi Class lpmethod_vb Shared Sub Main(ByVal args As String())如果参数。长度< 1则为Console。WriteLine("Usage: lpmethod_vb filename")返回结束If Try ' Read model and verify that it is a MIP Dim env As New GRBEnv() Dim model As New GRBModel(env, args(0)) '用不同的方法Dim bestMethod As Integer = -1 Dim bestTime As Double = model.get(GRB.DoubleParam.TimeLimit) For i As Integer = 0 To 2 model. reset () model. parameters .Method = i model. optimize () If model. optimize () If model. parameter .Method = i model. optimize () If model. parameter .Method = i model. optimize ()Status = GRB.Status.OPTIMAL然后bestTime =模型。Runtime bestMethod = i '减少TimeLimit参数以节省时间'与其他方法model.Parameters.TimeLimit = bestTime结束如果下一个'报告哪种方法是最快的如果bestMethod = -1那么控制台。WriteLine(“无法解决此模型”)其他控制台。WriteLine("Solved in " & bestTime & _ " seconds with Method: " & bestMethod)结束If ' Dispose of model and env model.Dispose() env.Dispose() Catch e As GRBException Console。WriteLine("错误码:" & e.ErrorCode & "。& e.Message)结束尝试结束子结束类
