Поведение заявки в зависимости от предыстории

	INITIAL	X$coutB,0
	;генерация зявок типа А
	generate	(Gamma(1,0,0.66,3))	;Генерация заявок (1/0.1)
	assign	1,1		;Заносим в ячейку тип 1
	assign	2,0		;Заносим в ячейку КИ двух устройств 0
	assign	3,0		;Заносим в ячейку КИ первого устройства 0
	assign	4,0		;Заносим в ячейку КИ второго устроства 0
	assign	5,0		;Заносим в ячейку время ожидания первых двух устройств
	transfer	0.3,KAN1,outZA		;Распределение запросов по типам

	;генерация заявок типа В
	generate	(Gamma(1,0,0.66,3))	;Генерация заявок (1/0.1)
	assign	1,2		;Заносим в ячейку тип 2
	assign	2,0		;Заносим в ячейку КИ 0
	assign	3,0		;Заносим в ячейку 0
	assign	4,0		;Заносим в ячейку 0
	assign	5,0		;Заносим в ячейку время ожидания первых двух устройств
	transfer	0.6,KAN1,outZA		;Распределение запросов по типам

KAN1	mark
	queue	s1_1		;Вход заявки в очередь
	seize	s1DEV		;Проверка занятости устройства "S1"
	depart	s1_1		;Выход из очереди
	assign	5,M1
	advance	(Exponential(1,0,1.42))	;Решение задачи в s1(1/0.7)
	release	s1DEV		;Особождение устройства "S1"
	assign	2,FR$s1DEV		;Заносим в ячейку КИ первого устройства
	assign	3,FR$s1DEV			
	transfer	,KAN2		;Переход на устройство s2

KAN2	mark
	queue	s2_1		;Вход заявки в очередь
	seize	s2DEV		;Проверка занятости устройства "s2"
	depart	s2_1		;Выход из очереди
	assign	5+,M1
	advance	(Exponential(1,0,1.42))	;Решение задачи в s2(1/0.7)
	release	s2DEV		;Особождение устройства "s2"
	assign	2+,FR$s2DEV		;Заносим в ячейку КИ второго устройства
	assign	4,FR$s2DEV			
	TEST NE	P1,2,KAN2_out		;Проверяем тип заявки
	savevalue	coutB+,1		;Если заявка типа В прибавляем к счетчику +1	
	TEST E	BV$provSumKI,1,KAN3	;Если КИ на каждом из двух устройствах больше 0.5 и сумма больше 1.4 то переход на третье устройство
	transfer	,out		;Переход на выход

KAN2_out	TEST LE	P5,0.3,KAN6		;Если время ожидании очереди в устройстве 1,2 больше 0.3 отправляем на устроство 6
	TEST E	coutB,3,KAN4		;Если заявок типа В равно 3, напрявлем в 3 устройство
	savevalue	coutB,0		;Округляем глоб. переменную
	transfer	,out1

KAN2               25    MARK               560             0       0
                   26    QUEUE              560             2       0
                   27    SEIZE              558             0       0
                   28    DEPART             558             0       0
                   29    ASSIGN             558             0       0
                   30    ADVANCE            558             1       0
                   31    RELEASE            557             0       0
                   32    ASSIGN             557             0       0
                   33    ASSIGN             557             0       0
                   34    TEST               557             0       0
                   35    SAVEVALUE          349             0       0
                   36    TEST               349             0       0
                   37    TRANSFER           338             0       0
KAN2_OUT           38    TEST               208             0       0
                   39    TEST                 6             0       0
                   40    SAVEVALUE            0             0       0
                   41    TRANSFER             0             0       0

TEST E  coutB,3,KAN4        ;Если заявок типа В равно 3, напрявлем в 3 устройство