Математическое моделирование при трех уровнях факторов по программам на языках Бейсик и Турбо Паскаль. Черный А.А. - 39 стр.

2230 S = 0: O(20) = 0: FOR J = 1 TO X: S = S + I(J) * U(J) * Q(J) * Y(J)
2240 O(20) = O(20) + (I(J) * U(J) * Q(J)) ^ 2: NEXT J: B(20) = S / O(20)
2250 S = 0: O(21) = 0: FOR J = 1 TO X: S = S + P(J) * U(J) * K(J) * Y(J)
2260 O(21) = O(21) + (P(J) * U(J) * K(J)) ^ 2: NEXT J: B(21) = S / O(21)
2270 S = 0: O(22) = 0: FOR J = 1 TO X: S = S + K(J) * V(J) * Y(J)
2280 O(22) = O(22) + (K(J) * V(J)) ^ 2: NEXT J: B(22) = S / O(22)
2290 S = 0: O(23) = 0: FOR J = 1 TO X: S = S + Q(J) * V(J) * Y(J)
2300 O(23) = O(23) + (Q(J) * V(J)) ^ 2: NEXT J: B(23) = S / O(23)
2310 S = 0: O(24) = 0: FOR J = 1 TO X: S = S + I(J) * Q(J) * V(J) * Y(J)
2320 O(24) = O(24) + (I(J) * Q(J) * V(J)) ^ 2: NEXT J: B(24) = S / O(24)
2330 S = 0: O(25) = 0: FOR J = 1 TO X: S = S + P(J) * K(J) * V(J) * Y(J)
2340 O(25) = O(25) + (P(J) * K(J) * V(J)) ^ 2: NEXT J: B(25) = S / O(25)
2350 S = 0: O(26) = 0: FOR J = 1 TO X: S = S + U(J) * K(J) * Q(J) * Y(J)
2360 O(26) = O(26) + (U(J) * K(J) * Q(J)) ^ 2: NEXT J: B(26) = S / O(26)
2370 S = 0: O(27) = 0: FOR J = 1 TO X: S = S + K(J) * Q(J) * V(J) * Y(J)
2380 O(27) = O(27) + (K(J) * Q(J) * V(J)) ^ 2: NEXT J: B(27) = S / O(27)
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
2415 IF X = 3 GOTO 2510
2440 IF X = 9 GOTO 2540
2500 IF X = 27 GOTO 2600
2510 GOSUB 4390: GOTO 2610
2540 GOSUB 4450: GOTO 2610
2600 GOSUB 4770: 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
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)-РЕЗУЛЬТАТЫ ОПЫТОВ ";



                                                       39