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

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