Trig Angles
Trig Angles - TI-83 program listing - finds the sine, cosine, tangent, secant, cosecant, cotangent, and two other angles of a right triangle. It accepts one of the two non-right angles in the right triangle as input.
homeThis program TrigAng was written by [Bill Paetzke] and referenced by (navyfalcon) e-mail
Note: Click on "TrigAng" to download the original program, then "right click" to extract the files and "F10" to load on "VTI".
prgmTrig Angles
| Line | Command or Statement | Comments |
| 1. | prgmTrig Angles | |
| 2. | Full | Setup |
| 3. | Func | | |
| 4. | Connected | | |
| 5. | GridOff | | |
| 6. | FnOff | | |
| 7. | ClrDraw | | |
| 8. | AxesOff | End Setup |
| 9. | Text(0,5,"COPYRIGHT (c) 2000-2001 | Credits |
| 10. | Text(6,19,"BY BILL PAETZKE. | | |
| 11. | Text(12,11,"ALL RIGHTS RESERVED. | | |
| 12. | Text(24,0,"FIND MORE TI-83 PROGRAMS | | |
| 13. | Text(30,0,"ON BILL PAETZKE'S WEB SITE. | | |
| 14. | Text(42,0,"www.BPSPROGRAMS.COM | | |
| 15. | Text(54,0,"HIT ENTER TO CONTINUE | End Credits |
| 16. | Pause | |
| 17. | ClrHome | |
| 18. | AxesOn | |
| 19. | ClrDraw | |
| 20. | Disp "REMEMBER TO PICK","Degree or Radian","MODES AS NEEDED.","" | |
| 21. | Prompt θ | input angle |
| 22. | sin(θ)->A | sine (sin) |
| 23. | cos(θ)->B | cosine (cos) |
| 24. | tan(θ)->C | tangent (tan) |
| 25. | (1/cos(θ))->D | secant (sec) |
| 26. | (1/sin(θ))->E | cosecant (csc) |
| 27. | (1/tan(θ))->F | cotangent (cot) |
| 28. | ClrHome | |
| 29. | Output(1,1,"SINE | |
| 30. | Output(1,6,θ | |
| 31. | Output(1,9,"° | |
| 32. | Disp "SINE","√",A^2>Frac,"WHICH IS",A>Frac,"Saved as A" | >solid √(A^2 |
| 33. | Pause | |
| 34. | ClrHome | |
| 35. | Output(1,1,"COSINE | |
| 36. | Output(1,8,θ | |
| 37. | Output(1,11,"° | |
| 38. | Disp "COSINE","SQUARE ROOT OF",B^2>Frac,"WHICH IS",B>Frac,"Saved as B" | solid √(B^2 |
| 39. | Pause | |
| 40. | ClrHome | |
| 41. | Output(1,1,"TANGENT | |
| 42. | Output(1,9,θ | |
| 43. | Output(1,12,"° | |
| 44. | Disp "TANGENT","SQUARE ROOT OF",C^2>Frac,"WHICH IS",C>Frac,"Saved as C" | solid √(C^2 |
| 45. | Pause | |
| 46. | ClrHome | |
| 47. | Output(1,1,"SECANT | |
| 48. | Output(1,8,θ | |
| 49. | Output(1,11,"° | |
| 50. | Disp "SECANT","SQUARE ROOT OF",D^2>Frac,"WHICH IS",D>Frac,"Saved as D" | solid √(D^2 |
| 51. | Pause | |
| 52. | ClrHome | |
| 53. | Output(1,1,"COSECANT | |
| 54. | Output(1,12,θ | |
| 55. | Output(1,15,"° | |
| 56. | Disp "COSECANT","SQUARE ROOT OF",E^2>Frac,"WHICH IS",E>Frac,"Saved as E" | solid √(E^2 |
| 57. | Pause | |
| 58. | ClrHome | |
| 59. | Output(1,1,"COTANGENT | |
| 60. | Output(1,10,θ | |
| 61. | Output(1,12,"° | |
| 62. | Disp "COTANGENT","SQUARE ROOT OF",F^2>Frac,"WHICH IS",F>Frac,"Saved as F" | solid √(F^2 |
| 63. | Pause | |
| 64. | ClrHome | |
| 65. | Degree | |
| 66. | sin^-1(A)->X | neg 1 |
| 67. | 90-sin^-1(A)->Y | |
| 68. | Disp "(i n Degrees)","ANGLE AH",X,"ANGLE OH",Y,"Saved as X and Y" |
