隧道常用测量程序汇编全.docx

隧道常用测量程序汇编隧道5800常用程序20-DimZ:扩展变量（适用于左右线坐标及高程）Ozhuchengxu总主程序（1坐标正算，2坐标反算，3高程计算，4隧道超欠挖，5大地转施工6后方交会7附属结构超欠挖）,1ZS,2FS,3GC,4SD,5DD=>SG,6HFJH"?N:ifN=IzthenProg"1ZS":ifendIfN=2:thenProg''2FS”:ifendifN=3:thenProglt3GC":ifendifN=4:thenProg''4SD":ifendifN=5:thenProg''5DD=>SG'':ifendifN=6:thenProg''6HFJH”:ifend正算IZS1.BI1:iZHUANGHAO="?S:Prog,LX-DAT"(线路线型数据库)Abs(S-O)W:Prog''SDZXJB":''BIANZHU="?Z:Prog“A（正算子程序）：FTZ【17】（方位角）:PrOg"H（高程计算次程序）“：Prog"ZSXS（正算显示程序）“：GOtol反算2FS1.bi2："Zhuanghao="?s：PrOglxdat（线路线型数据库）:CX="?X:XT:CY=,r?Y:YJ:Prog''B（反算子程序）：（0+W）S:ZZ:Prog''H（高程计算次程序）“：Prog"SDZXJBrf:Prog"FSXS（反算显示程序）"：Got。2高程计算3GC1.bl0:''ZHUANGHAO="?S:PrOg"H":"H=：LOCate6,4,H/GotoO隧道4SD“zhuanghao="?s：lbi2：PrOglxdat（线路线型数据库）：CX="?X:XI:''CY="?Y:YJ:ltSCG="（实测高）？ZlrProg"B（反算子程序）”:（0+W）S:ZZ:Prog”H（高程计算程序）Prog"SDZXJB,:prog,SDZQQXZ":"ECHD="（设计二衬厚度）：？TZllZ10（实测二衬厚度）ZUZ12（初支超欠挖）：ProgiSDCQWXS（超欠挖显示程序）：Got。2大地转施工5DD=>SG"1ZDL2ZD2,3YD1,4YD2,5YHL6YH2,7HTD(2#竖井横通道):?U:PrOg“SGDAT(施工转大地数据库)：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)/ELse"XD=":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-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:Prog"AHT+QEW(C+WD)L(J-Y)cos(L)-(I-X)sin(L)ZIfAbs(Z)<lE-6(0.000001):Then0Z:Prog“A”：(J-Y)÷sin(F)ZElseW+ZWotoO:IfEnd曲线要素LX-DATIfS<1611.659:ThenCls:stop:IfEndIfS1611.659AndS<1617.087:Then1611.659Orl02256.5832Uz229244.3386Vl30o50,23G:×1045P:×1045R5.236Hr0Q:GotoOzIfEndIfS1617.087AndS<1687.087:Then1617.087Orl02253.0336Uz229248.4451Vl30o50,23”G:1045P:450Rr70HlQ:GotoOJfEndIfS1687.087AndS<1935.376:Then1687.087Orl02208.6576Uz229302.5574Vl26o23,00.18z,G:450P:450R248.289H>lQ:GotoOJfEndIfS1935.376AndS<2005.376:Then1935.376Orl02122.4959U229532.0687V:94°46,12.89,zG:450P:1045Ri70H>1Q:Goto0:IfEndIfS2005.376AndS<2324.876:Then2005.376Ozl02120.2989U229602.0147V90°18,50”G:1045P:1045R319.5Hi0Q:GotoOJfEndIfS>2324.876AndS<2394.876:Then2324.876Orl02118.5485U229921.5096V:90°18,50.06,Gi1045P:450R70HlQ:GotoOJfEndIfS2394.876AndS<2461.212:Then2394.8760:102119.9792-5229991.4761S85°51'27.25”G:450P:450Rr66.336HlQ:GotoOrIfEndIfS2461.212AndS<2531.212:Then2461.212Orl02129.6219Uz230057.048V:77°24,41.07f,Gz450P:1045Ri70H>1Q:GotoOrIfEndIfS2531.212AndS2747.312zThen2531.212Orl02148.3936Uz230124.4645V72o57,18.25,zG:1045Pz1045Ri216.1Hi0Q:GotoOiIfEndIfS>2747.312AndS<11612.288:ThenCls:stop:IfEndIfS>11612.288AndS<11682.288:Then11612.288Ozl02266.0071U229253.3155Vrl30°50,23GrlO45P:450R70HlQ:GotoOJfEndIfS11682.288AndS<11930.577:Then11682.288Orl02221.6311U229307.4278Vl26°23,00.18z,G:450P:450Rr248.289H>lQ:GotoOJfEndIfS11930.577AndS<12000.577:Then11930.577Orl02135.4694Uz229536.9391V:94°46,12.89z,G:450P:1045Ri70H>1Q:GotoOJfEndIfS12000.577AndS<12313.293:Then12000.577Orl02133.2724Uz229606.8851V90o18,50G:1045P:1045R312.716Hi0Q:GotoOJfEndIfS12313.293AndS<12383.293:Then12313.293Orl02131.5592Uz229919.5964V:90°18,50"G:1045P:450Rr70HlQ:GotoOJfEndIfS12383.293AndS<12449.629:Then12383.293Orl02132.9901Uz229989.5629V85o51,27.25nG:450P:450Rr66.336HlQ:GotoOrIfEndIfS>12449.629AndS12519.629:Then12449.629Orl02142.6324U230055.1337V:77°24,41.07°G450P:1045Ri70H>1Q:Goto0:IfEndIfS>12519.629AndS<12533.197:Then:CLS:STOP:IfEnd此区间为短链左线断了13.568米IfS12533.197AndS<12747.312:Then12519.629Orl02161.4043Uz230122.5513V72o57,18.25,fG:1045Pz1045Ri214.155Hz0Q:GotoOJfEnd1.bI0zl÷PC:(P-R)÷(2HPR)D:180÷E:程序字母说明：O-线元起点桩号；U起点X坐标；V-起点Y坐标；G-线元起点桩号切线方位角；H-线元长度，P-线元起点曲率半径，R-线元终点曲率半径,Q-线元判别(以道路中线的前进方向(即里程增大的方向)区分左右滑线元往左偏时,Q=-I;当线元往右偏时,Q=I;当线元为直线时，Q=0)o左线前面桩号加1高程计算次程序HProg''HDAT”:R*AbS(D-C)2T:IfD-C>O:ThenlW:Else-IW:IfEndIfS<A:Then-CI:ElseDI:IfEndAbS(A-S)L:IfL-T>O:ThenQ+ILH:ElseQ+IL+W(T-L)22RH:IfEnd高程数据库H-DATIfS1611.659:ThenStopzCLs:IfEnd:IfS1642.5AndS1611.659:Then0C:0.005Dz5000Rzl630A>10.5Q:GotoO:IfEnd:IfS2415AndS1642.5:Then0.005C:-0.005Dz5000Rz2390A>6.7Q:GotoO:IfEnd:IfS2732.5AndS2415:Then-0.005C:0一D:500OTR:2720-Ar-8.35Q:GotoO:IfEnd:IfS>2732.5AndS<11612.688:ThenStopzCLs:IfEnd力匕区间为左右线连接段IfSH642.5AndS11612.688:Then0C:0.005Dr5000Rrll630A>10.5Q:GotoO:IfEnd:IfS«12415AndS11642.5:Then0.005C:-0.005Dr5000Rrl2390A>6.7Q:GotoO:IfEnd:IfS12519.629AndS12415:Then-0.005C:0D:5000Rrl2720A:-8.35Q:GotoO:IfEnd:IfS«12533.197AndS12519.629:ThenStopzCLs:IfEndlftIK间为短链IfS«12732.5AndS12533.197:Then-0.005C:0D5000Rl2733.568A>8.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=,r±ocate5f3,S:''Z=":LoCate6,4,ZCLs:"SJG=":LoCate6,LH:''YXG=":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:IfendIfZl<H+4.04AndZlH+2.03:thenH+2.03Z2z(Zl-Z2)2+(Abs(Z-Z3)+0.2)2)Z9:Z9-2.80Z10:IfendIfZl<H+2.03AndZlH+O.O3:thenH+2.03Z2z(Zl-Z2)2+(Abs(Z-Z3)+6.45)2)Z9:Z9-9.05Z1O:IfendIfZl<H+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:IfendIfZl<H+3.86AndZlH+2.03:thenH+2.03Z2r(Zl-Z2)2+(Abs(Z-Z3)+0.2)2)Z9:Z9-2.7Z10:IfendIfZl<H+2.03:thenAbs(Z-Z3)Z9:Z9-2.5Z10:IfendSDZQQXZ(直曲墙选择),1.ZQ,2.QQ":?U:ifU=I:thenprog''SDQQ”:Elseprog"SDZQ"：ifendSDZXJB(隧道中线渐变)IfS«1617.087:Then0Z3:goto0:IfEndIfS>1617.087AndS<1687.087:Then(S-1617.087)*-0.137670Z3:goto0:IfEndIfS1687.087AndS«1935.376:Then-0.1376Z3:goto0:IfEndIfS>1935.376AndS«2005.376:Then-0.1376-(S-1935.376)*(-0.1376)70Z3:goto0:IfEndIfS>2005.376AndS2324.876:Then0Z3:goto0:IfEndIfS>2324.876AndS2394.876:Then(S-2324.876)*-0.173870Z5:goto0:IfEndIfS>2394.876AndS«2461.212:Then-0.1738Z3:goto0:IfEndIfS>2461.212AndS2531.212:Then-0.1738-(S-2461.212)*(-0.1738)70Z3:goto0:IfEndIfS>2531.212AndS2732.31:Then0ZZ3:goto0:IfEndIfS>2732.31AndS<11612.288:ThenCLS:STOP:goto0:IfEndIfS11612.288AndS11682.288:Then(S-11612.288)*-0.152170Z3:goto0:IfEndIfS>11682.288AndSH930.577:Then-O.1521Z3:gotoO:IfEndIfS>11930.577AndS12000.577Then15.21-(S-11930.577)*-0.152170Z3:goto0:IfEndIfS>12000.577AndS12313.293:Then0Z3:gotoO:IfEndIfS>12313.293AndS12383.293Then(S-12313.293)*-0.173870Z3:goto0:IfEndIfS>12383.293AndS12449.629:Then-0.1738Z3:goto0:IfEndIfS>12449.629AndS12519.629Then-0.1738-(S-12449.629)*-0.173870Z3:goto0:IfEndIfS>12519.629AndS<12533.197:ThenCLS:STOP:goto0:IfEndIfS12533.197AndS«12732.31:Then0Z3:goto0:IfEnd1.bI0:Z3:施工转大地.大地转施工数据库SGDATIfU=I:Then102133.2724Ar229606.8851Brl2000.577C:90°18,50F:Goto0:IfEndIfU=2:Thenl02161.4043A230122.5513Brl2533.197C:72°57,18F:Goto0:IfEndIfU=3:Thenl02120.2989Ar229602.0147B2005.376C:90°18,50,rF:Goto0:IfEndIfU=4:Thenl02148.3936A230124.4645Bz2531.212C:72o57,18,rF:Goto0:IfEndIfU=5:Thenl02233.7398Az229241.7894Br0Cz40°50,22.85”F:Goto0:IfEndIfU=6:Thenl02241.0651Az229262.3968Bz0C:40°50,27.52”F:Goto0:IfEndIfU=7:Thenl02182.8856A230324.2258B0C:342°57,18”F:Goto0:IfEnd1.bIO:A:B:C:F:直线段超欠挖（适用施工坐标）1.BIO:?S:?Z:"SCG=z,:?Z1:ProgiSDZXJBfr:Prog“H（高程计算程序）"：Z1-HZ13:prog“SDZQQXZ”:"ECHD="（设计二衬厚度）：？-Zll210（实测二衬厚度）ZUZ12（初支超欠挖）:Prog-SDCQWXS（超欠挖显示程序）“：GOtOOSDYX（隧道圆心判别程序）For1Ato5:IfA=Irthen2.18Z40Z5r2.55Z6:-53°7,48Z7:53°7,48r,Z8:POI（Z13-Z4,Z14-Z5）JZ15:IFJZ7AndJZ8:ThengotoO:IfendJfend:IfA=2:then2.03Z4.2Z52.8Z6:-90°00,00Z7-53°7,48Z8:POI（Z13-Z4fZ14-Z5）JZ15:IFJ>Z7AndJZ8:Thenprog“CQWJS”:Ifend:Ifend:IfA=3:then2.03Z4>0.2Z5z2.8Z6:53°7,48Z790°00,00Z8:POI（Z13-Z4fZ14-Z5）JZ15:IFJZ7AndJZ8:Thenprog'CQWJS”:Ifend:Ifend:IfA=4:then2.18Z4z6.45Z5z9.05Z6:-101°00fOO''Z7:-90°00,00"Z8:POI（Z13-Z4fZ14-Z5）JZ15:IFJZ7AndJZ8:Thenprog''CQWJS”:Ifend:Ifend:IfA=5:thenLbl5:2.03Z4:-6.45Z5:9.05Z6:90°00,OO”Z7rl01°00,00Z8:POI（Z13-Z4,Z14-Z5）:JZ15:IFJZ7AndJZ8:Thenprog''CQWJS”:Ifend:Ifend:说明：为了方便使左右线数据库编入在同一文件中，右线整桩号为四位数，左线整桩号为五位数（左线桩号前加一位I）3桩号,Z距设计线距离（带正负号）。H设计高程，Zl实测高程，Z2圆心高程，Z引中线渐变尺寸,Z4圆心至设计高距离,Z5圆心至设计线距离（带正负号），Z6二衬半径，Z7圆弧上点所在圆心起点方位角，Z8圆弧上点所在圆心终点方位角，Z9实测半径，Z10二衬超欠搀，Zllr衬厚度，Z12初支超欠挖。