Эффективное математическое моделирование в литейном производстве при ортогонализации матриц. Черный А.А. - 142 стр.

600 F(1) = A1: F(2) = B1: F(3) = C1: F(4) = D1: GOTO 1130
610 F(1) = A1: F(2) = B1: F(3) = C1: F(4) = D1: F(5) = E1: GOTO 1130
620 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2
630 F(4) = B1: H(4) = B2: F(5) = A1: H(5) = E2: F(6) = B1: H(6) = E2
640 F(7) = E1: H(7) = A2: F(8) = E1: H(8) = B2: F(9) = E1: H(9) = E2
650 GOTO 1130
660 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2
670 F(4) = B1: H(4) = B2: F(5) = E1: H(5) = A2: F(6) = E1: H(6) = B2
680 F(7) = A1: H(7) = C2: F(8) = B1: H(8) = D2: F(9) = A1: H(9) = D2
690 F(10) = B1: H(10) = C2: F(11) = E1: H(11) = C2: F(12) = E1
695 H(12) = D2
700 GOTO 1130
710 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2
720 F(4) = B1: H(4) = B2: F(5) = A1: H(5) = E2: F(6) = B1: H(6) = E2
730 F(7) = E1: H(7) = A2: F(8) = E1: H(8) = B2: F(9) = E1: H(9) = E2
740 F(10) = A1: H(10) = C2: F(11) = B1: H(11) = D2: F(12) = A1
745 H(12) = D2
750 F(13) = B1: H(13) = C2: F(14) = E1: H(14) = C2: F(15) = E1
755 H(15) = D2
760 GOTO 1130
770 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2
780 F(4) = B1: H(4) = B2: F(5) = A1: H(5) = C2: F(6) = B1: H(6) = C2
790 F(7) = A1: H(7) = D2: F(8) = B1: H(8) = D2: F(9) = C1: H(9) = A2
800 F(10) = C1: H(10) = C2: F(11) = C1: H(11) = D2: F(12) = C1
805 H(12) = B2
810 F(13) = D1: H(13) = A2: F(14) = D1: H(14) = C2: F(15) = D1
815 H(15) = D2
820 F(16) = D1: H(16) = B2: GOTO 1130
830 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2
840 F(4) = B1: H(4) = B2: F(5) = A1: H(5) = E2: F(6) = B1: H(6) = E2
850 F(7) = A1: H(7) = C2: F(8) = B1: H(8) = D2: F(9) = A1: H(9) = D2
860 F(10) = B1: H(10) = C2: F(11) = C1: H(11) = A2: F(12) = C1: H(12) = C2
870 F(13) = C1: H(13) = E2: F(14) = C1: H(14) = D2: F(15) = C1: H(15) = B2
880 F(16) = D1: H(16) = A2: F(17) = D1: H(17) = C2: F(18) = D1: H(18) = E2
890 F(19) = D1: H(19) = D2: F(20) = D1: H(20) = B2: GOTO 1130
900 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2
910 F(4) = B1: H(4) = B2: F(5) = A1: H(5) = E2: F(6) = B1: H(6) = E2
920 F(7) = E1: H(7) = A2: F(8) = E1: H(8) = B2: F(9) = E1: H(9) = E2
930 F(10) = A1: H(10) = C2: F(11) = B1: H(11) = D2: F(12) = A1: H(12) = D2
940 F(13) = B1: H(13) = C2: F(14) = E1: H(14) = C2: F(15) = E1: H(15) = D2
950 F(16) = C1: H(16) = A2: F(17) = C1: H(17) = C2: F(18) = C1: H(18) = E2
960 F(19) = C1: H(19) = D2: F(20) = C1: H(20) = B2: F(21) = D1: H(21) = A2
970 F(22) = D1: H(22) = C2: F(23) = D1: H(23) = E2: F(24) = D1: H(24) = D2
980 F(25) = D1: H(25) = B2: GOTO 1130
990 F(1) = A1: H(1) = A2: L(1) = A3: F(2) = B1: H(2) = A2: L(2) = A3
1000 F(3) = A1: H(3) = B2: L(3) = A3: F(4) = B1: H(4) = B2: L(4) = A3
1010 F(5) = A1: H(5) = A2: L(5) = B3: F(6) = B1: H(6) = A2: L(6) = B3
1020 F(7) = A1: H(7) = B2: L(7) = B3: F(8) = B1: H(8) = B2: L(8) = B3
1030 F(9) = A1: H(9) = E2: L(9) = E3: F(10) = B1: H(10) = E2: L(10) = E3
1040 F(11) = E1: H(11) = A2: L(11) = E3: F(12) = E1: H(12) = B2: L(12) = E3


                                       142