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

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РЕСПУБЛИКИ ТАДЖИКИСТАН

ТАДЖИКСКИЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

имени академика М.С. Осими

Кафедра: «АСОИ и У»

ОТЧЕТ

по лабораторной работе

на тему:

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

Душанбе - 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_й единицы изделия.

	В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

20x1 + 30x2 + 40x3 < 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

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



Заключение

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

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