Expd function rn1,c24

9 10 11 12 13 14 15

0,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

L,8

INITIAL Xl,0

INITIAL X2,0

INITIAL X3,0

INITIAL X4,0

INITIAL X5,0

INITIAL X6,0

INITIAL X7,0

INITIAL X8,0

INITIAL X9,0

41 BAD2 TABLE Ml,0,500,30; Таблица времени пребывания

51 KBA VARIABLE Х2^Л2; Расчет α

61KBY VARIABLE XI^Л2;

71ALY VARIABLE Х1#Х2; Расчет Y_

81YSR FVARIABLE X3/X4; Расчет Y

91NNN FVARIABLE 1/(Х8-1); Расчет 1 /(п- 1)

101NN1 FVARIABLE X8/VSNNN; Расчет n/(n-1)

111SS11 FVARIABLE Х6/(Х8-1)-ХЗ/Х8#ХЗ/(1-Х8); Расчет Sn

121 SS22 FVARIABLE Х5/(Х8-1)-Х4/Х8#Х4/(1-Х8); Расчет S₂₂

131SS12 FVARIABLE Х7/(Х8-1)-ХЗ/Х8#Х4/(Х8-1); Расчет S₁₁

* Расчет S²

141SKB FVARIABLE V$SS11-2#V$YSR#V$SS12+V$YSR^A2#V$SS22

142*

151 GENERATE 200,FN$EXPD; Генерация потока требований

161INP QUEUE BAD1; Постановка в очередь

171 SEIZE ВАШ; Занятие устройства

181 DEPART BAD1; Освобождение очереди

191 ADVANCE 180,FN$EXPD; Обслуживание

201 OUT RELEASE BAD1; Освобождение устройства

211 TESTNE N$OUT,N$INP,CIKL; Проверка начала цикла

221 SAVEVALUE 2+,1; Подсчет j в цикле

231 SAVEVALUE 1+,M1; Подсчет α, в цикле

241 TABULATE BAD2; Табулирование времени пребывания

TERMINATE

261 CIKL SAVEVALUE 2+,l; Подсчет последнего j в цикле

271 SAVEVALUE 1+,M1; Подсчет последнего αj в цикле

281 SAVEVALUE 3+,Х1; ∑ Yj

291 SAVEVALUE 4+,X2; ∑αj

301 SAVEVALUE 5+,V$KBA; ∑α_j²

311 SAVEVALUE 6+,V$KBY; ∑ Yj

321 SAVEVALUE 7+,V$ALY; ∑α_j²*∑ Yj

331 SAVEVALUE 1,0; Начало нового цикла

341 REG SAVEVALUE 2,0;

351 TESTNE X8,N$REG,ENDREG; Закончить моделирование?

361 SAVEVALUE 8+,l; Подсчет числа циклов