part orab1
advance (triangular (1,0.8 # p10, 1.2 # p10, p10))
release * 4
leave rab1
assemble p $ sl1 (p $ sl2-1), suda2assign 11, x8
queue orab2
gate snf rab2
enter rab2
gate lr ukaz2
logic s ukaz2
assign 1, x2
assign 2,1000
assign 3,20 assign 3 +, 1
gate fv p3, mimo2
gate nu p3, mimo2
test l fr * 3, p2, mimo2
assign 2, fr * 3
assign 4, p3loop 1, cik2
logic r ukaz2
seize * 4
depart orab2
advance (triangular (1,0.8 # p11, 1.2 # p11, p11))
release * 4
leave rab2
assemble p $ sl2 (p $ sl3-1), suda3assign 12, x9
queue orab3
gate snf rab3
enter rab3
gate lr ukaz3
logic s ukaz3
assign 1, x3
assign 2,1000
assign 3,40 assign 3 +, 1
gate fv p3, mimo3
gate nu p3, mimo3
test l fr * 3, p2, mimo3
assign 2, fr * 3
assign 4, p3loop 1, cik3
logic r ukaz3
seize * 4
depart orab3
advance (triangular (1,0.8 # p12, 1.2 # p12, p12))
release * 4
leave rab3
assemble p $ sl3
assign verojt, x21
assign vrema4, x10vrema5, x12assign nom4, 60
split (x4-1), tut4, nom4queue orab4
seize p $ nom4
enter rab4
depart orab4
advance (triangular (1,0.8 # p $ vrema4, 1.2 # p $ vrema4, p $ vrema4))
release p $ nom4
leave rab4
assemble x4
assign nom5, 80
split (x5-1), tut5, nom5queue orab5
seize p $ nom5
enter rab5
depart orab5
advance (triangular (1,0.8 # p $ vrema5, 1.2 # p $ vrema5, p $ vrema5))
release p $ nom5
leave rab5
assemble x5
assign 9, (1-p $ verojt)
transfer p9, dalee, finalassign verojt, (p $ verojt/2)
assign vrema4, (p $ vrema4/2)
assign vrema5, (p $ vrema5/2)
transfer, povtortabulate vrvip
vrvip table m1, 20,5,20
test le m1, x34, neul
savevalue uspel +, 1
terminatesavevalue neuspel +, 1opozd, (m1-x34)
tabulate vropozdtable p $ opozd, 2,2,20
terminate,, 900,1 y2, n $ final
savevalue y4, (x $ uspel/(x $ uspel + x $ neuspel))
savevalue y1, (x32 # x $ y2-x33 # x $ y2 # (1-x $ y4) - (x1 # x16 + x2 # x17 + x3 # x18 + x4 # x19 + x5 # x20) # 36 )
savevalue y3, tb $ vrvip
savevalue y5, tb $ vropozd
savevalue y6, sr $ rab1
savevalue y7, sr $ rab2
savevalue y8, sr $ rab3
savevalue y9, sr $ rab4 100
start 100
Додаток В
Звіт за програмою
GPSS World Simulation Report - Настя_рабочая готова программа.593.1, May 28, 2012 10:03:16 TIME END TIME BLOCKS FACILITIES STORAGE...
