Курсовая работа: Решение задач нелинейного программирования

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<fmin Then «Решение не выполняется» Else «Решение выполняется, план является оптимальным»

Text28. Visible = True

Text29. Visible = True

End Sub