FX5800P——全套 双线隧洞超欠挖程序.doc

FX5800P全套双线隧洞超欠挖程序2014-04-17 测量 说明：本程序只用于 双线隧道 隧道中线偏移线路中线 四心圆 超欠挖计算本程序共计52 个额外变量。字节为6000多。思路：只通过超欠挖主程序，输入实测点的坐标，高程，可算出此点的超欠挖情况。通过QH2-7程序的坐标反算桩号功能，竖曲线计算此桩号的设计高程，超欠挖算出超欠挖。此程序的前提是 你有 覃辉 教授 的 QH2-7 程序。 本程序依附于QH2-7程序。现在一般情况， 买5800时，就会送这套QH2-7程序的。我的更改内容： 1.把原程序中的每次改变交点后，都需要重新输入参数改为子程序数据库。2.可以计算左，右线，只需选择，不需重新输入参数。3.加入高程计算（后面的版本是可以计算全线高程的）4.还有几个小程序，两线间的联络通道超欠挖程序(那个很简单，就是一直线），现在懒得打，以后再发上来。5.现在每条洞两个面开挖，现在有2个交点了。也做了一些改编。暂时没时间打，以后再传。（思路是一样的，多加几个 子程序数据库就行了）从昨天开始，在研究 一键做资料 软件，就是想做资料时偷懒，在输入平曲线要素，竖曲线要素，做资料的常用数据（如距中距，导线点坐标，高程数据，资料编号规则，导线放样控制里程段）后，做资料时，你只需要输入这次想做的里程段，确定，就给你全做出来，你只需打出来签字就行了。呵呵。懒吧。现在是以我这边的资料模版的，我这里只有三张表格。现在还不知道编程能力是否能达到预想目标。如果达到目标，呵呵，懒人有福了！缺点：由于原程序计算的线路里程是 从 ZHHZ段，所以不能计算断链！建议：做为道路程序使用的话，有断链的话，就得自己加减断链里程了。我个人觉得如果你工程中没有匝道的话，你把各个并点参数做为子程序，且你熟悉各个交点的里程段，那么计算时间要比线元法的QH2-8要快些。线元法的QH2-8也不能算断链。道路程序的话，应该是 王中伟 老师的 ROAD 程序，我原来专门在网上找人传了一份，因为没时间研究，且计算器存储空间不足，就删了。不得很了解，但是知道那个是可以算断链的。主程序（超欠挖） CQW52DimZ：Prog “QH2-7+“：Z34=1=StopProg “SQX”:“Z=”? Z51If Z40=0: Then If S180: Then Z38+0.105Z38: Else Z38-0.105Z38: IfEnd:IfEndIf Z40=1: Then If S180: Then Z38-0.105Z38: Else Z38+0.105Z38: IfEnd:IfEndIf Z51 H-1.172: Then “R4=”:(Z382 +(Z51-H-3.85) 2 )-5.53Z52 Else If Z51 H-0.246: Then “R3=”:(Z38-1.667)2 +(Z51-H-0.236) 2 )-1.55Z52 Else If Z51 H+3.328: Then “R2=”:(Z38+7.78)2 +(H+3.328-Z51) 2 )-11.49Z52 Else If Z51 H+3.328: Then “R1=”:(Z382 +( Z51- H-3.328) 2 )-3.713Z52 IfEnd:IfEnd: IfEnd:IfEnd“K=”:Z50 子程序（QH2-7） QH2-7+（以区别于原来的QH2-7）只是在程序前把参数放入子程序，添加了选择左右线命令。蓝色为原程序内容。Deg：Fix 4：FreqOn：40DimZ“ZX(0),YX(1),JX(2)=”? OIf O=0: Then 0Z40: Prog “QH2-7-Z”: Else If O=1: Then 1Z40: Prog “QH2-7-Y”: Else O=2 Goto 1: IfEnd: IfEnd:ClrStatIf Q Prog“SQX-Z”:Z40=1 = Prog“SQX-Y”Z46*Abs（Z44-Z45）2Z47If Z44-Z450：then -1Z48:else 1Z48：IfEndIf Z50Z42-Z47 And Z50Z41：then “H=”:Z49-(Z42-Z50)*Z44HIfEndIf Z50Z42-Z47 And Z50Z42：then “H=”:Z49-(Z42-Z50)*Z44+Z48(Z50-Z42+Z47)2(2*Z46) HIfEndIf Z50Z42 And Z50Z42+Z47：then “H=”:Z49+(Z50-Z42)*Z45+Z48(Z42+Z47-Z50)2(2*Z46) HIfEndIf Z50Z42+Z47 And Z50 Z43：then “H=”:Z49+(Z50-Z42)*Z45HIfEnd子程序（竖曲线左线数据）SQX-Zif Z5046047.938（此竖曲线段直线终点里程）And Z5044115.615（此竖曲线段直线起点里程）：then44115.615（此竖曲线段直线起点里程）Z41：46047.938（此竖曲线段直线终点里程）Z43：-0.0067（前坡度：上坡正下坡负）Z44：0.003（后坡度：上坡正下坡负）Z45：10000Z46（竖曲线半径）：45200Z42（变坡点里程）：-25.776Z49（变坡点高程）：IfEnd子程序（竖曲线左线数据）SQX-Y同 子程序（竖曲线左线数据）SQX-Z操作界面：显示输入说明QH2-7EXE显示程序