1、防风明洞(适用直线)1、YSX,YA=4776966.308：B=505290.333：S= 269° 4059.4：J=1425000 N=（A-X） 2+（B-Y） 2 ） XA Pros”G”： XA Pros”H”2、G（子程序名）L=N×cos (abs(360+tan-1(Y-B)÷（X-A ）)-S)+J3、H（子程序名）L= N×cos (abs(180+tan-1(Y-B)÷（X-A）)- S)+J以下必须连续运算程序1、PW（子程序名）X,Y,L,ZA=4776966.308：B=505290.333：S= 269°
2、;4059.4：J=1425000 ：I=-0.009：O=0.0045：K=1425331.25：P=655.5123：R=25000L1425668.75 Pros”J”： L1425668.75 Pros”K”2、J（子程序名）H=P+(1425500-K) ×I+(L-1425500) ×OPros”M”3、K（子程序名）W=abs( tan-1I)D=R×sinWG= R×cosWH=P+G-（R 2-（D-(L-K）) 2 ） Pros”M”4、M （子程序名）E=A+(L-J) ×cosS+2.5×cos(S+90)F=
3、 B+(L-J) ×sinS+2.5×sin(S+90)D=（E-X） 2+（F-Y） 2+(H-Z） 2) -6.65 平面任意点坐标求此点垂直线路对应里程及距左线偏距(适用直线)1、LCPJX,YA=4776966.308：B=505290.333：S= 269° 4059.4：J=1425000 N=（A-X） 2+（B-Y） 2 ） XA Pros”GD”： XA Pros”GY”2、GD（子程序名）L=N×cos (abs(360+tan-1(Y-B)÷（X-A ）)-S)+J D= N×abs (sin (abs(360+tan-1(Y-B)÷（X-A）)-S) 3、GY（子程序名）L= N×cos (abs(180+tan-1(Y-B)÷（X-A）)- S)+JD= N×abs (sin (abs(180+tan-1(Y-B)÷（X-A）)- S)
