Можно ли улучшить маршрутизатор в данной ситуации?(программная среда GPSS)
obsl variable (95)
N_buf equ (1000)
prior function RN3,D5 ; распределение потока на четыре приоритета (можно варьировать)
0,0/0.25,1/0.5,2/0.75,3/1,4
opr function P1,D4 ; порядок опроса очередей
1,1/2,2/3,3/4,4
generate 1,,,1 ; блок опроса
assign 1,1
oper assign 1,FN$opr
seize ustr
Test NE CH1,0,osv2
unlink 1,qq,1
osv2 Test NE CH2,0,osv3
unlink 2,qq,1
osv3 Test NE CH3,0,osv4
unlink 3,qq,1
osv4 Test NE CH4,0,osv
unlink 4,qq,1
advance 1
osv release ustr
advance 10
transfer ,oper
Input1 GENERATE (exponential(1,0,100))
assign 2,(FN$prior)
test L Q$line1,N_buf,loss
Test E P2,1,q_2
Queue LINE1
Link 1,fifo
q_2 test L Q$line2,N_buf,loss
Test E P2,2,q_3
Queue LINE2
Link 2,fifo
q_3 test L Q$line3,N_buf,loss
Test E P2,3,q_4
Queue LINE3
Link 3,fifo
q_4 test L Q$line4,N_buf,loss
Test E P2,4,ex1
Queue LINE4
Link 4,fifo
qq seize ustr
Test E P2,1,q_q2
depart line1
advance V$obsl
release ustr
TRANSFER ,ex1
q_q2 Test E P2,2,q_q3
depart line2
advance V$obsl
release ustr
TRANSFER ,ex1
q_q3 Test E P2,3,q_q4
depart line3
advance V$obsl
release ustr
TRANSFER ,ex1
q_q4 Test E P2,4,ex1
depart line4
advance V$obsl
release ustr
TRANSFER ,ex1
loss savevalue 1,N$loss
ex1 Terminate
GENERATE 10000000
Terminate 1
start 1
reset
start 1
reset
start 1