1、ZXKW（直线开挖）
“D=”?D:“PD=”?F:“ZXJ=”?L:Lbl 0:“Y=”?Y:“Z=”?Z
“T=”:Abs(Y)-((Z-D)*F+L)→T◢
“ZL=”:Z-(D+0.3)◢
GoTo 0
本程序适用于直线段渠道开挖，坐标为工程坐标，D为坡脚处高程，PD为坡度，ZXJ为待放样边坡坡脚距中心线的水平距离，T表示棱镜所应水平移动距离，T为正值时向中心线方向移动，负值时向中心线外移动。“ZL=”表示为垂直向下开挖深度。
Lbl 0前各数值为定量，后各数值为变量，Lbl 0后的0为01234的0.
2、ZXDM(直线段面)
“M=”?M:“N=”?N:“Q=”?Q:“O=”?O:Lbl 0:“X=”?X:“Y=”?Y:“Z=”?Z
“F=”(X-M)COS(Q)+(Y-N)SIN(Q)+O→F◢
“G=”-(X-M)SIN(Q)+(Y-N)COS(Q) →G◢
“T=”:Abs(G)-((Z-96)*2+8.88-0.67) ◢
GoTo 0
本程序适用于直线段渠道开挖，坐标为大地坐标，M、N为某段直线起点在大地坐标中的大地坐标值，O为直线起点处桩号值，F为桩号，G为中心距，T表示棱镜所应水平移动距离，T为正值时向中心线方向移动，负值时向中心线外移动。
3、ZJZB(直角坐标)
“A=”?A:“B=”?B:Lbl 0:“C=”?C:“D=”?D
Pol(C-A,D-B)
“L=”:I→L◢
J≤0 ＝＞ J+360°→J
“Q=”:J→Q◢
GoTo 0
本程序适用于坐标反算，A、B为起算点坐标值，C、与待定点间水平距离，Q为起算点与待定点间的方位角。4、JZB(极坐标)
“A=”?A:“B=”?B:Lbl 0:“L=”?L: “Q=”?Q
为待定点坐标值，L为起算点D
Rec(L,Q)
“X=”:I+A→X◢
“Y=”:J+B→Y◢
GoTo 0
本程序适用于坐标正算，A、B为起算点坐标值，L为起算点与待定点间水平距离，Q为起算点与待定点间的方位角，X、Y为待定点坐标。
5、ZBZH(坐标转换)
“C=”?C:“D=”?D:“Q=”?Q:“O=”?O:Lbl 0:“X=”?X:“Y=”?Y
“A=”:(X-C)COS(Q)+(Y-D)SIN(Q)+O→A◢
“B=”:-(X-C)SIN(Q)+(Y-D)COS(Q) →B◢
GoTo 0
本程序适用于大地坐标与工程坐标之间相互转换，C、D、Q、O为坐标转换系数，其中C、D为新坐标系原点在旧坐标系中的坐标值（此时O=0），Q为新坐标系的X轴在旧坐标系中的方位角， A、B为转换后坐标。
6、PMYH(平面圆弧)
“M=”?M:“N=”?N:“K=”?K:“D=”?D:“PD=”?F:Lbl 0:“X=”?X:“Y=”?Y:“Z=”?Z
“T=”:Pol(X-M,Y-N)-((K+(Z-D)*F)) →T◢
“DL=”:Z-(D+0.2) ◢
GoTo 0
本程序适用于圆弧段渠道开挖，M、N为圆心坐标，K为半径，D为坡脚处高程，T表示棱镜所应水平移动距离，T为正值时向圆心方向移动，负值时向圆心外移动。，T/2表示超欠挖，DL表示向下开挖到坡脚处高程的深度。
7、1YH（1#圆弧）
Lbl 0: “X=”?X: “Y=”?Y: “DMZH”?S
“Q=”:302°11′39.8″+(S-61987.587)*0°6′52.53″→Q
“M=”:Rec(500,Q)+3914267.619→M
“N=”:J+539560.557→N
“G=”: 32°11′39.8″+(S-61987.587)* 0°6′52.53″→G
“SJZH=”:(X-M)COS(G)+(Y-N)SIN(G)+S→F◢
“ZHONGXINJU=”:-(X-M)SIN(G)+(Y-N)COS(G)→U◢
GoTo 0
本程序适用于圆弧段测量断面，其中(3914267.619, 539560.557)为1#圆弧圆心坐标，500为本段渠道中心线半径，61987.587为1#圆弧起点桩号，0°6′52.53″为每米所对应的圆心角值，302°11′39.8″为圆心到起点桩号的方位角值。“DMZH”?S为需要测量的断面桩号值，“SJZH=”为实测桩号值，“ZHONGXINJU=”为棱镜点到中心线的距离，与直线中的Y值相同。
因篇幅问题不能全部显示，请点此查看更多更全内容