A-31标隧道三心圆超欠挖程序.docVIP

A-31标隧道三心圆超欠挖程序

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

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

Lb11：7.315→R：6.19→P:“H1”?F:?Z:F-H→F:Z→

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

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

If≤1.577:ThenAbs(Z+5.72)-(P+0.723)→W:IfEnd:

“W=”:W◢

Goto1

R----第一个圆圆心

P----第二个圆圆心

F----实测高程

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

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

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

隧道二衬断面检测主程序（CQJC）

Lb11：6.625→R：5.5→P:“H1”?F:?Z:F-H→F:Z→

IfF≥5.79:Then√((Z+5.72)2+(F-0.715)2)-R→W:IfEnd:

IfF＜5.79Then√((Abs(Z+5.72)-0.723)2+(F-1.577)2)-P→W:IfEnd:

“W=”:W◢

Goto1

R----第一个圆圆心

P----第二个圆圆心

F----实测高程

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

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

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

正算子程序(SUB1)

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

反算子程序(SUB2)

G-90→T：Abs((Y-V)cosT-(X-U)sin（T）)→W：0→Z：Lbl0：ProgSUB1：T+QEW(C+WD)→L：(J-Y)cosL-(I-X)sinL→Z：ifAbsZ1E-6：thenGoto1：ElssW+Z??→W：Goto0：IfEnd

Lbl1：0→Z：ProgSUB1：(J-Y)÷sinF→Z

子程序（平面线形数据库）PM-SJ

ifS≥45978.226（线元起点里程）Then2214.419→U（线元起点X坐标）：4802.542→V（线元起点Y坐标）：45798.226→O（线元起点里程）：280049’54”→G（线元起点方位角）：200→H（线元长度）：1300→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：1

ifS≥45998.226（线元起点里程）Then2262.012→U（线元起点X坐标）：4608.341→V（线元起点Y坐标）：45998.226→O（线元起点里程）：285014’20”→G（线元起点方位角）：238.741→H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：

子程序（竖曲线计算公式）SQX

LbI0:578.318→Z[1]:46080→B:32000→R:160→T:0.025→I:0.035→J:？K:B-K→C:1→F:IJ＝＞-1→F

IfKB-Tthen0→A:I→P:Goto1:IfEnd:IfKBthen1→A:I→P:Goto1:IfEnd:IfKB+Tthen1→A:J→P:Goto1:IfEnd:IfKBthen0→A:J→P:Goto1:IfEnd

LbI1:Z[1]-CP+AF(T-Abs(C))2÷2÷R→:“H”:H◢

Goto0

Z——变坡点高程B——变坡点桩号

R——半径T——切线长

I——前纵坡度J——后纵坡

K——待求点桩号