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

                         ПРОГРАММА NV5 (план 51, Х = 5)

5 PRINT "ПРОГРАММА NV5,РАЗРАБОТКА А.А.ЧЕРНОГО"
6 CLS
7 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NV5"
8 PRINT "ЗАНОСЯТСЯ В ФАЙЛ,ИМЯ КОТОРОГО НАДО ВВЕСТИ,"
9 PRINT "НАПРИМЕР, ВВЕСТИ ИМЯ ФАЙЛА NV51"
10 INPUT "ВВОД ИМЕНИ ФАЙЛА ", FA$
14 OPEN "O", #1, FA$
17 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NV5 ЗАНОСЯТСЯ В ФАЙЛ "; FA$
40 PRINT " РАЗРАБОТКA ДЛЯ X=5"
41 PRINT #1, "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NV5, РАЗРАБОТАННОЙ А.А. ЧЕРНЫМ"
42 DIM F(20), L(20), Y(20), I(20), K(20), M(20)
44 DIM O(20), B(20), Z(20), G(20), T(20)
46 DIM K6(20), K7(20), K8(20), J7(20), J8(20), J9(20)
47 DIM Z1(50)
51 PRINT "ВВОД X-КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ "
52 PRINT #1, "КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ "
60 X = 5: PRINT #1, "X="; X
61 PRINT #1, "ВЕЛИЧИНЫ ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
62 PRINT "ВВОД ВЕЛИЧИН ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
90 IF X = 5 GOTO 270
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
340 IF X = 5 GOTO 610
589 REM ПЛАН
610 F(1) = A1: F(2) = B1: F(3) = C1: F(4) = D1: F(5) = E1: GOTO 1130
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 1230-ПРОДОЛЖЕНИЕ"
1190 PRINT "ВВОД I0": INPUT I0: IF I0 = 1 GOTO 1160
1200 IF I0 = 2 GOTO 1230
1230 IF X = 5 GOTO 1330
1330 GOSUB 4290: 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)
1470 IF X = 5 GOTO 2000
2000 S = 0: O(4) = 0: FOR J = 1 TO X: S = S + L(J) * Y(J): O(4) = O(4) + L(J) ^ 2




                                       86