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

     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
     3170 PRINT "АДЕКВАТНО":GOTO 3190
     3180 PRINT "НЕАДЕКВАТНО"
     3190 PRINT "IF I0=7 GOTO 3240":PRINT "IF I0=8 GOTO 40"
     3197 PRINT "IF I0=17 GOTO 4880":PRINT "IF I0=22 GOTO 7000"
     3200 PRINT "IF I0=9 GOTO 6830":PRINT "ВВОД I0":INPUT I0
     3210 IF I0=7 GOTO 3240
     3220 IF I0=8 GOTO 40
     3227 IF I0=17 GOTO 4880
     2228 IF I0=22 GOTO 7000
                                 84