Системный анализ результатов расчетов по математическим моделям. Черный А.А. - 126 стр.

2046 PRINT #1, "ПО МАТЕМАТИЧЕСКОЙ МОДЕЛИ"
2047 S = 0: FOR J = 1 TO X: S = S + ABS(Z(J)): NEXT J
2048 Z1 = 0: FOR J = 1 TO X: Z1(J) = Z(J) / (S / X): NEXT J
2049 PRINT #1, "ОТНОСИТЕЛЬНАЯ ВЕЛИЧИНА ПОКАЗАТЕЛЯ"
2050 PRINT #1, "Z1(J)=Z(J)/(S/X), ГДЕ S - СУММА"
2051 PRINT #1, "АБСОЛЮТНЫХ ВЕЛИЧИН ПОКАЗАТЕЛЕЙ,S="; S
2052 PRINT #1, "S/X-СРЕДНЯЯ АРИФМЕТИЧЕСКАЯ ВЕЛИЧИНА, S/X="; S / X
2053 IF X = 2 GOTO 2058
2054 IF X = 4 GOTO 2058
2055 IF X = 8 GOTO 2058
2056 IF X = 16 GOTO 2058
2057 IF X = 32 GOTO 2070
2058 FOR J = 1 TO X: PRINT #1, "Z("; J; ")="; Z(J); "Z1("; J; ")="; Z1(J): NEXT J
2059 GOTO 2080
2070 GOSUB 11170: GOTO 2080
2080 PRINT "I0=7 GOTO 2150-ПРОВЕРКА ТОЧНОСТИ И"
2081 PRINT "          РАСЧЕТЫ ПО МОДЕЛИ"
2085 PRINT "I0=8 GOTO 40-НАЧАЛО"
2090 PRINT "I0=17 GOTO 2820-МАТЕМАТИЧЕСКАЯ МОДЕЛЬ"
2091 PRINT "I0=9 GOTO 6830-КОНЕЦ"
2095 PRINT "IF I0=22 GOTO 7000-ВЫЧИСЛЕНИЯ ПОКАЗАТЕЛЕЙ Z(K5)"
2096 PRINT "             C ИСПОЛЬЗОВАНИЕМ ГРАФИКОВ И"
2097 PRINT "             ПОСТРОЕНИЕ ГРАФИКОВ"
2100 PRINT "ВВОД I0": INPUT I0
2110 IF I0 = 7 GOTO 2150
2120 IF I0 = 8 GOTO 40
2130 IF I0 = 17 GOTO 2820
2140 IF I0 = 9 GOTO 6830
2145 IF I0 = 22 GOTO 7000
2150 PRINT "ПРОВЕРКА ТОЧНОСТИ И РАСЧЕТЫ ПО МОДЕЛИ"
2151 PRINT "F(S),H(S),L(S),K(S),M(S)-1,2,3,4,5 ФАКТОРЫ,"
2152 PRINT "ГДЕ S=X="; X; "-КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ"
2153 PRINT #1, "РАСЧЕТЫ ПО МОДЕЛИ"
2160 IF X = 2 GOTO 2210
2170 IF X = 4 GOTO 2240
2180 IF X = 8 GOTO 2270
2190 IF X = 16 GOTO 2310
2200 IF X = 32 GOTO 2360
2210 FOR S = 1 TO X: F(S) = 0: Z(S) = 0: PRINT "ВВОД F("; S; ")":
2220 INPUT F(S): PRINT #1, "ФАКТОРЫ F("; S; ")="; F(S): GOSUB 2490
2230 GOSUB 2540: PRINT #1, "Z("; S; ")="; Z(S): NEXT S
2235 GOTO 2430
2240 FOR S = 1 TO X: F(S) = 0: H(S) = 0: Z(S) = 0
2250 PRINT "ВВОД F("; S; "),H("; S; ")": INPUT F(S), H(S)
2260 PRINT #1, "ФАКТОРЫ F("; S; ")="; F(S); "H("; S; ")="; H(S)
2262 GOSUB 2490: GOSUB 2500: GOSUB 2550: GOTO 2264
2264 PRINT #1, "Z("; S; ")="; Z(S): NEXT S: GOTO 2430
2270 FOR S = 1 TO X: F(S) = 0: H(S) = 0: L(S) = 0: Z(S) = 0
2280 PRINT "ВВОД F("; S; "),H("; S; "),L("; S; ")"
2290 INPUT F(S), H(S), L(S): PRINT #1, "ФАКТОРЫ F("; S; ")="; F(S)
2300 PRINT #1, "ФАКТОРЫ H("; S; ")="; H(S); "L("; S; ")="; L(S): GOSUB 2490
2302 GOSUB 2500: GOSUB 2510: GOSUB 2570: GOTO 2304
2304 PRINT #1, "Z("; S; ")="; Z(S): NEXT S: GOTO 2430
2310 FOR S = 1 TO X: F(S) = 0: H(S) = 0: L(S) = 0: K(S) = 0
2320 Z(S) = 0: PRINT "ВВОД F("; S; "),H("; S; "),L("; S; "),"; "K("; S; ")"
2330 INPUT F(S), H(S), L(S), K(S): PRINT #1, "ФАКТОРЫ F("; S; ")="; F(S)
2340 PRINT #1, "ФАКТОРЫ H("; S; ")="; H(S); "L("; S; ")="; L(S)




                                                  126