Черный А.А. Основы изобретательства и научных исследований
Подождите немного. Документ загружается.
141
9065 LINE (K7(K5) - X0, Y0 - K8(K5))-(J7(K5) - X0, Y0 - J8(K5))
9066 NEXT K5
9071 A$ = ""
9072 A$ = INKEY$: IF A$ = "" THEN 9072
9073 SCREEN 0: CLS : COLOR 2, 0
9074 PRINT "ВВОД I0=75 GOTO 9000-ПОВТОРЕНИЕ ПОСТРОЕНИЯ ГРАФИКА"
9075 PRINT "ВВОД I0=85 GOTO 7000-ПОВТОРЕНИЕ"
9076 PRINT " ВЫЧИСЛЕНИЙ ПОКАЗАТЕЛЕЙ Z(K5)"
9078 PRINT " С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ "
9079 PRINT " И ПОСТРОЕНИЕ ГРАФИКОВ"
9080 PRINT "ВВОД I0=95 GOTO 6830-КОНЕЦ": PRINT
9081 INPUT I0
9082 IF I0 = 75 GOTO 9000
9090 IF I0 = 85 GOTO 7000
9095 IF I0 = 95 GOTO 6830
ПРОГРАММА МАТЕМАТИЧЕСКОГО МОДЕЛИРОВАНИЯ VN0 ДЛЯ
СЛУЧАЕВ ПЛАНИРОВАНИЯ 3
1
(Х = 3), 4
1
(Х = 4),
5
1
(Х = 5), 3
2
(Х = 9), 3 ⋅ 4 (Х = 12), 3 ⋅ 5 (Х = 15), 4
2
(Х = 16),
4 ⋅ 5 (Х = 20), 5
2
(Х = 25), 3
3
(Х = 27)
5 PRINT "ПРОГРАММА VN0,РАЗРАБОТКА А.А.ЧЕРНОГО"
6 CLS
7 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ VN0"
8 PRINT "ЗАНОСЯТСЯ В ФАЙЛ,ИМЯ КОТОРОГО НАДО ВВЕСТИ,"
9 PRINT "НАПРИМЕР, ВВЕСТИ ИМЯ ФАЙЛА VN01"
10 INPUT "ВВОД ИМЕНИ ФАЙЛА ", FA$
14 OPEN "O", #1, FA$
17 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ VN0 ЗАНОСЯТСЯ В ФАЙЛ "; FA$
40 PRINT " РАЗРАБОТКИ ДЛЯ X=3,X=4,X=5,X=9,X=12,X=15,X=16,X=20,X=25,X=27"
41 PRINT #1, "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ VN0, РАЗРАБОТАННОЙ А.А. ЧЕРНЫМ"
42 DIM F(50), H(50), L(50), Y(27), I(50), K(50), M(50), P(50)
44 DIM Q(50), U(50), V(50), O(27), B(27), Z(50), G(20), T(27)
46 DIM K6(50), K7(50), K8(50), J7(50), J8(50), J9(50)
51 PRINT "ВВОД X-КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ "
52 PRINT #1, "КОЛИЧЕСТВО ОПЫТОВ
ПО ПЛАНУ "
60 INPUT X: PRINT #1, "X="; X
61 PRINT #1, "ВЕЛИЧИНЫ ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
62 PRINT "ВВОД ВЕЛИЧИН ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
65 IF X = 4 GOTO 200
70 IF X = 16 GOTO 200
80 IF X = 20 GOTO 200
90 IF X = 5 GOTO 270
100 IF X = 25 GOTO 270
120 PRINT "ВВОД A1,E1,B1,J1,O1": INPUT A1, E1, B1, J1, O1
130 PRINT #1, "A1="; A1; " E1="; E1; " B1="; B1
133 PRINT #1, "J1="; J1; " O1="; O1: A = A1: B = B1: E = E1: N = J1: R = O1
140 GOSUB 3660: V1 = V0: U1 = U0: Q1 = Q0
144 PRINT #1, "V1="; V1; " U1="; U1; " Q1="; Q1
150 IF X = 9 GOTO 350
160 IF X = 27 GOTO 350
170 IF X = 12 GOTO 400
180 IF X = 15 GOTO 460
190 IF X = 3 GOTO 590
200 PRINT "ВВОД A1,C1,D1,B1,J1,O1,P1"
210 INPUT A1, C1, D1, B1, J1, O1, P1
213 PRINT #1, "A1="; A1; " C1="; C1; " D1="; D1
215 PRINT #1, " B1="; B1; " J1="; J1; " O1="; O1; " P1="; P1
220 A = A1: B = B1: C = C1: D = D1: N = J1: R = O1: S = P1: GOSUB 3710
142
230 V1 = V0: U1 = U0: Q1 = Q0: I1 = I0: M1 = M0: F1 = F0
240 PRINT #1, "V1="; V1; " U1="; U1; " Q1="; Q1
243 PRINT #1, " I1="; I1; " M1="; M1; " F1="; F1
245 IF X = 16 GOTO 400
250 IF X = 20 GOTO 460
260 IF X = 4 GOTO 600
270 PRINT "ВВОД A1,C1,E1,D1,B1,J1,O1,P1,T1"
280 INPUT A1, C1, E1, D1, B1, J1, O1, P1, T1
290 PRINT #1, "A1="; A1; " C1="; C1; " E1="; E1
293 PRINT #1, "D1="; D1; " B1="; B1; " J1="; J1
295 PRINT #1, "O1="; O1; " P1="; P1; " T1="; T1: A = A1: B = B1
300 C = C1: D = D1: E = E1: N = J1: R = O1: S = P1: W = T1: GOSUB 3860
310 V1 = V0: U1 = U0: Q1 = Q0: I1 = I0: M1 = M0: F1 = F0: G1 = G0: H1 = H0
320 K1 = K0: L1 = L0: PRINT #1, "V1="; V1; " U1="; U1; " Q1="; Q1
323 PRINT #1, "I1="; I1; " M1="; M1; " F1="; F1; " G1="; G1
325 PRINT #1, "H1="; H1; " K1="; K1; " L1="; L1
330 IF X = 25 GOTO 460
340 IF X = 5 GOTO 610
350 PRINT "ВВОД A2,E2,B2,J2,O2": INPUT A2, E2, B2, J2, O2
360 PRINT #1, "A2="; A2; " E2="; E2; " B2="; B2
363 PRINT #1, "J2="; J2; " O2="; O2
365 A = A2: B = B2: E = E2: N = J2: R = O2
370 GOSUB 3660: V2 = V0: U2 = U0: Q2 = Q0
375 PRINT #1, "V2="; V2; " U2="; U2; " Q2="; Q2
380 IF X = 27 GOTO 550
390 IF X = 9 GOTO 620
400 PRINT "ВВОД A2,C2,D2,B2,J2,O2,P2"
410 INPUT A2, C2, D2, B2, J2, O2, P2: PRINT #1, "A2="; A2
413 PRINT #1, "C2="; C2; " D2="; D2; " B2="; B2; " J2="; J2
415 PRINT #1, "O2="; O2; "P2="; P2
420 A = A2: B = B2: C = C2: D = D2: N = J2: R = O2: S = P2: GOSUB 3710
430 V2 = V0: U2 = U0: Q2 = Q0: I2 = I0: M2 = M0: F2 = F0
440 PRINT #1, "V2="; V2; " U2="; U2; " Q2="; Q2; " I2="; I2
443 PRINT #1, "M2="; M2; " F2="; F2
445 IF X = 12 GOTO 660
450 IF X = 16 GOTO 770
460 PRINT "ВВОД A2,C2,E2,D2,B2,J2,O2,P2,T2"
470 INPUT A2, C2, E2, D2, B2, J2, O2, P2, T2
480 PRINT #1, "A2="; A2; " C2="; C2; " E2="; E2; " D2="; D2
483 PRINT #1, "B2="; B2; " J2="; J2; " O2="; O2
485 PRINT #1, "P2="; P2; " T2="; T2: A = A2: B = B2
490 C = C2: D = D2: E = E2: N = J2: R = O2: S = P2: W = T2: GOSUB 3860
500 V2 = V0: U2 = U0: Q2 = Q0: I2 = I0: M2 = M0: F2 = F0: G2 = G0: H2 = H0
510 K2 = K0: L2 = L0: PRINT #1, "V2="; V2; "U2="; U2; "Q2="; Q2
513 PRINT #1, "I2="; I2; " M2="; M2; " F2="; F2; " G2="; G2
515 PRINT #1, "H2="; H2; " K2="; K2; " L2="; L2
520 IF X = 15 GOTO 710
530 IF X = 20 GOTO 830
540 IF X = 25 GOTO 900
550 PRINT "ВВОД A3,E3,B3,J3,O3"
555 INPUT A3, E3, B3, J3, O3
560 PRINT #1, "A3="; A3; " E3="; E3; " B3="; B3
563 PRINT #1, "J3="; J3; " O3="; O3
565 A = A3: B = B3: E = E3: N = J3: R = O3
570 GOSUB 3660: V3 = V0: U3 = U0: Q3 = Q0
575 PRINT #1, "V3="; V3; " U3="; U3; " Q3="; Q3
580 GOTO 990
589 REM ПЛАНЫ
590 F(1) = A1: F(2) = B1: F(3) = E1: GOTO 1130
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
143
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
1050 F(13) = E1: H(13) = E2: L(13) = A3: F(14) = E1: H(14) = E2: L(14) = B3
1060 F(15) = A1: H(15) = A2: L(15) = E3: F(16) = B1: H(16) = A2: L(16) = E3
1070 F(17) = A1: H(17) = B2: L(17) = E3: F(18) = B1: H(18) = B2: L(18) = E3
1080 F(19) = A1: H(19) = E2: L(19) = A3: F(20) = B1: H(20) = E2: L(20) = A3
1090 F(21) = A1: H(21) = E2: L(21) = B3: F(22) = B1: H(22) = E2: L(22) = B3
1100 F(23) = E1: H(23) = A2: L(23) = A3: F(24) = E1: H(24) = B2: L(24) = A3
1110 F(25) = E1: H(25) = A2: L(25) = B3: F(26) = E1: H(26) = B2: L(26) = B3
1120 F(27) = E1: H(27) = E2: L(27) = E3
1130 PRINT "IF I0=6 GOTO 40-НАЧАЛО"
1135 PRINT "IF I0=7 GOTO 1160-ПРОДОЛЖЕНИЕ"
1140 INPUT I0: IF I0 = 6 GOTO 40
1150 IF I0 = 7 GOTO 1160
1160 PRINT "ВВОД ВЕЛИЧИН ПОКАЗАТЕЛЕЙ ПО ПЛАНУ Y(J) "
1161 PRINT #1, "ВЕЛИЧИНЫ ПОКАЗАТЕЛЕЙ В СООТВЕТСТВИИ С ПЛАНОМ Y(J)"
1165 FOR J = 1 TO X
1166 PRINT "Y("; J; ")": INPUT Y(J)
1170 PRINT #1, "Y("; J; ")="; Y(J): NEXT J
144
1180 PRINT "IF I0=1 GOTO 1160-ПОВТОРЕНИЕ ВВОДА ПОКАЗАТЕЛЕЙ"
1185 PRINT "IF I0=2 GOTO 1210-ПРОДОЛЖЕНИЕ"
1190 PRINT "ВВОД I0": INPUT I0: IF I0 = 1 GOTO 1160
1200 IF I0 = 2 GOTO 1210
1210 IF X = 3 GOTO 1310
1220 IF X = 4 GOTO 1320
1230 IF X = 5 GOTO 1330
1240 IF X = 9 GOTO 1340
1250 IF X = 12 GOTO 1350
1260 IF X = 15 GOTO 1360
1270 IF X = 16 GOTO 1370
1280 IF X = 20 GOTO 1380
1290 IF X = 25 GOTO 1390
1300 IF X = 27 GOTO 1400
1310 GOSUB 4150: GOTO 1410
1320 GOSUB 4210: GOTO 1410
1330 GOSUB 4290: GOTO 1410
1340 GOSUB 4150: GOSUB 4170: GOTO 1410
1350 GOSUB 4150: GOSUB 4250: GOTO 1410
1360 GOSUB 4150: GOSUB 4340: GOTO 1410
1370 GOSUB 4210: GOSUB 4250: GOTO 1410
1380 GOSUB 4210: GOSUB 4340: GOTO 1410
1390 GOSUB 4290: GOSUB 4340: GOTO 1410
1400 GOSUB 4150: GOSUB 4170: GOSUB 4190: GOTO 1410
1410 S = 0: O(1) = 0: FOR J = 1 TO X: S = S + Y(J): O(1) = O(1) + 1: NEXT J
1420 B(1) = S / O(1): S = 0: O(2) = 0: FOR J = 1 TO X: S = S + I(J) * Y(J)
1430 O(2) = O(2) + I(J) ^ 2: NEXT J: B(2) = S / O(2): S = 0: O(3) = 0
1440 FOR J = 1 TO X: S = S + K(J) * Y(J): O(3) = O(3) + K(J) ^ 2: NEXT J
1450 B(3) = S / O(3): IF X = 3 GOTO 2390
1460 IF X = 4 GOTO 2000
1470 IF X = 5 GOTO 2000
1480 S = 0: O(4) = 0: FOR J = 1 TO X: S = S + P(J) * Y(J)
1490 O(4) = O(4) + P(J) ^ 2: NEXT J: B(4) = S / O(4): S = 0: O(5) = 0
1500 FOR J = 1 TO X: S = S + I(J) * P(J) * Y(J): O(5) = O(5) + (I(J) * P(J)) ^ 2
1510 NEXT J: B(5) = S / O(5): S = 0: O(6) = 0: FOR J = 1 TO X
1520 S = S + Q(J) * Y(J): O(6) = O(6) + Q(J) ^ 2: NEXT J: B(6) = S / O(6)
1530 S = 0: O(7) = 0: FOR J = 1 TO X: S = S + I(J) * Q(J) * Y(J)
1540 O(7) = O(7) + (I(J) * Q(J)) ^ 2: NEXT J: B(7) = S / O(7): S = 0
1550 O(8) = 0: FOR J = 1 TO X: S = S + P(J) * K(J) * Y(J)
1560 O(8) = O(8) + (P(J) * K(J)) ^ 2: NEXT J: B(8) = S / O(8): S = 0: O(9) = 0
1570 FOR J = 1 TO X: S = S + K(J) * Q(J) * Y(J): O(9) = O(9) + (K(J) * Q(J)) ^ 2
1580 NEXT J: B(9) = S / O(9): IF X = 9 GOTO 2390
1590 IF X = 27 GOTO 2040
1600 S = 0: O(10) = 0: FOR J = 1 TO X: S = S + U(J) * Y(J): O(10) = O(10) + U(J) ^ 2
1610 NEXT J: B(10) = S / O(10): S = 0: O(11) = 0: FOR J = 1 TO X
1620 S = S + I(J) * U(J) * Y(J): O(11) = O(11) + (I(J) * U(J)) ^ 2: NEXT J
1630 B(11) = S / O(11): S = 0: O(12) = 0: FOR J = 1 TO X: S = S + K(J) * U(J) * Y(J)
1640 O(12) = O(12) + (K(J) * U(J)) ^ 2: NEXT J: B(12) = S / O(12)
1650 IF X = 12 GOTO 2390
1660 IF X = 16 GOTO 1930
1670 S = 0: O(13) = 0: FOR J = 1 TO X: S = S + V(J) * Y(J)
1680 O(13) = O(13) + V(J) ^ 2: NEXT J: B(13) = S / O(13): S = 0: O(14) = 0
1690 FOR J = 1 TO X: S = S + I(J) * V(J) * Y(J): O(14) = O(14) + (I(J) * V(J)) ^ 2
1700 NEXT J: B(14) = S / O(14): S = 0: O(15) = 0: FOR J = 1 TO X
1710 S = S + K(J) * V(J) * Y(J): O(15) = O(15) + (K(J) * V(J)) ^ 2: NEXT J
1720 B(15) = S / O(15): IF X = 15 GOTO 2390
1730 S = 0: O(16) = 0: FOR J = 1 TO X: S = S + L(J) * Y(J): O(16) = O(16) + L(J) ^ 2
1740 NEXT J: B(16) = S / O(16): S = 0: O(17) = 0: FOR J = 1 TO X
1750 S = S + P(J) * L(J) * Y(J): O(17) = O(17) + (P(J) * L(J)) ^ 2: NEXT J
1760 B(17) = S / O(17): S = 0: O(18) = 0: FOR J = 1 TO X
1770 S = S + Q(J) * L(J) * Y(J): O(18) = O(18) + (Q(J) * L(J)) ^ 2: NEXT J
1780 B(18) = S / O(18): S = 0: O(19) = 0: FOR J = 1 TO X
1790 S = S + L(J) * U(J) * Y(J): O(19) = O(19) + (L(J) * U(J)) ^ 2: NEXT J
145
1800 B(19) = S / O(19): S = 0: O(20) = 0: FOR J = 1 TO X
1810 S = S + L(J) * V(J) * Y(J): O(20) = O(20) + (L(J) * V(J)) ^ 2: NEXT J
1820 B(20) = S / O(20): IF X = 20 GOTO 2390
1830 S = 0: O(21) = 0: FOR J = 1 TO X: S = S + M(J) * Y(J)
1840 O(21) = O(21) + M(J) ^ 2: NEXT J: B(21) = S / O(21): S = 0: O(22) = 0
1850 FOR J = 1 TO X: S = S + P(J) * M(J) * Y(J): O(22) = O(22) + (P(J) * M(J)) ^ 2
1860 NEXT J: B(22) = S / O(22): S = 0: O(23) = 0: FOR J = 1 TO X
1870 S = S + Q(J) * M(J) * Y(J): O(23) = O(23) + (Q(J) * M(J)) ^ 2: NEXT J
1880 B(23) = S / O(23): S = 0: O(24) = 0: FOR J = 1 TO X: S = S + U(J) * M(J) * Y(J)
1890 O(24) = O(24) + (U(J) * M(J)) ^ 2: NEXT J: B(24) = S / O(24): S = 0
1900 O(25) = 0: FOR J = 1 TO X: S = S + M(J) * V(J) * Y(J)
1910 O(25) = O(25) + (M(J) * V(J)) ^ 2: NEXT J: B(25) = S / O(25)
1920 IF X = 25 GOTO 2390
1930 S = 0: O(13) = 0: FOR J = 1 TO X: S = S + L(J) * Y(J): O(13) = O(13) + L(J) ^ 2
1940 NEXT J: B(13) = S / O(13): S = 0: O(14) = 0: FOR J = 1 TO X
1950 S = S + P(J) * L(J) * Y(J): O(14) = O(14) + (P(J) * L(J)) ^ 2: NEXT J
1960 B(14) = S / O(14): S = 0: O(15) = 0: FOR J = 1 TO X: S = S + Q(J) * L(J) * Y(J)
1970 O(15) = O(15) + (Q(J) * L(J)) ^ 2: NEXT J: B(15) = S / O(15): S = 0
1980 O(16) = 0: FOR J = 1 TO X: S = S + L(J) * U(J) * Y(J)
1990 O(16) = O(16) + (L(J) * U(J)) ^ 2: NEXT J: B(16) = S / O(16): GOTO 2390
2000 S = 0: O(4) = 0: FOR J = 1 TO X: S = S + L(J) * Y(J): O(4) = O(4) + L(J) ^ 2
2010 NEXT J: B(4) = S / O(4): IF X = 4 GOTO 2390
2020 S = 0: O(5) = 0: FOR J = 1 TO X: S = S + M(J) * Y(J)
2030 O(5) = O(5) + M(J) ^ 2: NEXT J: B(5) = S / O(5): GOTO 2390
2040 S = 0: O(10) = 0: FOR J = 1 TO X: S = S + U(J) * Y(J)
2050 O(10) = O(10) + U(J) ^ 2: NEXT J: B(10) = S / O(10): S = 0: O(11) = 0
2060 FOR J = 1 TO X: S = S + I(J) * U(J) * Y(J): O(11) = O(11) + (I(J) * U(J)) ^ 2
2070 NEXT J: B(11) = S / O(11): S = 0: O(12) = 0: FOR J = 1 TO X
2080 S = S + P(J) * U(J) * Y(J): O(12) = O(12) + (P(J) * U(J)) ^ 2: NEXT J
2090 B(12) = S / O(12): S = 0: O(13) = 0: FOR J = 1 TO X
2100 S = S + I(J) * P(J) * U(J) * Y(J): O(13) = O(13) + (I(J) * P(J) * U(J)) ^ 2
2110 NEXT J: B(13) = S / O(13): S = 0: O(14) = 0: FOR J = 1 TO X
2120 S = S + V(J) * Y(J): O(14) = O(14) + V(J) ^ 2: NEXT J: B(14) = S / O(14)
2130 S = 0: O(15) = 0: FOR J = 1 TO X: S = S + I(J) * V(J) * Y(J)
2140 O(15) = O(15) + (I(J) * V(J)) ^ 2: NEXT J: B(15) = S / O(15): S = 0
2150 O(16) = 0: FOR J = 1 TO X: S = S + P(J) * V(J) * Y(J)
2160 O(16) = O(16) + (P(J) * V(J)) ^ 2: NEXT J: B(16) = S / O(16): S = 0
2170 O(17) = 0: FOR J = 1 TO X: S = S + U(J) * K(J) * Y(J)
2180 O(17) = O(17) + (U(J) * K(J)) ^ 2: NEXT J: B(17) = S / O(17): S = 0
2190 O(18) = 0: FOR J = 1 TO X: S = S + U(J) * Q(J) * Y(J)
2200 O(18) = O(18) + (U(J) * Q(J)) ^ 2: NEXT J: B(18) = S / O(18): S = 0
2210 O(19) = 0: FOR J = 1 TO X: S = S + I(J) * P(J) * V(J) * Y(J)
2220 O(19) = O(19) + (I(J) * P(J) * V(J)) ^ 2: NEXT J: B(19) = S / O(19)
2230 S = 0: O(20) = 0: FOR J = 1 TO X: S = S + I(J) * U(J) * Q(J) * Y(J)
2240 O(20) = O(20) + (I(J) * U(J) * Q(J)) ^ 2: NEXT J: B(20) = S / O(20)
2250 S = 0: O(21) = 0: FOR J = 1 TO X: S = S + P(J) * U(J) * K(J) * Y(J)
2260 O(21) = O(21) + (P(J) * U(J) * K(J)) ^ 2: NEXT J: B(21) = S / O(21)
2270 S = 0: O(22) = 0: FOR J = 1 TO X: S = S + K(J) * V(J) * Y(J)
2280 O(22) = O(22) + (K(J) * V(J)) ^ 2: NEXT J: B(22) = S / O(22)
2290 S = 0: O(23) = 0: FOR J = 1 TO X: S = S + Q(J) * V(J) * Y(J)
2300 O(23) = O(23) + (Q(J) * V(J)) ^ 2: NEXT J: B(23) = S / O(23)
2310 S = 0: O(24) = 0: FOR J = 1 TO X: S = S + I(J) * Q(J) * V(J) * Y(J)
2320 O(24) = O(24) + (I(J) * Q(J) * V(J)) ^ 2: NEXT J: B(24) = S / O(24)
2330 S = 0: O(25) = 0: FOR J = 1 TO X: S = S + P(J) * K(J) * V(J) * Y(J)
2340 O(25) = O(25) + (P(J) * K(J) * V(J)) ^ 2: NEXT J: B(25) = S / O(25)
2350 S = 0: O(26) = 0: FOR J = 1 TO X: S = S + U(J) * K(J) * Q(J) * Y(J)
2360 O(26) = O(26) + (U(J) * K(J) * Q(J)) ^ 2: NEXT J: B(26) = S / O(26)
2370 S = 0: O(27) = 0: FOR J = 1 TO X: S = S + K(J) * Q(J) * V(J) * Y(J)
2380 O(27) = O(27) + (K(J) * Q(J) * V(J)) ^ 2: NEXT J: B(27) = S / O(27): GOTO 2390
2390 PRINT #1, "B(J) ДО АНАЛИЗА": FOR J = 1 TO X
2395 PRINT #1, "B("; J; ")="; B(J)
2397 NEXT J: GOTO 2400
2400 PRINT "ВВОД N0-КОЛИЧЕСТВО ОПЫТОВ НА СРЕДНЕМ УРОВНЕ ФАКТОРОВ"
146
2407 INPUT N0
2408 PRINT #1, "КОЛИЧЕСТВО ОПЫТОВ НА СРЕДНЕМ УРОВНЕ ФАКТОРОВ"
2410 PRINT #1, "N0="; N0
2415 IF X = 3 GOTO 2510
2420 IF X = 4 GOTO 2520
2430 IF X = 5 GOTO 2530
2440 IF X = 9 GOTO 2540
2450 IF X = 12 GOTO 2550
2460 IF X = 15 GOTO 2560
2470 IF X = 16 GOTO 2570
2480 IF X = 20 GOTO 2580
2490 IF X = 25 GOTO 2590
2500 IF X = 27 GOTO 2600
2510 GOSUB 4390: GOTO 2610
2520 GOSUB 4400: GOTO 2610
2530 GOSUB 4420: GOTO 2610
2540 GOSUB 4450: GOTO 2610
2550 GOSUB 4490: GOTO 2610
2560 GOSUB 4530: GOTO 2610
2570 GOSUB 4580: GOTO 2610
2580 GOSUB 4630: GOTO 2610
2590 GOSUB 4690: GOTO 2610
2600 GOSUB 4770: GOTO 2610
2610 PRINT #1, "РАСЧЕТНЫЕ ВЕЛИЧИНЫ ПОКАЗАТЕЛЕЙ Z(J) ДО АНАЛИЗА B(J)"
2620 FOR J = 1 TO X: PRINT #1, "Z("; J; ")="; Z(J): NEXT J
2630 PRINT "ВВОД F8=N0-1": INPUT F8
2633 PRINT #1, "F8=N0-1="; F8
2635 PRINT "F8="; F8
2640 PRINT #1, "ПРОВЕРКА ПО РАЗНОСТИ Y(J)-Z(J)"
2641 PRINT #1, "В ПРОЦЕНТАХ (Y(J)-Z(J)) * (100/Y(J))"
2650 FOR J = 1 TO X: PRINT #1, "Y("; J; ")-Z("; J; ")="; Y(J) - Z(J)
2651 PRINT #1, "(Y("; J; ")-Z("; J; ")) * (100 / Y("; J; ")) = "; (Y(J) - Z(J)) * (100 / Y(J))
2655 NEXT J
2660 PRINT "IF I0=3 GOTO 2720-ВВОД РЕЗУЛЬТАТОВ ОПЫТОВ "
2663 PRINT " НА СРЕДНЕМ УРОВНЕ ФАКТОРОВ"
2666 PRINT "IF I0=4 GOTO 2770-ВВОД ДИСПЕРСИИ ОПЫТОВ"
2670 PRINT "IF I0=5 GOTO 3240-ПРОВЕРКА ТОЧНОСТИ И "
2672 PRINT " РАСЧEТЫ ПО
МОДЕЛИ"
2773 PRINT "IF I0=6 GOTO 40-НАЧАЛО"
2677 PRINT "IF I0=20 GOTO 6830-КОНЕЦ"
2678 PRINT "IF I0=25 GOTO 4880-МАТЕМАТИЧЕСКАЯ МОДЕЛЬ"
2679 PRINT "IF I0=27 GOTO 7000-ВЫЧИСЛЕНИЯ ПОКАЗАТЕЛЕЙ Z(K5)"
2681 PRINT " С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ И "
2684 PRINT " ПОСТРОЕНИЕ ГРАФИКОВ"
2689 PRINT "ВВОД I0": INPUT I0: IF I0 = 3 GOTO 2720
2690 IF I0 = 4 GOTO 2770
2700 IF I0 = 5 GOTO 3240
2710 IF I0 = 6 GOTO 40
2715 IF I0 = 20 GOTO 6830
2717 IF I0 = 25 GOTO 4880
2718 IF I0 = 27 GOTO 7000
2720 PRINT "ВВОД G(J)-РЕЗУЛЬТАТЫ ОПЫТОВ ";
2721 PRINT "НА СРЕДНЕМ УРОВНЕ ФАКТОРОВ "
2722 PRINT #1, "РЕЗУЛЬТАТЫ ОПЫТОВ ";
2723 PRINT #1, "НА СРЕДНЕМ УРОВНЕ ФАКТОРОВ "
2724 FOR J = 1 TO N0: PRINT "G("; J; ")": INPUT G(J)
2730 PRINT #1, "G("; J; ")="; G(J): NEXT J: S = 0: FOR J = 1 TO N0: S = S + G(J)
2740 NEXT J: S0 = S / N0: PRINT "S0="; S0: S = 0: FOR J = 1 TO N0
2750 S = S + (G(J) - S0) ^ 2: NEXT J: U9 = S / F8
2751 PRINT #1, "ДИСПЕРСИЯ ОПЫТОВ U9="; U9
2760 GOTO 2780
2770 PRINT "ВВОД U9-ДИСПЕРСИЯ ОПЫТОВ": INPUT U9
2771 PRINT #1, "ДИСПЕРСИЯ ОПЫТОВ U9="; U9
147
2780 PRINT #1, "РАСЧЕТНЫЕ ВЕЛИЧИНЫ T(J)": FOR J = 1 TO X
2790 T(J) = ABS(B(J) / SQR(U9 / O(J))): PRINT #1, "T("; J; ")="; T(J): NEXT J
2800 PRINT " ДЛЯ УРОВНЯ ЗНАЧИМОСТИ 5% "
2801 PRINT " ПРИ F8 2 ; 3 ; 4 ; 5 ; 6"
2802 PRINT "СООТВЕТСТВЕННО T0 4.303 ;3.182 ;2.776 ;2.571 ;2.447"
2803 PRINT "F8=N0-1="; N0; "-1="; F8
2804 PRINT "ВВОД T0-ТАБЛИЧНЫЙ Т-КРИТЕРИЙ"
2805 INPUT T0
2806 PRINT #1, "ТАБЛИЧНЫЙ Т-КРИТЕРИЙ T0="; T0
2810 PRINT #1, "B(J) ПОСЛЕ АНАЛИЗА": FOR J = 1 TO X
2820 IF T(J) < T0 GOTO 2840
2830 IF T(J) >= T0 GOTO 2850
2840 B(J) = 0
2850 PRINT #1, "B("; J; ")="; B(J): NEXT J
2860 K9 = 0: FOR J = 1 TO X: IF B(J) = 0 GOTO 2871
2870 K9 = K9 + 1
2871 NEXT J
2872 PRINT #1, "КОЛИЧЕСТВО СТАТИСТИЧЕСКИ ЗНАЧИМЫХ"
2873 PRINT #1, " КОЭФФИЦИЕНТОВ РЕГРЕССИИ K9="; K9
2881 PRINT #1, "F9=X-1": F9 = X - 1
2882 PRINT #1, "F9="; F9: CLS
2883 PRINT "! ! ЗНАЧЕНИЯ F-КРИТЕРИЯ F7 ДЛЯ 5%-ГО УРОВНЯ ЗНАЧИМОСТИ"
2884 PRINT "! !---------------------------------------------------"
2885 PRINT "!F8! F9 "
2886 PRINT "! !---------------------------------------------------"
2887 PRINT "! ! 2 ! 3 ! 4 ! 8 ! 11 ! 14 "
2888 PRINT "-------------------------------------------------------"
2889 PRINT "! 2! 19.0 ! 19.16 ! 19.25 ! 19.37 ! 19.4 ! 19.42 "
2890 PRINT "! 3! 9.55 ! 9.28 ! 9.12 ! 8.84 ! 8.76 ! 8.71 "
2891 PRINT "! 4! 6.94 ! 6.59 ! 6.39 ! 6.04 ! 5.93 ! 5.87 "
2892 PRINT "! 5! 5.79 ! 5.41 ! 5.19 ! 4.82 ! 4.7 ! 4.64 "
2893 PRINT "! 6! 5.14 ! 4.76 ! 4.53 ! 4.15 ! 4.03 ! 3.96 "
2894 PRINT "!======================================================"
2895 PRINT "! F8 \ F9 ! 15...16 ! 19...20 ! 24 ! 26...30 !"
2896 PRINT "!------------------------------------------------------"
2897 PRINT "! 2 ! 19.43 ! 19.44 ! 19.45 ! 19.46 !"
2898 PRINT "! 3 ! 8.69 ! 8.66 ! 8.64 ! 8.62 !"
2899 PRINT "! 4 ! 5.84 ! 5.8 ! 5.77 ! 5.74 !"
2900 PRINT "! 5 ! 4.6 ! 4.56 ! 4.53 ! 4.5 !"
2901 PRINT "! 6 ! 3.92 ! 3.87 ! 3.84 ! 3.81 !"
2902 PRINT "-------------------------------------------------------"
2907 PRINT "F8="; F8; "F9="; F9
2908 PRINT "ВВОД F7-ТАБЛИЧНЫЙ F-
КРИТЕРИЙ"
2909 INPUT F7: PRINT #1, "ТАБЛИЧНЫЙ F-КРИТЕРИЙ F7="; F7
2910 IF X = 3 GOTO 3010
2920 IF X = 4 GOTO 3020
2930 IF X = 5 GOTO 3030
2940 IF X = 9 GOTO 3040
2950 IF X = 12 GOTO 3050
2960 IF X = 15 GOTO 3060
2970 IF X = 16 GOTO 3070
2980 IF X = 20 GOTO 3080
2990 IF X = 25 GOTO 3090
3000 IF X = 27 GOTO 3100
3010 GOSUB 4390: GOTO 3110
3020 GOSUB 4400: GOTO 3110
3030 GOSUB 4420: GOTO 3110
3040 GOSUB 4450: GOTO 3110
3050 GOSUB 4490: GOTO 3110
3060 GOSUB 4530: GOTO 3110
3070 GOSUB 4580: GOTO 3110
3080 GOSUB 4630: GOTO 3110
3090 GOSUB 4690: GOTO 3110
148
3100 GOSUB 4770: GOTO 3110
3110 PRINT #1, "РАСЧЕТНЫЕ ВЕЛИЧИНЫ ПОКАЗАТЕЛЯ";
3115 PRINT #1, " Z(J) ПОСЛЕ АНАЛИЗА B(J)"
3120 FOR J = 1 TO X: PRINT #1, "Z("; J; ")="; Z(J): NEXT J
3121 PRINT #1, "ПРОВЕРКА ПО РАЗНОСТИ Y(J)-Z(J)"
3122 PRINT #1, "В ПРОЦЕНТАХ (Y(J)-Z(J)) * (100/Y(J))"
3123 FOR J = 1 TO X: PRINT #1, "Y("; J; ")-Z("; J; ")="; Y(J) - Z(J)
3124 PRINT #1, "(Y("; J; ")-Z("; J; ")) * (100 / Y("; J; ")) = "; (Y(J) - Z(J)) * (100 / Y(J))
3125 NEXT J
3130 S = 0: FOR J = 1 TO X: S = S + (Z(J) - Y(J)) ^ 2: NEXT J
3140 F6 = S / (F9 * U9)
3145 PRINT #1, "РАСЧЕТНАЯ ВЕЛИЧИНА F-КРИТЕРИЯ F6="; F6
3150 IF F6 <= F7 GOTO 3170
3160 IF F6 > F7 GOTO 3180
3170 PRINT #1, "АДЕКВАТНО,ТАК КАК F6<=F7": GOTO 3190
3180 PRINT #1, "НЕАДЕКВАТНО,ТАК КАК F6>F7"
3190 PRINT "IF I0=7 GOTO 3240-ПРОВЕРКА ТОЧНОСТИ И "
3193 PRINT " РАСЧЕТЫ ПО МОДЕЛИ"
3194 PRINT "IF I0=8 GOTO 40-НАЧАЛО"
3197 PRINT "IF I0=17 GOTO 4880-МАТЕМАТИЧЕСКАЯ МОДЕЛЬ"
3198 PRINT "IF I0=22 GOTO 7000-ВЫЧИСЛЕНИЯ ПОКАЗАТЕЛЕЙ Z(K5)"
3200 PRINT " С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ И "
3203 PRINT " ПОСТРОЕНИЕ ГРАФИКОВ"
3207 PRINT "IF I0=9 GOTO 6830-КОНЕЦ": PRINT "
ВВОД I0": INPUT I0
3210 IF I0 = 7 GOTO 3240
3220 IF I0 = 8 GOTO 40
3227 IF I0 = 17 GOTO 4880
3228 IF I0 = 22 GOTO 7000
3230 IF I0 = 9 GOTO 6830
3240 PRINT "ПРОВЕРКА ТОЧНОСТИ И РАСЧЕТЫ ПО МОДЕЛИ"
3241 PRINT "F(S),H(S),L(S)-1, 2, 3-й ФАКТОРЫ,"
3243 PRINT "ГДЕ S=X="; X; "-КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ"
3245 PRINT #1, "РАСЧЕТЫ ПО МОДЕЛИ"
3250 IF X = 3 GOTO 3350
3260 IF X = 4 GOTO 3350
3270 IF X = 5 GOTO 3350
3280 IF X = 9 GOTO 3420
3290 IF X = 12 GOTO 3420
3300 IF X = 15 GOTO 3420
3310 IF X = 16 GOTO 3420
3320 IF X = 20 GOTO 3420
3330 IF X = 25 GOTO 3420
3340 IF X = 27 GOTO 3560
3350 FOR S = 1 TO X: F(S) = 0: Z(S) = 0: PRINT "ВВОД F("; S; ")"
3360 INPUT F(S): PRINT #1, "ФАКТОР F("; S; ")="; F(S)
3365 IF X = 3 GOTO 3390
3370 IF X = 4 GOTO 3400
3380 IF X = 5 GOTO 3410
3390 GOSUB 4150: GOSUB 4390: GOTO 3412
3400 GOSUB 4210: GOSUB 4400: GOTO 3412
3410 GOSUB 4290: GOSUB 4420: GOTO 3412
3412 PRINT #1, "Z("; S; ")="; Z(S): NEXT S: GOTO 3610
3420 FOR S = 1 TO X: F(S) = 0: H(S) = 0: Z(S) = 0
3430 PRINT "ВВОД F("; S; "),H("; S; ")": INPUT F(S), H(S)
3432 PRINT #1, " ФАКТОРЫ F("; S; ")="; F(S); "H("; S; ")="; H(S)
3440 IF X = 9 GOTO 3500
3450 IF X = 12 GOTO 3510
3460 IF X = 15 GOTO 3520
3470 IF X = 16 GOTO 3530
3480 IF X = 20 GOTO 3540
3490 IF X = 25 GOTO 3550
3500 GOSUB 4150: GOSUB 4170: GOSUB 4450: GOTO 3552
3510 GOSUB 4150: GOSUB 4250: GOSUB 4490: GOTO 3552
149
3520 GOSUB 4150: GOSUB 4340: GOSUB 4530: GOTO 3552
3530 GOSUB 4210: GOSUB 4250: GOSUB 4580: GOTO 3552
3540 GOSUB 4210: GOSUB 4340: GOSUB 4630: GOTO 3552
3550 GOSUB 4290: GOSUB 4340: GOSUB 4690: GOTO 3552
3552 PRINT #1, "Z("; S; ")="; Z(S): NEXT S: GOTO 3610
3560 FOR S = 1 TO X: F(S) = 0: H(S) = 0: L(S) = 0: Z(S) = 0
3570 PRINT "ВВОД F("; S; "),H("; S; "),L("; S; ")"
3572 INPUT F(S), H(S), L(S): PRINT #1, "ФАКТОР F("; S; ")="; F(S)
3574 PRINT #1, "ФАКТОРЫ H("; S; ")="; H(S); "L("; S; ")="; L(S)
3580 GOSUB 4150: GOSUB 4170: GOSUB 4190: GOSUB 4770: GOTO 3590
3590 PRINT #1, "Z("; S; ")="; Z(S): NEXT S: GOTO 3610
3610 PRINT "IF I0=10 GOTO 3240-ПРОВЕРКА ТОЧНОСТИ И ";
3611 PRINT "РАСЧЕТЫ ПО МОДЕЛИ"
3612 PRINT "IF I0=11 GOTO 4880 - МАТЕМАТИЧЕСКАЯ МОДЕЛЬ"
3615 PRINT "IF I0=14 GOTO 7000-ВЫЧИСЛЕНИЯ ПОКАЗАТЕЛЕЙ Z(K5)"
3616 PRINT " С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ И "
3617 PRINT " ПОСТРОЕНИЕ ГРАФИКОВ"
3620 PRINT "IF I0=12 GOTO 6830-КОНЕЦ"
3625 PRINT "ВВОД I0": INPUT I0
3630 IF I0 = 10 GOTO 3240
3640 IF I0 = 11 GOTO 4880
3650 IF I0 = 12 GOTO 6830
3653 IF I0 = 14 GOTO 7000
3660 N0 = (A ^ N + B ^ N + E ^ N) / 3: R0 = (A ^ R + B ^ R + E ^ R) / 3
3670 L2 = 2 * N: N3 = (A ^ L2 + B ^ L2 + E ^ L2) / 3: N4 = N + R
3680 N5 = (A ^ N4 + B ^ N4 + E ^ N4) / 3: V0 = -N0
3690 U0 = (N0 * R0 - N5) / (N3 - N0 ^ 2): Q0 = -(R0 + U0 * N0)
3700 PRINT #1, "КОЭФФИЦИЕНТЫ ОРТОГОНАЛИЗАЦИИ": RETURN
3710 N0 = (A ^ N + B ^ N + C ^ N + D ^ N) / 4
3720 R0 = (A ^ R + B ^ R + C ^ R + D ^ R) / 4
3730 S0 = (A ^ S + B ^ S + C ^ S + D ^ S) / 4: L2 = 2 * N
3740 N3 = (A ^ L2 + B ^ L2 + C ^ L2 + D ^ L2) / 4: K2 = 2 * R
3750 R3 = (A ^ K2 + B ^ K2 + C ^ K2 + D ^ K2) / 4: N4 = N + R
3760 N5 = (A ^ N4 + B ^ N4 + C ^ N4 + D ^ N4) / 4: N6 = N + S
3770 N7 = (A ^ N6 + B ^ N6 + C ^ N6 + D ^ N6) / 4: R4 = R + S
3780 R5 = (A ^ R4 + B ^ R4 + C ^ R4 + D ^ R4) / 4: V0 = -N0
3790 U0 = (N0 * R0 - N5) / (N3 - N0 ^ 2): Q0 = -(R0 + U0 * N0)
3800 P0 = (N0 * S0 - N7) / (N3 - N0 ^ 2): Z1 = R0 * S0 - R5 + P0 * (N0 * R0 - N5)
3810 Z2 = U0 * (N0 * S0 - N7) + U0 * P0 * (N0 ^ 2 - N3)
3820 Z3 = R3 - R0 ^ 2 + 2 * U0 * (N5 - N0 * R0)
3830 I0 = (Z1 + Z2) / (Z3 + (N3 - N0 ^ 2) * U0 ^ 2): M0 = I0 * U0 + P0
3840 F0 = -(S0 + I0 * R0 + M0 * N0)
3850 PRINT #1, "КОЭФФИЦИЕНТЫ ОРТОГОНАЛИЗАЦИИ": RETURN
3860 N0 = (A ^ N + B ^ N + C ^ N + D ^ N + E ^ N) / 5
3870 R0 = (A ^ R + B ^ R + C ^ R + D ^ R + E ^ R) / 5
3880 S0 = (A ^ S + B ^ S + C ^ S + D ^ S + E ^ S) / 5
3890 W0 = (A ^ W + B ^ W + C ^ W + D ^ W + E ^ W) / 5
3900 L2 = 2 * N: N3 = (A ^ L2 + B ^ L2 + C ^ L2 + D ^ L2 + E ^ L2) / 5
3910 K2 = 2 * R: R3 = (A ^ K2 + B ^ K2 + C ^ K2 + D ^ K2 + E ^ K2) / 5
3920 M2 = 2 * S: S3 = (A ^ M2 + B ^ M2 + C ^ M2 + D ^ M2 + E ^ M2) / 5
3930 N4 = N + R: N5 = (A ^ N4 + B ^ N4 + C ^ N4 + D ^ N4 + E ^ N4) / 5
3940 N6 = N + S: N7 = (A ^ N6 + B ^ N6 + C ^ N6 + D ^ N6 + E ^ N6) / 5
3950 N8 = N + W: N9 = (A ^ N8 + B ^ N8 + C ^ N8 + D ^ N8 + E ^ N8) / 5
3960 R4 = R + S: R5 = (A ^ R4 + B ^ R4 + C ^ R4 + D ^ R4 + E ^ R4) / 5
3970 R6 = R + W: R7 = (A ^ R6 + B ^ R6 + C ^ R6 + D ^ R6 + E ^ R6) / 5
3980 S4 = S + W: S5 = (A ^ S4 + B ^ S4 + C ^ S4 + D ^ S4 + E ^ S4) / 5
3990 V0 = -N0: U0 = (N0 * R0 - N5) / (N3 - N0 ^ 2): Q0 = -(R0 + U0 * N0)
4000 P0 = (N0 * S0 - N7) / (N3 - N0 ^ 2): Z1 = R0 * S0 - R5 + P0 * (N0 * R0 - N5)
4010 Z2 = U0 * (N0 * S0 - N7) + U0 * P0 * (N0 ^ 2 - N3)
4020 Z3 = R3 - R0 ^ 2 + 2 * U0 * (N5 - N0 * R0)
4030 I0 = (Z1 + Z2) / (Z3 + (N3 - N0 ^ 2) * U0 ^ 2): M0 = I0 * U0 + P0
4040 F0 = -(S0 + I0 * R0 + M0 * N0): Z4 = R0 + U0 * N0
4050 Z5 = Z4 * N0 - N5 - U0 * N3: Z6 = R3 + U0 * N5 - Z4 * R0 - Z5 * U0
150
4060 Z7 = Z4 * S0 + Z5 * P0 - R5 - U0 * N7: Z0 = (N0 * W0 - N9) / (N3 - N0 ^ 2)
4070 Z8 = Z5 * Z0 + Z4 * W0 - R7 - U0 * N9: Z9 = S3 + I0 * R5 + M0 * N7
4080 T7 = R5 + I0 * R3 + M0 * N5: T8 = N7 + I0 * N5 + M0 * N3
4090 T9 = S0 + I0 * R0 + M0 * N0: G3 = S5 + I0 * R7 + M0 * N9
4100 G4 = T9 * N0 - T8: G5 = Z9 - T9 * S0 - G4 * P0
4110 G6 = T9 * R0 - T7 + G4 * U0: G7 = G4 * Z0 + T9 * W0 - G3
4120 G0 = (Z6 * G7 + Z8 * G6) / (Z6 * G5 - Z7 * G6): H0 = (G0 * Z7 + Z8) / Z6
4130 K0 = G0 * P0 + H0 * U0 + Z0: L0 = -(W0 + G0 * S0 + H0 * R0 + K0 * N0)
4140 PRINT #1, "КОЭФФИЦИЕНТЫ ОРТОГОНАЛИЗАЦИИ": RETURN
4150 FOR J = 1 TO X: I(J) = F(J) ^ J1 + V1
4160 K(J) = F(J) ^ O1 + U1 * F(J) ^ J1 + Q1: NEXT J: RETURN
4170 FOR J = 1 TO X: P(J) = H(J) ^ J2 + V2
4180 Q(J) = H(J) ^ O2 + U2 * H(J) ^ J2 + Q2: NEXT J: RETURN
4190 FOR J = 1 TO X: U(J) = L(J) ^ J3 + V3
4200 V(J) = L(J) ^ O3 + U3 * L(J) ^ J3 + Q3: NEXT J: RETURN
4210 FOR J = 1 TO X: I(J) = F(J) ^ J1 + V1
4220 K(J) = F(J) ^ O1 + U1 * F(J) ^ J1 + Q1
4230 L(J) = F(J) ^ P1 + I1 * F(J) ^ O1 + M1 * F(J) ^ J1 + F1: NEXT J
4240 RETURN
4250 FOR J = 1 TO X: P(J) = H(J) ^ J2 + V2
4260 Q(J) = H(J) ^ O2 + U2 * H(J) ^ J2 + Q2
4270 U(J) = H(J) ^ P2 + I2 * H(J) ^ O2 + M2 * H(J) ^ J2 + F2: NEXT J
4280 RETURN
4290 FOR J = 1 TO X: I(J) = F(J) ^ J1 + V1
4300 K(J) = F(J) ^ O1 + U1 * F(J) ^ J1 + Q1
4310 L(J) = F(J) ^ P1 + I1 * F(J) ^ O1 + M1 * F(J) ^ J1 + F1
4320 M(J) = F(J) ^ T1 + G1 * F(J) ^ P1 + H1 * F(J) ^ O1 + K1 * F(J) ^ J1 + L1
4330 NEXT J: RETURN
4340 FOR J = 1 TO X: P(J) = H(J) ^ J2 + V2
4350 Q(J) = H(J) ^ O2 + U2 * H(J) ^ J2 + Q2
4360 U(J) = H(J) ^ P2 + I2 * H(J) ^ O2 + M2 * H(J) ^ J2 + F2
4370 V(J) = H(J) ^ T2 + G2 * H(J) ^ P2 + H2 * H(J) ^ O2 + K2 * H(J) ^ J2 + L2
4380 NEXT J: RETURN
4390 FOR J = 1 TO X: Z(J) = B(1) + B(2) * I(J) + B(3) * K(J): NEXT J: RETURN
4400 FOR J = 1 TO X: Z(J) = B(1) + B(2) * I(J) + B(3) * K(J) + B(4) * L(J)
4410 NEXT J: RETURN
4420 FOR J = 1 TO X
4430 Z(J) = B(1) + B(2) * I(J) + B(3) * K(J) + B(4) * L(J) + B(5) * M(J)
4440 NEXT J: RETURN
4450 FOR J = 1 TO X: N3 = B(1) + B(2) * I(J) + B(3) * K(J) + B(4) * P(J)
4460 N4 = B(5) * I(J) * P(J) + B(6) * Q(J) + B(7) * I(J) * Q(J)
4470 N5 = B(8) * P(J) * K(J) + B(9) * K(J) * Q(J)
4480 Z(J) = N3 + N4 + N5: NEXT J: RETURN
4490 FOR J = 1 TO X: N3 = B(1) + B(2) * I(J) + B(3) * K(J) + B(4) * P(J)
4500 N4 = B(5) * I(J) * P(J) + B(6) * Q(J) + B(7) * I(J) * Q(J) + B(8) * P(J) * K(J)
4510 N5 = B(9) * K(J) * Q(J) + B(10) * U(J) + B(11) * I(J) * U(J)
4520 Z(J) = N3 + N4 + N5 + B(12) * K(J) * U(J): NEXT J: RETURN
4530 FOR J = 1 TO X: N3 = B(1) + B(2) * I(J) + B(3) * K(J) + B(4) * P(J)
4540 N4 = B(5) * I(J) * P(J) + B(6) * Q(J) + B(7) * I(J) * Q(J) + B(8) * P(J) * K(J)
4550 N5 = B(9) * K(J) * Q(J) + B(10) * U(J) + B(11) * I(J) * U(J)
4560 N6 = B(12) * K(J) * U(J) + B(13) * V(J) + B(14) * I(J) * V(J)
4570 Z(J) = N3 + N4 + N5 + N6 + B(15) * K(J) * V(J): NEXT J: RETURN
4580 FOR J = 1 TO X: N3 = B(1) + B(2) * I(J) + B(3) * K(J) + B(4) * P(J)
4590 N4 = B(5) * I(J) * P(J) + B(6) * Q(J) + B(7) * I(J) * Q(J) + B(8) * P(J) * K(J)
4600 N5 = B(9) * K(J) * Q(J) + B(10) * U(J) + B(11) * I(J) * U(J) + B(12) * K(J) * U(J)
4610 N6 = B(13) * L(J) + B(14) * P(J) * L(J) + B(15) * Q(J) * L(J)
4620 Z(J) = N3 + N4 + N5 + N6 + B(16) * L(J) * U(J): NEXT J: RETURN
4630 FOR J = 1 TO X: N3 = B(1) + B(2) * I(J) + B(3) * K(J) + B(4) * P(J)
4640 N4 = B(5) * I(J) * P(J) + B(6) * Q(J) + B(7) * I(J) * Q(J) + B(8) * P(J) * K(J)
4650 N5 = B(9) * K(J) * Q(J) + B(10) * U(J) + B(11) * I(J) * U(J)
4660 N6 = B(12) * K(J) * U(J) + B(13) * V(J) + B(14) * I(J) * V(J) + B(15) * K(J) * V(J)
4670 N7 = B(16) * L(J) + B(17) * P(J) * L(J) + B(18) * Q(J) * L(J) + B(19) * L(J) * U(J)
4680 Z(J) = N3 + N4 + N5 + N6 + N7 + B(20) * L(J) * V(J): NEXT J: RETURN