070 ASSIGN 4,FN$MEAN; Запомнить в Р4
; время обслуживания
ASSIGN 5,7; Задать МАХ номер кассира
080 NEXT TEST E F*5,0,FAC; Есть свободный кассир?
ASSIGN 3,P5; «Да» - запомнить его номер
TRANSFER,QU1; Идти на обслуживание
FAC LOOP 5,NEXT; Цикл по всем кассирам
JQQ *****************************************************************
105 SIT TESTL Q*1,P2,SIS; Поиск MIN очереди
ASSIGN 3,P1; Запомнить номер очереди
115 ASSIGN 2,Q*1; Запомнить длину очереди
SIS LOOP 1,SIT; Цикл по всем очередям
QUI QUEUE РЗ; Встать в очередь
SEIZE РЗ; Занять кассира
DEPART РЗ; Покинуть очередь
PRIORITY 1
ADVANCE P4; Обслужиться
RELEASE РЗ; Освободить кассира
TABULATE T_l; Время пребывания
TERMINATE
170 *****************************************************************
GENERATE 14400; Таймер времени работы
TERMINATE 1
Отчет с результатами моделирования:
FACILITY ENTRIES OTIL. AVE.TIME AVAIL. OWNER РЕМ) INTER RETRY DELAY
1 10 0.854 1230.000 1 75 0 0 0 2
2 12 0.851 1020.833 1 78 0 0 0 1
3 7 0.931 1914.286 1 64 0 0 0 2
4 6 0.958 2300.000 1 59 0 0 0 2
5 11 0.938 1227.273 1 65 0 0 0 2
6, 12 0.965 1158.333 1 62 0 0 0 2
7 13 0.983 1088.462 1 73 0 0 0 2
QUEUE MAX CCOT. ENTRY ENTRY(O) AVE.CENT. AVE.TIME AVE. (-0) RETRY
|
|
1 2 2 12 5 0.417 500.000 857.143 0
2 2 1 13 6 0.524 580.769 1078.571 0
3 2 2 9 3 0.639 1022.222 1533.333 0
4 2 2 8 2 0.767 1381.250 1841.667 0
5 2 2 13 6 0.823 911.538 1692.857 0
6 2 2 14 4 0.865 889.286 1245.000 0
7 3 2 15 3 1.035 993.333 1241.667 0
Гистограмма времени пребывания в системе приведена на рис. 4.12
Косвенная адресация является мощным инструментом языка GPSS, позволяющим существенно сократить размер модели и во многих случаях уложиться в ограничения для бесплатно распространяемых студенческих версий языка GPSS (в модели должно быть до 150 блоков).