《隧道常用测量程序汇编全.docx》由会员分享，可在线阅读，更多相关《隧道常用测量程序汇编全.docx（15页珍藏版）》请在课桌文档上搜索。
1、隧道常用测量程序汇编隧道5800常用程序20-DimZ:扩展变量（适用于左右线坐标及高程）Ozhuchengxu总主程序（1坐标正算，2坐标反算，3高程计算，4隧道超欠挖，5大地转施工6后方交会7附属结构超欠挖）,1ZS,2FS,3GC,4SD,5DD=SG,6HFJH?N:ifN=IzthenProg1ZS:ifendIfN=2:thenProg2FS”:ifendifN=3:thenProglt3GC:ifendifN=4:thenProg4SD:ifendifN=5:thenProg5DD=SG:ifendifN=6:thenProg6HFJH”:ifend正算IZS1.BI1:iZHU
2、ANGHAO=?S:Prog,LX-DAT(线路线型数据库)Abs(S-O)W:ProgSDZXJB:BIANZHU=?Z:Prog“A（正算子程序）：FTZ【17】（方位角）:PrOgH（高程计算次程序）“：ProgZSXS（正算显示程序）“：GOtol反算2FS1.bi2：Zhuanghao=?s：PrOglxdat（线路线型数据库）:CX=?X:XT:CY=,r?Y:YJ:ProgB（反算子程序）：（0+W）S:ZZ:ProgH（高程计算次程序）“：ProgSDZXJBrf:ProgFSXS（反算显示程序）：Got。2高程计算3GC1.bl0:ZHUANGHAO=?S:PrOgH:H=：
3、LOCate6,4,H/GotoO隧道4SD“zhuanghao=?s：lbi2：PrOglxdat（线路线型数据库）：CX=?X:XI:CY=?Y:YJ:ltSCG=（实测高）？ZlrProgB（反算子程序）”:（0+W）S:ZZ:Prog”H（高程计算程序）ProgSDZXJB,:prog,SDZQQXZ:ECHD=（设计二衬厚度）：？TZllZ10（实测二衬厚度）ZUZ12（初支超欠挖）：ProgiSDCQWXS（超欠挖显示程序）：Got。2大地转施工5DD=SG1ZDL2ZD2,3YD1,4YD2,5YHL6YH2,7HTD(2#竖井横通道):?U:PrOg“SGDAT(施工转大地数据
4、库)：LBIO:1.DD=SG,2.SG=DD：?N:?X:?Y:IfN=l:ThenXS=:(XA)Cos(F)+(Y-B)Sin(F)+C/:(YB)Cos(F)-(X-A)Sin(F)/ELseXD=:A+(X-C)Cos(F)-(Y)Sin(F)/YD=:B+(X-C)Sin(F)+(Y)Cos(F)/Ifend:Goto0说明：C起点桩号，AfB:起点的坐标。F:要旋转的方位角。XfY:目标点的坐标。N二1:大地转施工。N=2:施工转大地。(正算子程序名)A:0.1739274226A:0.3260725774B:0.0694318442K:0.3300094782L:1-LF:1-
5、KM: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)+90F:X+Zcos(F)X:Y+Zsin(F)Y(反算子程序名)BG-90T(Y-V)cos(T)-(X-U)sin(T)WAbs(W)WzOZ1.bI0:ProgAHT+QEW(C+WD)L(J-Y)cos(L)-(I-X)sin(L)ZIf
6、Abs(Z)lE-6(0.000001):Then0Z:Prog“A”：(J-Y)sin(F)ZElseW+ZWotoO:IfEnd曲线要素LX-DATIfS1611.659:ThenCls:stop:IfEndIfS1611.659AndS1617.087:Then1611.659Orl02256.5832Uz229244.3386Vl30o50,23G:1045P:1045R5.236Hr0Q:GotoOzIfEndIfS1617.087AndS1687.087:Then1617.087Orl02253.0336Uz229248.4451Vl30o50,23”G:1045P:450Rr70
7、HlQ:GotoOJfEndIfS1687.087AndSlQ:GotoOJfEndIfS1935.376AndS1Q:Goto0:IfEndIfS2005.376AndS2324.876AndS2394.876:Then2324.876Orl02118.5485U229921.5096V:9018,50.06,Gi1045P:450R70HlQ:GotoOJfEndIfS2394.876AndS2461.212:Then2394.8760:102119.9792-5229991.4761S855127.25”G:450P:450Rr66.336HlQ:GotoOrIfEndIfS2461.2
8、12AndS1Q:GotoOrIfEndIfS2531.212AndS2747.312zThen2531.212Orl02148.3936Uz230124.4645V72o57,18.25,zG:1045Pz1045Ri216.1Hi0Q:GotoOiIfEndIfS2747.312AndS11612.288AndS11682.288:Then11612.288Ozl02266.0071U229253.3155Vrl3050,23GrlO45P:450R70HlQ:GotoOJfEndIfS11682.288AndSlQ:GotoOJfEndIfS11930.577AndS1Q:GotoOJf
9、EndIfS12000.577AndS12313.293:Then12000.577Orl02133.2724Uz229606.8851V90o18,50G:1045P:1045R312.716Hi0Q:GotoOJfEndIfS12313.293AndS12383.293:Then12313.293Orl02131.5592Uz229919.5964V:9018,50G:1045P:450Rr70HlQ:GotoOJfEndIfS12383.293AndS12449.629AndS12519.629:Then12449.629Orl02142.6324U230055.1337V:7724,4
10、1.07G450P:1045Ri70H1Q:Goto0:IfEndIfS12519.629AndS12533.197:Then:CLS:STOP:IfEnd此区间为短链左线断了13.568米IfS12533.197AndSO:ThenlW:Else-IW:IfEndIfSO:ThenQ+ILH:ElseQ+IL+W(T-L)22RH:IfEnd高程数据库H-DATIfS1611.659:ThenStopzCLs:IfEnd:IfS1642.5AndS1611.659:Then0C:0.005Dz5000Rzl630A10.5Q:GotoO:IfEnd:IfS2415AndS1642.5:The
11、n0.005C:-0.005Dz5000Rz2390A6.7Q:GotoO:IfEnd:IfS2732.5AndS2415:Then-0.005C:0一D:500OTR:2720-Ar-8.35Q:GotoO:IfEnd:IfS2732.5AndS10.5Q:GotoO:IfEnd:IfS12415AndS11642.5:Then0.005C:-0.005Dr5000Rrl2390A6.7Q:GotoO:IfEnd:IfS12519.629AndS12415:Then-0.005C:0D:5000Rrl2720A:-8.35Q:GotoO:IfEnd:IfS12533.197AndS12519
12、.629:ThenStopzCLs:IfEndlftIK间为短链IfS12732.5AndS12533.197:Then-0.005C:0D5000Rl2733.568A8.35Q:GotoO:IfEnd:1.bIO:R:A:D:C:Q:程序字母说明：A竖曲线交点桩号；Q交点高程（未竖曲线调整的）；R竖曲线半径;C-竖曲线前纵坡；D-竖曲线后纵坡左线桩号前面加1后方交会HFJH超欠挖显示程序SDCQWXSCLs:CZ=:LoCate5,1,Z12:,EC=f,ocate5,2,Z10:ttS=,rocate5f3,S:Z=:LoCate6,4,ZCLs:SJG=:LoCate6,LH:YXG=
13、:LoCate6,2,Z2:JB=1.OCate5,4,Z3/正算显示程序ZSXS(Z17-90)Z17:CLs:XS=:LOCate5,1,X:YS=:LOCate5,2,Y:SJG=:LoCate5,3,H:FS=:LOCate5,4,Z17/反算显示程序FSXSCLs:S=:LOCate5,1,S:Z=:LOCate5,2,Z:mSJG=,ocate5f3,H:ZXJB=Locate5f4,Z3/隧道曲墙SDQQ(犷大7cm)IfZlH+4.04IhenH+2.18Z2(Zl-Z2)2+(Z-Z3)2)Z9:Z9-2.55Z10:IfendIfZlH+4.04AndZlH+2.03:th
14、enH+2.03Z2z(Zl-Z2)2+(Abs(Z-Z3)+0.2)2)Z9:Z9-2.80Z10:IfendIfZlH+2.03AndZlH+O.O3:thenH+2.03Z2z(Zl-Z2)2+(Abs(Z-Z3)+6.45)2)Z9:Z9-9.05Z1O:IfendIfZlH+O.O3cthenH+4.08Z2r(Zl-Z2)2+(Z-Z3)2)Z9:Z9-5.06Z10:Ifend隧道直墙SDZQ(扩大5cm)IfZlH+3.86IhenH+2.18Z2z(Zl-Z2)2+(Z-Z3)2)Z9:Z9-2.45Z10:IfendIfZlH+3.86AndZlH+2.03:thenH+2
15、.03Z2r(Zl-Z2)2+(Abs(Z-Z3)+0.2)2)Z9:Z9-2.7Z10:IfendIfZl1617.087AndS1935.376AndS2005.376:Then-0.1376-(S-1935.376)*(-0.1376)70Z3:goto0:IfEndIfS2005.376AndS2324.876:Then0Z3:goto0:IfEndIfS2324.876AndS2394.876:Then(S-2324.876)*-0.173870Z5:goto0:IfEndIfS2394.876AndS2461.212:Then-0.1738Z3:goto0:IfEndIfS2461
16、.212AndS2531.212:Then-0.1738-(S-2461.212)*(-0.1738)70Z3:goto0:IfEndIfS2531.212AndS2732.31:Then0ZZ3:goto0:IfEndIfS2732.31AndS11682.288AndSH930.577:Then-O.1521Z3:gotoO:IfEndIfS11930.577AndS12000.577Then15.21-(S-11930.577)*-0.152170Z3:goto0:IfEndIfS12000.577AndS12313.293:Then0Z3:gotoO:IfEndIfS12313.293
17、AndS12383.293Then(S-12313.293)*-0.173870Z3:goto0:IfEndIfS12383.293AndS12449.629:Then-0.1738Z3:goto0:IfEndIfS12449.629AndS12519.629Then-0.1738-(S-12449.629)*-0.173870Z3:goto0:IfEndIfS12519.629AndSZ7AndJZ8:Thenprog“CQWJS”:Ifend:Ifend:IfA=3:then2.03Z40.2Z5z2.8Z6:537,48Z79000,00Z8:POI（Z13-Z4fZ14-Z5）JZ15
18、:IFJZ7AndJZ8:ThenprogCQWJS”:Ifend:Ifend:IfA=4:then2.18Z4z6.45Z5z9.05Z6:-10100fOOZ7:-9000,00Z8:POI（Z13-Z4fZ14-Z5）JZ15:IFJZ7AndJZ8:ThenprogCQWJS”:Ifend:Ifend:IfA=5:thenLbl5:2.03Z4:-6.45Z5:9.05Z6:9000,OO”Z7rl0100,00Z8:POI（Z13-Z4,Z14-Z5）:JZ15:IFJZ7AndJZ8:ThenprogCQWJS”:Ifend:Ifend:说明：为了方便使左右线数据库编入在同一文件中，右线整桩号为四位数，左线整桩号为五位数（左线桩号前加一位I）3桩号,Z距设计线距离（带正负号）。H设计高程，Zl实测高程，Z2圆心高程，Z引中线渐变尺寸,Z4圆心至设计高距离,Z5圆心至设计线距离（带正负号），Z6二衬半径，Z7圆弧上点所在圆心起点方位角，Z8圆弧上点所在圆心终点方位角，Z9实测半径，Z10二衬超欠搀，Zllr衬厚度，Z12初支超欠挖。
