1.求公路正算坐标公式 反算公式……

求公路正算坐标公式 反算公式……

       坐标正反算程序

       正算(ZS1)

       Lbl0:＂DK=＂?坐标桩号坐标K:＂W=＂?Z:＂A=＂?B↙

       Prog＂data1＂↙

       ＂X=＂:N+Zcos(F+B)◢

       ＂Y=＂:E+Zsin(F+B)◢

       ＂FWJ=＂:F◢

       Goto 0

       K=？：待求桩号

       W=？：偏距（左负，右正）

       A=？：偏角

       反算(FS1)

       ＂X=＂?反算轨宽源码C:＂Y=＂?D:＂DK=＂?K↙

       Lbl 0:Prog＂data1＂↙

       Pol(C-N,D-E)↙

       ListAns[1]→I↙

       ListAns[2]→J↙

       Icos(F-J)→S:K+S→K↙

       Abs(S)>0.=>Goto0↙

       ＂DK=＂:K◢

       ＂W=＂:Isin(J-F)→Z◢

       X？=：反算X坐标

       Y？=：反算Y坐标

       DK=：近似里程（必须在线元内）

       W=：偏距（左负右正）

       3.子程序(XY1)

       K-A→S：(Q-P)÷L→I↙

       N+∫(cos(F+X(2P+XI)×÷π),0,S)→N↙

       E+∫(sin(F+X(2P+XI)×÷π),0,S)→E↙

       F+S(2P+SI)×÷π→F

       4.数据库（Data1）

       K≤.（线元起点）=>Stop↙

       .→（起点桩号）A:.→（起点X）N:.→（起点Y）E:°′.″→（起点方位角）F:0→（起点曲率半径、转角左负右正）P:1/→（止点曲率半径、源码带买卖捕捞季节源码指标转角左负右正）Q:→（线元长度）L:K≤A+L=>GoTo 1↙