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

      3230 IF I0=9 GOTO 6830
      3240 PRINT "ПРОВЕРКА ТОЧНОСТИ И РАСЧЕТЫ ПО МОДЕ-
ЛИ"
    3280 IF X=9 GOTO 3420
    3420 FOR S=1 TO X:F(S)=0:H(S)=0:Z(S)=0
    3430 PRINT "ВВОД F(":S;"),Н(";S;")":INPUT F(S),H(S)
    3432 PRINT"F(";S;")=";F(S);"H(";S;")=":H(S)
    3500 GOSUB 4150:GOSUB 4170:GOSUB 4450
    3552 PRINT"Z(";S;")=";X(S):NEXT S:GOTO 3610
    3610 PRINT"IF I0=10 GOTO 3240":PRINT"IF I0=11 GOTO 40"
    3612 PRINT"IF I0=14 GOTO 7000"
    3620 PRINF”IF I0=12 GOTO 6830":PRINT"ВВОД I0":INPUT I0
    3630 IF I0=10 GOTO 3240
    3640 IF I0=11 GOTO 40
    3650 IF I0=12 GOTO 6830
    3653 IF I0=14 GOTO 7000
    3660 N0=(A^N+B^N+E^N)/3:R0= (A^R+B^R+E^R) /3
    3670 L2=2×N: N3=(A^+B^+E^L2) /3: N4=N+R
    3680 N5=(A^N4+B^N4+E^N4)/3:V0=-N0
    3690 U0=(N0×R0 - N5)/(N3 - N0^2):Q0=-(R0+U0×N0)
    3700 PRINT "КОЭФФИЦИЕНТЫ ОРТОГОНАЛИЗАЦИИ": RE-
TURN
    4150 FOR J=l TO X:I(J)=F(J)^Jl+Vl
    4160 K(J)=F(J)^01+Ul^F(J)^Jl+Ql:NEXT J: RETURN
    4170 FOR J=l TO X:P(J)=H(J)^2+V2
    4180 Q(J) = H(J)^02+U2×H(J)^J2+Q2:NEXT J:RETURN
    4450 FOR J=l TO X:N3=B(l)+B(2) ×I(J)+B(3) ×K(J)+B(4) × P(J)
    4460 N4=B(5) × I(J) × P(J)+B(6) × Q(J)+B(7) × I(J) × Q(J)
    4880 РRINT “ МАТЕМАТИЧЕСКАЯ МОДЕЛЬ"
    4930 PRINT "Z(J)=";B(l);"+";B(2);" × I(J)+";B(3);" × K(J)+"
    4940 PRINT "+";B(4);" × P(J)+";B(5);" ×I(J) × P(J)+"
    4950 PRINT "+";B(6);" ×Q(J)+";B(7);" × I(J) × Q(J)+"
    4960 PRINT "+";B(8);" × P(J) × K(J)+";B(9);" × K(J) × Q(J),"
    5110 PRINT "ГДЕ"
    5120 PRINT "I(J)=F(J)^";J1;"+";V1;";"
    5130 PRINT "K(J)=F(J)^";01;"+";Ul;" × F(J)^";Jl;"+";Ql
    5150 PRINT "Р(J)=Н(J)^”;J2;”+”;V2;”;”
    5160 PRINT "Q(J)=H(J)^";O2;"+";U2;" ×H(J)^";J2;"+";Q2
    6790 PRINT "IF I0=18 GOTO 2660":PRINT "IF I0=19 GOTO 3190"
    6793 PRINT "IF I0=35 GOTO 1160":PRINT "IF I0=44 GOTO 6830"
                                 85