首页 > 大数据 > 数据挖掘 > R语言解决最优化问题-线性优化(LP)问题
优化是一种为所有可能的解决方案找到给定问题的最佳解决方案的技术。优化使用严格的数学模型来找出给定问题的最有效解决方案。
要从优化问题开始,首先确定目标非常重要。目标是绩效的量化衡量。例如:最大化利润,最小化时间,最小化成本,最大化销售。
对于这篇文章,只解释了线性规划问题。
R中可用于优化的常用包包括:
| Problem Type | Package | Function |
|---|---|---|
| General (1-dimensional) | Built-in |
optimize() |
| General (n-dimensional) | Built-in |
optim() |
| Linear Programming (LP) |
lpsolve |
lp() |
| Quadratic Programming (QP) |
quadprog |
solve.qp() |
| General Interface |
ROI |
ROI_Solve() |
一般优化问题的内置函数示例:
optimizer(objective, constraints, bounds=NULL, types=NULL, maximum=FALSE)
例:
f <- function(x) 2 * (x[1]-1)^2 + 5 * (x[2]-3)^2 + 10
r < - optim(c(1,1),f)
r $ convergence == 0 ##如果收敛到最小值,则返回TRUE## [1]是的
R $par## [1] 1.000168 3.000232
R $value## [1] 10
线性编程表示为:
min c T x = min(c 1 x 1 + ... + c n x n)
限制:
A x> = B,x > = 0
线性规划示例:
上述问题的目标函数是:
max(销售额)=max(25 x 1 + 20 x 2)
其中,
x 1是产品A的单位产生的
x 2是产品B的单位产生的
x 1和x 2也称为决策变量
问题中的约束(资源和时间):
20x 1 + 12 x 2 <= 1800(资源约束)
4x 1 + 4x 2 <= 8 * 60(时间约束)
解决R中的上述问题:
由于这是一个线性规划问题,我们将使用 lpsolve package和 lp() 函数来找到最优解。 lp() 函数的语法 是:
lp(direction =“min”,objective.in,const.mat,const.dir,const.rhs)
##设置决策变量的系数objective.in < - c(25,20)##创建约束martixconst.mat < - martix(c(20,12,4,4),nrow = 2,byrow = TRUE)## define constraintstime_constraint < - (8 * 60)resource_constraint < - 1800## RHS用于约束const.rhs < - c(resource_constraint,time_constraint)##约束方向const.dir < - c(“<=”,“<=”)##找到最佳解决方案最佳< - lp(direction =“max”,objective.in,const.mat,const.dir,const.rhs)
##显示x1和x2的最佳值## [1] 45 75##在最佳点检查目标函数的值## [1] 2625
从上面的输出中,我们可以看到该公司应该生产45个产品A和75个产品B单位,以获得2625美元的销售额。
在制定目标函数和约束之后,我们可以扩展相同的方法来解决R中的其他LP问题。
还有问题吗?请在下面留言!
来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/69982319/viewspace-2728668/ ,如需转载,请注明出处,否则将追究法律责任。