Сигнальный трафик

inArrive EQU 10	;интервал поступления заявок
inServe EQU 10	;среднее время обслуживания заявок
prV STORAGE 100	;число приборов
totalSignal EQU 10
totalVideo EQU 40
totalAudio EQU 50
prK EQU 4		;число мест ожидания

*******СИГНАЛЬНЫЙ ТРАФФИК*********
GENERATE (POISSON(1,inArrive)),,,,1	;создание сигнального трафика

TEST L Q$QUE,prK,REFUSE	;проверка свободных мест ожидания
QUEUE QUE			;в очередь
SAGAIN 	TEST GE X$SIGNAL,totalSignal,SCALCULATE1
	TEST GE X$AUDIO,totalAudio,SCALCULATE2
	TEST GE X$VIDEO,totalVideo,SCALCULATE3
	TEST E (X$AUDIO'l'totalAudio'or'X$VIDEO'l'totalVideo'or'X$SIGNAL'l'totalSignal),1
	TRANSFER ,SAGAIN

SCALCULATE1 SAVEVALUE SIGNAL+,1
	  ASSIGN TYPE,SIGNAL
	  TRANSFER ,SNEXT
SCALCULATE2 SAVEVALUE AUDIO+,1
	  ASSIGN TYPE,AUDIO
	  TRANSFER ,SNEXT
SCALCULATE3 SAVEVALUE VIDEO+,1
	  ASSIGN TYPE,VIDEO

SNEXT ENTER prV		;в прибор для обслуживания
DEPART QUE		;из очереди
ADVANCE (POISSON(3,inServe))	;задержка на время обслуживания
LEAVE prV			; из прибора
SAVEVALUE P$TYPE-,1
TERMINATE 1	;здесь удаляются обслуженные заявки

*******ВИДЕО ПОТОКИ*********

GENERATE (POISSON(1,inArrive)),,,,3	;создание видеопотока
TEST L Q$QUE,prK,REFUSE	;проверка свободных мест ожидания
QUEUE QUE			;в очередь
TEST L X$VIDEO,totalVideo
SAVEVALUE VIDEO+,1

ENTER prV			;в прибор для обслуживания
DEPART QUE		;из очереди
ADVANCE (POISSON(3,inServe))	;задержка на время обслуживания
LEAVE prV			; из прибора
SAVEVALUE VIDEO-,1
TERMINATE 1	;здесь удаляются обслуженные заявки
 
*******ГОЛОСОВЫЕ ПОТОКИ*********

GENERATE (POISSON(1,inArrive)),,,,2	;создание голосового потока
TEST L Q$QUE,prK,REFUSE	;проверка свободных мест ожидания
QUEUE QUE			;в очередь
AGAIN 	TEST GE X$AUDIO,totalAudio,ACALCULATE1
	TEST GE X$VIDEO,totalVideo,ACALCULATE2
	TEST E (X$AUDIO'l'totalAudio'or'X$VIDEO'l'totalVideo),1
	TRANSFER ,AGAIN
ACALCULATE1 SAVEVALUE AUDIO+,1
	  ASSIGN TYPE,AUDIO
	  TRANSFER ,ANEXT
ACALCULATE2 SAVEVALUE VIDEO+,1
	  ASSIGN TYPE,VIDEO

ANEXT ENTER prV		;в прибор для обслуживания
DEPART QUE		;из очереди
ADVANCE (POISSON(3,inServe))	;задержка на время обслуживания
LEAVE prV			; из прибора
SAVEVALUE P$TYPE-,1
TERMINATE 1	;здесь удаляются обслуженные заявки



REFUSE TERMINATE   ;здесь удаляются необслуженные завки


INITIAL X$SIGNAL,0
INITIAL X$AUDIO,0
INITIAL X$VIDEO,0
start 10000