; ********************************************* 
; Surveying Library           SY-17
; *********************************************
; Intersection - (Distance/Distance)
; Intersections Program



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

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

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

lbl e'
0 cms adv fix 6 rtn

lbl a 
pgm 6 a rtn

lbl b
pgm 16 b rtn

lbl c
sto 5 prt rtn

lbl d
sto 6 prt rtn

lbl e
adv ( rcl 3 - rcl 1 ) sto 7 x2 sto 9 (
rcl 4 - rcl 2 ) sto 8 x2 ( ( ( sto 10 +
rcl 9 ) SQR STO 11 X2 + RCL 5 X2 - RCL 6
x2 ) / 2 / rcl 5 / rcl 11 ) inv cos sto 12 
inv dms prt rtn

lbl a'
rcl 7 x%t rcl 8 inv p/r pgm 2 sbr st* cp
ge 120 ( ce + 3 6 0 ) sto 13 inv dms prt rtn

lbl b'
( ( rcl 13 - rcl 12 ) cos * rcl 5 + rcl 1 )
prt rtn

lbl c'
( ( rcl 13 - rcl 12 ) sin * rcl 5 + rcl 2 
) prt rtn



#end