lpmethod.r.
#版权所有2021,gurobi优化狗万app足彩,llc ##用方法参数的不同值解决模型;#显示哪个值提供最短的解决时间。库(矩阵)库(Gurobi)args < - commandargs(trailingonly = true)if(length(args)<1){stop('用法:rscript lpmethod.r filename \ n')}#读取模型cat('阅读模型',args [1],'...')模型< - gurobi_read(args [1])cat('...完成\ n')#用不同的方法params < - list()besttime的值解决模型< - inf bestmethod < - -1 for(i在0:4){params$方法< - i res < - gurobi(型号,params)if(res$status =='最佳'){bestmethod < - i besttime < - res$运行时参数$timelimit < - besttime}}#报告如果(bestmethod == -1){cat('无法解决此模型\ n')} els {cat('解决',besttime,'秒,秒为最快,使用方法:',BESTMETHOD,'\ n')} RM(params,model)