Загрузка...
Учебная работа. Лабораторная работа: Разработка подсистемы управления оптимального плана выпуска изделий
ТАДЖИКСКИЙ технический УНИВЕРСИТЕТ
имени академика М.С. Осими
Кафедра: «АСОИ и У»
отчет
по лабораторной работе
на тему:
«Разработка подсистемы управления рационального плана выпуска изделий»
Душанбе – 2009 г.
Цель работы:
1) Определение рационального плана выпуска продукции на определенном объекте управления с применением способа линейного программирования (симплекс-способ);
2) Построение схемы движения инфы в подсистеме рационального плана выпуска продукции.
Подстановка задачки:
Для производства N‑видов продукции употребляется М-видов ресурсов. Стоимость единицы равна: Cj (j=1 – n). Ресурсы на складах компании не наиболее bi (i=1‑m) единиц. Расход ресурсов для всякого вида продукции равно aij (i=1‑m; j=1n). Требуется найти лучший план выпуска продукции, от реализации которой предприятие получило наибольший Доход.
Для решения данной лабораторной работы было выбрано личное предприятие по изготовлению мебели. Предприятие делает в главном изделия 3-х видов:
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‑й единицы изделия.
Вi
Х1
Х2
Х3
Доски
300
5
8
15
Шурупы
700
20
30
40
F(x)
55
80
120
Зная ресурсы компании и количество единиц, затрачиваемые на производства всякого изделия, можно записать последующую систему неравенств:
F(x) = 55х1 + 80х2 + 120х3
5х1 + 8х2 + 15х3 < 300
20×1 + 30×2 + 40×3 < 700
Данная задачка относится к задачкам линейного программирования, означает, ее можно решить при помощи симплекс – способа.
Решение:
Табл. 1
Вi
Х1
Х2
Х3
bi/air
Х4
300
5
8
15
20
Х5
700
20
30
40
17,5
F(x)
55
80
120
Табл. 2
Вi
Х1
Х2
Х5
bi/air
Х4
37,5
-2,5
-3,25
-0,375
Х3
17,5
0,5
0,75
0,025
F(x)
-2100
-5
-10
-3
Ответ:
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 = 100000
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
Наружный вид программки и итог
Заключение
В современном мире с бурноразвивающийся рыночной экономикой, тяжело представить, в той либо другой отрасли производства, работу структуры без составления бизнес-планов и планов экономического развития компании. В часть этих планов заходит и составление плана рационального выпуска продукции.
В данной лабораторной работе я показал автоматизацию трудоёмкого вычисления рационального плана личного компании по изготовлению 3-х видов мебели. Хоть какое предприятие в период собственного становления, обязано учесть результаты, приобретенные в процессе подсчета рационального плана, которые посодействуют решить часть экономических заморочек в дальнейшем и создать план перспективы на будущее.
]]>