Обработка заявок на ЦЭВМ

t1 FUNCTION RN1,D2  ;функция, определяющая время обработки на ЦЭВМ заявки от первого СЭВМ
0.3,3/1,6

t2 FUNCTION RN2,D2  ;функция, определяющая время обработки на ЦЭВМ заявки от второго СЭВМ
0.2,2/1,4

t3 FUNCTION RN3,D2  ;функция, определяющая время обработки на ЦЭВМ заявки от третьего СЭВМ
0.4,3/1,4

t4 FUNCTION RN4,D2	;функция, определяющая время обработки на ЦЭВМ заявки от 4-го СЭВМ
0.2,5/1,4

t5 FUNCTION RN5,D2	;функция, определяющая время обработки на ЦЭВМ заявки от 5-го СЭВМ
0.1,6/1,1

VIBOR FUNCTION P1,E5	;функция, определяющая название функции времени обработки на ЦЭВМ заявки от третьего СЭВМ
1,FN$t1/2,FN$t2/3,FN$t3/4,FN$t4/5,FN$t5

PK FUNCTION P1,E5	;функция, определяющая время обработки на СЭВМ
1,5/2,6/3,8/4,4/5,5

GENERATE ,,,1	;создать 1 транзакт

SPLIT 4,MET,1	;размножить до 5 штук
MET 	TEST E P1,5,NEXT	;если заявка 5-я по счету, то установить
	PRIORITY 20	;ей высший приоритет 
NEXT 	QUEUE OCH		;в очередь к ЦЭВМ
	PREEMPT CP,PR,MET,,RE	;захватить ЦЭВМ
	DEPART OCH 	;из очереди
	ADVANCE FN$VIBOR	;обработка
	RETURN CP		;из ЦЭВМ

*****************
********СЭВМ*****
	
QUEUE P1		;в очередь
SEIZE P1		;в СЭВМ
DEPART P1		;из очереди
ADVANCE FN$PK	;обработка в СЭВМ
RELEASE P1	;из СЭВМ
TRANSFER ,NEXT	;снова в ЦЭВМ


*********************

GENERATE 250 ;таймер моделирования
TERMINATE 1

start 1

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *