Основы изобретательства и научных исследований. Черный А.А. - 134 стр.

1580 FOR J = 1 TO X: PRINT #1, "Z("; J; ")="; Z(J): NEXT J
1590 PRINT #1, "ПРОВЕРКА ПО РАЗНОСТИ Y(J)-Z(J)"
1600 PRINT #1, "В ПРОЦЕНТАХ (Y(J)-Z(J) * (100 / Y(J))"
1601 FOR J = 1 TO X: PRINT #1, "Y("; J; ")-Z("; J; ")="; Y(J) - Z(J)
1602 PRINT #1, "(Y("; J; ")-Z("; J; ")) * (100 / Y("; J; ")) = "; (Y(J) - Z(J)) * (100 / Y(J))
1603 NEXT J
1604 PRINT "ВВОД F8=N0-1": INPUT F8: PRINT #1, "F8=N0-1="; N0; "-1="; F8
1620 PRINT "IF I0=3 GOTO 1710-ВВОД РЕЗУЛЬТАТОВ ОПЫТОВ"
1622 PRINT "                  НА СРЕДНЕМ УРОВНЕ ФАКТОРОВ"
1625 PRINT "IF I0=4 GOTO 1760-ВВОД ДИСПЕРСИИ ОПЫТОВ"
1630 PRINT "IF I0=5 GOTO 2150-ПРОВЕРКА ТОЧНОСТИ И"
1633 PRINT "                РАСЧЕТЫ ПО МОДЕЛИ"
1635 PRINT "IF I0=6 GOTO 40-НАЧАЛО"
1640 PRINT "IF I0=20 GOTO 6830-КОНЕЦ"
1641 PRINT "IF I0=25 GOTO 2820-МАТЕМАТИЧЕСКАЯ МОДЕЛЬ"
1642 PRINT "IF I0=27 GOTO 7000-ВЫЧИСЛЕНИЯ ПОКАЗАТЕЛЕЙ Z(K5)"
1646 PRINT "        С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ И"
1647 PRINT "         ПОСТРОЕНИЕ ГРАФИКОВ"
1650 PRINT "ВВОД I0": INPUT I0: IF I0 = 3 GOTO 1710
1660 IF I0 = 4 GOTO 1760
1670 IF I0 = 5 GOTO 2150
1680 IF I0 = 6 GOTO 40
1690 IF I0 = 20 GOTO 6830
1700 IF I0 = 25 GOTO 2820
1705 IF I0 = 27 GOTO 7000
1710 PRINT "ВВОД РЕЗУЛЬТАТОВ ОПЫТОВ "
1711 PRINT "НА СРЕДНЕМ УРОВНЕ "
1712 PRINT #1, "РЕЗУЛЬТАТЫ ОПЫТОВ ";
1713 PRINT #1, "НА СРЕДНЕМ УРОВНЕ ФАКТОРОВ "
1715 FOR J = 1 TO N0: PRINT "ВВОД G("; J; ")": INPUT G(J)
1720 PRINT #1, "G("; J; ")="; G(J): NEXT J: S = 0: FOR J = 1 TO N0: S = S + G(J)
1730 NEXT J: S0 = S / N0: PRINT "S0="; S0: S = 0: FOR J = 1 TO N0
1740 S = S + (G(J) - S0) ^ 2: NEXT J: U9 = S / F8
1745 PRINT #1, "ДИСПЕРСИЯ ОПЫТОВ U9="; U9
1750 GOTO 1770
1760 PRINT "ВВОД U9": INPUT U9: PRINT #1, "ДИСПЕРСИЯ ОПЫТОВ U9="; U9
1770 PRINT #1, "РАСЧЕТНЫЕ ВЕЛИЧИНЫ T(J)": FOR J = 1 TO X
1780 T(J) = ABS(B(J) / SQR(U9 / O(J))): PRINT #1, "T("; J; ")="; T(J): NEXT J
1781 PRINT "                 ДЛЯ УРОВНЯ ЗНАЧИМОСТИ 5% "
1782 PRINT "         ПРИ F8 2 ; 3 ; 4 ; 5 ; 6"
1783 PRINT "СООТВЕТСТВЕННО T0 4.303 ;3.182 ;2.776 ;2.571 ;2.447"
1784 PRINT "F8="; F8
1785 PRINT "ВВОД T0-ТАБЛИЧНЫЙ Т-КРИТЕРИЙ"
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 !"

                                                        134