tune_vb.vb

'版权所有2021,Gurobi O狗万app足彩ptimization, LLC */ ' '这个例子从文件中读取模型并对其进行调优。'然后，它将最佳参数设置写入一个文件，并使用这些参数求解模型。导入系统导入Gurobi类tune_vb共享子主(ByVal args As String())如果args。长度< 1，然后是Console.Out。WriteLine("Usage: tune_vb filename")返回结束If Try Dim env As New GRBEnv() '从文件Dim模型中读取模型作为新的GRBModel(env, args(0)) '将tunerresults参数设置为1 model. parameters . tunerresults = 1 '优化模型model.Tune() '获取调优结果的数量Dim resultcount作为Integer = model。如果resultcount > 0，则'将调优的参数加载到模型的环境模型中。将调优的参数写入文件模型。使用调优的参数model. optimize()解决该模型。End If ' Dispose of模型和环境model.Dispose() env.Dispose() Catch e作为GRBException控制台。WriteLine("错误代码:" & e.ErrorCode & ")。 " & e.Message) End Try End Sub End Class