正算子程序(ZS)(未运行)

1÷p→c:(p-r)÷(2 HPR)→d:180÷π→e←┚

0.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L→F:1-K→M:U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD

3逆操作程序(FS)(未运行)

g-90→t:ABS((y-v))cos(t)-(x-u)sin(t)→w:0→z←┚

Lbl 0←┚

Prog " zs ":t+qew(c+wd)→l:(j-y)cosl-(I-x)sinl→z:如果Abs(Z)<0.001:则goto 1:else w+z→w:ifend:goto0←┚

LBL 1:0→Z:Prog " ZS ":(J-Y)÷sinF→Z

ZX-WN(运行主程序，适合匝道，全路段完全非对称曲线计算太麻烦)

“CZX”？s(站x坐标):“CZY”？w(仪表站的y坐标)

LbI 0:“K”？k:如果K≤126.9(第1条中的单曲线终点同上):则转到a: else如果k ≤ 176.9且k > 126.9:则转到b: else如果k ≤ 259.562且k > 55656666666696 oto c:else如果K≤309.562且k > 309

LbI A:92094.336(起点X坐标)→U:8287.962(起点Y坐标)→V:0起点桩号→ O: 145 11' 54”(方位角)→ G: 126。

lbi b:91990.134→u:8360.388→v:126.9→o:145 11'54"→g:50→h:10^(45)→p:150→r:+1→q:Prog " wn ":goto w

LbI C:91947.609→U:8386.570→V:176.9→O:154 44 ' 51 "→G:82.662→H:150→P:150→R:+1→Q:Prog " WN ":Goto W

lbi d:91867.101→u:8399.992→v:259.562→o:186 19 ' 19 "→g:50→h:150→p:10^(45)→r:+1→q:Prog " wn ":goto w

LbI W:“pj 1”？T←┚(此项只有左右边桩然后左右偏移，如果输入0则表示不再需要左右偏移，可以直接计算方位和距离，适用于桥台、盖梁、涵洞八字墙等放样。路线的方向向前、向前和向后+)。

如果T=0:那么Z[3]→Z: Z[4]→M:转到p:否则转到V: IfEnd←┚

LbI V:“jj 1”？O←┚(左右边桩再次偏离角度，减去路线角度180)

" X1=": Z[3]+Tcos(F+N+ O)→U◢

" Y1=" :Z[4]+Tsin(F+N+ O)→V◢

U→Z: V→M: GotoP←┚

LbI P:Pol(Z-S，M-W):如果J≤0:则J+360 →J: IfEnd←┚

" JL =": I ◢(从仪表站到测量点的距离)

" fwj =": jdms ◢(从仪器站到测量点的方位角)

Goto0

备注:

1.规定以道路中心线方向(即里程增加方向)区分左右两侧；线元素向左偏移时q =-1；元线向右倾斜时q = 1；当金属线是直的时，Q=0。

2.当线元素为直线时，其起点和终点的曲率半径为无穷大，用10的45次方代替。

3.当线元为圆曲线时，无论其起点和终点与什么线元相连，其曲率半径都等于。