lpmethod_vb.vb

“Copyright 2021, G狗万app足彩urobi Optimization, LLC”“用Method参数的不同值求解模型;'显示哪个值给出了最短的求解时间。导入系统导入Gurobi类lpmethod_vb共享子Main(ByVal args As String())长度< 1然后控制台。如果尝试'读取模型并验证它是一个MIP Dim env As New GRBEnv() Dim model As New GRBModel(env, args(0)) '用不同值的Method 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. reset ()状态= GRB.Status.OPTIMAL然后最佳时间=模型。Runtime bestMethod = i ' Reduce the TimeLimit parameter to save time '与其他方法模型。parameters .TimeLimit = bestTime End If Next '报告哪个方法是最快的如果bestMethod = -1然后控制台。WriteLine(“无法解决这个模型”)Else Console。If ' Dispose model and env model.Dispose() env.Dispose() Catch e As GRBException控制台。WriteLine("错误代码:" & e.ErrorCode & "。& e.Message)结束尝试结束子结束类