; ************************************ 
; Master Library 09
; ************************************
; Simpson's Approximation (Continuous)


#EMULATOR c:\ti-59\ml\09\ML-09.t59

#LISTING c:\ti-59\ml\09\ML-09.LST

#AZEMULATOR c:\ti-59\ml\09\ML-09.TI


lbl e                                  ;000
( rcl 1 + rcl 5 * rcl 3 ) rtn

lbl a                                  ;013
sto 1 rtn

lbl b                                  ;018
sto 2 rtn

lbl c                                  ;023
( abs sto 5 / 2 ) inv int cp inv eq
ee ( rcl 5 1/x * ( rcl 2 - rcl 1 )
) sto 3 rtn

lbl ee                                 ;054
0 1/x rtn

lbl d                                  ;059
e pgm 0 a' sto 4

lbl abs                                ;067
1 inv sum 5 ( e pgm 0 a' * 4 ) sum 4
inv dsz 5 yx ( e pgm 0 a' * 2 ) 
sum 4 gto abs

lbl yx                                 ;099
e pgm 0 a' sum 4 ( rcl 3 / 3 ) prd 4
rcl 4 rtn


#end 
