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

UptoLike

ВУЗ: 

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

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

Рубрика: 

15
430 NEXT I
440 I = 2: B1(1) = 3: B3(1) = 3: B2(1) = 3
450 REM PRINT "I="; I - 1, "B1="; B1(I - 1), "B2="; B2(I - 1), "B3="; B3(I - 1), "B="; B(I - 1)
460 IF I > N THEN GOTO 1630
470 C1 = 0: C2 = 0
480 FOR I3 = 1 TO (I - 1)
490 C1 = B(I3) - B1(I3) + C1
500 C2 = B1(I3) - B3(I3) + C2
510 NEXT I3
520 IF C1 < 0 THEN C1 = 0
530 B1(I) = B(I) + C1
540 IF B1(I) >= N1 THEN B1(I) = N1
550 IF C2 < 0 THEN C2 = 0
560 B2(I) = B1(I) + C2
570 IF B2(I) < N2 THEN GOTO 610
580 B1(I) = B1(I) - B2(I) + N2
590 IF B1(I) < 0 THEN B1(I) = 0
600 B2(I) = N2
610 REM "СВЯЗЬ МАТРИЦ A2(I,J) И A1(I,J)"
620 M1 = I - 1
630 X5 = B(M1)
640 C5 = C5 + B(M1) - B1(M1)
650 IF C5 < 0 THEN C5 = 0
660 IF C5 > 0 THEN GOTO 720
670 FOR J = 1 TO X5
680 A2(M1, J) = A1(M1, J)
690 NEXT J
700 N0 = 0: L = 0: REM "ФЛАЖОК СТОИТ - ОЧЕРЕДИ НЕТ"
710 GOTO 890: REM "В КОНЕЦ ЦИКЛА ПО i"
720 IF N0 = 1 THEN GOTO 750
730 L = M1: REM "ФИКСАЦИЯ МОМЕНТА ОБРАЗОВАНИЯ ОЧЕРЕДИ"
740 N0 = 1: REM "ФЛАЖОК УПАЛ - ОЧЕРЕДЬ ЕСТЬ"
750 IF L <> M1 THEN GOTO 790
760 A = 1 + B1(M1)
770 C6 = A + B1(M1 + 1)
780 GOTO 800
790 A = 1: C6 = 1
800 FOR J = A TO X5
810 A2(M1, J) = M1 + 1
820 IF J <= C6 THEN GOTO 840
830 A2(M1, J) = M1 + 2
840 NEXT J
850 IF C6 <= X5 THEN GOTO 880
860 A = C6 - X5 + 1
870 GOTO 890
880 REM "ПЕРЕХОД НА СЛЕД. СТРОКУ A1(M,J)"
890 REM "СВЯЗЪ МАТРИЦ A3(I,J) И A2(I,J)"
900 X1 = B1(M1)
910 X = 1: K1 = 1: IF X5 < 1 THEN GOTO 970
920 FOR J = 1 TO X5
930 TB(J) = T(M1, J)
940 M0(J) = 1

Страницы