貴新隧道左洞直線段斷面開挖程序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”為掌子面任一點三維坐標(biāo)，K LC為任一點的里程，“PJ”（平距）為測點至隧道中線的水平距離,“GC”（高差）為測點至起拱線高差（測點至起拱線高差）。當(dāng)P0時，測點位于起拱線以上，否則相反?！癙C S”（偏差）為測點的超、欠挖值，（正超負(fù)欠）。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 數(shù)據(jù)庫子程序 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 、規(guī)定 (1) 以道路中線的前進方向（即里程增大的方向）區(qū)分左右；當(dāng)曲線半徑在左時， P 、 R 取負(fù)值，當(dāng)曲線半徑在右時， P 、 R 取正值，當(dāng)曲線半徑為無窮大（即直線）時， P 、 R 以 10 的 45 次代替。 (2) 當(dāng)所求點位于中線時， Z=0 ；當(dāng)位于中線左鍘時， Z 取負(fù)值；當(dāng)位于中線中線右 側(cè)時， Z 取正值。 (3) 當(dāng)線元為圓曲線時，無論其起點、止點與什么線元相接，其曲率半徑均等于圓 弧的半徑。 (5) 當(dāng)線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大，以 10 的 45 次方代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑為無窮大，以 10 的 45 次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。 (6) 當(dāng)線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等于設(shè)計規(guī)定的 值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑等 于設(shè)計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。 2 、輸入與顯示說明 輸入部分： 1. ZH=XY2. XY=ZH”Q ? 選擇計算方式，輸入 1 表示進行由里程、邊距計算坐標(biāo) ；輸入 2 表示由坐標(biāo)反算里程和邊距。 轉(zhuǎn)：卡西歐計算器FX-5800正反算、隧道超欠挖計算程序 作者: 龔居漢吵泄 發(fā)表日期: 2011-03-14 15:09 復(fù)制鏈接 文章來自:卡西歐計算器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 ( 必要時可以讓他表現(xiàn)，不要時不必輸進 ) ： 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 （水平方向的超欠挖：正為欠 , 負(fù)為超） 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 子程序（平面線形數(shù)據(jù)庫） PM-SJ ifS 500 （線元出發(fā)點里程） AndS 769.256 （線元止點里程）： Then.837 U （線元出發(fā)點 X 坐標(biāo)） ： .561 V （線元出發(fā)點 Y 坐標(biāo)） ： 500 O （線元出發(fā)點里程） ： 125 16 31 G （線元出發(fā)點方位角） ： 269.265 H （線元長度） ： 10 （ 45 ） P （線元出發(fā)點曲率半徑）： 10 （ 45 ） R （線元盡頭曲率半徑）： 0 Q （線元擺布偏標(biāo)志：左負(fù)右正）： IfEnd ifS 769.256 （線元出發(fā)點里程） AndS 806.748 （線元止點里程）： Then.34 U （線元出發(fā)點 X 坐標(biāo)） ： .378 V （線元出發(fā)點 Y 坐標(biāo)） ： 769.256 O （線元出發(fā)點里程） ： 125 16 31 G （線元出發(fā)點方位角） ： 37.492 H （線元長度） ： 10 （ 45 ） P （線元出發(fā)點曲率半徑）： 221.75 R （線元盡頭曲率半徑）： -1 Q （線元擺布偏標(biāo)志：左負(fù)右正）： IfEnd ifS 806.748 （線元出發(fā)點里程） AndS 919.527 （線元止點里程）： Then.566 U （線元出發(fā)點 X 坐標(biāo)） ： .574 V （線元出發(fā)點 Y 坐標(biāo)） ： 806.748 O （線元出發(fā)點里程） ： 120 25 54.07 G （線元出發(fā)點方位角） ： 112.779 H （線元長度） ： 221.75 P （線元出發(fā)點曲率半徑）： 221.75 R （線元盡頭曲率半徑）： -1 Q （線元擺布偏標(biāo)志：左負(fù)右正）： IfEnd ifS 919.527 （線元出發(fā)點里程） AndS 999.812 （線元止點里程）： Then.072 U （線元出發(fā)點 X 坐標(biāo)） ： .893 V （線元出發(fā)點 Y 坐標(biāo)） ： 919.527 O （線元出發(fā)點里程） ： 91 17 30.63 G （線元出發(fā)點方位角） ： 80.285 H （線元長度） ： 221.75 P （線元出發(fā)點曲率半徑）： 9579.228 R （線元盡頭曲率半徑）： -1 Q （線元擺布偏標(biāo)志：左負(fù)右正）： IfEnd ifS 999.812 （線元出發(fā)點里程）： Then.038 U （線元出發(fā)點 X 坐標(biāo)） ： .659 V （線元出發(fā)點 Y 坐標(biāo)） ： 999.812 O （線元出發(fā)點里程） ： 80 40 50 G （線元出發(fā)點方位角） ： 100 H （線元長度） ： 10 （ 45 ） P （線元出發(fā)點曲率半徑）： 10 （ 45 ） R （線元盡頭曲率半徑）： 0 Q （線元擺布偏標(biāo)志：左負(fù)右正）： IfEnd 子程序（豎曲線數(shù)據(jù)庫） SQX-SJ ifS 999.812 （豎曲線盡頭里程）： then0.0357 （前坡度：上坡正下坡負(fù)） E ： 0.0227 （后坡度： 上坡正下坡負(fù) ） 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ū)分左釉痘當(dāng)線元往左偏時， Q=-1 ；當(dāng)線元往右偏時， Q=1 ；當(dāng)線元為直線時， Q=0 。 (2) 當(dāng)所求點位于中線時， Z=0 ；當(dāng)位于中線左鍘時， Z 取負(fù)值；當(dāng)位于中線中線右邊時， Z 取正值。 (3) 當(dāng)線元為直線時，其出發(fā)點、止點的曲率半徑為無窮大，以 10 的 45 次代