Применение вычислительной техники при моделировании - 8 стр.

1370 GOSUB 4210: GOSUB 4250: GOTO 1410
1410 S = 0: O(1) = 0: FOR J = 1 TO X: S = S + Y(J): O(1) = O(1) + 1: NEXT J
1420 B(1) = S / O(1): S = 0: O(2) = 0: FOR J = 1 TO X: S = S + I(J) * Y(J)
1430 O(2) = O(2) + I(J) ^ 2: NEXT J: B(2) = S / O(2): S = 0: O(3) = 0
1440 FOR J = 1 TO X: S = S + K(J) * Y(J): O(3) = O(3) + K(J) ^ 2: NEXT J
1450 B(3) = S / O(3)
1480 S = 0: O(4) = 0: FOR J = 1 TO X: S = S + P(J) * Y(J)
1490 O(4) = O(4) + P(J) ^ 2: NEXT J: B(4) = S / O(4): S = 0: O(5) = 0
1500 FOR J = 1 TO X: S = S + I(J) * P(J) * Y(J): O(5) = O(5) + (I(J) * P(J)) ^ 2
1510 NEXT J: B(5) = S / O(5): S = 0: O(6) = 0: FOR J = 1 TO X
1520 S = S + Q(J) * Y(J): O(6) = O(6) + Q(J) ^ 2: NEXT J: B(6) = S / O(6)
1530 S = 0: O(7) = 0: FOR J = 1 TO X: S = S + I(J) * Q(J) * Y(J)
1540 O(7) = O(7) + (I(J) * Q(J)) ^ 2: NEXT J: B(7) = S / O(7): S = 0
1550 O(8) = 0: FOR J = 1 TO X: S = S + P(J) * K(J) * Y(J)
1560 O(8) = O(8) + (P(J) * K(J)) ^ 2: NEXT J: B(8) = S / O(8): S = 0: O(9) = 0
1570 FOR J = 1 TO X: S = S + K(J) * Q(J) * Y(J): O(9) = O(9) + (K(J) * Q(J)) ^ 2
1580 NEXT J: B(9) = S / O(9)
1600 S = 0: O(10) = 0: FOR J = 1 TO X: S = S + U(J) * Y(J): O(10) = O(10) + U(J) ^ 2
1610 NEXT J: B(10) = S / O(10): S = 0: O(11) = 0: FOR J = 1 TO X
1620 S = S + I(J) * U(J) * Y(J): O(11) = O(11) + (I(J) * U(J)) ^ 2: NEXT J
1630 B(11) = S / O(11): S = 0: O(12) = 0: FOR J = 1 TO X: S = S + K(J) * U(J) * Y(J)
1640 O(12) = O(12) + (K(J) * U(J)) ^ 2: NEXT J: B(12) = S / O(12)
1660 IF X = 16 GOTO 1930
1930 S = 0: O(13) = 0: FOR J = 1 TO X: S = S + L(J) * Y(J): O(13) = O(13) + L(J) ^ 2
1940 NEXT J: B(13) = S / O(13): S = 0: O(14) = 0: FOR J = 1 TO X
1950 S = S + P(J) * L(J) * Y(J): O(14) = O(14) + (P(J) * L(J)) ^ 2: NEXT J
1960 B(14) = S / O(14): S = 0: O(15) = 0: FOR J = 1 TO X: S = S + Q(J) * L(J) * Y(J)
1970 O(15) = O(15) + (Q(J) * L(J)) ^ 2: NEXT J: B(15) = S / O(15): S = 0
1980 O(16) = 0: FOR J = 1 TO X: S = S + L(J) * U(J) * Y(J)
1990 O(16) = O(16) + (L(J) * U(J)) ^ 2: NEXT J: B(16) = S / O(16): GOTO 2390
2390 PRINT #1, "B(J) ДО АНАЛИЗА": FOR J = 1 TO X
2395 PRINT #1, "B("; J; ")="; B(J)
2397 NEXT J: PRINT
2400 PRINT "ВВОД N0-КОЛИЧЕСТВО ОПЫТОВ НА СРЕДНЕМ УРОВНЕ ФАКТОРОВ"
2407 INPUT N0
2408 PRINT #1, "КОЛИЧЕСТВО ОПЫТОВ НА СРЕДНЕМ УРОВНЕ ФАКТОРОВ"
2410 PRINT #1, "N0="; N0
2470 IF X = 16 GOTO 2570
2570 GOSUB 4580: GOTO 2610
2610 PRINT #1, "РАСЧЕТНЫЕ ВЕЛИЧИНЫ ПОКАЗАТЕЛЕЙ Z(J) ДО АНАЛИЗА B(J)"
2620 FOR J = 1 TO X: PRINT #1, "Z("; J; ")="; Z(J): NEXT J
2630 PRINT "ВВОД F8=N0-1": INPUT F8
2633 PRINT #1, "F8=N0-1="; F8
2635 PRINT "F8="; F8
2640 PRINT #1, "ПРОВЕРКА ПО РАЗНОСТИ Y(J)-Z(J)"
2641 PRINT #1, "В ПРОЦЕНТАХ (Y(J)-Z(J)) * (100/Y(J))"
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

                                                        8