Ж) Модель пакетной обработки

90 RMULT 1; начальное значение генератора

100 OPP STORAGE N; назначение емкости буфера (памяти)

200 MESTO VARIABLE RN1; задание объема транзакта

300 EXP FUNCTION RN1, C24; датчик экспоненциальной случайной величины

400 GENERATE 0,0,0,K; установка пакета заданий

500 ASSIGN 1, V$MESTO; определение объема заданий

600 QUEUE 1; вход в очередь к памяти

700 ENTER ОРР,Р1; вход в память

800 DEPART 1; выход из очереди

900 MET1 QUEUE 2; в очередь к исполнителю

1000 SEIZE 2; занятие исполнителя

1100 DEPART 2; выход из очереди

1200 ADVANCE К,FN$EXP; обработка транзакта исполнителем

1300 RELEASE 2; освобождение исполнителя

1400 TRANSFER PR1, CONС; ситуация возможного выхода из системы определенной вероятностью

1500 TRANSFER PR2, NMD2; ситуация возможного обращения к накопителю данных 2 с определенной вероятностью

1600 QUEUE 3; вход в очередь к накопителю данных 1

1700 SEIZE 3; занятие накопителя данных 1

1800 DEPART 3; выход из очереди

1900 ADVANCE К,К; обработка пакета заданий в накопителе 1

2000 RELEASE 3; освобождение накопителя 1

2100 TRANSFER ,МЕТ1; возврат к исполнителю

2200 NMD2 QUEUE 4; вход в очередь к накопителю 2

2300 SEIZE 4; занятие накопителя 2

2400 DEPART 4; выход из очереди

2500 ADVANCE К,К; обработка транзактов в накопителе 2

2600 RELEASE 4; Освобождение накопителя 2

2700 TRANSFER ,МЕТ1; возврат к исполнителю

2800 CONC LEAVE ОРР,Р1; освобождение памяти

2900 TERMINATE 1; выход транзакта из системы

3000 REPORT X1.TXT; фиксирование результата в файле отчета 1

3100 START К; выполнение модели

3200 CLEAR ; очистка памяти для нового моделирования

3300 RMULT 3; новое значение генератора

3400 REPORT X2.TXT; фиксирование результата в файле отчета 2

3500 START К

3600 CLEAR

3700 RMULT 5

3800 REPORT X3.TXT; фиксирование результата в файле отчета 3

3900 START К

4000 CLEAR

4100 RMULT 7

4200 REPORT X4.TXT; фиксирование результата в файле отчета 4

4300 START К

4400 CLEAR

4500 RMULT 9

4600 REPORT X5.TXT; фиксирование результата в файле отчета 5

4700 START К

4800 CLEAR

4900 RMULT 11

5000 REPORT X6.TXT; фиксирование результата в файле отчета 6

5100 START К

5200 CLEAR

5300 RMULT 13

5400 REPORT X7.TXT; фиксирование результата в файле отчета 7

5500 START К

5600 CLEAR

5700 RMULT 15

5800 REPORT X8.TXT; фиксирование результата в файле отчета 8

5900 START К

6000 CLEAR

6100 RMULT 17

6200 REPORT X9.TXT; фиксирование результата в файле отчета 9

6300 START К

6400 CLEAR

6500 RMULT 19

6600 REPORT X10.TXT; фиксирование результата в файле отчета 10

6700 START К

6800 END