Планы проведения экспериментов и компьютерные программы эффективного математического моделирования на языках Бейсик и Турбо Паскаль. Черный А.А. - 121 стр.

                         ПРОГРАММА NV9 (план 32, Х = 9)

5 PRINT "ПРОГРАММА NV9,РАЗРАБОТКА А.А.ЧЕРНОГО"
6 CLS
7 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NV9"
8 PRINT "ЗАНОСЯТСЯ В ФАЙЛ,ИМЯ КОТОРОГО НАДО ВВЕСТИ,"
9 PRINT "НАПРИМЕР, ВВЕСТИ ИМЯ ФАЙЛА NV91"
10 INPUT "ВВОД ИМЕНИ ФАЙЛА ", FA$
14 OPEN "O", #1, FA$
17 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NV9 ЗАНОСЯТСЯ В ФАЙЛ "; FA$
40 PRINT "ПЛАН 3^2 (X = 9)"
41 PRINT #1, "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NV9,РАЗРАБОТАННОЙ А.А.ЧЕРНЫМ"
42 DIM F(20), H(20), L(20), Y(20), I(20), K(20), M(20), P(20)
44 DIM Q(20), U(20), V(20), O(9), B(9), Z(20), G(20), T(9)
46 DIM K6(20), K7(20), K8(20), J7(20), J8(20), J9(20)
47 DIM Z1(50)
52 X = 9: PRINT #1, "КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ X = "; X
61 PRINT #1, "ВЕЛИЧИНЫ ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
62 PRINT "ВВОД ВЕЛИЧИН ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
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
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
589 REM ПЛАН
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
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
1180 PRINT "IF I0=1 GOTO 1160-ПОВТОРЕНИЕ ВВОДА ПОКАЗАТЕЛЕЙ"
1185 PRINT "IF I0=2 GOTO 1340-ПРОДОЛЖЕНИЕ"
1190 PRINT "ВВОД I0": INPUT I0: IF I0 = 1 GOTO 1160
1200 IF I0 = 2 GOTO 1240
1240 IF X = 9 GOTO 1340
1340 GOSUB 4150: GOSUB 4170: 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)
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




                                       121