; ******************************
; Surveying Library SY-10
; ******************************
; Horizontal Curve Design (1)
; Horizonal Curve Design Program

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

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

lbl a'
prt ( dms sto 3 / 2 ) sto 11 rcl 3 
inv dms rtn

lbl b'
stf 1 rtn

lbl d
pgm 11 d rtn

( ce * rcl 11 tan ) sto 6 prt rtn

( ( rcl 11 cos 1/x - 1 ) * rcl 5 )
sto 7 prt rtn

iff 1 95 ( ( rcl 1 / rcl 5 ) inv sin
* 2 gto 101 

rcl 5 pgm 11 sbr pi ) sto 4 inv dms prt rtn

( rcl 3 / rcl 4 * rcl 2 ) sto 8 prt gto 16

lbl b
pgm 11 b gto 47

lbl c
prt pgm 11 sbr lnx

lbl a
pgm 11 a gto 47

lbl e
pgm 11 e gto 47





#end
