Изобретения и совершенствование на их основе процессов и материалов с применением математического моделирования. Черный А.А - 116 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

116
1790 PRINT "ВВОД T0": INPUT T0: PRINT #1, "ТАБЛИЧНЫЙ Т-
КРИТЕРИЙ T0="; T0
1800 PRINT #1, "B(J) ПОСЛЕ АНАЛИЗА": FOR J = 1 TO X
1810 IF T(J) < T0 GOTO 1830
1820 IF T(J) >= T0 GOTO 1840
1830 B(J) = 0
1840 PRINT #1, "B("; J; ")="; B(J): NEXT J
1850 K9 = 0: FOR J = 1 TO X: IF B(J) = 0 GOTO 1852
1851 K9 = K9 + 1: NEXT J
1852 PRINT #1, "КОЛИЧЕСТВО СТАТИСТИЧЕСКИ ЗНАЧИМЫХ"
1853 PRINT #1, " КОЭФФИЦИЕНТОВ РЕГРЕССИИ K9="; K9
1862 PRINT "F9=X-1": F9 = X - 1: PRINT #1, "F9=X-1="; F9: CLS
1863 PRINT "! ! ЗНАЧЕНИЯ F-КРИТЕРИЯ F7 ДЛЯ 5%-ГО УРОВНЯ
ЗНАЧИМОСТИ"
1864 PRINT "! !----------------------------------------------"
1865 PRINT "! F8! F9 "
1866 PRINT "! !----------------------------------------------"
1867 PRINT "! ! 1 ! 3 ! 7 ! 15...16 ! 30...31 !"
1868 PRINT "---------------------------------------------------"
1869 PRINT "! 2 ! 18.51 ! 19.16 ! 19.36 ! 19.43 ! 19.46 !"
1870 PRINT "! 3 ! 10.13 ! 9.28 ! 8.88 ! 8.69 ! 8.62 !"
1871 PRINT "! 4 ! 7.71 ! 6.59 ! 6.09 ! 5.84 ! 5.74 !"
1872 PRINT "! 5 ! 6.61 ! 5.41 ! 4.88 ! 4.6 ! 4.5 !"
1873 PRINT "! 6 ! 5.99 ! 4.76 ! 4.21 ! 3.92 ! 3.81 !"
1874 PRINT
"!=================================================!"
1887 PRINT "F8="; F8; "F9="; F9
1890 PRINT "ВВОД ТАБЛИЧНОГО F7-ТАБЛИЧНЫЙ F-КРИТЕРИЙ"
1891 INPUT F7: PRINT #1, "ТАБЛИЧНЫЙ F-КРИТЕРИЙ F7="; F7
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)" 
1790 PRINT "ВВОД T0": INPUT T0: PRINT #1, "ТАБЛИЧНЫЙ Т-
КРИТЕРИЙ T0="; T0
1800 PRINT #1, "B(J) ПОСЛЕ АНАЛИЗА": FOR J = 1 TO X
1810 IF T(J) < T0 GOTO 1830
1820 IF T(J) >= T0 GOTO 1840
1830 B(J) = 0
1840 PRINT #1, "B("; J; ")="; B(J): NEXT J
1850 K9 = 0: FOR J = 1 TO X: IF B(J) = 0 GOTO 1852
1851 K9 = K9 + 1: NEXT J
1852 PRINT #1, "КОЛИЧЕСТВО СТАТИСТИЧЕСКИ ЗНАЧИМЫХ"
1853 PRINT #1, "         КОЭФФИЦИЕНТОВ РЕГРЕССИИ K9="; K9
1862 PRINT "F9=X-1": F9 = X - 1: PRINT #1, "F9=X-1="; F9: CLS
1863 PRINT "! ! ЗНАЧЕНИЯ F-КРИТЕРИЯ F7 ДЛЯ 5%-ГО УРОВНЯ
ЗНАЧИМОСТИ"
1864 PRINT "! !----------------------------------------------"
1865 PRINT "! F8!                  F9                 "
1866 PRINT "! !----------------------------------------------"
1867 PRINT "! ! 1 ! 3 ! 7 ! 15...16 ! 30...31 !"
1868 PRINT "---------------------------------------------------"
1869 PRINT "! 2 ! 18.51 ! 19.16 ! 19.36 ! 19.43 ! 19.46 !"
1870 PRINT "! 3 ! 10.13 ! 9.28 ! 8.88 ! 8.69 ! 8.62 !"
1871 PRINT "! 4 ! 7.71 ! 6.59 ! 6.09 ! 5.84 ! 5.74 !"
1872 PRINT "! 5 ! 6.61 ! 5.41 ! 4.88 ! 4.6 ! 4.5 !"
1873 PRINT "! 6 ! 5.99 ! 4.76 ! 4.21 ! 3.92 ! 3.81 !"
1874 PRINT
"!=================================================!"
1887 PRINT "F8="; F8; "F9="; F9
1890 PRINT "ВВОД ТАБЛИЧНОГО F7-ТАБЛИЧНЫЙ F-КРИТЕРИЙ"
1891 INPUT F7: PRINT #1, "ТАБЛИЧНЫЙ F-КРИТЕРИЙ F7="; F7
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)"




                                 116

Страницы