Циклы разработки проектировщиков
;генерируются три транзакта, которые представляют из себя проектировщиков
GENERATE ,,,3
;в параметре транзакта номер один сохраняем счётчик строк для цикла, введенных текущим проектировщиком
LAB_BEGIN ASSIGN 1,10
;формирование строки задания
;набор строки задания проектировщиком
ADVANCE 10,5
;цикл по строкам
LAB_LOOP_START QUEUE q_regiegistrator
SEIZE computer
;анализ строки сервером
ADVANCE 3
DEPART q_regiegistrator
RELEASE computer
;анализ строки терминалом
ADVANCE 5
;переходим на начало цикла
LOOP 1,LAB_LOOP_START
;обработка задания
QUEUE q_regiegistrator
SEIZE computer
DEPART q_regiegistrator
;обработка задания ЭВМ
ADVANCE 10,3
RELEASE computer
;вывод результата решения терминалом
ADVANCE 8
;анализ результата решения проектировщиком
ADVANCE 30,10
;переход в начало формирования задания
TRANSFER ,LAB_BEGIN
;сегмент времени - моделируем в течение 8 ч
GENERATE (6#60#60)
SAVEVALUE prostoy,((QC$q_regiegistrator-QZ$q_regiegistrator)/QC$q_regiegistrator)
TERMINATE 1
START 1
****************РЕЗУЛЬТАТЫ МОДЕЛИРОВАНИЯ***************
*************коэффициент загрузки ЭВМ 0.792************
***********вероятность простоя ЭВМ 0.936******
***********ПАРАМЕТРЫ ОЧЕРЕДИ К ЭВМ************
***********средняя длина очереди 0.853**********
************макс.длина очереди 3**************
*******************среднее время пребывания в очереди 3.89с*****
;генерируются три транзакта, которые представляют из себя проектировщиков