自编CASIOFX-4800P隧道超欠挖程序.doc

《自编CASIOFX-4800P隧道超欠挖程序.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、自编卡西欧fx-4800P隧道超欠挖程序作者：VV一直想要寻找一套简单方便又实用的计算隧道超欠挖的程序，即只要输入任意点三维坐标就能直接计算该点的超欠挖。前段时间有问过一些人也有上百度搜索过几次，可都没什么结果，有见过一些理论性的东西，可无奈对程序一窍不通，因此没办法自己设计程序。之前自己也有编过一个公式“程序”，也不能算是程序吧，因为那只是一个单纯利用代数关系组成的公式，没有一点程序语言，原理也很简单，就是利用所测点距离隧道该段圆弧的圆心的高差及平距再通过“勾股定理”便可以计算出该点与圆心的空间距离，即实测半径，再用实测半径

2、减去该段弧的设计半径便是该点的超欠挖咯。只是用此方法必须事前要用另外的程序反算出该点的里程及偏距，再将所求的里程与偏距代入上述的“公式程序”，故要分为两步才能计算出该点超欠挖。此方法显然过于繁琐，于是便想到要将公式编入反算程序当中，直接利用程序中反算出的结果自行代入公式，便能一步到位计算出该点的超欠挖，即只需输入所测点的三维坐标便能计算超欠挖，方便且快捷。之前也有研究过一阵子，可毕竟对程序语言并不很懂，一直无处下牙，便只好放弃。前几天因为买了新的计算器便又头脑发热的想要试一下，仔细看了一些以前用过的程序清单，观察了下里面的程序

3、语言及之间的连接关系，通过几天的探索，终于受到了点启发，于是便成功的将之前的公式整合到了反算程序当中，经过多次的验证，最终确认准确无误。于是想着拿出来与各位同行们分享，并希望得到大家的指点，也希望给那些刚学不久的测量新手们一些帮助，希望各位测量高手与前辈们不要见笑。本人之前一直都在用“yshf”的“TYQXJS”程序，因此上述的超欠挖程序的主体部分也就是利用“TYQXJS”中的反算功能，即利用了反算结果中的S（所测点的里程）与Z（所测点距离线中的偏距），程序内容如下：1.主程序（CQW） U"X0"：V"Y0"：O"S0"：G

4、"F0"：N"LS"：P"R0"：R"RN"：Q：C=1÷P：D=(P-R)÷(2HPR)：E=180÷π←┘ Lbl2：｛XYH｝：XY：I=X：J=Y：H=H： T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl0：Prog"SUB1"：L=T+QEW(C+WD)： Z=(J-Y)cosL-(I-X)sinL： AbsZ＜E-6＝>Goto1：≠>W=W+Z：Goto0△←┘ Lbl1：Z=0：Prog"SUB1"：Z=(J-Y)÷sinF： S"S"=O+W▲ Z"Z"=Z▲ M"CQW"

5、=√((H-内轨顶标高-圆心距离内轨顶高差)²+(Abs(Z+线中相对遂中距离)+圆心相对遂中距离)²)-R▲Goto2←┘ 2.子程序(SUB1)A=0.：B=0.：K=0.：L=0.：F=1-L：M=1-K：X=U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))：Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+

6、QEMW(C+MWD)))：F=G+QEW(C+WD)+90：X=X+ZcosF：Y=Y+ZsinF一．补充：1.输入显示说明          X0？线元起点的X坐标    Y0？线元起点的Y坐标    S0？线元起点里程    F0？线元起点切线方位角    LS？线元长度    R0？线元起点曲率半径    RN？线元止点曲率半径    Q？  线元左右偏标志(左偏Q=-1，右偏Q=1，直线段Q=0）      S？所求点的里程      Z？所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零)      CQW?

7、所求点的超欠挖     2.若隧道所测部位有两种圆心时，利用圆心所对应的弧的分段高度划分可设置两个选择条件，于是只需将主程序中“M"CQW"=√((H-内轨顶标高-圆心距离内轨顶高差)²+(Abs(Z+线中相对遂中距离)+圆心相对遂中距离)²)-R▲”中改为“H>内轨顶标高+圆心O1分段高度＝>M"CQW"=√((H-内轨顶标高-圆心O1距离内轨顶高差)²+(Abs(Z+线中相对遂中距离)+圆心O1相对遂中距离)²)-R1▲≠>M"CQW"=√((H-内轨顶标高-圆心O2距离内轨顶高差)²+(Abs(Z+线中相对遂中距离)+圆

8、心O2相对遂中距离)²)-R2▲”3.若所测隧道断面无需在经常在线元之间转换时，也可以将主程序中U(线元起点X坐标)，V(线元起点Y坐标)，O(线元起点里程)，G(线元起点切线方位角)，N(线元长度)，P(线元起点半径)，R(线元终点半径)，Q(曲线左偏为-1右偏为1直线为0