lpmethod.R
# 2023年版权,Gurobi优化狗万app足彩,LLC # #解决模型与方法参数的不同值;#显示哪些值给出了最短时间解决。库(矩阵)库(gurobi)参数< - commandArgs (trailingOnly = TRUE)如果(长度(args) < 1){停止(“用法:Rscript lpmethod。R \ n文件名”)}#阅读模式的猫(args[1],“阅读模式”“…”)模型< - gurobi_read (args[1])猫('……完成\ n”) #解决方法参数的模型,不同的值()< -列表bestTime < - Inf bestMethod < - 1(我在0:4){参数美元方法< -我res < - gurobi(模型、参数)如果(res美元状态= = '最佳'){bestMethod < -我bestTime < res美元运行时参数美元期限< - bestTime}} #报告最快方法如果(bestMethod = = 1){猫(“无法解决这个模型\ n”)}其他{猫(bestTime“解决”,“与方法:秒”,bestMethod, ' \ n ')} rm (params,模型)
