fx4800P公路线路大地坐标放样程序.docVIP

公路线路大地坐标放样程序：（FX-4800P） Fix 3 Z Q E F ：Z″CX″：Q″CY″：E：″DX″：F″DY″ Pol 0： W ：W″KM ″ W≥0Prog″JD1″⊿W≥2149.53Prog″JD2″⊿ W≥5261.45 Prog ″JD3″⊿ M G-H ÷Abs G-H ：W≥ E+F ÷2Goto 1⊿ L W-E：I A：S B：T E：U G：W≤E Goto 3 ⊿ W＜E+K Goto 2 ⊿Goto 6 Lbl I：L F-W：M -M：I C：S D：U H+180：T F：W≥F Goto 3 ⊿ W＞F-K Goto 2 ⊿ Lbl 6：O 180 L-K÷2 ÷ R ：X I+Rec R sin O +K÷-K^3÷ 240R2 ,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 ÷2N N-180⊿Goto 4 Lbl 2：O 30L2÷ RK ：N U-MO：X I+Rec L-L5÷ 40R2K2 ÷cos O,N ◢Y S+J◢Prog ″L.A″： N U-3MO：W＞ F-K N N-180⊿Goto 4 Lbl 3：X I+Rec Abs L,U+180 ◢Y S+J◢Prog ″L.A″： W≥FU H ⊿Goto 7 Lbl 7： VP ：V 0 Goto 0 ⊿ P≤ 0 N U：≠N U+180 ⊿ S X+Rec Abs P,N+90 ：S″BX ″ ◢T Y+J：T”BY “ ◢Prog “L.B”： Goto 7 Lbl 4： VP ：V 0 Goto 0 ⊿ P≥0 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 ◢Prog”L.E” 文件名：L.B L Pol S-Z,T-Q +0◢Prog”L.E” 文件名：L.C Fix 3 L Pol E-Z,F-Q +0◢ 文件名：L.E Fix 4 J＞0J 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◢ 文件名：JD1 E 1318.53：A 38809.310：B 457267.853：F 2149.53：C 38994.418：D 457497.807：G 90°19′10.77″：H 12°00′48.8″： R 180：K 85 文件名：JD2 E 2854.11：A 39683.563：B 457644.459：F 3107.57：C 39929.636：D 457705.038：G 12°00′48.5”：H 15°38′38.82”：R 4000：K 0 文件名：JD3 E 5261.45：A 42003.728：B 458285.850：F 5492.25：C 42229.608：D 458331.672：G 15°38′38.82”：H 7°17′26.19”：R 1000：K 85 程序说明： 输入曲线要素说明：（如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”表示缓和曲线长。 计算区间。 如主程序中划单波浪线的程式，表示路线计算范围。即：W≥0Prog”JD1”表示计算第一个转点曲线，0表示起点桩号。（即：后一曲线的终点至前一曲线起点）。 W≥2149.53Prog”JD2”表示计算第二个转点曲线，2149.53表示第二个转点曲线的ZH或ZY桩号。（即：后一曲线的终点至前一曲线起点）。 W≥5261.45Prog”JD3”表示计算第三个转点曲线，5261.45表示第三个转点曲线的ZH或ZY桩号。（即：后一曲线的终点至前一曲线起点）。 如有多个转点曲线,则以此类推。 计算显示。 “CX？”——输入测站点X坐标。 “CY？”——输入测站点Y坐标。 “DX？”——输入定向点X坐标。 “DY？”——输入定向点Y坐标。 “J “——表示测站点至定向点的方位角（度分秒）。 “J “——表示测站点至定向点的距离。 “KM”——输入计算点桩号。 “X “和”Y “——表示本桩号的中桩X和Y坐标。 “I “和”J “——表示测站点至本桩号的距离和方位角。 “D？”——输入距