Математическое моделирование вагонов в расчетах на ЭВМ. Балалаев А.Н. - 16 стр.

UptoLike

ВУЗ: 

СамГУПС | Самара

Составители: 

Рубрика: 

16
950 A3(M1, J) = A2(M1, J)
960 NEXT J
970 Y = 2 * INT(M1 / 2)
980 IF Y < M1 THEN GOTO 1220
990 IF X <> K1 THEN GOTO 1020
1000 N3 = 1
1010 GOTO 1030
1020 N3 = 0 + N33
1030 FOR J = 1 TO X5
1040 TB(J) = TB(J) - 12 * N3 / KT + DTT
1050 IF TB(J) <= 0 AND M0(J) = 1 THEN GOTO 1070
1060 GOTO 1090
1070 M0(J) = 2.1
1080 A3(M1, J) = A2(M1, J) + X
1090 X1 = X1 - INT(M0(J) / 2)
1100 NEXT J
1110 IF X1 < .5 THEN GOTO 1450
1120 K1 = K1 + 1
1130 X = X + 1
1140 IF X > N THEN GOTO 1450
1150 K3 = 2 * (INT(K1 / 2) + .1)
1160 IF K3 < K1 THEN GOTO 990
1170 IF X <> K1 THEN GOTO 1200
1180 K1 = K1 + 2
1190 GOTO 1210
1200 K1 = K1 - 2
1210 GOTO 990
1220 IF X <> K1 THEN GOTO 1250
1230 N3 = 1
1240 GOTO 1260
1250 N3 = 0 + N33
1260 FOR J = 1 TO X5
1270 TB(J) = (TB(J) - 12 * N3 / KT + DTT)
1280 IF TB(J) <= 0 AND M0(J) = 1 THEN 1300
1290 GOTO 1320
1300 M0(J) = 2.1
1310 A3(M1, J) = A2(M1, J) + X
1320 X1 = X1 - INT(M0(J) / 2)
1330 NEXT J
1340 IF X1 < .5 THEN 1450
1350 K1 = K1 + 1
1360 X = X + 1
1370 IF X > N THEN GOTO 1450
1380 K3 = 2 * (INT(K1 / 2) + .1)
1390 IF K1 < K3 THEN GOTO 1220
1400 IF X <> K1 THEN GOTO 1430
1410 K1 = K1 + 2
1420 GOTO 1440
1430 K1 = K1 - 2
1440 GOTO 1220
1450 IF M1 = I THEN GOTO 1480
1460 M1 = I

Страницы