优化是一种为全部可能的解决方案找到给定问题的最佳解决方案的技术。优化使用严格的数学模型来找出给定问题的最有效解决方案。html
要从优化问题开始,首先肯定目标很是重要。目标是绩效的量化衡量。例如:最大化利润,最小化时间,最小化成本,最大化销售。编程
对于这篇文章,只解释了线性规划问题。函数
R中可用于优化的经常使用包包括:优化
Problem Typeui
Package编码
Functionspa
General (1-dimensional)code
Built-inhtm
optimize()
General (n-dimensional)blog
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) ##建立约束martix const.mat < - martix(c(20,12,4,4),nrow = 2,byrow = TRUE) ## define constraints time_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问题。
还有问题吗?请在下面留言!