; ***************************************
; Surveying Library SY-14
; ***************************************
; EDM Slope Reduction - (Delta Elevation)
; Slope Reduction Program

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

lbl e'
pgm 13 e' rtn

lbl a
sto 2 prt rtn

lbl b
sto 3 prt rtn

lbl c
sto 18 prt rtn

lbl d
sto 5 prt rtn

lbl e
sto 6 prt rtn

lbl a'
adv ( ( rcl 2 x2 - ( rcl 18 + rcl 6 - rcl 3 - rcl 5
) x2 ) / ( rcl 1 + rcl 3 + rcl 5 ) / ( rcl 1 + rcl 18
+ rcl 6 ) ) sqr ( ce * ( rcl 1 + rcl 3 ) ) sto 17
prt rtn

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

lbl c'
( ( prt + rcl 1 ) * rcl 12 / rcl 1 ) prt rtn


#end
