Теория и практика эффективного математического моделирования. Черный А.А. - 241 стр.

                МАТЕМАТИЧЕСКОЕ МОДЕЛИРОВАНИЕ
         И РАСЧЕТЫ ПО МАТЕМАТИЧЕСКИМ МОДЕЛЯМ ПРИ Х=16

      Разработан комплекс программ математического моделирования с до-
бавлением системного представления для анализов результатов расчетов по
математической модели. Ниже представлена компьютерная программа NV6
для случаев планирования 42 (Х = 16).


                  ПРОГРАММА НА ЯЗЫКЕ БЕЙСИК NV6


5 PRINT "ПРОГРАММА NV6,РАЗРАБОТКА А.А.ЧЕРНОГО"
6 CLS
7 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NV6"
8 PRINT "ЗАНОСЯТСЯ В ФАЙЛ,ИМЯ КОТОРОГО НАДО ВВЕСТИ,"
9 PRINT "НАПРИМЕР, ВВЕСТИ ИМЯ ФАЙЛА NV61"
10 INPUT "ВВОД ИМЕНИ ФАЙЛА ", FA$
14 OPEN "O", #1, FA$
17 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NV6 ЗАНОСЯТСЯ В ФАЙЛ "; FA$
40 PRINT " РАЗРАБОТКА ДЛЯ X=16"
41 PRINT #1, "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ VN6, РАЗРАБОТАННОЙ А.А. ЧЕРНЫМ"
42 DIM F(20), H(20), L(20), Y(20), I(20), K(20), P(20)
44 DIM Q(20), U(20), V(20), 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 INPUT X: PRINT #1, "X="; X
61 PRINT #1, "ВЕЛИЧИНЫ ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
62 PRINT "ВВОД ВЕЛИЧИН ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
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
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
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
450 IF X = 16 GOTO 770
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
1130 PRINT "IF I0=6 GOTO 40-НАЧАЛО"

                                      241