; ********************************
; Surveying Library SY-11
; ********************************
; Horizonal Curve Design (2)
; Horizonal Curve Design Program

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

lbl e'
pgm 10 e' rtn

lbl a'
pgm 10 a' rtn

lbl b'
stf 1 rtn

lbl d
prt dms sto 4 iff 1 41 ( ( rcl 4
/ 2 ) sin 1/x * rcl 1 gto a

rcl 4 sbr pi 

lbl a
) sto 5 prt adv rtn ( ce * rcl 11
sin * 2 ) sto 10 prt rtn

( ( 1 - rcl 11 cos ) * rcl 5 ) prt rtn

( rcl 3 * pi * rcl 5 x2 / 3 6 0 ) sto 12
prt rtn

( ce - rcl 5 * rcl 10 * rcl 11 cos /
2 ) prt rtn

( rcl 11 tan * rcl 5 x2 - rcl 12 )
inv stf 1 prt rtn

lbl b
( prt * rcl 11 tan 1/x gto a

lbl lnx
( ce * rcl 11 cos / ( 1 - rcl 11 cos
) rtn

lbl c
sbr lnx gto a

lbl e
prt ( 1/x * rcl 3 * rcl 2 ) inv dms
gto 20 

lbl pi
( ( ce * pi ) 1/x * rcl 2 * 1 8 0 ) rtn



#end
