Sharp EL-9900C - Page 91

16
Advanced Keyboard/CALCULUS USING THE SHARP EL-9900
Copyright © 2002, Sharp Electronics Corporation. Permission is granted to photocopy for educational use only.
A program for finding the trapezoidal approximation for an area.
Input N PRGM A 3 ALPHA N ENTER
Input A PRGM 3 ALPHA A ENTER
Y1(A)⇒L 2ndF VARS A ENTER A 1
(
ALPHA A
)
STO
ALPHA L ENTER
Input B PRGM 3 ALPHA B ENTER
Y1(B)⇒R 2ndF VARS ENTER 1
(
ALPHA B
)
STO ALPHA R
ENTER
0⇒Z 0 STO ALPHA Z ENTER
(B–A)÷N⇒W
(
ALPHA B – ALPHA A
)
÷ ALPHA N STO
ALPHA W ENTER
A+W⇒X ALPHA A + ALPHA W STO X/θ/T/n ENTER
Label LOOP PRGM B 0 1 2ndF A-LOCK L O O P
ALPHA ENTER
2Y1(X)+Z⇒Z 2 2ndF VARS ENTER 1
(
X/θ/T/n
)
+ ALPHA Z STO
ALPHA Z ENTER
X+W⇒XX/θ/T/n + ALPHA W STO X/θ/T/n ENTER
If X<BGoto PRGM B 0 3 X/θ/T/n MATH F 5 ALPHA B
LOOP PRGM 0 2 2ndF A-LOCK L O O P ENTER
ClrT PRGM C 1 ENTER
Print "TRAP= PRGM A 1 PRGM 2 2ndF A-LOCK T R A P =
PRGM 2 ENTER
Print (W÷2) PRGM 1
(
ALPHA W ÷ 2
)(
ALPHA
(L+Z+R) L + ALPHA Z + ALPHA R
)
ENTER
End PRGM 6 ENTER
Execute like the rectangular program to find an approximate area of .83866.
TRAPEZOIDAL
APPROXIMATION OF AREA