; ***********************
; Surveying Library SY-05
; ***********************
; Circle Arc Traverse
; Traverse Program

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

lbl e'
x2 sqr x%t rtn

lbl a
inv eng fix 6 dms sto 5 

lbl a'
inv dms prt rtn

lbl nop
+ rcl 11 cp - ge 33 0 + 3 6 0 )
inv ge 26 rtn

lbl b'
( 1 +/- * 

lbl b
rcl 5 + 1 8 0 sbr nop sto 12 a' rtn

5 e rcl 12 p/r e' e' inv p/r pgm 2
sbr st* a' rtn

pgm 2 sbr log rtn

lbl c
( ( RCL 7 INV SUM 9 * RCL 5 ) * pi
* 1 8 0 1/x ) sto 8 sum 9 prt rtn

lbl d
rcl 7 e' rcl 12 p/r sto 19 prt rtn

e' sto 18 prt rtn

( ce + rcl 1 ) sto 3 prt rtn

pgm 4 sbr op rtn

lbl d'
( 1 +/- * 

lbl c'
rcl 8 * rcl 7 / 2 ) sum 17
prt rtn

lbl grad
pgm 3 sbr gto sum 14 rcl 19 x2
sqr sum 15 rcl 12 sto 11 rcl 9 rtn

lbl e
sbr grad prt adv rtn

 

#end
