lp_vb.vb
“版权所有2023,Gurobi O狗万app足彩ptimization, LLC”“此示例从文件中读取LP模型并求解它。”如果模型是不可行的或无界的，示例将关闭“预解”并重新求解模型。如果模型不可行，“示例计算不可约不一致子系统(IIS)”，并将其写入文件。Imports System Imports Gurobi Class lp_vb Shared Sub Main(ByVal args As String())如果参数。长度< 1则为Console。WriteLine("Usage: lp_vb filename")返回结束If Try Dim env As GRBEnv = New GRBEnv("lp1.log") Dim model As GRBModel = New GRBModel(env, args(0)) model. optimize () Dim optimstatus As Integer = model。状态如果optimstatus = GRB.Status。然后model. parameters . presolve = 0 model. optimize () optimstatus = model。状态结束如果如果optimstatus = GRB.Status.OPTIMAL则Dim objval As Double = model。ObjVal控制台。WriteLine("Optimal objective: " & objval) ElseIf optimstatus = grb . status . inviable然后控制台。WriteLine("Model is inviable ") Model . computeiis () Model . write ("Model .ilp") ElseIf optimstatus = GRB.Status.UNBOUNDED Then控制台。WriteLine(“模型是无界的”)其他控制台。WriteLine("Optimization was stopped with status = " & _ optimstatus) End If ' Dispose of model and env model.Dispose() env.Dispose() Catch e As GRBException Console. conf . conf ()WriteLine("错误码:" & e.ErrorCode & "。& e.Message)结束尝试结束子结束类
