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

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-ТАБЛИЧНЫЙ Т-КРИТЕРИЙ"




                                    115