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

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 1210-ПРОДОЛЖЕНИЕ"
1190 PRINT "ВВОД I0": INPUT I0: IF I0 = 1 GOTO 1160
1200 IF I0 = 2 GOTO 1210
1210 IF X = 3 GOTO 1310
1220 IF X = 4 GOTO 1320
1230 IF X = 5 GOTO 1330
1240 IF X = 9 GOTO 1340
1250 IF X = 12 GOTO 1350
1260 IF X = 15 GOTO 1360
1270 IF X = 16 GOTO 1370
1280 IF X = 20 GOTO 1380
1290 IF X = 25 GOTO 1390
1300 IF X = 27 GOTO 1400
1310 GOSUB 4150: GOTO 1410
1320 GOSUB 4210: GOTO 1410
1330 GOSUB 4290: GOTO 1410
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




                                      132