Контрольная работа: Имитационное моделирование
TEST L P3,25,Konec; если время обработки больше 25 - деталь первого сорта - выход
TEST L P3, 20,Raspr_sakal; если от 20 до 25 минут - отправляем на повторную закалку
TRANSFER,Raspr_cement; иначе полная повторная обработка
Raspr_sakalTESTLRN1,850,ZAK1; выбираем, какое оборудование использовать
TRANSFER,ZAK2; так как более загружено старое оборудование (через него проходят детали изначально)
; ставим большую вероятность обработки на новом оборудовании
Raspr_cement TEST L RN2,960,CEM1
TRANSFER,CEM2
CEM2 QUEUE CEMEN
SEIZE CEM22
ASSIGN 1,AC1; засекаем время перед цементацией
DEPART CEMEN; удаляем из очереди
ADVANCE 10,6; закаливание
RELEASE CEM22; освобождаем устройство
ASSIGN 1, (AC1-P1); засекаем время на участке цементации
ASSIGN 4+,1
ZAK2 QUEUE ZAKALIV; добавляем деталь в очередь на закаливание
SEIZE ZAK22; занимаем устройство
ASSIGN 2,AC1; засекаем время перед закаливание
DEPART ZAKALIV; удаляем из очереди
ADVANCE 10,6; закаливание
RELEASE ZAK22; освобождаем устройство
ASSIGN 2, (AC1-P2); засекаем время на участке закаливания
ASSIGN 4+,1
TRANSFER,Proverka
KonecASSIGNpervii_sort,1; подсчитываем количество деталей первого сорта
SAVEVALUE P$pervii_sort+,1
TABULATE sortDetali
TABULATEtimeDetali