; ************************************************************
; Integral Approximation - Trapezoidal Rule
; ************************************************************
; Sourcebook for Programmable Calculators, Pgs. 3-10 - 3-13
;  Definite Integrals - Trapezoidal Rule

#EMULATOR c:\ti-59\prg2\integ1\integ1.t59
#LISTING c:\ti-59\prg2\integ1\integ1.lst
#POCKETPC c:\ti-59\prg2\integ1\integ1.ti

; Stores x0.
; ----------
lbl a
sto 1 r/s

; Stores xn.
; ----------
lbl b
sto 2 r/s

; Stores n.
; ---------
lbl c
sto 3 r/s

; Calculates h and stores in R04.
; -------------------------------
lbl d
clr sto 6 sto 7 ( rcl 2 - rcl 1 )
/ rcl 3 = sto 4

; Calculates f(x0) and adds to R07.
; ---------------------------------
rcl 1 e sum 7

; Calculates total integral.
; --------------------------
rcl 3 sto 5 
lbl a'
dsz 5 b' rcl 2 e sum 7 rcl 7 *
rcl 4 / 2 = prt r/s
lbl b'
rcl 4 sum 6 rcl 6 e * 2 = sum 7 gto a'

; Labels f(x) subroutine
; ----------------------
lbl e
; Insert instructions for f(x) here:

rtn




 
#end
 