隧道三心圆超欠挖程序修改后程序.doc

《隧道三心圆超欠挖程序修改后程序.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、卡西欧计算器5800隧道超欠挖计算程序正算主程序(ZS)：Lb10：?S：?Z：Prog“PM-SJ”：Abs(S-O)→W：Prog"SUB1"："XS="：X◢"YS="：Y◢F-90→F:S→K:Prog“SQX-SJ”：“H=”：H◢Goto0反算主程序(FS)Lb10:?S：?X：？Y：Prog“PM-SJ”：X→I：Y→  J：Prog"SUB2"："S="：O+W→S◢"Z="：Z◢S→K:Prog“SQX-SJ”：“H=”：H◢Goto0隧道3心圆放样主程序（CQW）Lb11：Fix4:“H1”?F:?Z:F-H→F:

2、“R”?R：R+2.5→P:Abs(5.335+Z)→ZIfF≥1.6:Then√(Z2+(F-1.6)2)-R→W:IfEnd:IfF≥-0.431AndF＜1.6:Then√((Z+2.5)2+(F-1.6)2)-P→W:IfEnd:IfF≥-1.431AndF＜-0.431:Then√((Z-4.242)2+(F+0.026)2)-P→W:IfEnd:“W=”:W◢Goto1R----第一个圆圆心P----第二个圆圆心F----实测高程H----路面纵断设计高程Z----由反算主程序反算得到边距（不需修改）程序中右线输入Abs(5.72-Z)→Z

3、，左线输入Abs(5.72+Z)→ZCQW----计算结果（+超，-欠）正算子程序(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

4、))+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：Prog"SUB1"：T+QEW(C+WD)→L：(J-Y)cosL-(I-X)sinL→Z：ifAbsZ<1E-6：thenGoto1：ElseW+Z  →W：Goto0：IfEndLbl1：0→Z：Prog"SUB1"：(J-Y)÷sinF→Z子程序（平面线形数据库）PM-S

5、JifS≥8827.603（线元起点里程）:Then4206957.206→U（线元起点X坐标）：501300.8744→V（线元起点Y坐标）：8827.603→O（线元起点里程）：172049’54.49”→G（线元起点方位角）：1565.538→H（线元长度）：2800→P（线元起点曲率半径）：2800→R（线元终点曲率半径）：1→Q（线元左右偏标志：左负右正）：IfEndifS≥……（线元起点里程）:Then……→U（线元起点X坐标）：……→V（线元起点Y坐标）：……→O（线元起点里程）：……→G（线元起点方位角）：……→H（线元长度）：1×

6、1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0→Q（线元左右偏标志：左负右正）：IfEnd子程序（竖曲线计算公式）SQXLbI0:1078.934→Z[1]:8000→B:50000→R:125→T:0.025→I:0.03→J:？K:B-K→C:1→F:I>J＝＞-1→F1111.434→Z[2]:9300→B:50000→R:177.813→T:0.025→I:0.01789→J:？K:B-K→C:1→F:I>J＝＞-1→FIfK

7、P:Goto1:IfEnd:IfKB:then0→A:J→P:Goto1:IfEndLbI1:Z[1]-CP+AF(T-Abs(C))2÷2÷R→H:“H”:H◢Z[2]-CP+AF(T-Abs(C))2÷2÷R→H:“H”:H◢Prog“CQW”◢Z[1]——变坡点高程B——变坡点桩号R——半径T——切线长I——前纵坡度J——后纵坡K——待求点桩号H——待求点高程说明：仪器架至测站点上定向后，观测掌子面任意点，测得数据进入反算主程序FS计算得出：对应里程桩号和边距及对应里程路面纵断设计

8、高程。然后可计算出超欠挖或即可在掌子面上绘出开挖轮廓线，以便更好指导开挖作业。进入隧道3心圆