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

                                                                   31

1530 S=0:O(7)=0:FOR J=l TO X:S=S+I(J) ×Q(J) ×Y(J)
1540 О(7)=О(7)+(I(J) ×Q(J))^2:NЕХТ J:B(7)=S/O(7):S=0
1550 O(8)=0:FOR J=l TO X:S=S+P(J) × K(J) ×Y(J)
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