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

3190 PRINT "IF I0=7 GOTO 3240-ПРОВЕРКА ТОЧНОСТИ И "
3193 PRINT "             РАСЧЕТЫ ПО МОДЕЛИ"
3194 PRINT "IF I0=8 GOTO 40-НАЧАЛО"
3197 PRINT "IF I0=17 GOTO 4880-МАТЕМАТИЧЕСКАЯ МОДЕЛЬ"
3198 PRINT "IF I0=22 GOTO 7000-ВЫЧИСЛЕНИЯ ПОКАЗАТЕЛЕЙ Z(K5)"
3200 PRINT "             С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ И "
3203 PRINT "             ПОСТРОЕНИЕ ГРАФИКОВ"
3207 PRINT "IF I0=9 GOTO 6830-КОНЕЦ": PRINT "ВВОД I0": INPUT I0
3210 IF I0 = 7 GOTO 3240
3220 IF I0 = 8 GOTO 40
3227 IF I0 = 17 GOTO 4880
3228 IF I0 = 22 GOTO 7000
3230 IF I0 = 9 GOTO 6830
3240 PRINT "ПРОВЕРКА ТОЧНОСТИ И РАСЧЕТЫ ПО МОДЕЛИ"
3241 PRINT "F(S),H(S), 2-й ФАКТОР,"
3243 PRINT "ГДЕ S=X="; X; "-КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ"
3245 PRINT #1, "РАСЧЕТЫ ПО МОДЕЛИ"
3250 IF X = 3 GOTO 3350
3350 FOR S = 1 TO X: F(S) = 0: Z(S) = 0: PRINT "ВВОД F("; S; ")"
3360 INPUT F(S): PRINT #1, "ФАКТОР F("; S; ")="; F(S)
3365 IF X = 3 GOTO 3390
3390 GOSUB 4150: GOSUB 4390: GOTO 3412
3412 PRINT #1, "Z("; S; ")="; Z(S): NEXT S: GOTO 3610
3610 PRINT "IF I0=10 GOTO 3240-ПРОВЕРКА ТОЧНОСТИ И ";
3611 PRINT "РАСЧЕТЫ ПО МОДЕЛИ"
3612 PRINT "IF I0=11 GOTO 4880 - МАТЕМАТИЧЕСКАЯ МОДЕЛЬ"
3615 PRINT "IF I0=14 GOTO 7000-ВЫЧИСЛЕНИЯ ПОКАЗАТЕЛЕЙ Z(K5)"
3616 PRINT "            С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ И "
3617 PRINT "             ПОСТРОЕНИЕ ГРАФИКОВ"
3620 PRINT "IF I0=12 GOTO 6830-КОНЕЦ"
3625 PRINT "ВВОД I0": INPUT I0
3630 IF I0 = 10 GOTO 3240
3640 IF I0 = 11 GOTO 4880
3650 IF I0 = 12 GOTO 6830
3653 IF I0 = 14 GOTO 7000
3660 N0 = (A ^ N + B ^ N + E ^ N) / 3: R0 = (A ^ R + B ^ R + E ^ R) / 3
3670 L2 = 2 * N: N3 = (A ^ L2 + B ^ L2 + E ^ L2) / 3: N4 = N + R
3680 N5 = (A ^ N4 + B ^ N4 + E ^ N4) / 3: V0 = -N0
3690 U0 = (N0 * R0 - N5) / (N3 - N0 ^ 2): Q0 = -(R0 + U0 * N0)
3700 PRINT #1, "КОЭФФИЦИЕНТЫ ОРТОГОНАЛИЗАЦИИ": RETURN
4150 FOR J = 1 TO X: I(J) = F(J) ^ J1 + V1
4160 K(J) = F(J) ^ O1 + U1 * F(J) ^ J1 + Q1: NEXT J: RETURN
4390 FOR J = 1 TO X: Z(J) = B(1) + B(2) * I(J) + B(3) * K(J): NEXT J: RETURN
4880 PRINT #1, "МАТЕМАТИЧЕСКАЯ МОДЕЛЬ": IF X = 3 GOTO 4910
4910 PRINT #1, "Z(J)="; B(1); "+"; B(2); "*I(J)+"; B(3); "*K(J),"
4920 IF X = 3 GOTO 5110
5110 PRINT #1, "ГДЕ"
5120 PRINT #1, "I(J)=F(J)^"; J1; "+"; V1; ";"
5130 PRINT #1, "K(J)=F(J)^"; O1; "+"; U1; "*F(J)^"; J1; "+"; Q1
5131 PRINT #1, "ОБОЗНАЧЕНИЕ: F(J)- 1-й ФАКТОР "
5140 IF X = 3 GOTO 6790
6790 PRINT "IF I0=18 GOTO 2660-ПЕРЕХОДЫ"
6792 PRINT "IF I0=19 GOTO 3190-ПЕРЕХОДЫ "
6793 PRINT "IF I0=35 GOTO 1160-ВВОД НОВЫХ Y(J)"
6795 PRINT "IF I0=44 GOTO 6830-КОНЕЦ"
6796 PRINT "IF I0=50 GOTO 40-НАЧАЛО"
6797 PRINT "IF I0=51 GOTO 3240-ПРОВЕРКА ТОЧНОСТИ И "




                                                  75