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

                       ПРОГРАММА NW7 (план 33, Х = 27)

5 PRINT "ПРОГРАММА NW7,РАЗРАБОТКА А.А.ЧЕРНОГО"
6 CLS
7 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NW7"
8 PRINT "ЗАНОСЯТСЯ В ФАЙЛ,ИМЯ КОТОРОГО НАДО ВВЕСТИ,"
9 PRINT "НАПРИМЕР, ВВЕСТИ ИМЯ ФАЙЛА NW71"
10 INPUT "ВВОД ИМЕНИ ФАЙЛА ", FA$
14 OPEN "O", #1, FA$
17 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NW7,ЗАНОСЯТ В ФАЙЛ"; FAS
40 PRINT "ПЛАН 3^3 (X=27)"
42 PRINT #1, "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NW7, РАЗРАБОТАННОЙ А.А. ЧЕРНЫМ
"
44 DIM F(50), H(50), L(50), Y(27), I(50), K(50), M(50), P(50)
46 DIM Q(50), U(50), V(50), O(27), B(27), Z(50), G(20), T(27)
47 DIM Z1(50)
52 X = 27: 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
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
589 REM ПЛАН
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) "




                                    185