Right angle triangle solver Ultimate Edition

You have not uploaded your program! Please edit the page to upload your program.

Author: Ryan P. Download: Right_angle_triangle_solver_UltimateEdition.zipNo Download Available Version: 1.1 Compatibility: TI-83/84/+/SE File Size: 959 Bytes Genre: Arcade Graphics Platform Puzzle RPG Strategy Sports Casino Board Utility Misc Rating:

This program is unique and has error checking and uses logic not menus to solve a triangle making it easy to use. This program is for right angle triangles only. This program Draws a labeled picture and uses Sine Arcsin Cos arccos Tan & Arctan This program will ask for 5 inputs (2 angles and 3 side lengths) press the "X" key (and enter to submit) for 3 of them and enter the values of 2 known ones the ones that were entered as "X" will be solved no menus needed the logic in the program will do the thinking for you. Right angle triangle solver Ultimate Edition- Draws a picture of a right angle triangle in a split screen with the angles and the sides (opposite adjacent and hypotenuse) labeled. There are no additional files needed. It will save and restore your Xmax Xmin Ymax and Ymin and turn the axes back on as long as the program is ran to completion.

What the community thinks:

Let me know what you think

Ryan00101101 18 Jul 2016 02:38

New to this stuff wanted to write a right angle triangle solver

AxesOff
Degree
Horiz
Xmin→I
Xmax→J
Ymin→K
Ymax→L
0→Xmin
0→Ymin
30→Ymax
94→Xmax
0→E
2→F
ClrHome
ClrDraw
Text(-1,0,0,"ENTER ONE ANGLE")
Text(-1,8,10,"AND ONE SIDE"
Text(-1,16,0,"OR 2 SIDES")
Text(23,20,"PRESS X TO SOLVE")
Pause 
ClrDraw
Text(17,37,"θ")
Text(7,66,"B")
Text(24,40,"ADJ")
Text(6,40,"HYP")
Text(12,72,"OPP")
Line(20,7,70,25)
Line(20,7,70,7)
Line(70,7,70,25)
Line(70,12,65,12)
Line(65,12,65,7)
Text(12,72,"OPP")
Lbl 0
If E≠0
Then
Pause "ERROR! ANGLE"
End
If F≠2
Then
ClrHome
Disp "ERROR!","ENTER","ONE ANGLE + SIDE","OR 2 SIDES","PRESS X TO SOLVE"
Pause 
End
π→X
ClrHome
Input "θº:",θ
Input "Bº:",B
(θ+B)(θ≠X and B≠X)→Z
((Z≠90)(Z≠0))+((θ≥90)+(B≥90))→E
If E≠0:Goto 0
(90-B)(θ=X and B≠X)+θ(θ≠X)→V
(90-θ)(B=X and θ≠X)+B(B≠X)→B
V→θ
Input "ADJ:",A
Input "OPP:",O
Input "HYP:",H
(A≠X)+(O≠X)+(H≠X)+(θ≠0)→F
If F≠2
Then
Goto 0
Else
If θ=0 and O≠X and H≠X
Then
sin^-1(O/H)→θ
End
If θ=0 and A≠X and H≠X
Then
cos^-1(A/H)→θ
End
If θ=0 and O≠X and A≠X
Then
tan^-1(O/A)→θ
End
If A=X and H≠X
Then
Hcos(θ)→A
End
If A=X and O≠X
Then
O/tan(θ)→A
End
If O=X and H≠X
Then
Hsin(θ)→O
End
If O=X and A≠X
Then
Atan(θ)→O
End
If H=X and O≠X
Then
O/sin(θ)→H
End
If H=X and A≠X
Then
A/cos(θ)→H
End
(90-θ)(B=0)+B(B≠0)→B
Full
ClrDraw
AxesOn
I→Xmin
J→Xmax
K→Ymin
L→Ymax
ClrHome
Disp "θº:","Bº","ADJ:","OPP:","HYP:"
Output(1,4,θ)
Output(2,4,B)
Output(3,5,A)
Output(4,5,O)
Output(5,5,H)

Last edited on 19 Jul 2016 01:57 by burr Show more

Wow the code is really complex

Thatguy87878 02 May 2019 01:37

I made a simple one at one time but dang. Does yours work with a Ti-83 Plus?

Re: Wow the code is really complex

Ryan00101101 11 May 2019 16:52

It should work fine on a ti83 plus

It doesn't show well on a ti84 ce the graph points are off
and it doesn't draw a nice trangle however with small modifications it'll work for a ti84ce as well.

Re: Wow the code is really complex

Ryan00101101 11 May 2019 16:57

It can also be downloaded by searching Right angle triangle solver Ultimate Edition at ticalc dot org

Works fine

(account deleted) 12 May 2019 12:36

It seems to work fine on the TI-83+. I didn't detect any errors at all. All the commands in the program fit the 84+.
Here is a short demo of it on the 83+:
https://pasteboard.co/Iem3Fcd.gif

EDIT: Welcome back Ryan00101101. Looks like it's been a while since you lat posted :)

---

Hewwo, my name is Achak Claw. I was formerly BioHazard.

Last edited on 12 May 2019 12:38 by (account deleted) Show more

Re: Works fine

Ryan00101101 13 May 2019 06:02

Thanks. I haven't been on here or programed anything worthy lately. Honestly I got a cold and got really bored and read a bunch of articles on here how to make logic work false statements multiply by zero and true ones multiply by one. I thought that was fascinating and wanted to make something useful. The right angle triangle is my favorite shape.

How did you make a gif of that program? I'd like to make one of the program solving a problem. Thinking of that program in retrospect hopefully nobody needs to figure out a triangle with a side or angle equal to 3.141592653589793 (or whatever the calc rounds pi to) or the program will be tricked into thinking you've hit X to solve. Maybe it should have been pi times -1.

Re: Works fine

(account deleted) 13 May 2019 16:09

If you want to make a gif: https://pasteboard.co

---

Hewwo, my name is Achak Claw. I was formerly BioHazard.

perfect although you could downsize the lines of code

terminator21112 16 May 2019 13:31

you could take out all the xmin->j and the others if you put ZoomSto at the beginning and ZoomRcl at the end of your program

Re: perfect although you could downsize the lines of code

Ryan00101101 19 May 2019 04:30

Thanks! Perfect. I didn't know of that command.

A quick converter for fun.

Ryan00101101 30 Jun 2019 23:15

ClrHome
Disp "1)KILOMETERS","2)METERS","3)MILES","4)YARDS","5)FEET","6)INCHES"
Input "Choice: ",C
Input "Amount ",X
(C=1)X+(C=2)X/1000+(C=3)1.609344X+(C=4)X/1093.613+(C=5)X/3280.84+(C=6)X/39370.079→A
(C=1)1000X+(C=2)X+(C=3)1609.344X+(C=4)X/1.094+(C=5)X/3.281+(C=6)X/39.37→B
(C=1)X0.621371+(C=2)X/1609.344+(C=3)X+(C=4)X/1760+(C=5)X/5280+(C=6)X/63360→D
(C=1)X1093.613+(C=2)1.09361X+(C=3)1760X+(C=4)X+(C=5)X/3+(C=6)X/36→E
(C=1)X3280.84+(C=2)3.281X+(C=3)5280X+(C=4)3X+(C=5)X+(C=6)X/12→F
(C=1)39370.079X+(C=2)39.37X+(C=3)63360X+(C=4)36X+(C=5)12X+(C=6)X→G
ClrHome
Disp "1)Km","2)M","3)Mi","4)Yds","5)Ft","6)In"
Output(1,7,A
Output(2,7,B
Output(3,7,D
Output(4,7,E
Output(5,7,F
Output(6,7,G
Stop