; ********************************************* 
; Surveying Library            SY-23
; *********************************************
; Triangle Solution (1)
; Triangle Solutions Program

#EMULATOR c:\ti-59\sy\23\SY-23.t59

#LISTING c:\ti-59\sy\23\SY-23.LST

#AZEMULATOR c:\ti-59\sy\23\SY-23.TI

lbl e'
rcl 2 rtn

lbl a'
( ( rcl 0 x2 + rcl 1 x2 - e' x2 ) / 2 / rcl 0 /
rcl 1 ) inv cos iff 2 49 sto 5 stf 2 rcl 0 exc 1
exc 2 sto 0 gto a'

iff 3 60 sto 4 stf 3 gto 39

sto 3 iff 0 127 prt gto rst

lbl a 
inv eng fix 9 sto 0 prt rtn

lbl b
sto 1 prt rtn

lbl c
sto 2 prt rtn

lbl c'
( rcl 0 x2 + rcl 1 x2 - 2 * rcl 0 * rcl 1 * e' cos ) sqr
iff 1 176 sto 2 stf 2 stf 0 gto 39

sto 5 rcl 1 prt gto rst

lbl b'
( ( e' sin * rcl 1 / rcl 0 ) inv ee ee inv ee inv sin
ee inv ee sto 4 +/- + 1 +/- inv cos - e' ) sto 2 sto 5
stf 1 gto c'

sto 2 prt gto rst

lbl d
rcl 4 prt rtn

lbl e
rcl 5 prt adv rtn

lbl rst
inv stf 0 pgm 22 sbr rst rtn




#end