1. Решить задачу линейного программирования смешанного типа
Ответ:
Model name: Example 1 X1 X2 X3 X4 X5 Minimize 2 -1 1 3 7 A 3 4 9 -3 0 <= 200B 1 6 1 2 1 >= 60С 1 1 1 -1 3 = 40Kind Std Std Std Std Std Type Real Real Int Real Int Upper Inf 50 Inf 25 Inf Lower 15 -Inf -Inf -40 -Inf > > solve.lpExtPtr(M.Int)[1] 0> get.variables(M.Int)[1] 17 50 -19 -40 -16> get.objective(M.Int)[1] -267
2. * Решить транспортную задачу открытого типа
Склады | Тарифы на перевозку со склада в магазин ед. объема продукции | Запасы складов | |||||
B1 | B2 | B3 | B4 | B5 | B6 | ||
A1 | 3 | 1 | 7 | 1 | 2 | 3 | 250 |
A2 | 2 | 3 | 1 | 4 | 4 | 3 | 120 |
A3 | 6 | 1 | 3 | 5 | 1 | 2 | 150 |
A4 | 4 | 4 | 3 | 2 | 4 | 2 | 100 |
Потребности магазинов | 90 | 60 | 50 | 300 | 40 | 70 |
|
Совет: буфер обмена сработает и из MS Word с теми же параметрами в R.
Ответ:
> M.Tr$status # Eсли 0 - решение найдено[1] 0> M.Tr$solution # Оптимальный план перевозок (матрица X) [,1] [,2] [,3] [,4] [,5] [,6][1,] 0 0 0 250 0 0[2,] 90 0 30 0 0 0[3,] 0 60 20 0 40 30[4,] 0 0 0 50 0 40> M.Tr$objval # Минимальные суммарные транспортные издержки[1] 860
Рекомендуемая литература
1. Экономико-математическое моделирование: практическое пособие по решению задач в Excel и R / И.В. Орлова, М.Г. Бич. – 3-е изд., испр. и доп. – М.:Вузовский учебник: ИНФРА-М, 2018. – 190с.
|
|
2. Методы оптимальных решений. Практикум: учебное пособие / коллектив авторов; под ред. В.А.Колемаева, В.И.Соловьева. – Москва: КНОРУС, 2017. – 194с.