交点法隧道超欠挖

1、1 / 7FX5800 计算器交点法正反算程序加入高程及隧道超欠挖输入图纸中的整个标段交点要素，输入桩号及距中桩距离正 算本标段任意点坐标，及极坐标放样的方位角及距离；由输入大概桩号及实测坐标，反算准确桩号及距中桩距离。(绿色为程序名，蓝色为输入计算器里的内容)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 时。则输曲线参数(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. 坐标计算参数矩阵调出子程序(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 .数据子程序(根据自己标段设计数据修改红色部分)程序

5、名：X1 (坐标计算要素程序，暂例子只给二条线路参数)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 坐标，前交点至止交点方位角，交点前 段缓和曲线长度，交点后段缓和曲线长度，交点转角，圆半径 Mat F: Prog ” F” : Return: IfEnd:注

7、：转角分正负，左偏为负，右偏为正.加粗 O 为子母.Z2值5 / 7为所计算点切线方位角。2-SQX-Y （程序名）If Zv边坡终点 And Z边坡起点：Then 大里程坡度A :小里 程坡度B:边坡点里程O:边坡点高度G:半径R： Prog“ Z-SQX ”：lfE nd有多个竖曲线，依照上面的依次变更，每多一个，就增加一个。 每次只需要修改以上的数据或增加一个判断，子程序不用变动。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-设计标高到圆心的高度）2+ （D 士隧道中线到测设线的距离）2）fSG-SfZ4CW-

9、,QW+ :Z4丄程序运行到“ SCH”?A:”R”?G 在“SCH”下输入实际测的高度，“ R”下输入上导的开挖半径后面的不用，超挖为-，欠挖+以上不加 CQW（程序名）也可以使用，把主程序的 Prog CQW”隧道 超欠挖）删掉，要算竖曲线给最后的竖曲线程序输入计算器即可， 嵌套已经在以上程序中了，需要注意的是以上子母不要改变，改变 后可能和后面的竖曲线程序出现子母冲突，发生计算错误输入部分：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 ?选择手工输入参数及调入参数，输 0 则手工输入交点线元参数， 输 1 则调入子程序 X1 中第一条 线路，输入计算第二条线路。4、PJ?路线方向中线向右夹角，默认为 90 度；5、JDKM XJ? YJ? FW LS1? LS2? JDZJ? R?分别输入：交点桩 号，7 / 7交点 X 坐标，交点 Y 坐标，前交点至止交点方位角，交点 前段缓和曲线长度，交点后段缓和曲线长度，交点转角，圆半径6、 KM 输入计算段任意点桩号（主程序中输 -1，返回选择正反 算，输-2，返回选择输入选择线路或输入参数.7、 D?距中桩距离，左负，右正，中桩输 0。输出部分：1、X=* , Y=* , h=*正算时，计算得出的所求点的坐标及高程2、FWJ=* SD=* 正算时， 计算得出的所求点的至置仪点方 位角 （显示 1