Listing of file='6' on disk='vmedia/glbr_22.wvd.zip'
# Sector 713, program filename = '6' 0005 DIM T(8) 0010 PRINT "INPUT 'LOWER LIMIT, UPPER LIMIT' (TO END PROGRAM INPUT" 0011 PRINT "EQUAL LIMITS)" 0020 INPUT X1,X2 0030 IF X2=X1 THEN 999 0040 L=X2-X1 0050 Y1=FNC(X1) 0060 Y=FNC(X2) 0070 T(1)=(Y1+Y)/2 0080 N=1 0090 FOR H=1 TO 7 0100 U=0 0110 M=L/(2*N) 0120 FOR J=1 TO 2*N-1 STEP 2 0130 Y=FNC(X1+J*M) 0140 U=U+Y 0150 NEXT J 0160 T(H+1)=(U/N+T(H))/2 0170 F=1 0180 FOR J=H TO 1 STEP -1 0190 F=F*4 0200 T(J)=T(J+1)+(T(J+1)-T(J))/(F-1) 0210 NEXT J 0220 N=2*N 0230 I2=T(1)*L 0240 IF H=1 THEN 260 0250 IF ABS(I1-I2)<=1E-4*ABS(I2) THEN 400 0260 I1=I2 0270 NEXT H 0280 PRINT "UNABLE TO COMPUTE INTEGRAL TO 4 SIGNIFICANT DIGITS." 0290 PRINT "CLOSEST APPROXIMATION IS:";I2 0295 PRINT 0300 PRINT "INPUT 'LOWER LIMIT, UPPER LIMIT'" 0310 GOTO 20 0400 PRINT "INTEGRAL= ";I2 0410 GOTO 295 0999 END