交點法隧道超欠挖

1、1 / 7FX5800 計算器交點法正反算程序加入高程及隧道超欠挖輸入圖紙中的整個標段交點要素，輸入樁號及距中樁距離正 算本標段任意點坐標，及極坐標放樣的方位角及距離；由輸入大概樁號及實測坐標，反算準確樁號及距中樁距離。(綠色為程序名，藍色為輸入計算器里的內(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.交點法正算子程序(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ù)(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. 坐標計算參數(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ù)自己標段設(shè)計數(shù)據(jù)修改紅色部分)程序

5、名：X1 (坐標計算要素程序，暫例子只給二條線路參數(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交點 HZ 點樁號（或者直線段樁號）：Then交點樁 號，交點 X 坐標，交點 Y 坐標，前交點至止交點方位角，交點前 段緩和曲線長度，交點后段緩和曲線長度，交點轉(zhuǎn)角，圓半徑 Mat F: Prog ” F” : Return: IfEnd:注

7、：轉(zhuǎn)角分正負，左偏為負，右偏為正.加粗 O 為子母.Z2值5 / 7為所計算點切線方位角。2-SQX-Y （程序名）If Zv邊坡終點 And Z邊坡起點：Then 大里程坡度A :小里 程坡度B:邊坡點里程O:邊坡點高度G:半徑R： Prog“ Z-SQX ”：lfE nd有多個豎曲線，依照上面的依次變更，每多一個，就增加一個。 每次只需要修改以上的數(shù)據(jù)或增加一個判斷，子程序不用變動。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è)計標高到圓心的高度）2+ （D 士隧道中線到測設(shè)線的距離）2）fSG-SfZ4CW-

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

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