0

我正在解决一个我有设计转变的问题。我正在采取的方法是

  1. 班次开始和结束时间 - 已经定义。（我有 7 小时的 10 个班次重叠）
  2. 我在 R 中使用 lpsolver 来计算 FTE 数字。

在已定义的 10 个班次中，我希望算法仅给我 4 个班次的 FTE，这意味着，我想添加一个约束为否。班次数为 4。选择哪个班次没有限制

我当前的代码如下

o=c(1,1,1,1,1,1,1)
C=rbind(c(0,0,0,1,1,1,1),
        c(0,0,0,1,1,1,1),
        c(0,0,0,0,1,1,1),
        c(0,0,0,0,1,1,1),
        c(0,0,0,0,0,1,1),
        c(1,0,0,0,0,1,1),
        c(1,0,0,0,0,0,1),
        c(1,0,0,0,0,0,1),
        c(1,1,0,0,0,0,1),
        c(1,1,0,0,0,0,1),
        c(1,1,0,0,0,0,0),
        c(1,1,0,0,0,0,0),
        c(1,1,1,0,0,0,0),
        c(1,1,1,0,0,0,0),
        c(1,1,1,0,0,0,0),
        c(1,1,1,1,0,0,0),
        c(0,1,1,1,0,0,0),
        c(0,1,1,1,1,0,0),
        c(0,0,1,1,1,0,0),
        c(0,0,1,1,1,1,0),
        c(0,0,1,1,1,1,0),
        c(0,0,1,1,1,1,0),
        c(0,0,1,1,1,1,0),
        c(0,0,0,1,1,1,1)


)

 d=rep(">=",24)


r=c(58,60,62,65,72,80,87,93,93,92,90,86,80,74,68,64,61,60,60,58,55,53,52,55)


sol=lpSolve::lp("min",o,C,d,r,compute.sens = TRUE)
sol$solution

请让我知道如何添加对要考虑的班次数量的限制

谢谢

4

0 回答 0