欢迎来到天天文库
浏览记录
ID:22293417
大小:59.00 KB
页数:8页
时间:2018-10-28
《隧道三心圆开挖程序0000》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库。
1、隧道程序隧道超欠挖计算程序1.正算主程序1-SDZSLblO:“KP”?S(待求桩号):“BIANZHU”?Z(边距):Prog“PM-SJ”:Abs(S-O)W:Prog”SUB1”::F-90^F:S->K:Prog“SQX”:“XS=”(X正算坐标):Locate6,4,X:“YS=”(Y正算坐标):Locate6,4,r:“BO”(方位角):Locate6,4,F°:“H=”(高程):Locate6,4,HJGoto02.反算主程序1-SDFSLbl0:“KP”?S:“CZX”?X:CZY”?Y(测站坐标):Prog“PM-SJ”:X->I:Y->J:Pro
2、gnSUB2rl:0+W->S:nS=’f:Locate6,4,S:nZ=":Locate6,4,Z:S-^K:Prog“SQX”:F-90一F:“BC=”:Locate6,4,F°:“H=”:3.隧道3心圆检测程序1-CQW程序说明:为了精简,不含数据库,直接把断面的相关数据插入程序内,一些相关的数据,请仔细去推敲它的来历1.0.729为设计高程到仰拱临界面的高差2.10.6为设计标高到03的高差3.12为03的半径4.0.131为设计高程到02临界点的高差5.3.498为02临界宽度6.0.59为设计高程到02的高差7.1.8为设计高程到01的高差8.1.4为0
3、2半径9.5.1为01半径Fix3:Lbl1:Prog“SDFS”:“HC”?F:“Z”?Z:IfFW:ElesIfF彡H-0.729ANDF^H+0.131:ThenAbs(Z)-3.498—Z:7((Z2+(H+0.59-F)2-1.4一W:ElesV((F-H-1.8)2+Z2)-5.1->W:IfEnd:IfEnd“CQHD”?(衬砌厚度)A:W=”:W-A->WJGotol4.正算子程序(SUB1)14-P->C:(P-R)4-(2HPR)->D:1804-ji->E:0.1739274
4、226A: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—Y5.反算子程序(SUB2)G-
5、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:ifAbsZU(线元起点X坐标):2770.297->V(线元起点Y坐标):98509.97->0(线元起点里程):200°13'51.45〃(
6、线元起点方位角):35—H(线元长度):l(f(45)—P(线元起点曲率半径):164.4-R(线元终点曲率半径):1—Q(线元左右偏标志:左负右正):IfEndIfS彡98544.97(线元起点里程)Then2931.426—U(线元起点X坐标):2757.04->V(线元起点Y坐标):98544.97->0(线元起点里程):206°19'57.88〃一G(线元起点方位角):27.891(线元长度):164.4-P(线元起点曲率半径):164.4—R(线元终点曲率半径):1—Q(线元左右偏标志:左负右正):IfEndIfS彡98572.86(线元起点里程)Then
7、2907.597-U(线元起点X坐标):2742.613—V(线元起点Y坐标):98572.86-0(线元起点里程):216°3'10.13〃一G(线元起点方位角):35—H(线元长度):164.4-P(线元起点曲率半径):1(T(45)->R(线元终点曲率半径):1—Q(线元左右偏标志:左负右正):IfEnd子程序(竖曲线计算公式)SQX101.43-ZE1](变坡点高程):98792->B(变坡点桩号):720->R(半径):43.092—T(切线长):0512—J(后纵坡):0.0676—1(前纵坡):K:B-K^C:卜U:I〉J=〉-卜UIfK
此文档下载收益归作者所有