48773 (Регулировочный участок цеха), страница 2
Описание файла
Документ из архива "Регулировочный участок цеха", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "48773"
Текст 2 страницы из документа "48773"
2-я регулировка
Входн. поток
И Н1 К1 Н2 К2
Данная модель рассматривается если мы нашли такой накопитель Н1 при котором агрегаты не сбрасываются, т.е. не нуждаются в полной регулировке
4. Переменные использованные в имитационной модели
Входные переменные:
Tau_postupleniya= 30 – среднее время поступления агрегатов на участок;
Tau_obs_1ya_regul = 30 – среднее время обслуживания при первичной регулировке ;
Tau_obs_2ya_regul = 30 – среднее время обслуживания при вторичной регулировке ;
Tau_obs_polnaya_regul = 100 – время обслуживания при полной регулировке ;
Tmod = 6000 – общее время моделирования.
Эндогенные переменные:
Kobs-количество агрегатов прошедшие 2-ю и полную регулировку;
Kotk –количество агрегатов не прошедшие 1-ю регулировку;
Tsis1 , Tsis2, TsisP – время прибивания агрегатов в 1-й, 2-й и полной регулировке соответственно;
Tpost –время поступления очередной заявки;
Tosv1 , Tosv2 , TosvP-время освобождения прибора в 1-й,2-й и полной регулировке соответственно;
Toj1,Toj2, TojP-время ожидания заявок в 1-м,2-м и полном накопителе соответственно;
Tnezan1 , Tnezan2, TnezanP-время незанятости приборов.
Вспомогательные переменные:
х – случайно генерируемое число;
К –количество поступивших агрегатов;
n –размерность накопителя при 2-й регулировке;
m –размерность накопителя при полной регулировке;
р- размерность накопителя при 1-й регулировке ;
ap –кол-во обслуженных агрегатов в полной регулировке;
a2 –кол-во обслуженных агрегатов во 2-й регулировке;
LP –средняя длина очереди для полной регулировки при поступлении очередной заявки;
L1- средняя длина очереди для 1-й регулировки при поступлении очередной заявки;
Vmestimost-оптимальная вместимость накопителя при 1-й регулировке.
5. Обобщенная схема моделирующего алгоритма
Для формализации процесса функционирования системы использован алгоритм с последовательной проводки заявок. Принцип последовательной проводки заявок является наиболее экономичным из всех принципов.
Блок – схема
Обобщенная схема алгоритма для нахождения оптимального накопителя
6. Особенности программирования
6.1 Краткая характеристика технологии реализации
Программа разработана на языке программирования Visual Basic 6. Программа запускается с Kursovoy proekt(3-y variant).exe.
6.2 Описание функций программы
Программа реализует моделирование работы регулировочного участка цеха. Программа позволяет вводить начальные переменные. Это позволяет сделать сравнительный анализ работы системы.
В программе используется 2 процедуры между которыми можно переключаться с помощью ComandButton 1 и ComandButton2
В процедуре Comand1(Click) происходит имитация поступления пакетов от источника с интервалом 30м , и вычисление: количество поступивших пакетов, количество отказанных пакетов на первичную регулировку, нагрузка накопителя при полной регулировке и коэффициент простоя системы .
В процедуре Comand2(Click) происходит определение вместимости накопителя которое мы вводим в систему для безотказной работы системы и другие характеристики новой системы.
6.3 Описание интерфейса
После запуска программы открывается окно, в котором можно наблюдать режим работы системы. Теперь краткая информация предназначения каждой кнопки:
«Пуск» - после нажатия происходит запуск данной системы и можно в последующем наблюдать показатели изменяющиеся в реальном времени.
Также с этой кнопкой находятся текстовые поля, в которых задается начальные данные системы.
Рисунок – Интерфейс основного окна программы
Также можно увидеть постановку задачи и структурную схему нашей СМО.
«Пуск» - после нажатия происходит запуск нашей СМО уже с включенным в него накопителем перед участком 1-го регулирования, при этом структурная схема изменяется:
Скриншот программы с результатами
Заключение
Машинное моделирование за последние десятилетие превратилось из эксперимента для получения численных решений различных аналитических задач в мощный аппарат исследования и проектирования больших систем. Метод моделирования с успехом переменяется в различных систем.
В настоящее время метод моделирования на ЭВМ, учитывая сложности объекта широко распространен как при анализе, так при синтезе АСХ. Включение машинных моделей в состав АСУ позволяет решать задачи планирование и управление, прогнозирования, дискретизации и т.д.
Эффективность моделирования определяется разработкой научных основ моделирования и развитием средств вычислительной техники.
Существенное развития моделирование получает при использование накатов прикладных программ имитации и многомашинных вычислительных комплектов, позволяющих исследовать на качественном уровне сложные классы систем.
Анализ результатов моделирования работы регулировочного участка позволяет сделать вывод о крайне неэффективном его устройстве, т.к. количество необработанных деталей крайне велико. Это связано с тем, что время обработки одной детали при полной регулировке намного больше времени поступления деталей на участок.
Одним из способов уменьшения вероятности отказа является увеличение периода поступления заявок .
Еще одним способом уменьшения количества отказов является уменьшение времени до полной регулировки. Однако при таком изменении производственного процесса (что уже нежелательно) мы получим меньше обработанных деталей.
Приложение
Листинг программы
Private Sub Command1_Click()
Dim Tau_obs_1ya_regul As Integer, Tau_obs_2ya_regul As Integer, Tau_obs_polnaya_regul As Integer
Dim Tau_postupleniya As Integer
Dim Toch2(200) As Double
Dim TochP(200) As Double
Dim Tsis1 As Double, Tsis2 As Double, TsisP As Double
Dim Tobs1 As Currency, Tobs2 As Currency, TobsP As Currency
Picture1.Picture = LoadPicture(App.Path & "\1-yachast.jpg")
List1.Clear
List2.Clear
x = 0.5
Tau_postupleniya = Val(Text1.Text)
Tau_obs_1ya_regul = Val(Text2.Text)
Tau_obs_2ya_regul = Val(Text3.Text)
Tau_obs_polnaya_regul = Val(Text4.Text)
Tmod = 6000
K = 0
Kobs = 0
Kotk = 0
Tsis1 = 0: Tsis2 = 0: TsisP = 0
Tpost = 0
Tosv1 = 0: Tosv2 = 0: TosvP = 0
Toj2 = 0: TojP = 0
Tnezan1 = 0: Tnezan2 = 0: TnezanP = 0
n = 0
m = 0
ap = 0
a2 = 0
LP = 0
5: x = Rnd(x)
Tau = -Tau_postupleniya * Log(x)
Tpost = Tpost + Tau
If Tpost > Tmod Then
GoTo 40
Else
GoTo 10
End If
10: K = K + 2
If Tpost < Tosv1 Then
GoTo 30
Else
Tnezan1 = Tpost - Tosv1
x = Rnd(x)
Tobs1 = -Tau_obs_1ya_regul * Log(x)
Tosv1 = Tpost + Tobs1
Tsis1 = Tsis1 + Tobs1
GoTo 20
End If
20: If Tosv1 < Tosv2 Then
n = n + 2
Toch2(n - 1) = Tosv1
Toch2(n) = Tosv1
GoTo 5
Else
If n = 0 Then
Kobs = Kobs + 2
a2 = a2 + 2
Tnezan2 = Tosv1 - Tosv2
x = Rnd(x)
Tobs2 = -Tau_obs_2ya_regul * Log(x)
Tosv2 = Tosv1 + Tobs2
Tsis2 = Tsis2 + Tobs2
List2.AddItem (Str(Kobs - 1) + " и " + Str(Kobs) + " агрегаты - " + Str(Tobs2))
GoTo 5
Else
n = n + 2
Toch2(n - 1) = Tosv1
Toch2(n) = Tosv1
Voj2 = Tosv2 - Toch2(1)
For i = 1 To n - 2
Toch2(i) = Toch2(i + 2)
Next i
n = n - 2
Toj2 = Toj2 + Voj2
x = Rnd(x)
Tobs2 = -Tau_obs_2ya_regul * Log(x)
Tsis2 = Tsis2 + Tobs2 + Voj2
Tosv2 = Tosv2 + Tobs2
Kobs = Kobs + 2
a2 = a2 + 2
List2.AddItem (Str(Kobs - 1) + " и " + Str(Kobs) + " агрегаты - " + Str(Tobs2))
GoTo 5
End If
End If
30: Kotk = Kotk + 2
If Tpost < TosvP Then
m = m + 2
LP = LP + m
TochP(m - 1) = Tpost
TochP(m) = Tpost
GoTo 5
Else
If m = 0 Then
m = 1
LP = LP + m
TochP(m) = Tpost
Kobs = Kobs + 1
ap = ap + 1
TnezanP = Tpost - TosvP
TobsP = Tau_obs_polnaya_regul
TosvP = Tpost + TobsP
TsisP = TsisP + TobsP
List2.AddItem (Str(Kobs) + " агрегат - " + Str(TobsP))
GoTo 5
Else
m = m + 2
TochP(m) = Tpost
TochP(m - 1) = Tpost
VojP = TosvP - TochP(1)
For i = 1 To m - 1
TochP(i) = TochP(i + 1)
Next i
m = m - 1
LP = LP + m
TojP = TojP + VojP
TobsP = Tau_obs_polnaya_regul
TsisP = TsisP + TobsP + VojP
TosvP = TosvP + TobsP
Kobs = Kobs + 1
ap = ap + 1
List2.AddItem (Str(Kobs) + " агрегат - " + Str(TobsP))
GoTo 5
End If
End If
40: List1.AddItem ("Всего поступило агрегатов = " + Str(K))
List1.AddItem ("Кол-во агрегатов прошедшие регулировку = " + Str(Kobs))
List1.AddItem ("Кол-во агрегатов прошедшие полную регулировку = " + Str(ap))
List1.AddItem ("Кол-во агрегатов оставшиеся в накопителе для полной регулировки = " + Str(m))
List1.AddItem ("Кол-во агрегатов прошедшие 1-ю и 2-ю регулировку = " + Str(a2))
List1.AddItem ("Кол-во агрегатов оставшиеся в накопителе для 2-й регулировки = " + Str(n))
List1.AddItem ("Вероятность отказа в первичной регулировке = " + Str(Kotk / K))
List1.AddItem ("Загрузка накопителя агрегатами нуждающиеся в полной регулировке = " + Str(LP / Kotk))
List1.AddItem ("Коэффициент простоя системы = " + Str((Tnezan1 + Tnezan2 + TnezanP) / Tmod))
End Sub
Private Sub Command2_Click()
Dim Tau_obs_1ya_regul As Integer, Tau_obs_2ya_regul As Integer
Dim Tau_postupleniya As Integer
Dim Toch1(200) As Double
Dim Toch2(200) As Double
Dim Tobs1 As Currency, Tobs2 As Currency
Picture1.Picture = LoadPicture(App.Path & "\2-yachast.jpg")
List1.Clear
List2.Clear
Vmestimost = -2
1: Vmestimost = Vmestimost + 2
x = 0.5
Tau_postupleniya = Val(Text1.Text)
Tau_obs_1ya_regul = Val(Text2.Text)
Tau_obs_2ya_regul = Val(Text3.Text)
Tmod = 6000
K = 0
Kobs = 0
Tsis1 = 0: Tsis2 = 0
Tpost = 0
Tosv1 = 0: Tosv2 = 0
Toj1 = 0: Toj2 = 0
Tnezan1 = 0: Tnezan2 = 0
n = 0
p = 0
a2 = 0
L1 = 0
5: x = Rnd(x)
Tau = -Tau_postupleniya * Log(x)
Tpost = Tpost + Tau
If Tpost > Tmod Then
GoTo 40