Улучшение способов получения пористых материалов и изделий на основе изобретений и моделирования. Черный А.А. - 26 стр.

1900 IF X = 2 GOTO 1950
1910 IF X = 4 GOTO 1960
1920 IF X = 8 GOTO 1970
1930 IF X = 16 GOTO 1980
1940 IF X = 32 GOTO 1990
1950 GOSUB 2540: GOTO 2000
1960 GOSUB 2550: GOTO 2000
1970 GOSUB 2570: GOTO 2000
1980 GOSUB 2600: GOTO 2000
1990 GOSUB 2670: GOTO 2000
2000 PRINT #1, "РАСЧЕТНЫЕ ВЕЛИЧИНЫ ПОКАЗАТЕЛЯ ";
2005 PRINT #1, "Z(J) ПОСЛЕ АНАЛИЗА B(J)"
2010 FOR J = 1 TO X: PRINT #1, "Z("; J; ")="; Z(J): NEXT J
2011 PRINT #1, "ПРОВЕРКА ПО РАЗНОСТИ Y(J)-Z(J)"
2012 PRINT #1, "В ПРОЦЕНТАХ (Y(J)-Z(J) * (100 / Y(J))"
2013 FOR J = 1 TO X: PRINT #1, "Y("; J; ")-Z("; J; ")="; Y(J) - Z(J)
2014 PRINT #1, "(Y("; J; ")-Z("; J; ")) * (100 / Y("; J; ")) = "; (Y(J) - Z(J)) * (100 / Y(J))
2015 NEXT J
2020 S = 0: FOR J = 1 TO X: S = S + (Z(J) - Y(J)) ^ 2: NEXT J
2025 F6 = S / (F9 * U9)
2030 PRINT #1, "РАСЧЕТНАЯ ВЕЛИЧИНА F-КРИТЕРИЯ F6="; F6
2040 IF F6 <= F7 GOTO 2042
2041 IF F6 > F7 GOTO 2043
2042 PRINT "АДЕКВАТНО": PRINT #1, "АДЕКВАТНО,ТАК КАК F6<=F7": GOTO 2044
2043 PRINT "НЕАДЕКВАТНО": PRINT #1, "НЕАДЕКВАТНО, ТАК КАК F6>F7": GOTO
2080
2044 PRINT #1, "CИСТЕМНОЕ ПРЕДСТАВЛЕНИЕ"
2045 PRINT #1, "ДЛЯ АНАЛИЗОВ РЕЗУЛЬТАТОВ РАСЧЕТОВ"
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

                                              26