隧道常用测量程序汇编全.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:
