This is a LRAM, MRAM, RRAM program written for the TI-83 by Daniel Pittard, ACS class of 2004. It should also work for the TI-84. Before running the program, enter the function you are evaluating as Y1. (Note: By Y1, I mean “Y subscript 1”. In other words, enter the function as if you are about to graph it. To write Y1 in the program, hit “VARS”, “Y-VARS”, “FUNCTION”, “1”.)

PROGRAM: RAM

:ClrHome

:Input “Number of Intervals”, N

:Input “Left endpoint”, L

:Input “Right endpoint”, R

:(R-L)/N→W

:sum(W*(seq(Y1, X, L, R-W,W))→T

:Disp “LRAM=”,T

:sum(W*(seq(Y1, X, L+W, R,W))→T

:Disp “RRAM=”,T

:sum(W*(seq(Y1, X, L+(W/2), R-(W/2),W))→T

:Disp “MRAM=”, T

:Stop

Advertisements

Pingback: Building a Riemann Sum Spreadsheet | Reflections of a Second-career Math Teacher