正算子程序（ZS）（不运行）
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）（不运行）
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（运行主程序，该程序适用于匝道，对全段完整非对称曲线计算太过麻烦）
＂CZX＂?S(仪站X坐标):＂CZY＂?W（仪站Y坐标）
LbI 0: ＂K＂?K: If K≤126。
9（第1条单一曲线的终点下面同上）: 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（起点X坐标）→U:8287。962（起点Y坐标）→V:0起点桩号→O:145°11＇54＂（方位角）→G:126。
9（曲线长度）→H:10^(45) （起点半径）→P:10^(45) （止点半径）→R: 1（路线左右偏，左负右正，直线输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←┚（该项是只左右边桩再左右偏距，输0为不再左右偏，可以直接出方位角、距离，适用于桥梁桥台、盖梁、涵洞八字墙等放样，以路线前进方向，前-，后 ）
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◢（仪站至测点的距离）
＂FWJ=＂:J ?DMS◢（仪站至测点的方位角）
Goto0
备注：
1． 规定以道路中线前进方向（即里程增大的方向）区分左右；当线元往左偏时Q=-1；当元线往右偏时，Q=1：当元线为直线时，Q=0。
2． 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次方代替。
3． 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于。
答：如果你使用的WORD没有安装公式编辑器，打开含有公式编辑器编写公式的文档时，某些符号会不能正确显示，也不能正确打印，例如“…”会显示成Λ。你只要添加安装公式编辑...详情>>
答：的意思是找不到指定的文件，你确定你的文件路径正确吗？ 另外，调用的部分你用 n(shcmd)试试详情>>
