Вычислительная техника в инженерных расчетах и моделировании. Черный А.А. - 87 стр.

       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=l 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/0(9)
       2390 PRINT "B(J) ДО АНАЛИЗА": FOR J=l TO X:PRINT"B(";J;")=";B(J)
       2400 NEXT J:PRINT:PRINT "ВВОД N0":INPUT N0
       2410 PRINT "N0=";N0
       2540 GOSUB 4450
       2610 PRINT "РАСЧЕТНЫЕ ВЕЛИЧИНЫ ПОКАЗАТЕЛЯ Z(J) ДО АНАЛИЗА B(J)"
       2620 FOR J=l TO X:PRINT"Z(";J;")=";Z(J):NEXT J
       2630 PRINT "ВВОД F8=N0-1":INPUT F8:PRINT "F8=":F8
       2640 PRINT "ПРОВЕРКА ПО РАЗНОСТИ Y(J)-ZCJ)"
       2650 FOR J=l TO X: PRINT Y(J) - Z(J);:NEXT J
       2660 PRINT "IF I0=3 GOTO 2720":PRINT "IF I0=4 GOTO 2770"
       2670 PRINT "IF I0=5 GOTO 3240":PRINT "IF I0=6 GOTO 40"
       2677 PRINT "IF I0=20 GOTO 6830":PRINT "IF I0=25 GOTO 4880"
       2678 PRINT "IF I0=27 GOTO 7000"
       2680 PRINT "ВВОД I0":INPUT I0:IF I0=3 GOTO 2720
       2690 IF I0=4 GOTO 2770
       2700 IF I0=5 GOTO 3240
       2710 IF I0=6 GOTO 40
       2715 IF I0=20 GOTO 6830
       2717 IF I0=25 GOTO 4880
       2718 IF I0=27 GOTO 7000
       2720 FOR J=l TO NO:PRINT "ВВОД G(":J:")":INPUT G(J)
       2730 PRINT"G(";J:")=":G(J):NEXT J:S=0:FOR J=l TO N0:S=S+G(J)
       2740 NEXT J:SO=S/N0: PRINT "S0=";S0:S=0:FOR J=l TO N0
       2750 S=S+G(J) - S0)^2:NEXT J:U9=S/F8:PRINT "U9=";U9
       2760 GOTO 2780
       2770 PRINT "ВВОД U9":INPUT U9:PRINT "U9=":U9
       2780 PRINT "РАСЧЕТНЫЕ ВЕЛИЧИНЫ T(J)":FOR J=l TO X
       2790 T(J)=ABS(B(J)/SQR(U9/O(J))):PRINT"T(":J;")=";T(J):NEXT J
       2800 PRINT "ВВОД TO":INPUT TO:PRINT "TO=":TO
       2810 PRINT "B(J) ПОСЛЕ АНАЛИЗА":FOR J=l TO X
       2820 IF T(J) < TO GOTO 2840
       2830 IF T(J) >= TO GOTO 2850
       2840 B(J)=0
       2850 PRINT"B(";J:")=":B(J):NEXT J
       2860 K9=0:FOR J=l TO X: IF B(J)=0 GOTO 2880
       2870 K9=K9+1
       2880 NEXT J:PRINT:PRINT "K9=":K9
       2890 PRINT "F9=X-1":F9=X-1: PRINT "F9=":F9
       2900 PRINT "ВВОД ТАБЛИЧНОГО F7":INPUT F7:PRINT "F7=";F7
       2940 IF X=9 GOTO 3040
       3040 GOSUB 4450
3110 PRINT "РАСЧЕТНЫЕ ВЕЛИЧИНЫ ПОКАЗАТЕЛЯ Z(J) ПОСЛЕ АНАЛИЗА B(J)"
       3120 FOR J=l TO X:PRINT"Z(":J:")=";Z(J): NEXT J
       3130 S=0:FOR J=l TO X:S=S+(Z(J) - Y(J))^2:NEXT J
       3140 PRINT "РАСЧЕТНЫЙ F6":F6=S/(F9×U9):PRINT "F6=";F6
       3150 IF F6 <= F7 GOTO 3170
       3160 IF F6 > F7 GOTO 3180




                                           87