5800正反算及隧道超欠挖資料

1、5800正反算及隧道超欠挖B任意坐標(biāo)正反算及隧道超欠挖程序1-JIN YU(主程序)Lbl 4:"1 f ZS,2 f FS,3 f CQW"?NN=1=>Goto 1:N=2=>Goto 2:N=3=>Goto 3Lbl 1:“ K=” ？S“P=” ?Zrog “ SJ-PMT : Abs(S-O) f W: Prog "SUB1-ZS":“ X=" Locate4,4,X:"Y=" : Locate4,4,Y:F-90f F:S f K:Prog “ SJGC :“ H=” Locate4,4,H 丄

2、Goto 4Lbl 2:“ X=” ？X“ Y=”Y:Prog“SJPM” :XfI:YfJ: Prog "SUB2-FS" : O +Wf S:“ K=" S 丄“ P="ZJSf K:Prog “ SJGC':“ H=”HJGoto 4Lbl 3:“ X=” ?X “ Y=”Y:Prog“ SJPM :XfI:YfJ: Prog "SUB2-FS" : O+Wf S:“ K=" S J“ P="ZJSf K:Prog “ SJGC':“ H=”HJProg “ SCQW 丄Goto4SJ?-PM

3、 （子程序名-平面線形數(shù)據(jù)庫(kù)）If S > 59227.681（線元起點(diǎn)里程）:Then 2599818.013 fU（線元起點(diǎn) X 坐標(biāo)）：496887.918 fV （線元起點(diǎn) Y 坐標(biāo)）：59227.681 -O （線元起點(diǎn)里程）：208028 ' 39 fG （線元起點(diǎn)方位角）：100 fH （線元長(zhǎng)度）：1 X 1045f（線元起點(diǎn)曲率半徑）：1 X 1045 fR （線元終點(diǎn)曲率半徑）：0 fQ （線元左右偏標(biāo)志：左-1右1）： IfEndIf S > 59327.681（線元起點(diǎn)里程）:Then 2599730.112 fU （線元起點(diǎn) X 坐標(biāo)）：49684

4、0.237 fV （線元起點(diǎn) Y 坐標(biāo)）：59327.681 -O （線元起點(diǎn)里程）：208028 ' 39 fG （線元起點(diǎn)方位角）：90 fH （線元長(zhǎng)度）：1 X 1045fp線元起點(diǎn)曲率半徑）：750fR （線兀終點(diǎn)曲率半徑）：-1 fQ （線兀左右偏標(biāo)志：左-1右1 ）： IfEndSJ-GC?(子程序名-豎數(shù)據(jù)庫(kù))If Sv變坡終點(diǎn)里程 And S浚坡起點(diǎn)里程：Then大里程坡度 F :小里程坡度B : 變坡點(diǎn)里程 0:變坡點(diǎn)高度 G :半徑R : Prog “SUB3GC :lfEnd(注：1.有多個(gè)豎曲線，依照上面的依次變更，每多一個(gè)，就增加一個(gè)。每次只需要 修改以上的

5、數(shù)據(jù)或增加一個(gè)判斷，子程序不用變動(dòng)。2.如整條線只有一個(gè)縱坡比喻為2%,那么程序應(yīng)為If Sv終點(diǎn)里程 And S刁起點(diǎn)里程：Then 0.02 A : 0.02 B : 起點(diǎn)里程0:起點(diǎn)高程G : 1X 1045R: Prog “SUB3GC :IfEnd)SJ-CQW (子程序名 -隧道數(shù)據(jù)庫(kù) )“H1=”?F: ”P=”?ZIf F-H > 5.845:Then V(Abs (Z)2+(F-H-0.45)2 )-7.45 W: IfEnd:If F-H< 5.845 And F-H >-1.169: Then V(Abs (Z)-1)2+( Abs (F-H-1.5)

6、2)-6W : IfEnd:If F-HW-1.169: Then V(Abs (Z) 2+(H-F+14.05) 2)-16.5 W: IfEnd:“+CQ-,CQ=”: WSUB1-ZS(正算子程序)?1- P C : (P-R) - (2HPR) D : 180 -nE : 0.1739274226 A : 0.3260725774 B: 0.0694318442 K: 0.3300094782 L: 1-L F: 1-K M : U+W(A cos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Aco s(G+QEMW(C+MW

7、D) :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+Zcos(F) :X： Y+Zsin(F) Y:SUB2-FS(反算子程序)?G-90T： Abs(Y-V)cos(T)-(X-U)sin(T) :W： 0:Z：Lbl 0：Prog "SUB1-ZS": T+QEW(C+WD) L :(J-Y)cos(L)-(I- X)sin(L) Z: If Abs(Z)<1E-6(注：此處 1E-6 可輸入 0.

8、000001): then Goto1: Else W+Z W: Goto 0: IfEndLbl 1: Of Z: Prog "SUB1-ZS" :(J-Y) - sin(F) 吃SUB3-GC (高程子程序)O-Sf L:A -Bf W:Abs(R*W 2) f T:O-Tf M: O +TfPIf S< M:ThenGL*Bf H:Goto5:Else If SO:ThenGoto3:Else If S< P:ThenGoto4:lfEnd: IfEnd: IfEndLbi3If W > O : Then G+(M-S)2 -2R-L*Bf H:Go

9、to5:Else If W v O: Then G-(M-S)2 吃申-L*B f H:Goto5: IfEn d: IfE ndLbi4If W > O : Then G+( S-P)2 乞申-L*Af H:Goto5:Else If W v O: Then G-( S-P)2 -2曲-L*Af H:Goto5: IfEnd: IfEndLbi5HfH: Return說明: （正算 1 秒，反算和超欠挖 5秒完成 ）所有程序名。不同線路，只需改動(dòng)SJ-PM，SJ-GC，SJ-CQW 三個(gè)子程序里的內(nèi)容，其它不變。1 為正算， 2為反算， 3 為超欠挖 .K= 正算時(shí)，輸入所求點(diǎn)里程。反

10、算時(shí)得出里程結(jié)果X=，Y= 正算時(shí)得出結(jié)果。反算時(shí)輸入實(shí)測(cè)坐標(biāo)P= 正算時(shí)輸入偏距。反算時(shí)得出偏距H= 正算時(shí)得出高程。反算時(shí)得出高程H1=超欠挖時(shí)輸入實(shí)測(cè)高程得出超欠挖值+CQ,-CQ=注，超欠挖輸入時(shí)顯示里程，編距，設(shè)計(jì)高程，不需輸入。只輸入實(shí)測(cè)量高程H1謝謝發(fā)貼： +302 分 【 測(cè)量空間 】0復(fù)化辛卜生公式及公路中線坐標(biāo)計(jì)算中 的應(yīng)用時(shí)間:2010-06-05 09:12:33要收藏 投稿指南來源:本站 作者:未知我要投稿我在公路中線坐標(biāo)計(jì)算中，我們通常采用切線支距公式來計(jì)算曲線上各點(diǎn)的坐標(biāo)。 但當(dāng)在不同的曲線上計(jì)算時(shí)就需用不同的計(jì)算公式，這為計(jì)算也帶來不便。在設(shè)有緩和曲線的圓曲線半

11、徑較小或是卵形曲線上的坐標(biāo)計(jì)算時(shí)，如公式選用不當(dāng)就會(huì)出現(xiàn)較大計(jì)算誤差，即便是能對(duì)切線支距公式進(jìn)行多項(xiàng)展開， 也會(huì)增加計(jì)算的 難度。而用復(fù)化辛卜生公式不僅能解決不同曲線線型或直線上的坐標(biāo)計(jì)算問題， 而且用復(fù)化辛卜生公式計(jì)算完全是可逆的(即：可順前進(jìn)方向也可逆向計(jì)算)， 尤其在計(jì)算第二緩和曲線和卵形曲線時(shí)顯得尤為方便。用辛卜生公式計(jì)算坐標(biāo)的精度可由人為或程序自行判斷， 其計(jì)算結(jié)果完全能保證 坐標(biāo)計(jì)算的精度要求。因此，可以說復(fù)化辛卜生公式是一個(gè)計(jì)算公路中線坐標(biāo)的 萬能公式。下面本人就該公式在公路中線坐標(biāo)計(jì)算中的具體應(yīng)用進(jìn)行實(shí)例解析。Ij-Ya+ I、復(fù)化辛卜生公式rrlnrl(sim+4Ssinak

12、- + 2Ssinak+sinao)k=OE公式(1)Xa曲線旋點(diǎn)x坐標(biāo)Ya曲線危點(diǎn)湮標(biāo) 為曲線元起點(diǎn)切線方位角-曲2品點(diǎn)處徊線方妙 曲線元kn等分點(diǎn)處的切線方位角哉曲線元t待求點(diǎn)處切線方位角式中:H= (Zi - Za) /na 產(chǎn) H + *+pJ(Zi-Z型(公式2)P.=Pa +Pb'Pa(z ,-za)Zb-Za（公式3）Zi 待求點(diǎn)樁號(hào)Za 曲線兀起點(diǎn)樁號(hào)Zb 曲線兀終點(diǎn)樁號(hào)p A 曲線兀起點(diǎn)曲率P B曲線元終點(diǎn)曲率a i曲線上任意一點(diǎn)處切線方位角的計(jì)算方法有以下三種方法：1 利用公式（3）求得曲率代入公式（2）計(jì)算2利用曲線元上已知起點(diǎn)和終點(diǎn)曲率用內(nèi)插法求得曲率代入公式（

13、2）計(jì)算3 利用切線角公式計(jì)算二、算例例：已知雅（安）攀（枝花）高速公路西昌西寧立交 A匝道一卵形曲線（卵形曲 線相關(guān)參數(shù)見圖一，其計(jì)算略。），相關(guān)設(shè)計(jì)數(shù)據(jù)見下表?，F(xiàn)用辛卜生公式來計(jì) 算卵形曲線中樁坐標(biāo)。圖一已知相關(guān)設(shè)計(jì)數(shù)據(jù)見下表:主點(diǎn)樁號(hào)坐標(biāo)(m切線方位角(0 )XY0 ”ZHAK0+0909987.40310059.37892 17 26.2HY1AK0+1609968.98110125.341132 23 51.6YH1AK0+223.7159910.60310136.791205 24 33.6HY2AK0+271.8819880.43810100.904251 24 18.5YH2A

14、K0+384.0329922.31610007.909337 04 54.2HZAK0+444.0329981.36310000.0000 00 00(一) 由+271.881推算Zi=+223.715的坐標(biāo)，n取2等分用公式、公式(2)計(jì)算+247.798處曲線及方位角：P +247.798=1 寧 75+(1 - 50-1 - 75)(247.798 -271.881)- (223.715 -271.881)=0.01666666666666667a+247.798 =71° 24' 18.5 ”+(0.016666667+1 - 75)(247.798 -271.881

15、) X 180- n 十2=50° 42' 26.37”其它各點(diǎn)依次代入公式計(jì)算，結(jié)果見下表： 曲率及切線方位角計(jì)算表樁號(hào)n等分點(diǎn)處曲線曲率n等分點(diǎn) 處切線方 位角0 , ”2n等分點(diǎn)處曲線曲率2n等分點(diǎn)處切線方 位角0 , ”公式計(jì)算內(nèi)插法計(jì)算公式計(jì)算內(nèi)插法計(jì)算+271.8871 2410.013333333=1/7518.5+259.840.0150.01561 37052.2+247.790.016666660.0166666650 4287726.4+235.750.018333330.01833333338 387330.96+223.7150.02=1/5025

16、24 36切線方位角圖示1將計(jì)算出的數(shù)據(jù)代入公式(1)求得+223.715中樁坐標(biāo)如下：X=9880.438+(271.881- 223.715) - 2-6X (cos71 ° 24' 18.5 ” +4(cos61 ° 37'52.22 ” +cos38° 38' 0.96 ”)+2cos50° 42' 26.37” + cos25 ° 24' 35.99 ”)=9910.5975 (設(shè)計(jì)值：9910.603)Y=10100.904+(223.715- 271.881) - 2-6X (sin71 &

17、#176; 24' 18.5 ” +4(sin61 ° 37'52.22 ” +sin38 ° 38' 0.96 ”)+2sin50 ° 42' 26.37” + sin25 ° 24' 35.99 ”)=10136.7945 (設(shè)計(jì)值：10136.791)(二) 由+223.715推算Zi=+271.881的坐標(biāo)，n取2等分用公式計(jì)算+247.798處曲線及方位角：P +247.798=1 寧 50+(1 - 75-1 - 50)(247.798 -223.715) - (271.881 -223.715)=.0

18、1666666666666667&+247.798 =205° 24' 33.6 ” +(0.016666667+1 - 50)(247.798 -223.715) X 180- n 十2=230° 42' 23.98 ”其它各點(diǎn)依次代入公式計(jì)算，結(jié)果見下表：曲率及切線方位角計(jì)算表樁號(hào)n等分點(diǎn)處曲線曲率n等分點(diǎn) 處切線方 位角0 , ”2n等分點(diǎn)處曲線曲率2n等分點(diǎn)處切線方 位角0 , ”公式計(jì)算內(nèi)插法計(jì)算公式計(jì)算內(nèi)插法計(jì)算+223.7150.02=1/50205 2433.6+235.750.018333330.018333333218 37733

19、58.6+247.790.016666660.01666666230 42866 二24.0+259.840.0150.015241 3749.8+271.8810.013333333=1/75251 2418.5切線方位角圖示2X=9910.603+(271.881- 223.715) - 2-6X (cos205 ° 24' 33.6 ” +4(cos218 ° 37 '58.87” +cos241° 37' 49.83 ”)+2cos230° 42' 23.98 ” + cos251 ° 24' 1

20、6.11 ”)=9880.4431 (設(shè)計(jì)值：9880.438)Y=10136.791+(271.881- 223.715) - 2-6X (sin205 ° 24' 33.6 ” +4(sin218 ° 37 '58.87” +sin241 ° 37' 49.83 ”)+2sin230 ° 42' 23.98 ” + sin251 ° 24' 16.11 ”)=10100.9008 (設(shè)計(jì)值：10100.904)由上可知，利用復(fù)化辛卜生公式計(jì)算路線坐標(biāo)時(shí)可順向或逆向計(jì)算。(三) 前面正、反向的計(jì)算均是從

21、卵形曲線的部分推算的，現(xiàn)在我們從卵形曲線所在完整緩和曲線的起點(diǎn)HZ =+368.213點(diǎn)來推算終點(diǎn)+223.715和中間點(diǎn) +271.881.2ai=aA-90L -( n Rb)公式(4)1.計(jì)算Zi=+223.715中樁坐標(biāo)曲線元上等分點(diǎn)曲率及切線方位角計(jì)算表(n取4等分)計(jì)算計(jì)算+368.2130108 12 02.1+350.1510.00250.0025106 54106 5425.1625.22+332.0890.0050.005103 01103 0134.3334.58+314.0260.00750.007596 3396 3328.8328.6487 3087 30+295.

22、9640.010.0109.979.97+277.90210.01250.012575 5137.2275 5137.54+259.8400.0150.01561 3761 3750.5851.35II44 4844 48+241.7770.01750.0175148.25 |47.8+223.71525 2425 240.02=1/5033.5833.58切線方位角圖示3X=9890.293+(368.213- 223.715) -4-6X (cos108 ° 12' 02.1” +4(cos106 ° 54 '25.22 ” +cos96° 3

23、3' 28.64 ”+ cos75 ° 51' 37.54 ” + cos44 ° 48' 47.8 ”)+2(cos103 ° 01' 34.58 ” + cos87 ° 30' 9.97” +cos61 ° 37' 51.35 ”)+ cos25 ° 24' 33.58 ”)=9910.5963 (設(shè)計(jì)值：9910.603)Y=10006.838+(368.213- 223.715) -4-6X (sin108 ° 12' 02.1” +4(sin 106

24、° 54' 25.22 ” +si n96° 33' 28.64 ”+ sin75 ° 51' 37.54 ” + sin44 ° 48' 47.8 ”)+2(sin 103 ° 01' 34.58 ” +sin87 ° 30' 9.97” +sin61 ° 37' 51.35 ”)+ sin25 ° 24' 33.58 ”)=10136.7925 (設(shè)計(jì)值：10136.791)2.計(jì)算zi=+271.881中樁坐標(biāo)曲線元上等分點(diǎn)曲率及切線方位角計(jì)算表

25、(n取4等分)樁號(hào)n等分點(diǎn)處曲線曲率n等分點(diǎn)處切線方位角2n等分點(diǎn)處曲 線曲率2n等分點(diǎn)處切線方位角0 , ”內(nèi)插法計(jì)算公式 算)計(jì)公式(4)計(jì)算內(nèi)插法計(jì)算公式 算)計(jì)公式(4)計(jì)算+368.2130108 12 02.1+356.1720.001666667107 3732.49+344.1300.003333333105 5402.97+332.0890.005103 0134.58+320.0470.00666666799 0005.6+308.0060.00833333393 4938.42+295.9640.01187 3009.97+283.9230.01166666780 014

26、4.02+271.8810.013333333=1/7571 2416.09+223.7150.02=1/5025 2425 24切線方位角圖示4X=9890.293+(368.213- 271.881) -4-6X (cos108 ° 12' 2.1” +4(cos107° 37' 32.49 ” +cos103° 01' 34.58 ”+ cos93 ° 49' 38.42 ” + cos80 ° 01' 44.02 ”)+2(cos105 ° 54' 02.97 ” + cos99

27、 ° 00' 05.6 ” +cos87 ° 30' 09.97 ”)+ cos71 ° 24' 16.09 ”)=9880.4416 (設(shè)計(jì)值：9880.438)Y=10006.838+(368.213- 271.881) -4-6X (sin 108 ° 12' 2.1” +4(sin 107 ° 37' 32.49 ” +sin 103° 01' 34.58 ”+ sin93 ° 49' 38.42 ” + sin80 ° 01' 44.02 ”

28、)+2(sin105 ° 54' 02.97” + sin99 ° 00' 05.6 ” +sin87 ° 30' 09.97 ”)+ sin71 ° 24' 16.09 ”)=10100.9008 (設(shè)計(jì)值：10100.904)由此我們不難看出，利用復(fù)化辛卜生公式計(jì)算公路中樁坐標(biāo)不僅順逆向很方便, 而且可從中任取一段進(jìn)行計(jì)算。而計(jì)算中的關(guān)鍵是計(jì)算各等分點(diǎn)處的切線方位 角，同時(shí)應(yīng)分清 n 與 2n 等分點(diǎn)，注意不要混淆。對(duì)于 n 的取值，從上我們可以 看出：對(duì)一般緩和曲線取 2-3 即可，對(duì)卵形曲線視推算基準(zhǔn)點(diǎn)而言不少于

29、4。其它如圓曲線、直線等中樁坐標(biāo)的計(jì)算方法是一樣的，在此就不一一簡(jiǎn)述。5800計(jì)算器全線坐標(biāo)計(jì)算放樣程序（修 改版）時(shí)間:2010-06-19 10:23:30來源：本站 作者：簡(jiǎn)單de回憶 我要投稿我要收藏投稿指南“XLZBJSC”丄（第一個(gè)程序）Lb1 0 /Cls : Fix 4 : 30f Dimz /“XHS="?G （后視點(diǎn) X） :"YHS="?L （后視點(diǎn) Y） :"XZJ="?M （ 置鏡點(diǎn)X） :"YZJ="?N （置鏡點(diǎn) Y） :Pol（G-M,L-N）:"DH=":l （ 后視距）

30、丄J<0=>J+36（f J:"FH=":J ?DMS丄（后視方位角）Lbl 1 / （ If（如果的意思） And （和字的意思）The n （然后的意思）“K二”？K丄（計(jì)算里程）（下面有色的是數(shù)據(jù)庫(kù)）If （如果）K< 51760.052本曲線 緩直點(diǎn) 樁號(hào)And （和）K> 51048.785上 一個(gè)曲線緩直點(diǎn)樁號(hào)：Then （然后）本曲線緩直點(diǎn)樁號(hào)51760.052f Z1: 上一個(gè)曲線緩直點(diǎn)樁號(hào)51048.785 f Z2 : 1 - 1 O （注： 左 偏曲線輸 入-1f O右偏曲線輸入1f O ）:偏角12 ' 23 '

31、; 19.5 ' f A : 半徑3289.486 f R :第一緩和曲線 長(zhǎng)度0 fZ6: 第二緩和曲線 長(zhǎng)度0 f Z7:交點(diǎn)X坐標(biāo) f B :交點(diǎn)丫坐標(biāo) f C :小里程向交點(diǎn) 方位角 f E :交點(diǎn)向大里程 方位角 fF : Goto 2 : IfEnd / （重蘭字是輸入的數(shù)字） （曲線段分段輸入）補(bǔ)充直線段輸入如下If （如果）K<本段直線終點(diǎn)里程And （和）K>本段直線起點(diǎn)里 程:Then （然后）1f O本段直線終點(diǎn)里程f Z3:終點(diǎn)坐標(biāo)Xf Z16: 終點(diǎn) 坐標(biāo) YfZ17: 方位角 f E:Goto 4:IfEnd /Lb1 2 / （曲線要素計(jì)算）Z

32、6 - 2- Z6A 3 - （240RA2）+ Z6A 5- （34560*RA4） f Z8 / （ M1不輸）Z7 - 2- Z7a 3- （240RA2）+ Z7a 5- （34560 RA4） f Z9 / （M2不輸）Z6a 2- （24R） - Z6a 4-（2688RA3） f Z10 /（ P1 不輸）Z7a 2- （24R） - Z7a 4-（2688RA3） f Z11 /（ P2 不輸）（n AR ） - 180+0. 5 X （ Z6+ Z7） f S / （曲線總長(zhǎng)）90 X Z6 - （ R X n ） f Z14 / （第一緩和曲線總偏角）（X十以后自己改）9

33、0 X Z7 - （ R X n ） f Z15 / （第二緩和曲線總偏角,可以省略）Z8+（ R+Z10）TAN（A/2）-（Z10-Z11 ）/SIN Af Z12/ （切線 T1）Z9+（ R+Z11）TAN（A/2）+（Z10-Z11 ）/SIN Af Z13/ （切線 T2）B+ Z12*COS （E+180） f Z16 /（ ZH 點(diǎn) X ）C+ Z12*SIN（E+180） f Z17/（ ZH 點(diǎn) Y ）Z1- Sf Z3 / （ZH 點(diǎn)里程）Z3+ Z6 -Z4 / (HY 點(diǎn)里程) Z1-Z7 -Z5 / (YH 點(diǎn)里程)GOTO 3/LB1 3 / (判斷里程點(diǎn)與曲線關(guān)

34、系)If K < Z3 And K> Z2 : Then Goto 4 : IfEnd/If K < Z4 A ndK> Z3 : T henGoto 5:IfEnd/If K < Z5 A ndK> Z4 : T henGoto 6:IfEnd/If K < Z1 A ndK> Z5 : T henGoto 7:IfEnd/LB1 4 / (里程小于直緩點(diǎn)直線獨(dú)立坐標(biāo))K- Z3 X : 0 Y : E T : Prog“TYZBC” ： Goto 1 /Lb1 5 / (第一緩和曲線獨(dú)立坐標(biāo))K- Z3 H /H-H A5/(40*RA2* Z6 A2)+H A9/(3456*RA4* Z6A4) X /屮3/(6*R* Z6)-屮7/(336*只八3* Z6F3) Y /90*屮2/( R* n * Z6) T /IF O >0 : Then T +E T : Else E -T T : T<0=>360+T T : IfEnd /PRrog “TYZ