\START85\
\COMMENT=Program file dated 01/10/96, 18:19
\NAME=Riemann
\FILE=RIEMANN.85P
:ClLCD
:Prompt LEFT
:Prompt RIGHT
:Input "DIVISIONS?",DIVISION
:(RIGHT-LEFT)/DIVISION\->\LENGTH
:Input "% OF LENGTH / SAMPLE?",PER
:PER/100\->\PER
:LENGTH*PER\->\SAMPLE
:InpST "FUNCTION: ",FCT
:\St>Eq\(FCT,FUN)
:InpST "SKIP LIST?",MM
:If MM=="Y"
:Goto MEMRY
:Pause seq(LENGTH(FUN),x,LEFT+SAMPLE,(RIGHT-LENGTH)+SAMPLE,LENGTH)\>Frac\\#\
:Lbl MEMRY
:Disp "THE RIEMANN SUM IS"
:Disp sum seq(LENGTH(FUN),x,LEFT+SAMPLE,(RIGHT-LENGTH)+SAMPLE,LENGTH)\>Frac\\#\
:Disp "THE DEFINITE INTEGRAL"
:Disp "IS"
:Disp fnInt(FUN,x,LEFT,RIGHT)\>Frac\
\STOP85\