参数个数。R

# Copyright 2021, 狗万app足彩Gurobi Optimization, LLC # #使用与模型相关的参数。# #一个MIP解决了几秒钟与不同的参数集。#选择MIP间隙最小的，继续优化#，直到找到最优解。if (length(args) < 1) {stop('使用:Rscript参数。R filename\n')} #读取模型cat('Reading model'，args[1]，'…')模型<- gurobi_read(args[1]) cat('…/ /检测一组非连续变量intvars <- which(模型＄vtype != 'C') numintvars <- length(intvars) if (numintvars < 1) {stop('所有模型变量都是连续的，无事可做')}#设置一个2秒时间限制的参数<- list()参数＄TimeLimit <- 2 #现在解决模型与不同值的MIPFocus参数＄MIPFocus <- 0 result <- gurobi(model, params) bestgap <- result＄Mipgap bestparams <- params for (i in 1:3) {params＄MIPFocus <- i result <- gurobi(模型，参数)if(结果＄Mipgap < bestgap) {bestparams <- params bestgap <- result＄mipgap}} #最后，重置时间限制和重新解决模型的最佳参数＄TimeLimit <- Inf结果<- gurobi(模型，bestparams) cat('解决与MIPFocus:'， bestparams＄MIPFocus， '\n') #清除空间rm(model, params, result, bestparams)