Example_01: Linear Problem 1

In GreenGrassBlueOcean/ROI.plugin.symphony: ROI Plug-in SYMPHONY

Description

maximize \ \ 2 x_1 + 4 x_2 + 3 x_3

subject \ to:

3 x_1 + 4 x_2 + 2 x_3 ≤q 60

2 x_1 + x_2 + 2 x_3 ≤q 40

x_1 + 3 x_2 + 2 x_3 ≤q 80

x_1, x_2, x_3 ≥q 0

Examples

require("ROI")
mat <- matrix(c(3, 4, 2,
                2, 1, 2,
                1, 3, 2), nrow=3, byrow=TRUE)
x <- OP(objective = c(2, 4, 3),
        constraints = L_constraint(L = mat,
                                   dir = c("<=", "<=", "<="),
                                   rhs = c(60, 40, 80)),
        maximum = TRUE)


opt <- ROI_solve(x, solver = "symphony")
opt
## Optimal solution found.
## The objective value is: 7.666667e+01
solution(opt)
## [1]  0.000000  6.666667 16.666667

GreenGrassBlueOcean/ROI.plugin.symphony documentation built on June 5, 2021, 9:53 a.m.