Модель техлогического бюро

COMP1 Storage 1
UPD Storage 1
GENERATE 20,5
QUEUE Och
SEIZE SYSTEMAS
DEPART Och
RELEASE SYSTEMAS

TRANSFER 0.33,OBRCOMP,OBRUPD
OBRCOMP ENTER COMP1
ADVANCE 12
TRANSFER 0.2,OBRUPD
RELEASE SYSTEMAS
LEAVE COMP1TERMINATE 

OBRUPD ENTER UPD
ADVANCE 8,1
RELEASE SYSTEMAS
LEAVE UPD  
TERMINATE 


GENERATE 28800
TERMINATE 1
START 1

COMP1 Storage 1
UPD Storage 1
GENERATE 8,2		;приход людей
TRANSFER 0.33,COMP,UPD	;33% переходят сразу к УПД и ПК
;работа за компом
COMP 	QUEUE COMP1
	ADVANCE 12 	;обработка за компом 12 минут
	TRANSFER 0.2,UPD 	;20% на УПД и комп
	TERMINATE
;работа за УПД
UPD	QUEUE UPD
	ADVANCE 8,1 	;обработка за компом 7-9 минут
	TERMINATE	
GENERATE 480 		;время моделирования 8 часов
START 1

GENERATE
TEST LE Q$OCHERED,3,OTKAZ  ; Если текущий размер очереди (OCHERED) меньше или равен (LE) чем 3 , то заявка идёт ниже по коду, иначе в метку отказ
QUEUE OCHERED
...
TERMINATE

OTKAZ TERMINATE

COMP Storage 2	; Количество компьютеров
UPD Storage 1	; Количество УПД

* Основная модель
GENERATE 8,2	; Обращение сотрудников каждые 8+-2 минуты
ASSIGN KUDA,((RN1'LE'333)) ; 33% (число 0..1000<333) параметр заявки KUDA=1 значит через УПД, иначе параметр=0, и в УПД заявке не надо
TEST E P$KUDA,1,mCOMP ; Проверка, если параметр куда=1, то заявка идёт на УПД (ниже по коду), иначе в блок mCOMP

; Работа в УПД
mUPD TEST LE (Q$SYSTEM+F$UPD),3,OTKAZ	; Проверка размера очереди системы
QUEUE SYSTEM	; Запись в очередь к системе
QUEUE UPD		; Запись в очередь к УПД
ENTER UPD		; Занятие УПД если тот свободен
DEPART SYSTEM	; Освобождение очереди при поступлении на обслуживание
DEPART UPD	; Освобождение очереди
ADVANCE 8,1	; Обработка на УПД
LEAVE UPD		; Освобождение УПД

; Работа за компьютером
mCOMP TEST LE (Q$SYSTEM+F$UPD),3,OTKAZ ; Проверка размера очереди системы + сотрудник на УПД, должно быть меньше 4, то есть на обслуживания проходит заявка если эта сумма меньше либо равна (LE) 3, иначе по метке ОТКАЗ 
QUEUE SYSTEM	; Запись в очередь к системе
QUEUE COMP	; Запись в очередь к компу
ENTER COMP	; Занятие ресурса-компьютера
SELECT E NOMER,1,2,0,F ; Блок выбора свободного устройства F устройства(компа) 1 или 2 =(E) 0(значит свободен), результат записывается в параметр номер
DEPART SYSTEM	; Освобождение места в очереди
DEPART COMP	; Освобождение места в очереди
SEIZE P$NOMER	; занятие компьютера с выбранным номером
ADVANCE 12  	; Обработка за компом 12 минут
RELEASE P$NOMER	; освобождение компьютера
LEAVE COMP	;Освобождение ресурса-компьютер
;20% работавших Только на компьютере (kuda=0) возвращаются для работы и на упд и на компьютере
TEST E P$KUDA,0,YSPEX; Если Kuda=1 то на выход
   TRANSFER 0.8,,YSPEX; 20% ниже по коду, остальные 80% на выход 
      ASSIGN KUDA,1 ; Сделали отметку что на EGL должен обслуживаться
      TRANSFER ,mUPD ; переход по метке в УПД 

YSPEX TERMINATE   ; Выход сотрудников, использующих и упд и компьютер
OTKAZ TERMINATE   ; Выход сотрудников, получивших отказ в обслуживании

* Время моделирование 8 часов
GENERATE 480	; Формирование управляющей заявки в момент времени
; Расчитываем статистику в конце моделирования
SAVEVALUE VER_OTKAZA,(N$OTKAZ/(N$OTKAZ+N$YSPEX))	; Вероятность отказа
SAVEVALUE SOOTNOWENIE,(QA$COMP/QA$UPD)		; Соотношение сотрудников на компе и упд (по средним размерам очередей (QA))
TERMINATE 1	; Выход управляющей завки и завершение моделирования (START-1 -> 0)
START 1		; Счётчик завершения моделирования