Listing of file='8 ' on disk='vmedia/glbr_22.wvd.zip'
# Sector 24, program filename = '8'
0010 PRINT "ENTER LOWER LIMIT OF INTEGRATION,UPPER LIMIT OF INTEGRATION"
0020 INPUT A,B
0030 PRINT "ENTER NO. OF SUBINTERVALS"
0040 INPUT K
0090 C=(B-A)/K/2
0110 D=A+C
0115 T=0
0120 FOR J=1 TO K
0130 S=0
0140 FOR I=1 TO 10
0150 READ X,W
0160 S=S+W*(FNC(C*X+D)+FNC(D-C*X))
0170 NEXT I
0175 RESTORE
0180 T=T+S*C
0185 D=D+2*C
0190 NEXT J
0200 PRINT "INTEGRAL= ";T
0210 PRINT
0220 PRINT "CHANGE NUMBER OF SUBINTERVALS? ('1'--YES,'0'--NO)"
0230 INPUT I
0240 IF I=1 THEN 30
0250 PRINT "NEW INTEGRATION LIMITS? ('1'--YES,'0'--NO)"
0260 INPUT I
0270 IF I=1 THEN 10
0300 DATA 76526521E-9,.15275339,.22778585,.14917299,.37370609,.14209611
0310 DATA .510867,.13168864,.63605368,.11819453,.74633191,.10193012
0320 DATA .83911697,83276742E-9,.91223443,62672048E-9,.96397193
0330 DATA 4060143E-8,.9931286,17614007E-9
0999 END