; ********************************************* 
; Surveying Library        SY-15
; *********************************************
; Stadia Reductions and Traverse
; Slope Reduction Program



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

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

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

lbl e'
cms 1 0 0 sto 1 1 sto 2 0 fix 6 adv rtn

lbl a
sto 7 sto 10 prt rtn

lbl b
sto 6 prt rtn

lbl c 
sto 3 prt rtn

lbl d
dms sto 4 inv dms prt rtn

lbl e
sto 5 prt rtn

lbl a'
adv ( rcl 4 cos * rcl 2 + rcl 4 cos x2 * rcl 1
* rcl 3 ) sto 8 prt rtn

lbl b'
rcl 7 sto 15 sto 18 ( ( rcl 4 * 2 ) sin * rcl 1 
* rcl 3 / 2 ) ( ( ce + rcl 4 sin * rcl 2 ) + rcl 6
- rcl 5 ) prt rtn

( ce + rcl 10 ) prt adv rtn

lbl c'
sto 10 rcl 8 sum 14 1 sum 11 rcl 11 prt adv rtn

lbl d'
( sto 16 - rcl 15 ) sto 17 ( ( rcl 7 - rcl 10 ) /
rcl 14 ) sto 13 rcl 16 sto 15 prt rtn

( ( prt * rcl 13 ) + rcl 17 ) sum 18 rcl 18 prt adv rtn




#end