Математическое моделирование при планировании экспериментов на трех, четырех, пяти уровнях фактора и при неодинаковом количестве уровней первого и второго фактора. Черный А.А. - 38 стр.

440 PRINT #1, "V2="; V2; " U2="; U2; " Q2="; Q2; " I2="; I2
443 PRINT #1, "M2="; M2; " F2="; F2
445 IF X = 12 GOTO 660
460 PRINT "ВВОД A2,C2,E2,D2,B2,J2,O2,P2,T2"
470 INPUT A2, C2, E2, D2, B2, J2, O2, P2, T2
480 PRINT #1, "A2="; A2; " C2="; C2; " E2="; E2; " D2="; D2
483 PRINT #1, "B2="; B2; " J2="; J2; " O2="; O2
485 PRINT #1, "P2="; P2; " T2="; T2: A = A2: B = B2
490 C = C2: D = D2: E = E2: N = J2: R = O2: S = P2: W = T2: GOSUB 3860
500 V2 = V0: U2 = U0: Q2 = Q0: I2 = I0: M2 = M0: F2 = F0: G2 = G0: H2 = H0
510 K2 = K0: L2 = L0: PRINT #1, "V2="; V2; "U2="; U2; "Q2="; Q2
513 PRINT #1, "I2="; I2; " M2="; M2; " F2="; F2; " G2="; G2
515 PRINT #1, "H2="; H2; " K2="; K2; " L2="; L2
520 IF X = 15 GOTO 710
530 IF X = 20 GOTO 830
589 REM ПЛАНЫ
590 F(1) = A1: F(2) = B1: F(3) = E1: GOTO 1130
600 F(1) = A1: F(2) = B1: F(3) = C1: F(4) = D1: GOTO 1130
610 F(1) = A1: F(2) = B1: F(3) = C1: F(4) = D1: F(5) = E1: GOTO 1130
660 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2
670 F(4) = B1: H(4) = B2: F(5) = E1: H(5) = A2: F(6) = E1: H(6) = B2
680 F(7) = A1: H(7) = C2: F(8) = B1: H(8) = D2: F(9) = A1: H(9) = D2
690 F(10) = B1: H(10) = C2: F(11) = E1: H(11) = C2: F(12) = E1
695 H(12) = D2
700 GOTO 1130
710 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2
720 F(4) = B1: H(4) = B2: F(5) = A1: H(5) = E2: F(6) = B1: H(6) = E2
730 F(7) = E1: H(7) = A2: F(8) = E1: H(8) = B2: F(9) = E1: H(9) = E2
740 F(10) = A1: H(10) = C2: F(11) = B1: H(11) = D2: F(12) = A1
745 H(12) = D2
750 F(13) = B1: H(13) = C2: F(14) = E1: H(14) = C2: F(15) = E1
755 H(15) = D2
760 GOTO 1130
830 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2
840 F(4) = B1: H(4) = B2: F(5) = A1: H(5) = E2: F(6) = B1: H(6) = E2
850 F(7) = A1: H(7) = C2: F(8) = B1: H(8) = D2: F(9) = A1: H(9) = D2
860 F(10) = B1: H(10) = C2: F(11) = C1: H(11) = A2: F(12) = C1: H(12) = C2
870 F(13) = C1: H(13) = E2: F(14) = C1: H(14) = D2: F(15) = C1: H(15) = B2
880 F(16) = D1: H(16) = A2: F(17) = D1: H(17) = C2: F(18) = D1: H(18) = E2
890 F(19) = D1: H(19) = D2: F(20) = D1: H(20) = B2: 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 1210-ПРОДОЛЖЕНИЕ"
1190 PRINT "ВВОД I0": INPUT I0: IF I0 = 1 GOTO 1160
1200 IF I0 = 2 GOTO 1210
1210 IF X = 3 GOTO 1310
1220 IF X = 4 GOTO 1320
1230 IF X = 5 GOTO 1330
1250 IF X = 12 GOTO 1350




                                           38