Прогнозирование свойств материалов по математическим моделям. Черный А.А - 37 стр.

1680 O(13) = O(13) + V(J) ^ 2: NEXT J: B(13) = S / O(13): S = 0: O(14) = 0
1690 FOR J = 1 TO X: S = S + I(J) * V(J) * Y(J): O(14) = O(14) + (I(J) * V(J)) ^ 2
1700 NEXT J: B(14) = S / O(14): S = 0: O(15) = 0: FOR J = 1 TO X
1710 S = S + K(J) * V(J) * Y(J): O(15) = O(15) + (K(J) * V(J)) ^ 2: NEXT J
1720 B(15) = S / O(15)
1730 S = 0: O(16) = 0: FOR J = 1 TO X: S = S + L(J) * Y(J): O(16) = O(16) + L(J) ^ 2
1740 NEXT J: B(16) = S / O(16): S = 0: O(17) = 0: FOR J = 1 TO X
1750 S = S + P(J) * L(J) * Y(J): O(17) = O(17) + (P(J) * L(J)) ^ 2: NEXT J
1760 B(17) = S / O(17): S = 0: O(18) = 0: FOR J = 1 TO X
1770 S = S + Q(J) * L(J) * Y(J): O(18) = O(18) + (Q(J) * L(J)) ^ 2: NEXT J
1780 B(18) = S / O(18): S = 0: O(19) = 0: FOR J = 1 TO X
1790 S = S + L(J) * U(J) * Y(J): O(19) = O(19) + (L(J) * U(J)) ^ 2: NEXT J
1800 B(19) = S / O(19): S = 0: O(20) = 0: FOR J = 1 TO X
1810 S = S + L(J) * V(J) * Y(J): O(20) = O(20) + (L(J) * V(J)) ^ 2: NEXT J
1820 B(20) = S / O(20)
1830 S = 0: O(21) = 0: FOR J = 1 TO X: S = S + M(J) * Y(J)
1840 O(21) = O(21) + M(J) ^ 2: NEXT J: B(21) = S / O(21): S = 0: O(22) = 0
1850 FOR J = 1 TO X: S = S + P(J) * M(J) * Y(J): O(22) = O(22) + (P(J) * M(J)) ^ 2
1860 NEXT J: B(22) = S / O(22): S = 0: O(23) = 0: FOR J = 1 TO X
1870 S = S + Q(J) * M(J) * Y(J): O(23) = O(23) + (Q(J) * M(J)) ^ 2: NEXT J
1880 B(23) = S / O(23): S = 0: O(24) = 0: FOR J = 1 TO X: S = S + U(J) * M(J) * Y(J)
1890 O(24) = O(24) + (U(J) * M(J)) ^ 2: NEXT J: B(24) = S / O(24): S = 0
1900 O(25) = 0: FOR J = 1 TO X: S = S + M(J) * V(J) * Y(J)
1910 O(25) = O(25) + (M(J) * V(J)) ^ 2: NEXT J: B(25) = S / O(25)
1920 IF X = 25 GOTO 2390
2000 S = 0: O(4) = 0: FOR J = 1 TO X: S = S + L(J) * Y(J): O(4) = O(4) + L(J) ^ 2
2010 NEXT J: B(4) = S / O(4)
2020 S = 0: O(5) = 0: FOR J = 1 TO X: S = S + M(J) * Y(J)
2030 O(5) = O(5) + M(J) ^ 2: NEXT J: B(5) = S / O(5): 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
2430 IF X = 5 GOTO 2530
2490 IF X = 25 GOTO 2590
2530 GOSUB 4420: GOTO 2610
2590 GOSUB 4690: 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))"




                                        37