Задача. Речевые пакеты передаются через два транзитных канала, буферизируясь в накопителях перед каждым каналом. Время передачи пакета по каналу составляет 5 мс. Пакеты поступают через 6 ± 3 мс. Пакеты, передававшиеся более 10 мс, на выходе системы уничтожаются, так как их появление в декодере значительно снизит качество передаваемой речи. Уничтожение более 30% пакетов недопустимо. При достижении такого уровня система за счет ресурсов ускоряет передачу до 4 мс на канал. При снижении уровня до приемлемого происходит отключение ресурсов. Смоделировать 10 с работы системы. Определить частоту уничтожения пакетов и частоту подключения ресурса.

Решение.

VVrema variable 5
INITIAL X$Vrem,5
GENERATE 6,3
SAVEVALUE Vsego+,1
ASSIGN PVrema1,V$VVrema
ASSIGN PVrema2,V$VVrema
QUEUE Och_kanal1
SEIZE kanal1
DEPART Och_kanal1
ADVANCE P$PVrema1
RELEASE kanal1
QUEUE Och_kanal2
SEIZE kanal2
DEPART Och_kanal2
ADVANCE P$PVrema2
RELEASE kanal2
TEST LE (P$PVrema1+P$PVrema2),10,MetBol
TEST L (X$Bol/X$Vsego),.3,MetTerm
SAVEVALUE Vrem,5
MetTerm TERMINATE
MetBol SAVEVALUE Bol+,1
TEST GE (X$Bol/X$Vsego),.3,Met1
SAVEVALUE Vrem,4
MetTerm1 TERMINATE
Met1 SAVEVALUE Vrem,5
TRANSFER, MetTerm1
GENERATE 100
TERMINATE 1
START 1