Лабораторная работа №3 Решение однокритериальных задач принятия решений методами линейного программирования Общие сведения
Решение транспортной задачи в языке R
жүктеу/скачать 1,31 Mb.
|
Лабораторная работа №3
| Решение транспортной задачи в языке R
В языке R решение транспортной задачи осуществляется с помощью функции lp.transport из пакета lp.Solve. Формат: lp.transport (cost.mat, direction="min", row.signs, row.rhs, col.signs,col.rhs, presolve=0, compute.sens=0, integers = 1:(nc*nr) ) Аргументы:
Пример
## Set up cost matrix # costs <- matrix (10000, 8, 5); costs[4,1] <- costs[-4,5] <- 0 costs[1,2] <- costs[2,3] <- costs[3,4] <- 7; costs[1,3] <- costs[2,4] <- 7.7; costs[5,1] <- costs[7,3] <- 8; costs[1,4] <- 8.4; costs[6,2] <- 9costs[8,4] <- 10; costs[4,2:4] <- c(.7, 1.4, 2.1) ## Set up constraint signs and right-hand sides.# row.signs <- rep ("<", 8) row.rhs <- c(200, 300, 350, 200, 100, 50, 100, 150) col.signs <- rep (">", 5)col.rhs <- c(250, 100, 400, 500, 200) ## Run# lp.transport (costs, "min", row.signs, row.rhs, col.signs, col.rhs) ## Not run: Success: the objective function is 7790lp.transport (costs, "min", row.signs, row.rhs, col.signs, col.rhs)$solution# 1 — значения 1Е+30 в столбце Допустимое увеличение (или Допустимое уменьшение) показывают, что допускается неограниченное возрастание (или убывание) значения соответственно целевого коэффициента или правой части ограничения. жүктеу/скачать 1,31 Mb. Достарыңызбен бөлісу:
|