2.8. Блок-диаграмма

2.9. Проведение программирования модели

Текст программы Комментарии

time1 table m1,15,1,50; инициализация таблицы time1

time2 table m1,15,1,50; инициализация таблицы time2

Ocher1 BVARIABLE (Q$Rem1>250); проверка мест в очереди к ЭВМ-1 Ocher2 BVARIABLE (Q$Rem2>250); проверка мест в очереди к ЭВМ-2

Zan1 BVARIABLE (F$evm1); проверка на занятость ЭВМ-1

Zan2 BVARIABLE (F$evm2); проверка на занятость ЭВМ-2

GENERATE 10,3; генерация входных заявок

savevalue sumzapr+,1; вошло запросов

TEST E BV$Ocher1,0,met1; есть ли место в очереди к ЭВМ-1?

QUEUE Rem1; встать в очередь

TRANSFER ,ewm1

ewm1 ADVANCE 3; сеанс связи

TEST E BV$Zan1,0,met2; занята ли 1я ЭВМ?

SEIZE evm1; занятие 1й ЭВМ

DEPART Rem1; освободить очередь

TABULATE time1; вывод функции распределения времени передачи

ADVANCE 2; первичная обработка запроса

TRANSFER .5,ewmbuf; с вероятность 50% нужная инф. есть в ЭВМ-

;1, иначе запрос передается в ЭВМ-2

ADVANCE 18,2; обработка заявок

RELEASE evm1; освобождение ЭВМ1

savevalue evmzapr1+,1; обработанные запросы ЭВМ1

TRANSFER ,met3

ewmbuf ADVANCE 0

RELEASE evm1

TEST E BV$Ocher2,0,met1; есть ли место в очереди к ЭВМ-2

QUEUE Rem2

TRANSFER ,ewm2

ewm2 ADVANCE 3

TEST E BV$Zan2,0,met5; занята ли 2я ЭВМ?

SEIZE evm2; занятие 2й ЭВМ

DEPART Rem2; освободить очередь

TABULATE time2 ;вывод функции распределения времени передачи

ADVANCE 18,2; обработка заявок

RELEASE evm2; освобождение ЭВМ2

savevalue evmzapr2+,1; обработанные запросы ЭВМ2

TRANSFER ,met4

met5 savevalue Otkaz+,1; суммирует кол-во отказов

TERMINATE; не принятые заявки ЭВМ-2

met4 TERMINATE; получен результат в ЭВМ-2

met3 TERMINATE; получен результат в ЭВМ-1

met2 savevalue Otkaz+,1; суммирует кол-во отказов

TERMINATE; не принятые заявки ЭВМ-1

met1 savevalue Otkaz+,1; суммирует кол-во отказов

TERMINATE; необслуженные заявки (не попали в очередь)

GENERATE 3940; генерация 400 заявок

TERMINATE 1

START 1