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

贵新隧道左洞直线段断面开挖程序2009-06-23 11:20贵新隧道左洞直线段断面开挖程序ZXDKWCXLbl0 ABZ A“FYD X”：B“FYD Y”：H“FYD Z” C=A5090.108 ：D=B2209.4605 POL（C，D） I J0J=J+360 G=J282558.9 O=cosGI0.01179.486869 “K LC”:K=18868.07898+cosGI “PJ”:M=sinGE “GC”:P=Z-O P0 “PC S”:S=(M2P2)5.78 “PC X”: S=(AbsM+1.5)2P2)7.28 Goto 0 说明：1、“FYD X”、 “FYD Y”、“FYD Z”为掌子面任一点三维坐标，K LC为任一点的里程，“PJ”（平距）为测点至隧道中线的水平距离,“GC”（高差）为测点至起拱线高差（测点至起拱线高差）。当P0时，测点位于起拱线以上，否则相反。“PC S”（偏差）为测点的超、欠挖值，（正超负欠）。2、本程序分为平面和立面两部份作为理解，其编程思路见附图。3、本程序在使用时，除了用于直线线型以外，同时也可以通过将程序修改用于圆曲线和缓和曲线线型。CASIO5800计算器公路竖曲线全线高程计算程序时间:2010-03-12 13:08:39 来源:本站 作者:李强善 我要投稿 我要收藏 投稿指南“SQXJSCX” Lb1 1 CLs:Fix 3 “K=”?k (计算点里程输入) If k67549.755 AND K66894.3 :Then -0.00052A : 0B : 67394.3S : 67.37G : 600000R : Goto 2 : IfEnd If k68708.391 AND K67549.755 :Then -0.0048A : -0.00052B : 68494.3S :66.8G : 100000R : Goto 2 : IfEnd If k0 : Then G+(C-K) 2/2/R-L*BH : Goto 5 : Else If W0 : Then G+(K-D) 2/2/R-L*AH : Goto 5 : Else If W0 : Then G-(K-D) 2/2/R-L*AH : Goto 5 : IfEnd : IfEnd Lb1 5 H-0.304H (0.304为中心路肩高差) “H=”：H 卡西欧计算器5800P后方距离交会Lbl 1:AD N(X)=?A:AD E(N)=?B:BD N(X)=?C:BD E(Y)=?D:PAD?E:PBD?F:Pol(C-A，D-B)If J0:Then J+360J:Else JJCos-1(I2+E2-F2)(2IE)W: J+WV：Rec(E,V):A+IX:B+JY: F:Pol(C-X，D-Y)If JXY”:“2.XY=ZH”:?Q:“ZH”?S:Prog“QXJS-SUB0”Q=1 = Goto1:Q=2 = Goto2:Lbl 1:“ZH-BJ”?Z:Prog“QXJS-SUB1”:“X=”:N:“Y=”:E:“F=”:F: Goto4Lbl 2: “X=”:?B: “Y=”:?C:BN: CE:Prog“QXJS-SUB2”: “ZH=”:S: “ZH-BJ”:Z: GotoAQXJS-SUB0 数据库子程序 Goto1 Lbl 1IF S* （线元终点里程） :Then*A （线元起点方位角） :*O （线元起点里程） :*U （线元起点 X ） :*V （线元起点 Y ） :*P （线元起点曲率半径） :*R （线元终点曲率半径） : *L （线元起点至终点长度） : Return:IfEndIF S0.0001 = Goto1Lbl 2: 0Z ： Prog“QXJS-SUB1”:(C-E) sin(F+90) Z 三、使用说明 1 、规定 (1) 以道路中线的前进方向（即里程增大的方向）区分左右；当曲线半径在左时， P 、 R 取负值，当曲线半径在右时， P 、 R 取正值，当曲线半径为无穷大（即直线）时， P 、 R 以 10 的 45 次代替。 (2) 当所求点位于中线时， Z=0 ；当位于中线左铡时， Z 取负值；当位于中线中线右 侧时， Z 取正值。 (3) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆 弧的半径。 (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以 10 的 45 次方代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以 10 的 45 次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的 值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等 于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。 2 、输入与显示说明 输入部分： 1. ZH=XY2. XY=ZH”Q ? 选择计算方式，输入 1 表示进行由里程、边距计算坐标 ；输入 2 表示由坐标反算里程和边距。 转：卡西欧计算器FX-5800正反算、隧道超欠挖计算程序 作者: 龚居汉吵泄 发表日期: 2011-03-14 15:09 复制链接 文章来自:卡西欧计算器FX-5800正反算、地道超欠挖计算程序时间:2010-06-12 12:36:33 来历:本站 作者:陈晓航 我要投稿 我要收躲 投稿指南正算主程序 (ZS) ： Lb1 0 ： FIX 4 ： ? S ： ?Z ： Prog “ PM-SJ ” ： Abs(S-O) W ： Prog SUB1 ： XS= ： X YS= ： Y F-90 F ( 必要时可以让他表现，不要时不必输进 ) ： Pro g“SQX-SJ”: Prog “ SQX ” ： “ H= ” ： H Goto 0 反算主程序 (FS) Lb1 0 ： FIX4: ? S ： ? X ：？ Y ： Prog “PM-SJ” ： X I ： Y J ： Prog SUB2 ： S= ： O+WS Z= ： Z Prog “SQX-SJ” ： Prog “ SQX ” ： “ H= ” ： H Goto 0 地道 3 心圆放样主程序（ SD-3XY ） Lb1 0 ： Prog “ FS ” ： 1.5 A ： 1.65 B ： 0.89 G ： 2.27 C ： 3.3 D ： 2.41 E ： 0.51 J ： “H1” ： F ： ifF H+ A ： then E-AbsZ W ： IfEn d ： ifF H+A And F H+A+ B ： then （ D²- （ F-H-A ） ² ） -G-AbsZ W ： IfEn d ： ifF H+A+ B ： then （ C²- （ F-H-A-J ） ² ） -AbsZ W ： IfEn d ： “W=” ： W （水平方向的超欠挖：正为欠 , 负为超） Goto0 正算子程序 (SUB1) 1P C ： (P-R)(2HPR) D ： 180 E ： 0. A ： 0. B ： 0.0 K ： 0. L ： 1-L F ： 1-K M ： 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)+90 F ： X+ZcosF X ： Y+ZsinF Y 反算子程序 (SUB2) G-90 T ： Abs(Y-V)cosT-(X-U)sin （ T ） ) W ： 0 Z ： Lbl 0 ： Prog SUB1 ： T+QEW(C+WD) L ： (J-Y)cosL-(I-X)sinL Z ： ifAbsZ1E- 6 ： thenGoto1 ： ElssW+Z W ： Goto 0 ： IfEnd Lbl 1 ： 0 Z ： Prog SUB1 ： (J-Y)sinF Z 子程序（平面线形数据库） PM-SJ ifS 500 （线元出发点里程） AndS 769.256 （线元止点里程）： Then.837 U （线元出发点 X 坐标） ： .561 V （线元出发点 Y 坐标） ： 500 O （线元出发点里程） ： 125 16 31 G （线元出发点方位角） ： 269.265 H （线元长度） ： 10 （ 45 ） P （线元出发点曲率半径）： 10 （ 45 ） R （线元尽头曲率半径）： 0 Q （线元摆布偏标志：左负右正）： IfEnd ifS 769.256 （线元出发点里程） AndS 806.748 （线元止点里程）： Then.34 U （线元出发点 X 坐标） ： .378 V （线元出发点 Y 坐标） ： 769.256 O （线元出发点里程） ： 125 16 31 G （线元出发点方位角） ： 37.492 H （线元长度） ： 10 （ 45 ） P （线元出发点曲率半径）： 221.75 R （线元尽头曲率半径）： -1 Q （线元摆布偏标志：左负右正）： IfEnd ifS 806.748 （线元出发点里程） AndS 919.527 （线元止点里程）： Then.566 U （线元出发点 X 坐标） ： .574 V （线元出发点 Y 坐标） ： 806.748 O （线元出发点里程） ： 120 25 54.07 G （线元出发点方位角） ： 112.779 H （线元长度） ： 221.75 P （线元出发点曲率半径）： 221.75 R （线元尽头曲率半径）： -1 Q （线元摆布偏标志：左负右正）： IfEnd ifS 919.527 （线元出发点里程） AndS 999.812 （线元止点里程）： Then.072 U （线元出发点 X 坐标） ： .893 V （线元出发点 Y 坐标） ： 919.527 O （线元出发点里程） ： 91 17 30.63 G （线元出发点方位角） ： 80.285 H （线元长度） ： 221.75 P （线元出发点曲率半径）： 9579.228 R （线元尽头曲率半径）： -1 Q （线元摆布偏标志：左负右正）： IfEnd ifS 999.812 （线元出发点里程）： Then.038 U （线元出发点 X 坐标） ： .659 V （线元出发点 Y 坐标） ： 999.812 O （线元出发点里程） ： 80 40 50 G （线元出发点方位角） ： 100 H （线元长度） ： 10 （ 45 ） P （线元出发点曲率半径）： 10 （ 45 ） R （线元尽头曲率半径）： 0 Q （线元摆布偏标志：左负右正）： IfEnd 子程序（竖曲线数据库） SQX-SJ ifS 999.812 （竖曲线尽头里程）： then0.0357 （前坡度：上坡正下坡负） E ： 0.0227 （后坡度： 上坡正下坡负 ） F ： 600 R （竖曲线半径）： 780 G （变坡点里程）： 110 C （变坡点高程）： IfEnd 子程序（竖曲线计算公式） SQX E-F J ： ifJ 0 ： then-R R ： ElssR R ： Abs （ R*J2 ） T ： IfEnd ifS G- T ： thenG-S L ： C-LE H ： IfEnd ifS G- T And S G ： thenG-S 保湿L ：（ S+T-G ） ²2R N ： C-LE+N H ： IfEnd ifS G And S G+ T ： then S-G L ：（ G +T- S ） ²2R N ： C+LF+N H ： IfEnd ifS G+ T ： thenS-G L ： C+LF H ： IfEnd 使用说明 (1) 以道路中线的进步方向（即里程增大的方向）区分左釉痘当线元往左偏时， Q=-1 ；当线元往右偏时， Q=1 ；当线元为直线时， Q=0 。 (2) 当所求点位于中线时， Z=0 ；当位于中线左铡时， Z 取负值；当位于中线中线右边时， Z 取正值。 (3) 当线元为直线时，其出发点、止点的曲率半径为无穷大，以 10 的 45 次代