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

805 H(12) = B2
810 F(13) = D1: H(13) = A2: F(14) = D1: H(14) = C2: F(15) = D1
815 H(15) = D2
820 F(16) = D1: H(16) = B2: GOTO 1130
1130 PRINT "IF I0=6 GOTO 40-НАЧАЛО"
1135 PRINT "IF I0=7 GOTO 1160-ПРОДОЛЖЕНИЕ"
1140 INPUT I0: IF I0 = 6 GOTO 40
1150 IF I0 = 7 GOTO 1160
1160 PRINT "ВВОД ВЕЛИЧИН ПОКАЗАТЕЛЕЙ ПО ПЛАНУ Y(J) "
1161 PRINT #1, "ВЕЛИЧИНЫ ПОКАЗАТЕЛЕЙ В СООТВЕТСТВИИ С ПЛАНОМ Y(J)"
1165 FOR J = 1 TO X
1166 PRINT "Y("; J; ")": INPUT Y(J)
1170 PRINT #1, "Y("; J; ")="; Y(J): NEXT J
1180 PRINT "IF I0=1 GOTO 1160-ПОВТОРЕНИЕ ВВОДА ПОКАЗАТЕЛЕЙ"
1185 PRINT "IF I0=2 GOTO 1220-ПРОДОЛЖЕНИЕ"
1190 PRINT "ВВОД I0": INPUT I0: IF I0 = 1 GOTO 1160
1200 IF I0 = 2 GOTO 1220
1220 IF X = 4 GOTO 1320
1270 IF X = 16 GOTO 1370
1320 GOSUB 4210: GOTO 1410
1370 GOSUB 4210: GOSUB 4250: GOTO 1410
1410 S = 0: О(1) = 0: FOR J = 1 TO X: S = S + Y(J): О(1) = О(1) + 1: NEXT J
1420 B(1) = S / О(1): S = 0: О(2) = 0: FOR J = 1 TO X: S = S + I(J) * Y(J)
1430 О(2) = О(2) + I(J) ^ 2: NEXT J: B(2) = S / О(2): S = 0: О(3) = 0
1440 FOR J = 1 TO X: S = S + K(J) * Y(J): О(3) = О(3) + K(J) ^ 2: NEXT J
1450 B(3) = S / О(3)
1460 IF X = 4 GOTO 2000
1480 S = 0: О(4) = 0: FOR J = 1 TO X: S = S + P(J) * Y(J)
1490 О(4) = О(4) + P(J) ^ 2: NEXT J: B(4) = S / О(4): S = 0: О(5) = 0
1500 FOR J = 1 TO X: S = S + I(J) * P(J) * Y(J): О(5) = О(5) + (I(J) * P(J)) ^ 2
1510 NEXT J: B(5) = S / О(5): S = 0: О(6) = 0: FOR J = 1 TO X
1520 S = S + Q(J) * Y(J): О(6) = О(6) + Q(J) ^ 2: NEXT J: B(6) = S / О(6)
1530 S = 0: О(7) = 0: FOR J = 1 TO X: S = S + I(J) * Q(J) * Y(J)
1540 О(7) = О(7) + (I(J) * Q(J)) ^ 2: NEXT J: B(7) = S / О(7): S = 0
1550 О(8) = 0: FOR J = 1 TO X: S = S + P(J) * K(J) * Y(J)
1560 О(8) = О(8) + (P(J) * K(J)) ^ 2: NEXT J: B(8) = S / О(8): S = 0: О(9) = 0
1570 FOR J = 1 TO X: S = S + K(J) * Q(J) * Y(J): О(9) = О(9) + (K(J) * Q(J)) ^ 2
1580 NEXT J: B(9) = S / О(9)
1600 S = 0: О(10) = 0: FOR J = 1 TO X: S = S + U(J) * Y(J): О(10) = О(10) + U(J) ^ 2
1610 NEXT J: B(10) = S / О(10): S = 0: О(11) = 0: FOR J = 1 TO X
1620 S = S + I(J) * U(J) * Y(J): О(11) = О(11) + (I(J) * U(J)) ^ 2: NEXT J
1630 B(11) = S / О(11): S = 0: О(12) = 0: FOR J = 1 TO X: S = S + K(J) * U(J) * Y(J)
1640 О(12) = О(12) + (K(J) * U(J)) ^ 2: NEXT J: B(12) = S / О(12)
1660 IF X = 16 GOTO 1930
1930 S = 0: О(13) = 0: FOR J = 1 TO X: S = S + L(J) * Y(J): О(13) = О(13) + L(J) ^ 2
1940 NEXT J: B(13) = S / О(13): S = 0: О(14) = 0: FOR J = 1 TO X
1950 S = S + P(J) * L(J) * Y(J): О(14) = О(14) + (P(J) * L(J)) ^ 2: NEXT J
1960 B(14) = S / О(14): S = 0: О(15) = 0: FOR J = 1 TO X: S = S + Q(J) * L(J) * Y(J)




                                        150