; ********************************************* 
; Surveying Library                      SY-19
; *********************************************
; Intersection of a perpendicular from
;  a point to a line
; Intersections Program



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

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

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

lbl e'
0 cms adv fix 6 rtn

lbl a
pgm 6 a rtn

lbl b
pgm 16 b rtn

lbl c
pgm 16 c rtn

lbl d
adv cp ( ( rcl 6 - 1 ) eq 61 - 2 ) eq 56 (
9 0 * rcl 6 - gto 61

( 1 8 0 + rcl 5 ) sto 12 tan sto 7 1/x ( sto 8
+ rcl 7 ) sto 9 ( ( rcl 7 * rcl 1 + rcl 8 *
rcl 3 + rcl 4 - rcl 2 ) / rcl 9 ) sto 10 prt rtn

lbl e
( rcl 2 + ( rcl 10 - rcl 1 ) * rcl 7 ) sto 11
prt rtn

lbl a'
( ( rcl 3 - rcl 10 ) x2 + ( rcl 4 - rcl 11 ) x2 )
sqr prt rtn

lbl b'
( ( rcl 1 - rcl 10 ) x2 + ( rcl 2 - rcl 11 ) x2 ) 
sqr prt rtn



#end