ВУЗ:
Составители:
18
2650 FOR J = 1 TO X: PRINT #1, "Y("; J; ")-Z("; J; ")="; Y(J) - Z(J)
2651 PRINT #1, "(Y("; J; ")-Z("; J; ")) * (100 / Y("; J; ")) = "; (Y(J) - Z(J)) * (100 / Y(J))
2655 NEXT J
2660 PRINT "IF I0=3 GOTO 2720-ВВОД РЕЗУЛЬТАТОВ ОПЫТОВ "
2663 PRINT " НА СРЕДНЕМ УРОВНЕ ФАКТОРОВ"
2666 PRINT "IF I0=4 GOTO 2770-ВВОД ДИСПЕРСИИ ОПЫТОВ"
2670 PRINT "IF I0=5 GOTO 3240-ПРОВЕРКА ТОЧНОСТИ И "
2672 PRINT " РАСЧEТЫ ПО МОДЕЛИ"
2773 PRINT "IF I0=6 GOTO 40-НАЧАЛО"
2677 PRINT "IF I0=20 GOTO 6830-КОНЕЦ"
2678 PRINT "IF I0=25 GOTO 4880-МАТЕМАТИЧЕСКАЯ МОДЕЛЬ"
2679 PRINT "IF I0=27 GOTO 7000-ВЫЧИСЛЕНИЯ ПОКАЗАТЕЛЕЙ Z(K5)"
2681 PRINT " С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ И "
2684 PRINT " ПОСТРОЕНИЕ ГРАФИКОВ"
2689 PRINT "ВВОД I0": INPUT I0: IF I0 = 3 GOTO 2720
2690 IF I0 = 4 GOTO 2770
2700 IF I0 = 5 GOTO 3240
2710 IF I0 = 6 GOTO 40
2715 IF I0 = 20 GOTO 6830
2717 IF I0 = 25 GOTO 4880
2718 IF I0 = 27 GOTO 7000
2720 PRINT "ВВОД G(J)-РЕЗУЛЬТАТЫ ОПЫТОВ ";
2721 PRINT "НА СРЕДНЕМ УРОВНЕ ФАКТОРОВ "
2722 PRINT #1, "РЕЗУЛЬТАТЫ
ОПЫТОВ ";
2723 PRINT #1, "НА СРЕДНЕМ УРОВНЕ ФАКТОРОВ "
2724 FOR J = 1 TO N0: PRINT "G("; J; ")": INPUT G(J)
2730 PRINT #1, "G("; J; ")="; G(J): NEXT J: S = 0: FOR J = 1 TO N0: S = S + G(J)
2740 NEXT J: S0 = S / N0: PRINT "S0="; S0: S = 0: FOR J = 1 TO N0
2750 S = S + (G(J) - S0) ^ 2: NEXT J: U9 = S / F8
2751 PRINT #1, "ДИСПЕРСИЯ ОПЫТОВ U9="; U9
2760 GOTO 2780
2770 PRINT "ВВОД U9-ДИСПЕРСИЯ ОПЫТОВ": INPUT U9
2771 PRINT #1, "ДИСПЕРСИЯ ОПЫТОВ U9="; U9
2780 PRINT #1, "РАСЧЕТНЫЕ ВЕЛИЧИНЫ T(J)": FOR J = 1 TO X
2790 T(J) = ABS(B(J) / SQR(U9 / O(J))): PRINT #1, "T("; J; ")="; T(J): NEXT J
2800 PRINT " ДЛЯ УРОВНЯ ЗНАЧИМОСТИ 5% "
2801 PRINT " ПРИ F8 2 ; 3 ; 4 ; 5 ; 6"
2802 PRINT "СООТВЕТСТВЕННО T0 4.303 ;3.182 ;2.776 ;2.571 ;2.447"
2803 PRINT "F8=N0-1="; N0; "-1="; F8
2804 PRINT "ВВОД T0-ТАБЛИЧНЫЙ Т-КРИТЕРИЙ"
2805 INPUT T0
2806 PRINT #1, "ТАБЛИЧНЫЙ Т-КРИТЕРИЙ T0="; T0
2810 PRINT #1, "B(J) ПОСЛЕ АНАЛИЗА": FOR J = 1 TO X
2820 IF T(J) < T0 GOTO 2840
2830 IF T(J) >= T0 GOTO 2850
2840 B(J) = 0
2850 PRINT #1, "B("; J; ")="; B(J): NEXT J
2860 K9 = 0: FOR J = 1 TO X: IF B(J) = 0 GOTO 2871
2870 K9 = K9 + 1
2871 NEXT J
2872 PRINT #1, "КОЛИЧЕСТВО СТАТИСТИЧЕСКИ ЗНАЧИМЫХ"
2873 PRINT #1, " КОЭФФИЦИЕНТОВ РЕГРЕССИИ K9="; K9
2650 FOR J = 1 TO X: PRINT #1, "Y("; J; ")-Z("; J; ")="; Y(J) - Z(J) 2651 PRINT #1, "(Y("; J; ")-Z("; J; ")) * (100 / Y("; J; ")) = "; (Y(J) - Z(J)) * (100 / Y(J)) 2655 NEXT J 2660 PRINT "IF I0=3 GOTO 2720-ВВОД РЕЗУЛЬТАТОВ ОПЫТОВ " 2663 PRINT " НА СРЕДНЕМ УРОВНЕ ФАКТОРОВ" 2666 PRINT "IF I0=4 GOTO 2770-ВВОД ДИСПЕРСИИ ОПЫТОВ" 2670 PRINT "IF I0=5 GOTO 3240-ПРОВЕРКА ТОЧНОСТИ И " 2672 PRINT " РАСЧEТЫ ПО МОДЕЛИ" 2773 PRINT "IF I0=6 GOTO 40-НАЧАЛО" 2677 PRINT "IF I0=20 GOTO 6830-КОНЕЦ" 2678 PRINT "IF I0=25 GOTO 4880-МАТЕМАТИЧЕСКАЯ МОДЕЛЬ" 2679 PRINT "IF I0=27 GOTO 7000-ВЫЧИСЛЕНИЯ ПОКАЗАТЕЛЕЙ Z(K5)" 2681 PRINT " С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ И " 2684 PRINT " ПОСТРОЕНИЕ ГРАФИКОВ" 2689 PRINT "ВВОД I0": INPUT I0: IF I0 = 3 GOTO 2720 2690 IF I0 = 4 GOTO 2770 2700 IF I0 = 5 GOTO 3240 2710 IF I0 = 6 GOTO 40 2715 IF I0 = 20 GOTO 6830 2717 IF I0 = 25 GOTO 4880 2718 IF I0 = 27 GOTO 7000 2720 PRINT "ВВОД G(J)-РЕЗУЛЬТАТЫ ОПЫТОВ "; 2721 PRINT "НА СРЕДНЕМ УРОВНЕ ФАКТОРОВ " 2722 PRINT #1, "РЕЗУЛЬТАТЫ ОПЫТОВ "; 2723 PRINT #1, "НА СРЕДНЕМ УРОВНЕ ФАКТОРОВ " 2724 FOR J = 1 TO N0: PRINT "G("; J; ")": INPUT G(J) 2730 PRINT #1, "G("; J; ")="; G(J): NEXT J: S = 0: FOR J = 1 TO N0: S = S + G(J) 2740 NEXT J: S0 = S / N0: PRINT "S0="; S0: S = 0: FOR J = 1 TO N0 2750 S = S + (G(J) - S0) ^ 2: NEXT J: U9 = S / F8 2751 PRINT #1, "ДИСПЕРСИЯ ОПЫТОВ U9="; U9 2760 GOTO 2780 2770 PRINT "ВВОД U9-ДИСПЕРСИЯ ОПЫТОВ": INPUT U9 2771 PRINT #1, "ДИСПЕРСИЯ ОПЫТОВ U9="; U9 2780 PRINT #1, "РАСЧЕТНЫЕ ВЕЛИЧИНЫ T(J)": FOR J = 1 TO X 2790 T(J) = ABS(B(J) / SQR(U9 / O(J))): PRINT #1, "T("; J; ")="; T(J): NEXT J 2800 PRINT " ДЛЯ УРОВНЯ ЗНАЧИМОСТИ 5% " 2801 PRINT " ПРИ F8 2 ; 3 ; 4 ; 5 ; 6" 2802 PRINT "СООТВЕТСТВЕННО T0 4.303 ;3.182 ;2.776 ;2.571 ;2.447" 2803 PRINT "F8=N0-1="; N0; "-1="; F8 2804 PRINT "ВВОД T0-ТАБЛИЧНЫЙ Т-КРИТЕРИЙ" 2805 INPUT T0 2806 PRINT #1, "ТАБЛИЧНЫЙ Т-КРИТЕРИЙ T0="; T0 2810 PRINT #1, "B(J) ПОСЛЕ АНАЛИЗА": FOR J = 1 TO X 2820 IF T(J) < T0 GOTO 2840 2830 IF T(J) >= T0 GOTO 2850 2840 B(J) = 0 2850 PRINT #1, "B("; J; ")="; B(J): NEXT J 2860 K9 = 0: FOR J = 1 TO X: IF B(J) = 0 GOTO 2871 2870 K9 = K9 + 1 2871 NEXT J 2872 PRINT #1, "КОЛИЧЕСТВО СТАТИСТИЧЕСКИ ЗНАЧИМЫХ" 2873 PRINT #1, " КОЭФФИЦИЕНТОВ РЕГРЕССИИ K9="; K9 18
Страницы
- « первая
- ‹ предыдущая
- …
- 16
- 17
- 18
- 19
- 20
- …
- следующая ›
- последняя »