Wednesday, April 6, 2016

Simple Right Triangle Solver: Casio Classpad, TI-84 Plus

Simple Right Triangle Solver:  Casio Classpad, TI-84 Plus

Variables:
x = length of the base (run)
y = length of the height (rise)
d = length of the diagonal
θ = angle (opposite of side y)

‘Setup

SetDecimal

‘Set Degrees
SetDegree

‘Local \\ I use the x and y from the keyboard in combined variable names
Local sx,sy,sd,sθ \\ set up strings to join
Local ch,x,y,d,θ
Local st1,st2,st3,st4,st
ClrText
“x= “ ⇒ sx
“y= “ ⇒ sy
“d= “ ⇒ sd
“θ= “ ⇒ sθ

‘Menu \\ set up output screen text
Print “Triangle Solver”, ColorBlue  \\ color only applies for fx-CP400
Print “ “  \\ to create a blank line
Print “Known Variables”, ColorBlue
Print “θ is opposite of y”
Print “1. x, y”
Print “2. x, d”
Print “3. y, d”
Print “4. θ, x”
Print “5. θ, y”
Print “6. θ, d”
Input ch, “1. x, y 2. x, d  3. y, d 4. θ, x 5. θ, y 6. θ, d”,”Known Variables”

‘Choice 1
If ch=1
Then
Input x, “x=”
Input y, “y=”
√(x^2 + y^2)⇒d
tan^-1(y/x)⇒θ
ExpToStr d,st1  \\ expr to string
ExpToStr θ,st2
StrJoin sd,st1,st3  \\ join strings
StrJoin sθ,st2,st4
IfEnd

‘Choice 2
If ch=2
Then
Input x, “x=”
Input d, “d=”
√(d^2 – x^2)⇒y
tan^-1(y/x)⇒θ
ExpToStr y,st1
ExpToStr θ,st2
StrJoin sy,st1,st3
StrJoin sθ,st2,st4
IfEnd

‘Choice 3
If ch=3
Then
Input y, “y=”
Input d, “d=”
√(d^2 – y^2)⇒x
tan^-1(y/x)⇒θ
ExpToStr x,st1
ExpToStr θ,st2
StrJoin sx,st1,st3
StrJoin sθ,st2,st4
IfEnd

‘Choice 4
If ch=4
Then
Input θ, “θ=”
Input x, “x=”
x/cos(θ)⇒d
x*tan(θ)⇒y
ExpToStr d,st1
ExpToStr y,st2
StrJoin sd,st1,st3
StrJoin sy,st2,st4
IfEnd

‘Choice 5
If ch=5
Then
Input θ, “θ=”
Input y, “y=”
y/sin(θ)⇒d
y/tan(θ)⇒x
ExpToStr d,st1
ExpToStr x,st2
StrJoin sd,st1,st3
StrJoin sx,st2,st4
IfEnd

‘Choice 6
If ch=6
Then
Input θ, “θ=”
Input d, “d=”
d*cos(θ)⇒x
d*sin(θ)⇒y
ExpToStr x,st1
ExpToStr y,st2
StrJoin sx,st1,st3
StrJoin sy,st2,st4
IfEnd

‘Ending
StrJoin st3,”; “,st
StrJoin st,st4,st
Message st,”Results:”
SetStandard

TI-84 Plus (TI-84 Plus CE):  TRIANGLE

Degree
Lbl 1
Prompt X,Y
√(X²+Y²)→D
tan^-1(Y/X)→θ
Disp "D=",D
Disp "θ=",θ
Stop
Lbl 2
Prompt X,D
√(D²-X²)→Y
tan^-1(Y/X)→θ
Disp "Y=",Y
Disp "θ=",θ
Stop
Lbl 3
Prompt Y,D
√(D²-Y²)→X
tan^-1(Y/X)→θ
Disp "X=",X
Disp "θ=",θ
Stop
Lbl 4
Prompt θ,X
X/cos(θ)→D
X*tan(θ)→Y
Disp "D=",D
Disp "Y=",Y
Stop
Lbl 5
Prompt θ,Y
Y/sin(θ)→D
Y/tan(θ)→X
Disp "D=",D
Disp "X=",X
Stop
Lbl 6
Prompt D,θ
D*cos(θ)→X
D*sin(θ)→Y
Disp "X=",X
Disp "Y=",Y
Stop

Examples:

Case 1:  x = 3.6, y = 4.8; results d = 6, θ ≈ 53.13010°

Case 2: x = 5, d = 10; result y ≈ 8.66025, θ = 60°

Case 3: y = 4, d = 10; result x ≈ 9.16515, θ ≈ 23.57818°

Case 4: θ = 30°, x = 8; result d ≈ 9.23760, y ≈ 4.61880

Case 5: θ = 42°, y = 6; result d ≈ 8.96686, x ≈ 6.66368

Case 6: θ = 37.6°, d = 8.88; result x ≈ 7.03553, y ≈ 5.41809

This blog is property of Edward Shore, 2016

TI-84 Plus CE: Storing Names in a Concentrated String

TI-84 Plus CE: Storing Names in a Concentrated String  Introduction The program STRNAMES allows the user to store a list of names in a ...