贵新隧道左洞直线段断面开挖程序2009.docx

《贵新隧道左洞直线段断面开挖程序2009.docx》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、贵新隧道左洞直线段断面开挖程序2009-06-2311:20贵新隧道左洞直线段断面开挖程序ZXDKWCXLbl0{ABZ}A“FYDX”：B“FYDY”：H“FYDZ”C=A－5090.108：D=B－2209.4605POL（C，D）IJ〈0＞J=J+360G=J－28°25′58.9″O=cosG×I×0.011＋79.486869“KLC”:K=18868.07898+cosG×I“PJ”:M=sinG×E“GC”:P=Z-OP＞0≠＞“PCS”:S=√(M2＋P2)－5.78≠“PCX”:S=√((AbsM+1.5)2＋P2)－7.28Goto0说明：1、“FYD

2、X”、“FYDY”、“FYDZ”为掌子面任一点三维坐标，KLC为任一点的里程，“PJ”（平距）为测点至隧道中线的水平距离,“GC”（高差）为测点至起拱线高差（测点至起拱线高差）。当P＞0时，测点位于起拱线以上，否则相反。“PCS”（偏差）为测点的超、欠挖值，（正超负欠）。2、本程序分为平面和立面两部份作为理解，其编程思路见附图。3、本程序在使用时，除了用于直线线型以外，同时也可以通过将程序修改用于圆曲线和缓和曲线线型。CASIO5800计算器公路竖曲线全线高程计算程序时间:2010-03-1213:08:39来源:本站作者:李强善我要投稿我要收藏投稿指南“SQXJSCX”

3、↙Lb11↙CLs:Fix3↙“K=”?k◢(计算点里程输入)Ifk<67549.755ANDK≥66894.3:Then-0.00052→A:0→B:67394.3→S:67.37→G:600000→R:Goto2:IfEnd↙Ifk<68708.391ANDK≥67549.755:Then-0.0048→A:-0.00052→B:68494.3→S:66.8→G:100000→R:Goto2:IfEnd↙Ifk<本段竖曲线终点里程ANDK≥前一竖曲线终点里程:Then-0.0048→前坡（大里程向）A:-0.00052→后坡（小里程向）B:68494.3→竖曲线交点里

4、程S:66.8→交点高程G:100000→曲率半径R:Goto2:IfEnd↙………依次类推，计算原始数据完成输入，坡度换算成小数。Lb12↙S-K→L：A-B→W:Abs（R*W/2）→T:S-T→C:S+T→D↙IfK≤C:ThenG-L*B→H:Goto5:ElseIfK≤S:ThenGoto3:ElseIfK≤D:ThenGoto4:IfEnd:IfEnd:IfEnd↙Lb13↙IfW>0:ThenG+(C-K)^2/2/R-L*B→H:Goto5:ElseIfW<0:ThenG-(C-K)^2/2/R-L*B→H:Goto5:IfEnd:IfEnd↙Lb14↙I

5、fW>0:ThenG+(K-D)^2/2/R-L*A→H:Goto5:ElseIfW<0:ThenG-(K-D)^2/2/R-L*A→H:Goto5:IfEnd:IfEnd↙Lb15↙H-0.304→H↙(0.304为中心~路肩高差)“H=”：H◢卡西欧计算器5800P后方距离交会Lbl1:"ADN(X)="?A:"ADE(N)="?B:"BDN(X)="?C:"BDE(Y)="?D:"PA→D"?E:"PB→D"?F:Pol(C-A，D-B)IfJ<0:ThenJ+360→J:ElseJ→JCos-1((I2+E2-F2)÷(2IE))→W:J+W→V：Rec(E,V)

6、:A+I→X:B+J→Y:F:Pol(C-X，D-Y)IfJ<0:ThenJ+360→J:ElseJ→J"P(X)="：Locate6,4,X:"P(Y)=":Locate6,4,Y:◢"FWJ(P-B)=":J◆DMS◢Goto1"ADN(X)="：Ａ点坐标Ｘ"ADE(N)="：Ａ点坐标Ｙ"BDN(X)="：Ｂ点坐标Ｘ"BDE(Y)="：Ｂ点坐标Ｙ"PA→D"：Ｐ至Ａ的水平距离"PB→D"：Ｐ至Ｂ的水平距离"P(X)="：待求点Ｐ点坐标Ｘ"P(Y)="：待求点Ｐ点坐标Ｙ"FWJ(P-B)=":待求点P点到B点的方位角超方便实用的5800全线坐标正反算程序时间:2010-

7、04-3012:05:39来源:本站作者:闽-工程我要投稿我要收藏投稿指南Fx-5800计算机程序（在用）QXJS主程序LblA:“1.ZH=>XY”:“2.XY=>ZH”:?Q:“ZH”?S:Prog“QXJS-SUB0”↙Q=1=>Goto1:Q=2=>Goto2:↙Lbl1:“ZH-BJ”?Z:Prog“QXJS-SUB1”:“X=”:N◢:“Y=”:E◢:“F=”:F◢:Goto4↙Lbl2:“X=”:?B:“Y=”:?C:B→N:C→E:Prog“QXJS-SUB2”:“ZH=”:S◢:“ZH-BJ”:Z◢:Goto