*****************
; регламентування модельного часу і облік витрат
GENERATE (60 # ModelTime), (Zarplata # ModelTime); облік зарплати комірника, (X $ Prostoy # Poteri); облік простоїв станков1
START1
Текст оптимізованої моделі мовою GPSS
****************************************** *******************
* Комора промислового підприємства *
****************************************** *******************
; Константи
ModelTimeEQU400; тривалість моделювання в годинах
ZaderjkaEQU4; затримка на пошук деталі комірником
ZarplataEQU1.3; зарплата комірника 1.3 $ за годину
PoteriEQU18; втрати від простою верстата 18 $ на годину
****************************************** *******************
; Вихід з ладу верстатів та усунення несправностей
GENERATE,,, 100; ініціалізація 100 верстатів
RabotaADVANCE600, 30; час напрацювання верстатами на відмову
SAVEVALUENeRabotaet +, 1; прирощення кол-ва які робітників верстатів
ASSIGNBegPolomka, M1; збереження часу появи поломки
QUEUEQ_Kladovshik; очікування в черзі до комірника
SEIZEKladovshik; заняття комірника
DEPARTQ_Kladovshik; звільнення черги до комірника
ADVANCEZaderjka, 2; затримка на пошук необхідної деталі
RELEASEKladovshik; звільнення комірника
SAVEVALUEProstoy +, ((M1-P $ BegPolomka)/60)
SAVEVALUENeRabotaet-, 1; зменшення кол-ва які робітників верстатів
TRANSFER, Rabota; повернення до роботи
****************************************** *******************
; регламентування модельного часу і облік витрат
GENERATE (60 # ModelTime), (Zarplata # ModelTime); облік зарплати комірника, (X $ Prostoy # Poteri); облік простоїв станков1
START1
В
Вікно з текстом звіту оптимізованої моделі
