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

1230 S = 0: O(23) = 0: FOR J = 1 TO X: S = S + P(J) * U(J) * V(J) *
Y(J)
1240 O(23) = O(23) + (P(J) * U(J) * V(J)) ^ 2: NEXT J: B(23) = S /
O(23)
1250 S = 0: O(24) = 0: FOR J = 1 TO X: S = S + I(J) * P(J) * U(J) * V(J)
* Y(J)
1260 O(24) = O(24) + (I(J) * P(J) * U(J) * V(J)) ^ 2: NEXT J: B(24) = S
/ O(24)
1270 S = 0: O(25) = 0: FOR J = 1 TO X: S = S + Q(J) * V(J) * Y(J)
1280 O(25) = O(25) + (Q(J) * V(J)) ^ 2: NEXT J: B(25) = S / O(25)
1290 S = 0: O(26) = 0: FOR J = 1 TO X: S = S + I(J) * Q(J) * V(J) *
Y(J)
1300 O(26) = O(26) + (I(J) * Q(J) * V(J)) ^ 2: NEXT J: B(26) = S /
O(26)
1310 S = 0: O(27) = 0: FOR J = 1 TO X: S = S + P(J) * Q(J) * V(J) *
Y(J)
1320 O(27) = O(27) + (P(J) * Q(J) * V(J)) ^ 2: NEXT J: B(27) = S /
O(27)
1330 S = 0: O(28) = 0: FOR J = 1 TO X: S = S + I(J) * P(J) * Q(J) * V(J)
* Y(J)
1340 O(28) = O(28) + (I(J) * P(J) * Q(J) * V(J)) ^ 2: NEXT J: B(28) = S
/ O(28)
1350 S = 0: O(29) = 0: FOR J = 1 TO X: S = S + U(J) * Q(J) * V(J) *
Y(J)
1360 O(29) = O(29) + (U(J) * Q(J) * V(J)) ^ 2: NEXT J: B(29) = S /
O(29)
1370 S = 0: O(30) = 0: FOR J = 1 TO X: S = S + I(J) * U(J) * Q(J) *
V(J) * Y(J)
1380 O(30) = O(30) + (I(J) * U(J) * Q(J) * V(J)) ^ 2: NEXT J: B(30) = S
/ O(30)
1390 S = 0: O(31) = 0: FOR J = 1 TO X: S = S + P(J) * U(J) * Q(J) *
V(J) * Y(J)
1400 O(31) = O(31) + (P(J) * U(J) * Q(J) * V(J)) ^ 2: NEXT J: B(31) =
S / O(31)
1410 S = 0: O(32) = 0: FOR J = 1 TO X: S = S + I(J) * P(J) * U(J) * Q(J)
* V(J) * Y(J)
1420 O(32) = O(32) + (I(J) * P(J) * U(J) * Q(J) * V(J)) ^ 2: NEXT J
1430 B(32) = S / O(32): GOTO 1440
1440 PRINT #1, "B(J) ДО АНАЛИЗА": FOR J = 1 TO X
1445 PRINT #1, "B("; J; ")="; B(J)
1450 NEXT J: GOTO 1454
1454 PRINT "ВВОД N0-КОЛИЧЕСТВО ОПЫТОВ НА СРЕДНЕМ
УРОВНЕ ФАКТОРОВ"


                                  110