48773 (Регулировочный участок цеха), страница 3
Описание файла
Документ из архива "Регулировочный участок цеха", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "48773"
Текст 3 страницы из документа "48773"
Else
GoTo 10
End If
10: K = K + 2
If Tpost < Tosv1 Then
If p = Vmestimost Then
GoTo 1
Else
p = p + 2
L1 = L1 + p
Toch1(p - 1) = Tpost
Toch1(p) = Tpost
GoTo 5
End If
Else
If p = 0 Then
Tnezan1 = Tpost - Tosv1
x = Rnd(x)
Tobs1 = -Tau_obs_1ya_regul * Log(x)
Tosv1 = Tpost + Tobs1
Tsis1 = Tsis1 + Tobs1
GoTo 20
Else
p = p + 2
Toch1(p - 1) = Tpost
Toch1(p) = Tpost
Voj1 = Tosv1 - Toch1(1)
For i = 1 To p - 2
Toch1(i) = Toch1(i + 2)
Next i
p = p - 2
L1 = L1 + p
Toj1 = Toj1 + Voj1
Tobs1 = -Tau_obs_1ya_regul * Log(x)
Tsis1 = Tsis1 + Tobs1 + Voj1
Tosv1 = Tosv1 + Tobs1
GoTo 20
End If
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
40: List1.AddItem ("Всего поступило агрегатов = " + Str(K))
List1.AddItem ("Кол-во агрегатов прошедшие регулировку = " + Str(Kobs))
List1.AddItem ("Кол-во агрегатов оставшиеся в накопителе для 1-ой регулировки = " + Str(p))
List1.AddItem ("Кол-во агрегатов прошедшие 1-ю и 2-ю регулировку = " + Str(a2))
List1.AddItem ("Кол-во агрегатов оставшиеся в накопителе для 2-й регулировки = " + Str(n))
List1.AddItem ("Загрузка накопителя агрегатами нуждающиеся в 1-ой регулировке = " + Str(L1 / K))
List1.AddItem ("Коэффициент простоя системы = " + Str((Tnezan1 + Tnezan2) / Tmod))
List1.AddItem ("ВМЕСТИМОСТЬ НАКОПИТЕЛЬЯ ДЛЯ ПЕРВИЧНОЙ РЕГУЛИРОВКИ" + Str(Vmestimost))
End Sub
Список литературы
-
Советов Б. Я., Яковлев С. А. Моделирование систем: Учеб. Для вузов 3-е издание, перераб. И доп. – М: Высш. Школа, 2001 – 343 с.
-
Советов Б. Я., Яковлев С. А. Моделирование систем: Курсовое проектирование: Учеб. Пособие по специальности АСУ. – М: Высш. Школа, 1988 м – 135 с.