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

611 PRINT #1, "ВВОД ВЕЛИЧИН ПОКАЗАТЕЛЕЙ В СООТВЕТСТВИИ С
ПЛАНОМ Y(J)"
615 FOR J = 1 TO X: PRINT "ВВОД Y("; J; ")": INPUT Y(J)
620 PRINT #1, "Y("; J; ")="; Y(J): NEXT J
630 PRINT "IF I0=1 GOTO 610-ПОВТОРЕНИЕ ВВОДА ПОКАЗАТЕЛЕЙ"
635 PRINT "IF I0=2 GOTO 660-ПРОДОЛЖЕНИЕ"
640 PRINT "ВВОД I0": INPUT I0: IF I0 = 1 GOTO 610
650 IF I0 = 2 GOTO 660
660 IF X = 2 GOTO 710
670 IF X = 4 GOTO 720
680 IF X = 8 GOTO 730
690 IF X = 16 GOTO 740
700 IF X = 32 GOTO 760
710 GOSUB 2490: GOTO 780
720 GOSUB 2490: GOSUB 2500: GOTO 780
730 GOSUB 2490: GOSUB 2500: GOSUB 2510: GOTO 780
740 GOSUB 2490: GOSUB 2500: GOSUB 2510: GOSUB 2520
750 GOTO 780
760 GOSUB 2490: GOSUB 2500: GOSUB 2510: GOSUB 2520
770 GOSUB 2530: GOTO 780
780 S = 0: O(1) = 0: FOR J = 1 TO X: S = S + Y(J): O(1) = O(1) + 1: NEXT J
790 B(1) = S / O(1): S = 0: O(2) = 0: FOR J = 1 TO X: S = S + I(J) * Y(J)
800 O(2) = O(2) + I(J) ^ 2: NEXT J: B(2) = S / O(2): IF X = 2 GOTO 1440
810 S = 0: O(3) = 0: FOR J = 1 TO X: S = S + P(J) * Y(J): O(3) = O(3) + P(J) ^
2
820 NEXT J: B(3) = S / O(3): S = 0: O(4) = 0: FOR J = 1 TO X
830 S = S + I(J) * P(J) * Y(J): O(4) = O(4) + (I(J) * P(J)) ^ 2: NEXT J
840 B(4) = S / O(4): IF X = 4 GOTO 1440
850 S = 0: O(5) = 0
860 FOR J = 1 TO X: S = S + U(J) * Y(J): O(5) = O(5) + U(J) ^ 2
870 NEXT J: B(5) = S / O(5): S = 0: O(6) = 0: FOR J = 1 TO X
880 S = S + I(J) * U(J) * Y(J): O(6) = O(6) + (I(J) * U(J)) ^ 2: NEXT J
890 B(6) = S / O(6): S = 0: O(7) = 0: FOR J = 1 TO X: S = S + P(J) * U(J) *
Y(J)
900 O(7) = O(7) + (P(J) * U(J)) ^ 2: NEXT J: B(7) = S / O(7): S = 0: O(8) = 0
910 FOR J = 1 TO X: S = S + I(J) * P(J) * U(J) * Y(J)
920 O(8) = O(8) + (I(J) * P(J) * U(J)) ^ 2: NEXT J: B(8) = S / O(8)
930 IF X = 8 GOTO 1440
940 S = 0: O(9) = 0: FOR J = 1 TO X
950 S = S + Q(J) * Y(J): O(9) = O(9) + Q(J) ^ 2: NEXT J: B(9) = S / O(9)
960 S = 0: O(10) = 0: FOR J = 1 TO X: S = S + I(J) * Q(J) * Y(J)




                                     112