2

我正在尝试解决 R 中的容量设施位置问题。示例数据：

n<- 500 #number of customers
m<- 20 #number of facility centers

set.seed(1234)

fixedcost <- round(runif(m, min=5000, max=10000))

warehouse_locations <- data.frame(
  id=c(1:m),
  y=runif(m, 22.4, 22.6),
  x= runif(m, 88.3, 88.48)
)

customer_locations <- data.frame(
  id=c(1:n),
  y=runif(n, 22.27, 22.99),
  x= runif(n, 88.12, 88.95)
)

capacity <- round(runif(m, 1000, 4000))
demand <- round(runif(n, 5, 50))

具有成本函数的模型：

library(geosphere)

transportcost <- function(i, j) {
  customer <- customer_locations[i, ]
  warehouse <- warehouse_locations[j, ]
  (distm(c(customer$x, customer$y), c(warehouse$x, warehouse$y), fun = distHaversine)/1000)*20
}


library(ompr)
library(magrittr)
model <- MIPModel() %>%
  # 1 iff i gets assigned to SC j
  add_variable(x[i, j], i = 1:n, j = 1:m, type = "binary") %>%
  
  # 1 if SC j is built
  add_variable(y[j], j = 1:m, type = "binary") %>%
  
  # Objective function
  set_objective(sum_expr(transportcost(i, j) * x[i, j], i = 1:n, j = 1:m) + 
                  sum_expr(fixedcost[j] * y[j], j = 1:m), "min") %>%
  
  #Demand of customers shouldn't exceed total facility capacities
  add_constraint(sum_expr(demand[i] * x[i, j], i = 1:n) <= capacity[j] * y[j], j = 1:m) %>%
  
  # every customer needs to be assigned to a SC
  add_constraint(sum_expr(x[i, j], j = 1:m) == 1, i = 1:n) %>% 
  
  # if a customer is assigned to a SC, then this SC must be built
  add_constraint(x[i,j] <= y[j], i = 1:n, j = 1:m)
model



library(ompr.roi)
library(ROI.plugin.glpk)
result <- solve_model(model, with_ROI(solver = "glpk", verbose = TRUE))

此时，正在对结果进行计算。结果

有什么办法可以减少计算时间？如果我理解正确，那么 0.4% 是当前模型与预期结果之间的差异。即使差异远大于此，我也会很高兴，我可以获得合适的模型。有什么办法可以设置吗？就像 5-6% 的差异就足够了。

4

3 回答 3

2

从@Erwin Kalvelagen 的评论中获得帮助。使用交响乐求解器并编辑了一行：

library(ROI.plugin.symphony)
result <- solve_model(model, with_ROI(solver = "symphony",
                                      verbosity=-1, gap_limit=1.5))

处理时间减少了很多，得到了答案！

于 2021-06-20T16:15:10.800 回答
1

您可以尝试以下3种方法

  1. 您可以通过重新制定最后一个约束来进行测试。

如果一个客户被分配到一个 SC，那么这个 SC 必须被建立

您可以使用以下内容代替当前约束 add_constraint(sum_expr(x[i,j], i = 1:n)<= y[j], j = 1:m)

这应该会减少运行时间而不影响输出。

  1. 除此之外，您可以根据您想要的最小最优性差距或/和您希望模型运行的最大运行时间添加终止标准。

  2. 您也可以尝试使用其他求解器而不是 glpk 并查看它的帮助。

于 2021-06-16T11:56:31.393 回答
-1

R 和 Python 库对于 MIP 尝试使用 lp 解决开源求解器非常慢

于 2021-06-16T13:15:04.763 回答