Листинг программы

SIMULATE

* МОДЕЛЬ ЧАСТНОЙ ТЕЛЕФОННОЙ СТАНЦИИ

* ЕДИНИЦА ИЗМЕРЕНИЯ ВРЕМЕНИ - СЕКУНДА

********************************************

Transit TABLE M1,0,20,40

*****************************

Extensions STORAGE 200

Extlines STORAGE 30

Intlines storage 30

Signals STORAGE 8

Operator STORAGE 2

** ПАРАМЕТРЫ СИСТЕМЫ **

External FVARIABLE 2500/200;

Internal FVARIABLE 1260/(1+R$Extensions)

*******************************************************

** ФОРМИРОВАНИЕ ТАБЛИЦ КОЛИЧЕСТВА ЗВОНКОВ **

Callsext TABLE S$Extlines,0,1,20

Callsint TABLE S$Intlines,0,1,20

exp1 FUNCTION RN1,C45

0,0/0.1813,0.2/0.3297,0.4/0.4512,0.6/0.5507,0.8

0.6321,1.0/0.6988,1.2/0.7534,1.4/0.7981,1.6/0.8347,1.8

0.8647,2.0/0.8892,2.2/0.9093,2.4/0.9257,2.6/0.9392,2.8

0.9502,3.0/0.9592,3.2/0.9666,3.4/0.9727,3.6/0.9776,3.8

0.9817,4.0/0.9850,4.2/0.9877,4.4/0.9899,4.6/0.9918,4.8

0.9933,5.0/0.9945,5.2/0.9955,5.4/0.9963,5.6/0.997,5.8

.9975,6.0/0.9980,6.2/0.9983,6.4/0.9986,6.6/0.9989,6.8

0.9991,7.0/0.9993,7.2/0.9994,7.4/0.9995,7.6/0.9996,7.8

0.9997,8.0/0.9997,8.2/0.9998,8.4/0.9998,8.6/0.9998,8.8

******

norm150 FUNCTION RN2,C40

0,0/0.0001,36/0.0002,42/0.0003,48/0.0007,54/0.0013,60

0.0026,66/0.0047,72/0.0082,78/0.0139,84/0.0228,90/0.0359,96

0.0548,102/0.0808,108/0.1151,114/0.1587,120/0.2119,126/0.2743,132

0.3446,138/0.4207,144/0.5000,150/0.5793,156/0.6554,162/0.7257,168

0.7881,174/0.8413,180/0.8849,186/0.9192,192/0.9452,198/0.9641,204

0.9772,210/0.9861,216/0.9918,222/0.9953,228/0.9974,234/0.9987,240

0.9993,246/0.9997,252/0.9998,258/0.9999,264

** Генерация звонков, поступающих с внутренних телефонов **

********************************************************************

10 GENERATE v$Internal,FN$exp1

20 ENTER Extensions ; снята трубка телефона

30 QUEUE Inside ; очередь на сигнализатор

40 ENTER Signals ; занимается сигнализатор

50 DEPART Inside ; выход из очереди

60 ADVANCE 7,2 ; время для сигнализации

70 LEAVE Signals ; сигнализатор освобождается

80 TRANSFER .333,,Intout ;отправление 33% звонков на внешние линии

** Проверка внутренней линии на доступность **

90 Intint TEST GE R$Intlines,1,Breakoff

100 ENTER Intlines ;занимается внутренняя линия

110 ADVANCE 4,1 ;проводится проверка, занят ли телефон

120 TRANSFER .15,,Busy ;некоторые параллельные телефоны заняты

130 Aline ENTER Extensions ;другие параллельные телефоны не заняты

140 ADVANCE 6,2 ;время для звонка по параллельному телефону

150 TRANSFER .2,,Nogood ;20% не отвечают

160 ADVANCE FN$norm150 ;продолжительность звонка

170 Nogood LEAVE Extensions ;параллельный телефон освобождается

180 Busy LEAVE Intlines ;внутренняя линия освобождается

190 Transfer ,Breakoff

** Переход с внутренних телефонов на внешние линии **

200 Intout TEST GE R$Extlines,1,Breakoff ;Проверка доступности внешней линии

210 ENTER Extlines ;Занимается внешняя линия

220 ADVANCE 4,1 ;Время для проверки занятости внешней линии

230 TRANSFER .2,,Nobody ;20% внешних линий заняты

240 ADVANCE 6,2 ;формирование времени ответа

250 TRANSFER .200,,Nobody ;20% не отвечают

260 ADVANCE FN$norm150 ;формирование времени продолжительности звонка

270 TABULATE Transit ;табулирование транзитного времени

280 Nobody LEAVE Extlines ;внешняя линия освобождается

290 Breakoff LEAVE Extensions ;освобождение параллельного телефона