Математическое моделирование в литейном производстве. Черный А.А. - 132 стр.

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
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): IF X = 4 GOTO 2390
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
2040 S = 0: O(10) = 0: FOR J = 1 TO X: S = S + U(J) * Y(J)
2050 O(10) = O(10) + U(J) ^ 2: NEXT J: B(10) = S / O(10): S = 0: O(11)
=0
2060 FOR J = 1 TO X: S = S + I(J) * U(J) * Y(J): O(11) = O(11) + (I(J)
* U(J)) ^ 2
2070 NEXT J: B(11) = S / O(11): S = 0: O(12) = 0: FOR J = 1 TO X
2080 S = S + P(J) * U(J) * Y(J): O(12) = O(12) + (P(J) * U(J)) ^ 2:
NEXT J
2090 B(12) = S / O(12): S = 0: O(13) = 0: FOR J = 1 TO X
2100 S = S + I(J) * P(J) * U(J) * Y(J): O(13) = O(13) + (I(J) * P(J) *
U(J)) ^ 2
2110 NEXT J: B(13) = S / O(13): S = 0: O(14) = 0: FOR J = 1 TO X
2120 S = S + V(J) * Y(J): O(14) = O(14) + V(J) ^ 2: NEXT J: B(14) = S
/ O(14)
2130 S = 0: O(15) = 0: FOR J = 1 TO X: S = S + I(J) * V(J) * Y(J)
2140 O(15) = O(15) + (I(J) * V(J)) ^ 2: NEXT J: B(15) = S / O(15): S =
0
2150 O(16) = 0: FOR J = 1 TO X: S = S + P(J) * V(J) * Y(J)
2160 O(16) = O(16) + (P(J) * V(J)) ^ 2: NEXT J: B(16) = S / O(16): S =
0
2170 O(17) = 0: FOR J = 1 TO X: S = S + U(J) * K(J) * Y(J)
2180 O(17) = O(17) + (U(J) * K(J)) ^ 2: NEXT J: B(17) = S / O(17): S =
0
2190 O(18) = 0: FOR J = 1 TO X: S = S + U(J) * Q(J) * Y(J)
2200 O(18) = O(18) + (U(J) * Q(J)) ^ 2: NEXT J: B(18) = S / O(18): S =
0
2210 O(19) = 0: FOR J = 1 TO X: S = S + I(J) * P(J) * V(J) * Y(J)
2220 O(19) = O(19) + (I(J) * P(J) * V(J)) ^ 2: NEXT J: B(19) = S /
O(19)


                                 132