Small, Complete Riemansum
(c) Christopher Browne, 1995

(Christopher_Browne@brown.edu)
------------------------------------------------------------
RIEMANSUM
Mcl
"LEFT ENDPOINT"?->X
"RIGHT ENDPOINT"?->B
"NUM OF SUBINTERVALS"?->N
(B-X)/N->H
H/2->D
Lbl 0
f1+L->L
X+D->X
f1+M->M
X+D->X
f1+M->M
X+D->X
f1+R->R
(B-X)>e-5=>Goto 0  *e is EXP*
"LEFT"
HL->L,
"MID"
HM->M,
"RIGHT"
HR->R,
"TRAP"
(L+R)/2
"SIMP"
6@L+2/3M+6@R  *@ SYMBOL IS THE x^-1 key*