; **************************** 
; Surveying Program SY-09
; ****************************
; Vertical Curve Design
; Traverse Program

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

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

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

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

lbl a
exc 3 exc 2 rcl 3 prt rtn

lbl b
( ( ( prt / rcl 1 / 2 ) sto 16 * 2 )
1/x * ( rcl 3 - rcl 2 ) ) sto 5 prt rtn

lbl b'
prt ( ( sto 5 1/x * ( rcl 3 - rcl 2 )
/ 2 ) sto 16 * 2 * rcl 1 ) sto 4 prt rtn

lbl c
exc 9 exc 8 rcl 9 prt rtn

adv ( rcl 8 + rcl 16 * rcl 1 ) sto 6 prt rtn

( ( ce - rcl 8 ) / rcl 1 * rcl 2 + rcl 9 )
prt rtn

lbl c'
exc 7 exc 6 rcl 7 prt rtn

adv ( rcl 6 - rcl 16 * rcl 1 ) sto 8 prt rtn

( rcl 7 - rcl 16 * rcl 2 ) sto 9 prt rtn

lbl d
( ( rcl 2 / rcl 5 ) +/- * rcl 1 + rcl 8 )
prt rtn

lbl e
( ( ( prt - rcl 8 ) / rcl 1 ) sto 12 x2 *
rcl 5 / 2 + rcl 2 * rcl 12 + rcl 9 ) prt rtn


#end