# TITLE:  Trapesium Integration
# AUTHOR: Roy F A Maclean 
# EMAIL:  rfamgm at gmail
# WEB:    http://www.spiderpixel.co.uk/caspro   
# DATE:   8Nov1995
# MAKE:   CASIO
# MODEL:  fx6300G or greater
# SIZE:   79        
# NOTES:  The simpson program is more accurate than this.
#         Program prompts for 'a' and 'b' the lower and upper bounds of 
#         integration. Then for S - the number of sections to divide
#         the interval into. The higher the number the more accurate.
#
#         If your calculator has a function memory
#         then store the function to integrate (as a function of X) into
#         f-memory 'f6'. If not then replace the f6 in this program with the
#         required function.
# __________________________________________

Mcl:"A"?->A:"B":?->B
"S"?->S:(B-X)/S->H
f6->T
Lbl 1
X+H->H
C=S-1=>Goto 2
T+2f6->T
Isz C:Goto 1
Lbl 2:H(T+f6)/2

# __________________________________________