Wednesday, July 12, 2017

TI-84 Plus CE and Sharp EL-9600c: Composite Area

TI-84 Plus CE and Sharp EL-9600c: Composite Area




The program COMPAREA will compile a composite area made of the following geometric shapes:

* Right Triangle:  base and height known
* General Triangle:  side lengths known
* Rectangle: side lengths known
* Square:  length of side known
* Ellipse:  lengths of the semi-axis known
* Circle: radius known

Holes can accounted for entering one of the measurements as negative:

* For circular holes, choose Ellipse with A = -radius, B = radius.  (A < 0) 
* For square holes, choose Rectangle with A = -side length, B = side length. (A < 0)

TI-84 Plus CE Program COMPAREA

"EWS 2017-07-12"
0→T
Lbl 0
Menu("COMPOSITE AREA","RIGHT TRIANGLE",1,"TRIANGLE",2,"RECTANGLE",3,"SQUARE",4,"ELLIPSE",5,"CIRCLE",6,"FINAL",7)

Lbl 1
Disp "RIGHT TRIANGLE"
Prompt B,H
T+B*H/2→T
Goto 0
Lbl 2
Disp "TRIANGLE"
Prompt A,B,C
(A+B+C)/2→S
√(S*(S-A)*(S-B)*(S-C))+T→T
Goto 0
Lbl 3
Disp "RECTANGLE"
Prompt A,B
T+A*B→T
Goto 0
Lbl 4
Disp "SQUARE"
Prompt A
T+A²→T
Goto 0
Lbl 5
Disp "ELLIPSE"
Prompt A,B
T+π*A*B→T
Goto 0
Lbl 6
Disp "CIRCLE"
Input "RADIUS: ",A
T+π*A²→T
Goto 0
Lbl 7
Disp "TOTAL AREA=",T


Sharp EL-9600c Program COMPAREA

0T
Label MENU
Print “1. RIGHT TRIANGLE
Print “2. TRIANGLE
Print “3. RECTANGLE
Print “4. SQUARE
Print “5. ELLIPSE/CIRCLE
Print “6. FINAL
Input I
If I=1 Goto RTRI
If I=2 Goto GTRI
If I=3 Goto RECT
If I=4 Goto SQUA
If I=5 Goto CIRC
If I=6 Goto CALC
Goto MENU
Label RTRI
Print “RIGHT TRIANGLE
Input B
Input H
T + B*H/2 T
Goto MENU
Label GTRI
Print “TRIANGLE
Input A
Input B
Input C
(A + B + C)/2 S
√(S * (S – A) * (S – B) * (S – C)) + T T
Goto MENU
Label RECT
Print “RECTANGLE
Input A
Input B
T + A*B T
Goto MENU
Label SQUA
Print “SQUARE
Input A
T + A^2 T
Goto MENU
Label CIRC
Print “ELLIPSE/CIRCLE
Print “CIRCLE: A=B
Input A
Input B
T + π*A*B T
Goto MENU
Label CALC
Print “TOTAL AREA=
Print T

Examples




Example 1:

Composite area of:

(I):  Right triangle:  base of 3, height of 8
(II): Rectangle:  side lengths of 8 and 15
(III): General triangle: side lengths of 8, 6, and 6

Result:  149.8885438

Example 2:

(I):  Rectangle: lengths of 10 and 20
(II):  Circular hole with radius of 2.5.  (Enter as ellipse:  A = -2.5, B = 2.5)
(III): Square hole with side of 5 (Enter as rectangle, A = -5, B = 5)

Result:  155.3650459

Eddie


This blog is property of Edward Shore, 2017.

Sum of Sequential Integers (featuring Swiss Micros DM32)

  Sum of Sequential Integers ( featuring Swiss Micros DM32) What is the sum of the following: 100 + 101 + 102 + 103 + 104 + 105 + … + ...