交點(diǎn)法隧道超欠挖

1、1 / 7FX5800 計(jì)算器交點(diǎn)法正反算程序加入高程及隧道超欠挖輸入圖紙中的整個(gè)標(biāo)段交點(diǎn)要素，輸入樁號(hào)及距中樁距離正 算本標(biāo)段任意點(diǎn)坐標(biāo)，及極坐標(biāo)放樣的方位角及距離；由輸入大概樁號(hào)及實(shí)測(cè)坐標(biāo)，反算準(zhǔn)確樁號(hào)及距中樁距離。(綠色為程序名，藍(lán)色為輸入計(jì)算器里的內(nèi)容)1、主程序程序名：1XY-KMLbI 0 : 17DimZA:X，丫=1 , KM,D=2 ?AA=1=Goto 1:A=2=Goto 2LbI 1LbI A:ProgQX:90B:HPJ?B:BZ1:LbI B:HKM ?Z:Z=-1=Goto 0:Z=-2=Goto A: ProgX1: ?D: Prog Z:I+DxCOS(Z2+

2、Z1)X: J+DxSin(Z2+Z1)Y:Prog“2-SQX-Y： Fix 3: X :Locate 6,4,X: Y:Locate 6,4,Y: h=:Locate 6,4,h 丄Goto BLbI 2 : Prog QX : KM ?Z: LbI C: Prog X1 : XO ?X:2 / 7X=-1=Goto 0:X=-2=Goto 2: Y0 ?Y:Prog ZX :Prog “ 2-SQX-Y: Fix 3: KM =H:Locate 6,4,Z: D =H:Locate 6,4,D:“ h= : Locate 6,4,H 丄Goto C2.交點(diǎn)法正算子程序(Z)程序名：ZH2

3、一 R 一 24-H,4) 一 2688 一 R,3)fA:H 一 2-H,3) 一 240 一 R2 B:(甘-N2) - 24- R 一 Sin(Abs(P)-(H人-N人(4) 一 2688-Ff(3) 一 Sin(Abs(P) E:(R+A)tan(Abs(P) 一 2)+B-E T:P 一 Abs(P) W:0 M:HHC: (R+N2一 R 一 24-N,4 ) 一 2688 一 R,3)tan(Abs(P) 一 2)+N 一 2-NA(3) 一 240-戌+EZ6: O-T+nRXAbs(P) 一180+HH2-N 一 2 Z7:lf Z0.001:Z+DZ:SD5. 線路選擇子

4、程序(線路選擇輸 0 時(shí)。則輸曲線參數(shù)(QX程序名：QX1 A: ” QX:? =0, X1=1,X2=2” ?A:AZ3:If A=0:Then ” JDKM ?Q ” XJ” ?U: ” YJ” ?V: ” FW ?G:” LS1”H: “LS2”？ N: “ JDZJ”？ P:?R:IfEnd6. 坐標(biāo)計(jì)算參數(shù)矩陣調(diào)出子程序(F)程序名：FMat F1,1 Q: Mat F1,2 U: Mat F1,3 V: Mat F1,44 / 7G: Mat F1,5 H: Mat F1,6 N: Mat F1,7 P: Mat F1,8 R7 .數(shù)據(jù)子程序(根據(jù)自己標(biāo)段設(shè)計(jì)數(shù)據(jù)修改紅色部分)程序

5、名：X1 (坐標(biāo)計(jì)算要素程序，暫例子只給二條線路參數(shù))Z3=0= Return:Z3=1= Goto 1:Z3=2= Goto 2:Lbl 1:If Zw122269.856:Then 121656.952, 2603848.019,508351.147,98 53 22.6 ” ,660,300,41 47 44.1 ，1415.097 Mat F: Prog ” F” : Return: IfEnd:If Zw125115.9 :Then 123984.982, 2601974.464, 509885.441, 140 41 06.8 ” ,700,400,- 39 31 43.7 ,28

6、00 Mat F: Prog ” F” : Return:IfEnd:Lbl 2:lf Z w 396.166 :Then 213.698,2600569.493, 514256.323,238 49 17.1 ,107.584,120.474, 64 39 40，250 Mat F: Prog ” F” : Return: IfEnd:說明：If Zw交點(diǎn) HZ 點(diǎn)樁號(hào)（或者直線段樁號(hào)）：Then交點(diǎn)樁 號(hào)，交點(diǎn) X 坐標(biāo)，交點(diǎn) Y 坐標(biāo)，前交點(diǎn)至止交點(diǎn)方位角，交點(diǎn)前 段緩和曲線長(zhǎng)度，交點(diǎn)后段緩和曲線長(zhǎng)度，交點(diǎn)轉(zhuǎn)角，圓半徑 Mat F: Prog ” F” : Return: IfEnd:注

7、：轉(zhuǎn)角分正負(fù)，左偏為負(fù)，右偏為正.加粗 O 為子母.Z2值5 / 7為所計(jì)算點(diǎn)切線方位角。2-SQX-Y （程序名）If Zv邊坡終點(diǎn) And Z邊坡起點(diǎn)：Then 大里程坡度A :小里 程坡度B:邊坡點(diǎn)里程O:邊坡點(diǎn)高度G:半徑R： Prog“ Z-SQX ”：lfE nd有多個(gè)豎曲線，依照上面的依次變更，每多一個(gè)，就增加一個(gè)。 每次只需要修改以上的數(shù)據(jù)或增加一個(gè)判斷，子程序不用變動(dòng)。Z-SQX-Y （子程序名）0-ZfL:A-BfW:Abs（R*W 一 2）fT:O-TfM:O+TfPIf ZwM:ThenG-L*BfH:Goto5:Else If ZO:Then Goto3:Else I

8、f Z0:Then G+（M-Z）2*2-R-L*BfH:Goto5: Else If Wv0:Then G-（M-Z）22R-L*BfH:Goto5: IfEnd: IfEndLbi4If W0：Then G+（ Z-P）2*2-R-L*AfH:Goto5: Else If Wv0:Then G-（ Z-P）2*2*R-L*AfH:Goto5: IfEnd: IfEndLbi5HfH （為所求的高度）CQW（程序名）隧道超欠挖“ SCH”?A:”R”?G:”HSJ”?H:”DZ ”?D6 / 7V（A-H-設(shè)計(jì)標(biāo)高到圓心的高度）2+ （D 士隧道中線到測(cè)設(shè)線的距離）2）fSG-SfZ4CW-

9、,QW+ :Z4丄程序運(yùn)行到“ SCH”?A:”R”?G 在“SCH”下輸入實(shí)際測(cè)的高度，“ R”下輸入上導(dǎo)的開挖半徑后面的不用，超挖為-，欠挖+以上不加 CQW（程序名）也可以使用，把主程序的 Prog CQW”隧道 超欠挖）刪掉，要算豎曲線給最后的豎曲線程序輸入計(jì)算器即可， 嵌套已經(jīng)在以上程序中了，需要注意的是以上子母不要改變，改變 后可能和后面的豎曲線程序出現(xiàn)子母沖突，發(fā)生計(jì)算錯(cuò)誤輸入部分：1、 A:X,Y=1 , KM,D=2 SD=3 ? 選擇正反算，輸 1 為正算，輸 2 為反算；輸入 3 為隧道超欠挖。2、XZ? YZ ?輸入置儀點(diǎn) X、Y 坐標(biāo)3、” QX:? =0, X 仁

10、1, X2=2 ?選擇手工輸入?yún)?shù)及調(diào)入?yún)?shù)，輸 0 則手工輸入交點(diǎn)線元參數(shù)， 輸 1 則調(diào)入子程序 X1 中第一條 線路，輸入計(jì)算第二條線路。4、PJ?路線方向中線向右夾角，默認(rèn)為 90 度；5、JDKM XJ? YJ? FW LS1? LS2? JDZJ? R?分別輸入：交點(diǎn)樁 號(hào)，7 / 7交點(diǎn) X 坐標(biāo)，交點(diǎn) Y 坐標(biāo)，前交點(diǎn)至止交點(diǎn)方位角，交點(diǎn) 前段緩和曲線長(zhǎng)度，交點(diǎn)后段緩和曲線長(zhǎng)度，交點(diǎn)轉(zhuǎn)角，圓半徑6、 KM 輸入計(jì)算段任意點(diǎn)樁號(hào)（主程序中輸 -1，返回選擇正反 算，輸-2，返回選擇輸入選擇線路或輸入?yún)?shù).7、 D?距中樁距離，左負(fù)，右正，中樁輸 0。輸出部分：1、X=* , Y=* , h=*正算時(shí)，計(jì)算得出的所求點(diǎn)的坐標(biāo)及高程2、FWJ=* SD=* 正算時(shí)， 計(jì)算得出的所求點(diǎn)的至置儀點(diǎn)方 位角 （顯示 1