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

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): IF X = 9 GOTO 2390
1590 IF X = 27 GOTO 2040
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)
1650 IF X = 12 GOTO 2390
1660 IF X = 16 GOTO 1930
1670 S = 0: O(13) = 0: FOR J = 1 TO X: S = S + V(J) * Y(J)
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): IF X = 15 GOTO 2390
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): IF X = 20 GOTO 2390
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




                                     133