ВУЗ:
Составители:
20
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
3280 IF X = 9 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
3390 GOSUB 4150: GOSUB 4390: 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
3500 GOSUB 4150: GOSUB 4170: GOSUB 4450: 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
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
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 3280 IF X = 9 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 3390 GOSUB 4150: GOSUB 4390: 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 3500 GOSUB 4150: GOSUB 4170: GOSUB 4450: 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 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 20
Страницы
- « первая
- ‹ предыдущая
- …
- 18
- 19
- 20
- 21
- 22
- …
- следующая ›
- последняя »