隧道开挖放样程序

heart

隧道开挖放样程序编制思路

1、
设置测站实际X测坐标、Y测坐标、H测高程；（设置全站仪相关参数）

2、
实测掌子面开挖轮廓线X实坐标、Y实坐标、H实高程；（无棱镜实测值）

3、
由实测的X实坐标、Y实坐标、H实高程，反算坐标对应于线路的理论里程S理与偏移距离N理，及该里程对应的理论轨面标高H理（调用反算坐标子程序，高程计算程序）

4、
计算相对于隧道中线的偏移距离及合适的标高（内轨顶上5.75为分界线），分别为N理－2.3，H理＋5.75。

5、
判断测点是否在合适标高以上：H测高程是否大于H理＋5.75；

6、
若测点在合适标高以上：计算（H理＋2.27＋ ) －H测，计算所得值>0,竖直向上,反之，竖直向下；

7、
若测点在合适标高以下：计算H理＋2.27－H测， , 若Abs（（N理－2.3）-

））>0,向水平内，反之水平向外；

heart

FY              主程序
特别注明：本程序只适用于圆弧部分的放样，不适用于下部直段边墙放样，程序原理参考程序编制思路，本程序经验证了一个断面的8个点。为与正反算程序共用子程序，做了局部修改。

10→DimZ:Fix 3eg: LICHENG=”? S: “KWBJ=R=”? →Z[2]: Lbl 4: “XZB=”? →B: “YZB=”? →C:B→N: C→E:"GC=”? →Z[1]: Prog“QXJSSUB2”: S →S： Z →Z：Prog“H”:A→H:IF Z[1]>H+5.75:THEN-Z[1]+H+2.27+√（Z[2]^2-(Z-2.3)^2）→Z[3]:
”+→C
－→Q

S
X=”: Z[3] →Z[3]◢

ELSE Abs（Z-2.3）-√（Z[2]^2-（H+2.27-Z[1]）^2）→Z[4]
：“+→C
－→Q
Z
Y＝”: Z[4]→Z[4]◢

IfEnd↙

Goto4↙

pbf0613

是 什么语言

tianti

   很接近计算机BASIC语言，毕竟5800计算器编程指令不及计算机的程序设计语言完备、内存容量与计算机相差甚远，所以说是 很接近计算机BASIC语言

tianti

检查隧道超欠挖编程思路：
1、首先实测出掌子面X、Y、Z，1、由Z 判断测点在哪段圆弧段长
（有可能隧道断面有两三段圆弧和小边墙组成）.
2、根据实测坐标X、Y反算出 改点所处的里程DK和偏距LD，由偏距LD算出 测点到隧中的水平距离D，有高程Z和圆弧圆心的高程算出 测点到圆弧圆心的垂直距离h，
  3、由D和h  算出斜边 实测半径r  
4 实测半r与理论半径R 比较，就可知道是超挖 还是欠挖   这是本人的编程思路，写出来 供大家分享

34659709

看看，，，，

34659709

谢谢，，，，

一笑二哥

谢谢分享么么哒！！！