GPSS

[Сергей67]

помогите с GPSS!!!

SIMULATE
0001 SVE1 EQU 1
0005 SVE1 STORAGE 6
0010 INITIAL XSABON,30
0015 INITIAL XSRNT,12000
0020 INITIAL XSRAZG,1200
0025 INITIAL XSPROSL,150
0030 INITIAL XSPOFT,600
0035 INITIAL XSOBSL,400
0040 INITIAL XSNEOT,500
0045 INITIAL XSUST,40
0050 INITIAL XSADAP,5
0055 PER1 FVARIABLE 100000 # NSTXIE/XSPOTER
0060 PER2 FVARIABLE 100000 # NSLED/XSPOTER
0065 PER3 FVARIABLE XSSRED / (NSLED + NSTXIE)
0070 BER1 FVARIABLE XSBLO1+ NSZAN - XSBLO2
0071 BER2 FVARIABLE XSPOTER + XSBLO3 + XSBLO4
0072 PER4 FVARIABLE 100000 # (VSBER1 / VSBER2)
0110 EXPON FUNCTION RN1,C24
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
.998,6.200/.999,7/1,8

0117 NAST FUNCTION P3,C2
1,600/2,900
0120 TOCH FUNCTION P3,C7
1,600/2,700/3,750/4,790/5,820/6,850/7,880
0125 OTS FUNCTION P4,C3
1,300/2,400/3,500
0127 GENERATE 1,,,1
0128 ASSIGN 1,0
0129 ASSIGN 2,0
0130 ASSIGN 3,0
0131 ASSIGN 4,0
0132 SPLIT XSABON, ACT
0135 TERMINATE
0140 ACT ADVANCE XSRNT,FNSEXP
0145 ASSIGN 3,1
0150 SAVEVALUE POTER+,1
0155 VHO TEST LE S1,XSADAP
0160 TEST L RN6,XSOBSL,IPV
0161 ENTER 1
0162 QUEUE 1
0163 ADVANCE XSRAZG,FNSEXP
0164 DEPART 1
0165 LEAVE 1
0170 LED SAVEVALUE SRED+,P3
0175 TEST NE TG1,1,DNE
0180 SPLIT 1,ACT
0185 TERMINATE 1
0190 IPV TEST G RN7,XSNEOT,NOS
0195 SAVEVALUE BLO2+,1
0196 ENTER 1
0197 QUEUE 1
0198 ZAN ADVANCE XSPROSL,FNSEXP
0199 DEPART 1
0200 LEAVE 1
0205 OTK SAVEVALUE BLO1+,1
0210 TEST LE RN5,FNSTOCH,TXIE
0215 SAVEVALUE BLO3+,1
0220 ASSIGN 3+,1
0225 ADVANCE XSPOFT,FNSEXP
0230 TRANSFER ,VHO
0235 NOS SAVEVALUE ADR+,1
0236 ENTER 1
0237 QUEUE 1
0238 ADVANCE XSUST,FNSEXP
0239 DEPART 1
0240 LEAVE 1
0245 TEST LE RN6,FNSOTS,TXIE
0250 SAVEVALUE BLO4+,1
0255 ASSIGN 3+,1
0260 ADVANCE XSPOFT,FNSEXP
0265 TRANSFER ,VHO
0270 TXIE SAVEVALUE SRED+,P3
0275 TEST NE TG1,1,DNE
0280 SPLIT 1,ACT
0285 TERMINATE 1
0290 DNE SAVEVALUE RES1,VSPER1
0295 SAVEVALUE RES2,VSPER2
0300 SAVEVALUE RES3,VSPER3
0305 SAVEVALUE RES4,VSPER4
0310 TERMINATE 1
0315 GENERATE 1000
0320 SAVEVALUE ADAP,5
0325 TEST G SR1,800,KON
0330 SAVEVALUE ADAP,6
0335 KON TERMINATE
0340 START 500


пишет:10/08/13 01:47:11 Model Translation Begun.
10/08/13 01:47:11 Ready.
10/08/13 01:47:11 Error Stop.
10/08/13 01:47:11 Halt.
10/08/13 01:47:11 Clock:0.000000.
10/08/13 01:47:11 Operand A. Invalid expression.
10/08/13 01:47:11 Datum has not been initialized.