; ********************************************* 
; Surveying Library      SY-25
; *********************************************
; Curve Solution
; Curve Solutions Program
 


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

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

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

lbl a
e' rtn

d' sbr 27 ( rcl 0 * pi * 1 8 0 1/x * rcl 1 )
sto 2 prt adv rtn

( ( rcl 0 / 2 ) sin * 2 * rcl 1 ) sto 3 rtn

lbl b
e' rtn

prt ( ( sto 3 / 2 / rcl 1 ) inv sin * 2 )
sto 0 gto 8

lbl c
e' rtn

prt ( ( sto 2 / rcl 1 ) * 1 8 0 * pi 1/x )
sto 0 sbr 27 prt adv rtn

lbl d
sto 3 prt rtn

( ( d' / 2 ) sin 1/x * rcl 3 / 2 ) sto 1 gto 8

lbl e
d' rtn

prt ( sto 2 * ( rcl 0 * pi * 1 8 0 1/x ) 1/x )
sto 1 sbr 27 prt adv rtn

lbl a'
rcl 0 inv dms prt rtn

rcl 1 prt rtn

lbl b'
rcl 2 prt rtn

rcl 3 prt rtn

lbl c'
( rcl 1 * rcl 2 / 2 ) sto 4 prt rtn

( ( ( rcl 0 / 2 ) cos * rcl 1 * rcl 3 / 2 ) +/-
+ rcl 4 ) prt rtn

lbl e'
cp fix 6 sto 1 ge 228 lnx rcl 1 prt rtn

lbl d'
cp fix 6 prt dms sto 0 sin ge 244 lnx rcl 0 rtn

gto a 




#end