Моделирование систем / моделирование

Пакеты сообщений из A в B передаются со скоростью 5 сек на 100 бит., через 2 транзитных канала расположенных последовательно. Для ускорения передачи сообщений в очередях располагаются по возрастанию их длины, т.е. короткие сообщения обслуживаются первыми. Пакеты поступают из A в B каждые 15+-2 сек. Пакеты могут быть длиной 100,200,300,400 бит после передачи в пункт B определяется что 20% сообщений переданы с искажением. Через каждые 200+-35 сек происходит сбой в первом канале. Смоделировать передачу из A в B 500 сообщений. Чаще всего поступают сообщения размером 200 бит, остальные виды сообщений равновероятны.

fun function Rn1,D4

.2,100/.6,200/.8,300/1,400

generate 15,2,,500

assign 1,fn$fun

priority ((500-P1)/100)

queue och1

seize kanal1

depart och1

advance (P1/100#5)

release kanal1

queue och2

seize kanal2

depart och2

advance (P1/100#5)

release kanal2

transfer .2,,iskazhenie

terminate 1

iskazhenie terminate 1

generate 200,35,,,127

preempt kanal1

advance 10

return kanal1

terminate

start 500