Version: 1.0
Author: Andrew Robinon ([email protected])
Descripton: Solves any triangle for either an unknown side value or
angle.
Commands:
-> Single arrow (on the keyboard)
=> Double arrow (press: [shift] [prgm] [f3] [f3])
* Multiplication
/ Division
^2 Squared (on the keyboard)
SYMBOL 214 \f "Symbol" Square root (on keyboard)
_ Display
(-1) Recirocal funtion (press: [shift] [)])
Program:
Lbl 1
ClrText
"1. A^2=B^2+C^2-2BC cos A"
"2. cos A=(B^2+C^2-A^2)/(2BC)"?->A
A=1=>Goto 2
A=2=>Goto 3
Lbl 2
ClrText
"B="?->Z
"C="?->Y
"cos A="?->X
Z^2+Y^2-2ZYcos X->W
SYMBOL 214 \f "Symbol"W->W
" "
"A="
W_
Goto 1
Lbl 3
ClrText
"A="?->W
"B="?->V
"C="?->U
(V^2+U^2-W^2)/(2*V*U)->M
cos(-1)M->M
"cos A="
M_
Goto 1