欢迎来到天天文库
浏览记录
ID:8353251
大小:116.50 KB
页数:6页
时间:2018-03-21
《casio5800隧道三心圆超欠挖计算程序》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库。
1、关于隧道超欠挖的控制方法隧道超欠挖计算程序正算主程序(ZS):Lb10:?S:?Z:Prog“PM-SJ”:Abs(S-O)→W:Prog"SUB1":"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:Prog"SUB2":"S=":O+W→S◢"Z=":Z◢S→K:Prog“SQX”:“H=”:H◢Goto0隧道3心圆放样主程序(CQW)Lb11:Fix3:7
2、.315→R:6.19→P:“H1”?F:?Z:F-H→F:Abs(5.72-Z)→ZIfF≥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◢Goto1R----第一个圆圆心P----第二个圆圆心F----实测高程H----路面纵断设计高程Z----由反算主程序反算得到边距(不需修改)程序中右线输
3、入Abs(5.72-Z)→Z,左线输入Abs(5.72+Z)→ZCQW----计算结果(+超,-欠)隧道二衬断面检测主程序(CQJC)Lb11:Fix3:6.625→R:5.5→P:“H1”?F:?Z:F-H→F:Abs(5.72-Z)→ZIfF≥5.79:Then√(Z2+(F-0.715)2)-R→W:IfEnd:IfF<5.79Then√(Z-0.723)2+(F-1.577)2)-P→W:IfEnd:“W=”:W◢Goto1R----第一个圆圆心P----第二个圆圆心F----实测高程H----路面纵断设计
4、高程Z----由反算主程序反算得到边距(不需修改)程序中右线输入Abs(5.72-Z)→Z,左线输入Abs(5.72+Z)→ZCQW----计算结果(+超,-欠)正算子程序(SUB1)1÷P→C:(P-R)÷(2HPR)→D:180÷π→E:0.→ A:0.→B:0.→K:0.→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
5、+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:Prog"SUB1":T+QEW(C+WD)→L:(J-Y)cosL-(I-X)sinL→Z:ifAbsZ<1E-6:thenGoto1:ElssW+Z →W:Goto0:IfEndLbl1:
6、0→Z:Prog"SUB1":(J-Y)÷sinF→Z子程序(平面线形数据库)PM-SJifS≥45978.226(线元起点里程)Then2214.419→U(线元起点X坐标):4802.542→V(线元起点Y坐标):45798.226→O(线元起点里程):’54”→G(线元起点方位角):200→H(线元长度):1300→P(线元起点曲率半径):1×1045→R(线元终点曲率半径):1→Q(线元左右偏标志:左负右正):IfEndifS≥45998.226(线元起点里程)Then2262.012→U(线元起点X坐
7、标):4608.341→V(线元起点Y坐标):45998.226→O(线元起点里程):’20”→G(线元起点方位角):238.741→H(线元长度):1×1045→P(线元起点曲率半径):1×1045→R(线元终点曲率半径):0→Q(线元左右偏标志:左负右正):IfEnd子程序(竖曲线计算公式)SQXLbI0:578.318→Z[1]:46080→B:32000→R:160→T:0.025→I:0.035→J:?K:B-K→C:1→F:I>J=>-1→FIfK8、d:IfKBthen0→A:J→P:Goto1:IfEndLbI1:Z[1]-CP+AF(T-Abs(C))2÷2÷R→H:“H”:H◢Goto0Z——变坡点高程B——变坡点桩号R——半径T——切线长I——前纵坡度J——后纵坡K——待求点
8、d:IfKBthen0→A:J→P:Goto1:IfEndLbI1:Z[1]-CP+AF(T-Abs(C))2÷2÷R→H:“H”:H◢Goto0Z——变坡点高程B——变坡点桩号R——半径T——切线长I——前纵坡度J——后纵坡K——待求点
此文档下载收益归作者所有