; ********************************************* 
; Surveying Program             SY-13
; *********************************************
; EDM Slope Reduction - (Slope Angle)
; Slope Reduction Program


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

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

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

lbl e'
cms fix 6 2 0 9 0 2 2 2 7 . 2 8 sto 1 adv prt rtn

lbl a
sto 2 prt rtn

lbl b
( ( sto 4 sin * rcl 2 * 9 0 / rcl 1 / pi ) sto 9
* . 1 4 2 ) sto 10 rcl 4 prt rtn

lbl c
sto 5 prt rtn

sto 6 prt rtn

lbl d
sto 7 prt rtn

sto 8 prt rtn

lbl e
sto 3 ( rcl 5 - rcl 6 - rcl 7 + rcl 8 ) sto 15 ( ( (
rcl 4 - 2 * rcl 9 + rcl 10 ) sin * rcl 15 / rcl 2 )
inv sin + rcl 10 - rcl 9 + rcl 4 ) sto 11 rcl 3 prt adv rtn

lbl a'
( ( rcl 11 - rcl 9 ) sin * rcl 2 / rcl 9 cos ) sto 17 
prt rtn

lbl b'
( ( rcl 1 + rcl 3 ) 1/x * rcl 1 * rcl 17 ) prt rtn

lbl c'
( rcl 2 * rcl 11 cos / rcl 9 cos + rcl 5 - rcl 6 ) prt rtn




#end