; ***********************
; Surveying Library SY-24
; ***********************
; Triangle Solution (2)
; Triangle Solution Program

#EMULATOR c:\ti-59\sy\24\SY-24.t59
#LISTING c:\ti-59\sy\24\SY-24.lst
#AZEMULATOR c:\ti-59\sy\21\SY-21.TI

lbl a
fix 9 sto 0 prt rtn

lbl b
sto 4 prt rtn

lbl c
sto 5 prt rtn

lbl a'
( 1 +/- inv cos - rcl 4 - rcl 5 ) sto 3 gto 59

lbl b'
( 1 +/- inv cos - rcl 4 sto 3 - rcl 5 ) sto 4
stf 0 ( rcl 0 * rcl 4 sin / rcl 3 sin )
sto 1 ( rcl 0 * rcl 5 sin / rcl 3 sin ) sto 2
iff 0 95 rcl 3 prt rtn

rcl 4 inv stf 0 prt rtn

lbl d
rcl 1 prt rtn

lbl e
rcl 2 prt adv rtn

lbl c'
( ( rcl 0 + rcl 1 + rcl 2 ) / 2 ) (
sto 6 * ( rcl 6 - rcl 0 ) * ( rcl 6 - rcl 1
) * ( rcl 6 - rcl 2 ) ) sqr prt adv rtn



#end
