fx4800p公路线路大地坐标放样程序

公路线路大地坐标放样程序：（FX-4800P） Fix 3 Z Q E F ： ZCX：QCY ：E ：DX：FDY Pol 0：W： WKM= W0 ProgJD1W2149.53 ProgJD2 W5261.45 Prog JD3 M=(G-H)Abs(G-H)：W(E+F)2 Goto 1 L=W-E：I=A：S=B：T=E：U=G：WE Goto 3 WE+K Goto 2 Goto 6 Lbl I：L=F-W：M=-M：I=C：S=D：U=H+180：T=F：WF Goto 3 WF-K Goto 2 Lbl 6：O=180(L-K2)( R)：X=I+Rec(R sin O +K-K3(240R 2),U)：Y=S+J X=X+Rec(R-RcosO+K2(24R),U-90M) Y=Y+J Prog L.A：N=U-MO：W(E+F)2 N=N-180Goto 4 Lbl 2：O=30L 2( RK)：N=U-MO：X=I+Rec(L-L5(40R 2K2)cos O,N) Y=S+J Prog L.A： N=U-3MO：W(F-K) N=N- 180Goto 4 Lbl 3：X=I+Rec(Abs L,U+180) Y=S+JProg L.A： WF U=H Goto 7 Lbl 7：VP：V=0 Goto 0 P 0 N=U： N=U+180 S=X+Rec(Abs P,N+90)：SBX= T=Y+J：T”BY=“ Prog “L.B” ： Goto 7 Lbl 4：VP：V=0 Goto 0 P0 W=90+N+180： W=90+N S=X+Rec(Abs P,W)：S”BX=“ T=Y+J：T”BY=“ Prog “L.B”： Goto 4 辅助程序： 1、文件名：L.A L=Pol(X-Z,Y-Q)+0Prog”L.E” 2、文件名：L.B L=Pol(S-Z,T-Q)+0Prog”L.E” 3、文件名：L.C Fix 3 L=Pol(E-Z,F-Q)+0 4、文件名：L.E Fix 4 J0 J=Int J+0.01Int(60Frac J)+0.006Frac(60Frac J)+0 J=Int J+0.01Int(60Frac J)+0.006 Frac(60 Frac J)+359.5960 5、文件名：JD1 E=1318.53：A=38809.310：B=457267.853 ：F=2149.53：C=38994.418 ：D=457497.807：G=901910.77：H=120048.8： R=180：K=85 6、文件名：JD2 E=2854.11：A=39683.563：B=457644.459 ：F=3107.57：C=39929.636 ：D=457705.038：G=120048.5”：H=153838.82”： R=4000：K=0 7、文件名：JD3 E=5261.45：A=42003.728：B=458285.850 ：F=5492.25：C=42229.608 ：D=458331.672：G=153838.82”：H=71726.19”： R=1000：K=85 程序说明： 1、输入曲线要素说明：（如 JD1、JD2、JD3） “E”表示 ZY 或 ZH 点桩号。 “A”和”B”表示 ZY 或 ZH 点 X 和 Y 坐标。 “F”表示 YZ 或 HZ 点桩号。 “C”和”D”表示 YZ 或 HZ 点 X 和 Y 坐标。 “G”表示导线 1（前进方向方位角） 。 “H”表示导线 2（前进方向方位角） 。 “R”表示圆曲线半径。 “K”表示缓和曲线长。 2、计算区间。 如主程序中划单波浪线的程式，表示路线计算范围。即：W0 Prog”JD1”表示计算第一个转点曲线，0 表示起点桩号。 （即：后一曲线 的终点至前一曲线起点） 。 W2149.53 Prog”JD2”表示计算第二个转点曲线，2149.53 表示第二个转点曲线的 ZH 或 ZY 桩号。 （即：后一曲线的终点至前一曲线 起点） 。 W5261.45 Prog”JD3”表示计算第三个转点曲线，5261.45 表示第三个转点曲线的 ZH 或 ZY 桩号。 （即：后一曲线的终点至前一曲线 起点） 。 如有多个转点曲线,则以此类推。 3、计算显示。 “CX？”输入测站点 X 坐标。 “CY？”输入测站点 Y 坐标。 “DX？”输入定向点 X 坐标。 “DY？”输入定向点 Y 坐标。 “J=“表示测站点至定向点的方位角（度分秒） 。 “J=“表示测站点至定向点的距离。 “KM”输入计算点桩号。 “X=“和”Y=“表示本桩号的中桩 X 和 Y 坐标。 “I=“和”J= “表示测站点至本桩号的距离和方位角。 “D？”输入距离。 “T=“表示实际距离与实测距离之差。 “V？”当输入 V=0 时，只计算中桩坐标；输入 V0 时，计算边桩坐标。 “P？”输入边桩距离：P0 时，计算左边桩（为正） ；P0 时，计算右边桩（为负） 。 “BX=“和”BY表示边桩 X和 Y坐标。 “L=“和”J=“同上。 “D？”同上。