Программирование на языке Бейсик применительно к математическому моделированию. Черный А.А. - 32 стр.

                                                              32

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
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 "КОЭФФИЦИЕНТЫ ОРТОГОНАЛИЗАЦИИ": RETURN
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)+"