; ***********************
; Surveying Library SY-07
; ***********************
; Balance - Compass Rule
; Traverse Program

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

lbl e'
0 cms adv fix 6 rtn

lbl a
sto 12 exc 2 sto 11 exc 1 rcl 12 prt rtn

lbl b
exc 4 exc 3 rcl 4 prt rtn

lbl c
( ( sbr 84 * rcl 5 / rcl 9 ) pgm 8 sbr mean rtn

lbl d ( ( sbr 84 * rcl 6 / rcl 9 ) pgm 8
sbr s+ rtn

lbl e
rcl 4 sto 2 rcl 3 sto 1 0 prt adv rtn

sbr lnx sto 18 sbr log sto 19 ( x2 + 
rcl 18 x2 ) sqr sto 7 rtn

lbl lnx ( rcl 3 - rcl 1 ) rtn

lbl log 
( rcl 4 - rcl 2 ) rtn

lbl a'
a rtn

lbl b'
b rtn

lbl c'
sto 9 prt rtn

lbl d'
sbr lnx sto 5 sbr log sto 6 0 prt rtn
 

#end
