SHOWRAM.8xp

Purpose: Estimates definite integrals using Riemann Sums (Left, Middle, and Right) and displays them graphically.

Download SHOWRAM.8xp

Screenshots

Source Code

:Disp "A="
:Input A
:Disp "B="
:Input B
:Disp "NO.SUBINT"
:Input N
:(B-A)/NH
:H/2D
:0L
:0M
:0R
:ClrDraw
:DispG
:0J
:AX
:Lbl 1
:Y1+LL
:Line(X,0,X,Y1)
:Line(X,Y1,X+H,Y1)
:Line(X+H,0,X+H,Y1)
:X+HX
:J+1J
:If J :Goto 1
:Pause
:HLL
:ClrHome
:Disp "LEFT="
:Disp L
:Pause
:ClrDraw
:DispG
:0J
:A+HX
:Lbl 2
:Y1+RR
:Line(X-H,0,X-H,Y1)
:Line(X-H,Y1,X,Y1)
:Line(X,0,X,Y1)
:X+HX
:J+1J
:If J :Goto 2
:Pause
:HRR
:Disp "RIGHT="
:Disp R
:Pause
:ClrDraw
:DispG
:0J
:A+DX
:Lbl 3
:Y1+MM
:Line(X-D,0,X-D,Y1)
:Line(X-D,Y1,X+D,Y1)
:Line(X+D,Y1,X+D,0)
:X+HX
:J+1J
:If J :Goto 3
:HMM
:Pause
:Disp "MIDPT="
:Disp