Разработка подсистемы управления оптимального плана выпуска изделий

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РЕСПУБЛИКИ ТАДЖИКИСТАН ТАДЖИКСКИЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ имени академика М. С. Осими Кафедра: «АСОИ и У»

ОТЧЕТ по лабораторной работе на тему:

«Разработка подсистемы управления оптимального плана выпуска изделий»

Душанбе — 2009 г.

Цель работы:

1) Определение оптимального плана выпуска продукции на конкретном объекте управления с применением метода линейного программирования (симплекс-метод);

2) Построение схемы движения информации в подсистеме оптимального плана выпуска продукции.

Подстановка задачи:

Для производства N_видов продукции используется М-видов ресурсов. Стоимость единицы равна: Cj (j=1 — n). Ресурсы на складах предприятия не более bi (i=1_m) единиц. Расход ресурсов для каждого вида продукции равно aij (i=1_m; j=1n). Требуется определить оптимальный план выпуска продукции, от продажи которой предприятие получило максимальный доход.

Для решения данной лабораторной работы было выбрано частное предприятие по изготовлению мебели. Предприятие изготавливает в основном изделия трех видов:

1. столы

2. стулья

3. табуретки Известно, что для изготовления изделия требуются два вида ресурсов:

Доски и шурупы.

Также известно, какая прибыль может быть получена при реализации каждого изделия. Необходимо так распределить ресурсы, чтобы предприятие имело максимальную прибыль.

Для изготовления продукции требуется следующее:

1. Табуретка:

Досок — 5 м. Стоимость 1 м. — 8 сом.

Шурупов — 20 шт. Стоимость 1 ш. — 2 дир.

Себестоимость продукции — 44 сом.

Розничная цена — 55 сом.

2. Стул:

Досок — 8 м. Стоимость 1 м. — 8 сом.

Шурупов — 30 шт. Стоимость 1 ш. — 2 дир.

Себестоимость продукции — 70 сом.

Розничная цена — 80 сом.

3. Стол:

Досок — 15 м. Стоимость 1 м. — 8 сом.

Шурупов — 40 шт. Стоимость 1 ш. — 2 дир.

Себестоимость продукции — 100 сом.

Розничная цена — 120 сом.

Исходные данные для расчета сведены в таблице 1.

Обозначим:

Х1 — табуретка;

Х2 — стул;

Х3 — стол;

Х4 — доски;

Х5 — шурупы;

Вi — кол-во товаров на складе;

F (x) — прибыль от 1_й единицы изделия.

Зная ресурсы предприятия и количество единиц, затрачиваемые на изготовления каждого изделия, можно записать следующую систему неравенств:

F (x) = 55×1 + 80×2 + 120х3

5х1 + 8×2 + 15×3 < 300

20×1 + 30×2 + 40×3 < 700

Данная задача относится к задачам линейного программирования, значит, ее можно решить с помощью симплекс — метода.

Решение:

Табл. 1

Табл. 2

Ответ:

Max F (x) = 2100

X1opt = 0

X2opt = 0

X3opt = 17,5

Схема движения информации

Листинг программы:

Private Sub CommandButton1_Click ()

Dim a (1 To 3, 1 To 4) As Single

Dim x (1 To 3) As Single

On Error Resume Next

a (1, 1) = Text1. Text

a (1, 2) = Text2. Text

a (1, 3) = Text3. Text

a (1, 4) = Text4. Text

a (2, 1) = Text5. Text

a (2, 2) = Text6. Text

a (2, 3) = Text7. Text

a (2, 4) = Text8. Text

a (3, 1) = Text9. Text

a (3, 2) = Text10. Text

a (3, 3) = Text11. Text

a (3, 4) = Text12. Text

If Text1. Text = «» And Text2. Text = «» And Text3. Text = «» And Text4. Text = «» Then

MsgBox «Введите значения»

GoTo x4

End If

Do Until a (3, 1) < 0 And a (3, 2) < 0 And a (3, 3) < 0 And a (3, 4) < 0

c = 0

For j = 1 To 4

i = 3

b = a (i, j)

If b >= c Then

c = b

j1 = j

Else

GoTo x1

End If

x1:

If c <= 0 And j = 4 Then

MsgBox «Процесс решения окончен. Для просмотра результатов нажмите ОК.»

GoTo x2

End If

Next j

If a (1, j1) < 0 And a (2, j1) < 0 Then

MsgBox «Оптимального решения не существует»

GoTo x3

End If

dmin = 100 000

For i = 1 To 2

d1 = a (i, 1) / a (i, j1)

If dmin > d1 Then

dmin = d1

i1 = i

End If

Next i

ra = a (i1, j1)

For i = 1 To 3

For j = 1 To 4

If i <> i1 And j <> j1 Then

a (i, j) = ((a (i, j) * ra) — (a (i, j1) * (a (i1, j)))) / ra

End If

Next j

Next i

For i = 1 To 3

For j = 1 To 4

If i = i1 And j = j1 Then

a (i, j) = 1 / ra

End If

If i = i1 And j <> j1 Then

a (i, j) = a (i, j) / ra

End If

If j = j1 And i <> i1 Then

a (i, j) = a (i, j) / (-ra)

End If

Next j

Next i

x2:

x (j1 — 1) = a (i1, 1)

ListBox1. AddItem («x» & (j1 — 1) &" = «& x (j1 — 1))

fmax = (a (3, 1))

Loop

x3:

ListBox1. AddItem («F (x) max» &" = «& - (fmax))

Text1. Text = a (1, 1)

Text2. Text = a (1, 2)

Text3. Text = a (1, 3)

Text4. Text = a (1, 4)

Text5. Text = a (2, 1)

Text6. Text = a (2, 2)

Text7. Text = a (2, 3)

Text8. Text = a (2, 4)

Text9. Text = a (3, 1)

Text10. Text = a (3, 2)

Text11. Text = a (3, 3)

Text12. Text = a (3, 4)

x4:

End Sub

Private Sub CommandButton2_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 = ««

ListBox1. Clear

End Sub

Внешний вид программы и результат

Заключение

В современном мире с бурноразвивающийся рыночной экономикой, трудно представить, в той или иной отрасли производства, работу структуры без составления бизнес-планов и планов экономического развития предприятия. В часть этих планов входит и составление плана оптимального выпуска продукции.

В этой лабораторной работе я показал автоматизацию трудоёмкого вычисления оптимального плана частного предприятия по изготовлению трех видов мебели. Любое предприятие в период своего становления, должно учитывать результаты, полученные в ходе подсчета оптимального плана, которые помогут решить часть экономических проблем в будущем и разработать план перспективы на будущее.