LPsolve表达式

Question

我正在研究一个涉及包含某些表达式的约束的问题，这些表达式需要使用LPsolve来解决。不过，我似乎想不出如何制定约束条件。

例句：-我想重新制定以下约束：

+0.35 C1 +0.15 C2 +0.15 C3 +0.2 C4 +0.15 C5 +0.15 C6 +0.15 C7 +0.15 C8 +0.15 C9 +0.15 C10 <= 3750; 

作为

+(0.35)*(1+C1) +0.15*(1+C2) +0.15*(1+C3)....+0.15*(1+C10)<= 3750;

我尝试过使用set.constr.value()，但这只接受一个固定行作为输入。

然后求解最优解。

Answer 1

为了使受给定的约束约束的Ci变量之和最大化，他提出了一个问题，并假定它们是非负的：

library(lpSolve)

cc <- c(0.35, 0.15, 0.15, 0.2, 0.15, 0.15, 0.15, 0.15, 0.15, 0.15)
result <- lp(direction = "max", 
   objective = rep(1, length(cc)),
   const.mat = t(cc),
   const.dir = "<=",
   const.rhs = 3750 - sum(cc))

result
## Success: the objective function is 24988.33 

result$solution
##  [1]     0.00 24988.33     0.00     0.00     0.00     0.00     0.00     0.00
##  [9]     0.00     0.00

Answer 2

程序中的约束(assumet C_i >= 0)：

+(0.35)*(1+C1) +0.15*(1+C2) +0.15*(1+C3)....+0.15*(1+C10)<= 3750;

与以下相同：

+0.35*C1 +0.15*C2 + ... +0.15*C10 <= 3750 - (0.35 + 0.15 + ... + 0.15)

别把问题的重点.请试着把程序写成普通形式，使你的问题更精确。