; ***********************
; Surveying Library SY-08
; ***********************
; Balance - Transit Rule
; Traverse Program

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

lbl e'
0 cms adv fix 6 rtn

lbl a
pgm 7 a rtn

lbl b
pgm 7 b rtn

lbl c
pgm 7 sbr lnx sto 18 ( ( x2 sqr * rcl 5
/ rcl 14 ) 

lbl mean
+ rcl 18 + rcl 11 ) sto 11 prt rtn

lbl d
pgm 7 sbr log sto 19 ( ( x2 sqr * 
rcl 6 / rcl 15 )

lbl s+
+ rcl 19 + rcl 12 ) sto 12 prt rtn

lbl e
pgm 7 e rtn

lbl a'
a rtn

lbl b'
b rtn

lbl d'
pgm 7 d' rtn

lbl c'
pgm 7 sbr lnx x2 sqr sum 14
pgm 7 sbr log x2 sqr sum 15 e rtn

 

#end
