48798 (608787), страница 2
Текст из файла (страница 2)
2. Находим получаемый продукт.
Х1= 6*0+8*0+4*0=0
Х2=240*0+200*0+160*0=0
У1=3*00,4*00,6=0
У2=5*00,5*00,5=0
У3=8*00,6*00,4=0
F1=0+0+0=0
Х1= 6*0+8*325/2+4*0=1300
Х2=240*0+200*325/2+160*0=32500
У1=3*13000,4*325000,6=26904,728
У2=5*13000,5*325000,5=32500
У3=8*13000,6*325000,4=37688,542
F2=26904,728 +32500 +37688,542 = 97093,27
Х1= 6*650/3+8*0+4*0=1300
Х2=240*650/3+200*0+160*0=52000
У1=3*13000,4*520000,6=35699,794
У2=5*13000,5*520000,5=41109,610
У3=8*13000,6*520000,4=45483,862
F3= 35699,794+ 41109,610+ 45483,862= 122263,266
Х1= 6*0+8*0+4*325=1300
Х2=240*0+200*0+160*325=52000
У1=3*13000,4*520000,6=35699,794
У2=5*13000,5*520000,5=41109,610
У3=8*13000,6*520000,4=45483,862
F3= 35699,794+ 41109,610+ 45483,862= 122263,266
F1 < F2
F2 < F3
F3 = F4
Ответ: Fmax= 122263,266
Четвертый этап – подготовка словесного алгоритма решения задачи
-
Вводим данные в таблицу
-
Выбираем разрешающий элемент:
2.1. Берем каждый неотрицательный элемент первой строки и делим на свободный член первой строки.
2.2. Находим среди всех деленных элементов минимальный.
2.3. Берем каждый неотрицательный элемент второй строки и делим на свободный член второй строки.
2.4. Находим среди всех деленных элементов минимальный.
2.5. Берем каждый неотрицательный элемент n-ой строки и делим на свободный член n-ой строки.
2.6. Находим среди всех деленных элементов минимальный.
2.7. Берем минимальные элементы первой, второй и n-ой строки и среди них находим минимальный (это и будет разрешающий элемент). При условии если минимальные элементы строк совпадают, берется элемент первой строки.
3. Вычисляем всю таблицу методом прямоугольника относительно разрешающего элемента:
-
Умножаем разрешающий элемент на элемент решаемой строки.
-
Отнимаем произведение соответствующего элемента решаемой строки на элемент разрешающего столбца решаемой строки
-
И делим ответ на разрешающий элемент.
-
Делим разрешающую строку на разрешающий элемент.
-
Берем каждый элемент разрешающей строки и делим на разрешающий элемент.
-
Всем элементам, кроме разрешающего элемента, разрешающего столбца присвоим (0)
-
Разрешающему элементу присвоим (1).
В индексе разрешающей строки присвоить индекс
4. Повторяем процедуру вычисления с 2 пункта.
5. В конечном результате находим все неотрицательные базисные решения. Подставляем значения и находим получаемый продукт.
6. Находим все F.
7. Выбираем наибольшую из них, которая будет являться оптимальным планом выпуска продукции.
Пятый этап – разработка программы для решения задачи
Private Sub Form_Load()
Left = (Screen. Width – Width) \ 2
Top = (Screen. Height – Height) \ 2
End Sub
Private Sub Timer1_Timer()
Unload Form1
Load Form2
Form2. Show
End Sub
‘Объявление переменных
Public a As Integer
Public b As Integer
Public c As Integer
Public d As Integer
Public e As Integer
Public f As Integer
Public aa As Integer
Public ab As Integer
Public ac As Integer
Public ad As Integer
Public ae As Integer
Public af As Integer
Public ba As Integer
Public bb As Integer
Public bc As Integer
Public bd As Integer
Public be As Integer
be = Text17. Text
bf = Text18. Text
ca = Text19. Text
cb = Text20. Text
cc = Text21. Text
cd = Text22. Text
ce = Text23. Text
cf = Text24. Text
X1 = Text25. Text
X2 = Text26. Text
X3 = Text27. Text
‘Проверка выполнения равенств
If a*x1+aa*x2+ba*x3=ca Then «Равенство выполняется» Else «Равенство не выполняется»
If b*x1+ab*x2+bb*x3=cb Then «Равенство выполняется» Else «Равенство не выполняется»
If c*x1+ac*x2+bc*x3=cc Then «Равенство выполняется» Else «Равенство не выполняется»
If d*x1+ad*x2+bd*x3=cd Then «Равенство выполняется» Else «Равенство не выполняется»
If e*x1+ae*x2+be*x3=ce Then «Равенство выполняется» Else «Равенство не выполняется»
F= f*x1+af*x2+bf*x3
If F Text28. Visible = True Text29. Visible = True End Sub Private Sub Command2_Click() ‘очистка текстовых окон для следующего ввода данных Text1. Text = «» Text2. Text = «» Text3. Text = «» Text4. Text = «» Text5. Text = «» Text6. Text = «» Text7. Text = «» Text8. Text = «» Text9. Text = «» Text10. Text = «» Text11. Text = «» Text12. Text = «» Text13. Text = «» Text14. Text = «» Text15. Text = «» Text16. Text = «» Text17. Text = «» Text18. Text = «» Text19. Text = «» Text20. Text = «» Text22. Text = «» Text23. Text = «» Text24. Text = «» Text25. Text = «» Text26. Text = «» Text27. Text = «» Text28. Visible = False Text29. Visible = False End Sub Private Sub Command3_Click() ‘показать справку Unload Form2 Load Form3 Form3. Show End Sub Private Sub Command4_Click() Unload Form2 End Sub Private Sub Form_Load() Left = (Screen. Width – Width) \ 2 Top = (Screen. Height – Height) \ 2 ‘подготовка текстовых окон к вводу данных при запуске рабочего окна Text1. Text = «» Text2. Text = «» Text3. Text = «» Text4. Text = «» Text5. Text = «» Text6. Text = «» Text7. Text = «» Text8. Text = «» Text9. Text = «» Text10. Text = «» Text11. Text = «» Text12. Text = «» Text13. Text = «» Text14. Text = «» Text15. Text = «» Text16. Text = «» Text17. Text = «» Text18. Text = «» Text19. Text = «» Text20. Text = «» Text21. Text = «» Text22. Text = «» Text23. Text = «» Text24. Text = «» Text25. Text = «» Text26. Text = «» Text27. Text = «» End Sub Private Sub Form_Load() Left = (Screen. Width – Width) \ 2 Top = (Screen. Height – Height) \ 2 End Sub Private Sub Timer1_Timer() Unload Form3 Load Form2 Form2. Show End Sub Результат использования программы Ввод начальных коэффициентов Полученное решение Конечный результат Список используемой литературы Методические рекомендации «Курсовая работа по моделированию производственных и экономических процессов» Талдыкорган. 1999 г. Уолш Б. «Программирование на Бейсике» Пер. с анг. – Москва: Радио и связь, 1998 г. Фиакко А., Маккормик Г. «Нелинейное программирование» Пер. С анг. – Москва: Мир, 1988 г. Солодовников А.С. «Введение в линейную алгебру и линейное программирование» Москва, «Просвещение», 1996 г. Кузнецов Ю.Н. и др. «Математическое программирование» Москва, «Высшая школа», 1980 г. КР– КФЗ– 031302– 955872 ЛИСТ 18 КР– КФЗ– 031302– 955872 ЛИСТ 21 КР– КФЗ– 031302– 955872 ЛИСТ 19 КР– КФЗ– 031302– 955872 ЛИСТ 20 ЛИСТ 28 КР– КФЗ– 031302– 955872 ЛИСТ 17 КР– КФЗ– 031302– 955872 ЛИСТ 16 КР– КФЗ– 031302– 955872 ЛИСТ 15 КР– КФЗ– 031302– 955872 ЛИСТ 7 КР– КФЗ– 031302– 955872 ЛИСТ 14 КР– КФЗ– 031302– 955872 ЛИСТ 13 КР– КФЗ– 031302– 434– 09 - 923926 ЛИСТ 13 КР– КФЗ– 031302– 955872 ЛИСТ 12 КР– КФЗ– 031302– 955872 ЛИСТ 11 КР– КФЗ– 031302– 955872 ЛИСТ 9 ЛИСТ 8 КР– КФЗ– 031302– 955872 лист 22 КР– КФЗ– 031302– 943541 КР– КФЗ– 031302– 434– 08 - 849472 лист 24 лист КР– КФЗ– 031302– 943541 лист 23 КР– КФЗ– 031302– 434– 09 - 923926 лист 26 лист 25 Text21. Text = «»
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
