ракті. Тим самим ми підвищимо коефіцієнт використання багатоканального пристрій. Якщо ж коефіцієнт вище необхідного рівня, тоді переходимо до блоку 55.
Блок 55. Уничтожаем все транзакти і проганяє модель ще раз.
3.2 Програма імітаційної моделі функціонування концентратора
Відповідно до блок-діаграмою складемо GPSS-програму моделі функціонування концентратора цифрової мережі зв'язку.
SIMULATE
SVE1 EQU 1
SVE1 STORAGE 6
INITIAL X $ ABON, 30
INITIAL X $ INTER, 12000
INITIAL X $ RAZG, +1200
INITIAL X $ PROSL, 150
INITIAL X $ POFT, 600
INITIAL X $ OBSL, 400
INITIAL X $ NEOT, 500
INITIAL X $ UST, 40
INITIAL X $ ADAP, 5
PER1 FVARIABLE 100000 # N $ EX1/X $ POTER
PER2 FVARIABLE 100000 # N $ DL1/X $ POTER
PER3 FVARIABLE 100000 # X $ SRED/(N $ DL1 + N $ EX1)
BER1 FVARIABLE X $ BLO1 + N $ ZAN-X $ BLO2
BER2 FVARIABLE X $ POTER + X $ BLO3 + X $ BLO4
PER4 FVARIABLE 100000 # (V $ BER1/V $ BER2)
*
EXP FUNCTION RN4, C24
, 0/.100, .104/.200, .222/.300, .355/.400, .509/.500, .690/
. 600, .915/.700,1.200/.750,1.380/.800,1.600/.840,1.830/
. 880,2.120/.900,2.300/.920,2.520/.940,2.810/.950,2.990/
. 960,3.200/.970,3.500/.980,3.900/.990,4.600/.995,5.300/
. 998,6.200/.999,7/1,8/
*
TOCH FUNCTION P3, C7
, 600/2,700/3,750/4,790/5,820/6,850/7,880
*
OTS FUNCTION P3, C3
, 300/2,400/3,500
*
GENERATE 1 ,,, 1
SPLIT X $ ABON, ACT
TERMINATE
ACT ADVANCE X $ INTER, FN $ EXP
ASSIGN 3,1
SAVEVALUE POTER +, 1
*
VHO TEST LE S1, X $ ADAP
TEST L RN6, X $ OBSL, IPV
ENTER 1
QUEUE 1
ADVANCE X $ RAZG, FN $ EXP
DEPART 1
LEAVE 1
*
DL1 SAVEVALUE SRED +, P3
TEST NE TG1,1, ED1
SPLIT 1, ACT
TERMINATE 1
*
IPV TEST G RN7, X $ NEOT, NOT
SAVEVALUE BLO2 +, 1
ENTER 1
QUEUE 1
ZAN ADVANCE X $ PROSL, FN $ EXP
DEPART 1
LEAVE 1
*
OTK SAVEVALUE BLO1 +, 1
TEST LE RN5, FN $ TOCH, EX1
SAVEVALUE BLO3 +, 1
ASSIGN 3 +, 1
ADVANCE X $ POFT, FN $ EXP
TRANSFER, VHO
*
NOT SAVEVALUE ADR +, 1
ENTER 1
QUEUE 1
ADVANCE X $ UST, FN $ EXP
DEPART 1
LEAVE 1
TEST LE RN6, FN $ OTS, EX1
SAVEVALUE BLO4 +, 1
ASSIGN 3 +, 1
ADVANCE X $ POFT, FN $ EXP
TRANSFER, VHO
EX1 SAVEVALUE SRED +, P3
TEST NE TG1,1, ED1
SPLIT 1, ACT
TERMINATE 1
ED1 SAVEVALUE RES1, V $ PER1
SAVEVALUE RES2, V $ PER2
SAVEVALUE RES3, V $ PER3
SAVEVALUE RES4, V $ PER4
TERMINATE 1
GENERATE +1000
SAVEVALUE ADAP, 5
TEST G SR1,800, KON
SAVEVALUE ADAP, 6
KON TERMINATE
START 500
0341 REPORT REPORT.GPS
END
Пояснимо текст програми.
Карта SIMULATE. Вона повинна предворяется як всі ...
