Курсовая работа: Анализ основных этапов построения и решения математических моделей оптимизации организационных структур в системе менеджмента качества

На рис.1 представлено графическое решение задачи.

Рис. 1 Графическое решение задачи

3.2 Решение задачи оптимизации методом математического моделирования

Для решения задачи оптимизации используем метод равномерного поиска. Этот метод основан на последовательном переборе значений оптимизируемых параметров с определенным шагом и проверке в них функциональных ограничений. Формируется набор точек из допустимой области решений. Оптимальное решение задачи соответствует точке с минимальным значением целевой функции. На рис.2 приведена блок – схема метода равномерного поиска.

Рис. 2 Блок-схема метода равномерного поиска

По программе, реализующей метод равномерного поиска, рассчитываются значения оптимальных параметров х₁ и х₂ .

4. Реализация на ЭВМ

4.1 Код программы

Public x1, x2, x3, x4 As Double

Public x5, x6, z, d As Integer

Private Sub Command1_Click()

Command2.Enabled = True

Picture1.Cls

Picture2.Cls

x1 = Val(Text4) + Val(Text6) * Val(Text2) * (100 - Val(Text9)) / 100

x2 = Val(Text5) + Val(Text6) * Val(Text3) * (100 - Val(Text10)) / 100

x4 = Val(Text1) / (Val(Text2) * 8)

x3 = Val(Text1) / (Val(Text3) * 8)

Picture2.Print "Z = " & x1 * 8 & "*X1" & "+" & x2 * 8 & "*X2"

Picture2.Print Val(Text2) & "X1+" & Val(Text3) & "X2>=" & Val(Text1) / 8

Picture1.Line (40, 400)-(40, 10)

Picture1.PSet (44, 10), RGB(255, 255, 255)

Picture1.Print "X2"

Picture1.Line (40, 400)-(450, 400)

Picture1.Print "X1"

For i = 1 To 19