Теория и практика эффективного математического моделирования. Черный А.А. - 130 стр.

1340 GOSUB 4150: GOSUB 4170: GOTO 1410
1350 GOSUB 4150: GOSUB 4250: GOTO 1410
1360 GOSUB 4150: GOSUB 4340: GOTO 1410
1370 GOSUB 4210: GOSUB 4250: GOTO 1410
1380 GOSUB 4210: GOSUB 4340: GOTO 1410
1390 GOSUB 4290: GOSUB 4340: GOTO 1410
1400 GOSUB 4150: GOSUB 4170: GOSUB 4190: GOTO 1410
1410 S = 0: O(1) = 0: FOR J = 1 TO X: S = S + Y(J): O(1) = O(1) + 1:
NEXT J
1420 B(1) = S / O(1): S = 0: O(2) = 0: FOR J = 1 TO X: S = S + I(J) *
Y(J)
1430 O(2) = O(2) + I(J) ^ 2: NEXT J: B(2) = S / O(2): S = 0: O(3) = 0
1440 FOR J = 1 TO X: S = S + K(J) * Y(J): O(3) = O(3) + K(J) ^ 2:
NEXT J
1450 B(3) = S / O(3): IF X = 3 GOTO 2390
1460 IF X = 4 GOTO 2000
1470 IF X = 5 GOTO 2000
1480 S = 0: O(4) = 0: FOR J = 1 TO X: S = S + P(J) * Y(J)
1490 O(4) = O(4) + P(J) ^ 2: NEXT J: B(4) = S / O(4): S = 0: O(5) = 0
1500 FOR J = 1 TO X: S = S + I(J) * P(J) * Y(J): O(5) = O(5) + (I(J) *
P(J)) ^ 2
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


                                  130