隧道测量超欠挖计算程序(5800).docVIP

正算主程序(ZS)：

Lb10：?S：?Z：Prog“PM-SJ”：Abs(S-O)→W：ProgSUB1：XS=：X◢YS=：Y◢F-90→F:S→K:Prog“SQX”：“H=”：H◢Goto0

反算主程序(FS)

Lb10:?S：?X：？Y：Prog“PM-SJ”：X→I：Y→??J：ProgSUB2：S=：O+W→S◢Z=：Z◢

S→K:Prog“SQX”：“H=”：H◢Goto0

隧道3心圆放样主程序（CQW）

?

Lb11：Fix3:7.315→R：6.19→P:“H1”?F:?Z:F-H→F:Abs(5.72-Z)→

IfF≥6.319:Then√(Z2+(F-0.715)2)-R→W:IfEnd:

IfF≥1.577ANDF＜6.319Then√((Z-0.723)2+(F-1.577)2)-P→W:IfEnd:

If≤1.577:ThenZ-(P+0.723)→W:IfEnd:

“W=”:W◢

Goto1

R----第一个圆圆心

P----第二个圆圆心

F----实测高程

H----路面纵断设计高程

Z----由反算主程序反算得到边距（不需修改）

程序中右线输入Abs(5.72-Z)→Z，左线输入Abs(5.72+Z)→Z

CQW----计算结果（+超，-欠）

隧道二