正算子程序（ZS）（不運(yùn)行）
1÷P→C:(P-R)÷(2HPR) →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））+Bcos（G+QEFW（C+FWD））+Acos（G+QEMW（C+MWD）））→X： V+W（Asin（G+QEKW（C+KWD））+Bsin（G+QELW（C+LWD））+Bsin（G+QEFW（C+FWD））+Asin（G+QEMW（C+MWD）））→Y： G+QEW（C+WD）+90→F： X+ZcosF→X： Y+ZsinF→Y
3反算子程序（FS）（不運(yùn)行）
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：If Abs(Z)＜0.001: Then Goto1：Else W+Z→W：IfEnd :Goto 0←┚
Lbl 1： 0→Z：Prog＂ZS＂：（J-Y）÷sinF→Z
ZX-WN（運(yùn)行主程序，該程序適用于匝道，對全段完整非對稱曲線計(jì)算太過麻煩）
＂CZX＂?S(儀站X坐標(biāo)):＂CZY＂?W（儀站Y坐標(biāo)）
LbI 0: ＂K＂?K: If K≤126.9（第1條單一曲線的終點(diǎn)下面同上）: Then Goto A：Else If K≤176.9 And K＞126.9: Then Goto B:Else If K≤259.562 And K＞176.9: Then Goto C:Else If K≤309.562 And K＞259.562: Then Goto D： IfEnd:IfEnd:IfEnd:IfEnd←┚
LbI A:92094.336（起點(diǎn)X坐標(biāo)）→U:8287.962（起點(diǎn)Y坐標(biāo)）→V:0起點(diǎn)樁號→O:145°11＇54＂（方位角）→G:126.9（曲線長度）→H:10^(45) （起點(diǎn)半徑）→P:10^(45) （止點(diǎn)半徑）→R:+1（路線左右偏，左負(fù)右正，直線輸0）→Q:Prog ＂WN＂:Goto W
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:＂PJ1＂?T←┚（該項(xiàng)是只左右邊樁再左右偏距，輸0為不再左右偏，可以直接出方位角、距離，適用于橋梁橋臺、蓋梁、涵洞八字墻等放樣，以路線前進(jìn)方向，前-，后+）
If T=0：Then Z[3]→Z: Z[4]→M: Goto P: Else Goto V: IfEnd←┚
LbI V:＂JJ1＂? 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): If J≤0：Then J+360°→J: IfEnd←┚
＂JL=＂:I◢（儀站至測點(diǎn)的距離）
＂FWJ=＂:J DMS◢（儀站至測點(diǎn)的方位角）
Goto0
備注：
1． 規(guī)定以道路中線前進(jìn)方向（即里程增大的方向）區(qū)分左右；當(dāng)線元往左偏時(shí)Q=-1；當(dāng)元線往右偏時(shí)，Q=1：當(dāng)元線為直線時(shí)，Q=0。
2． 當(dāng)線元為直線時(shí)，其起點(diǎn)、止點(diǎn)的曲率半徑為無窮大，以10的45次方代替。
3． 當(dāng)線元為圓曲線時(shí)，無論其起點(diǎn)、止點(diǎn)與什么線元相接，其曲率半徑均等于
