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

FX5800P——全套?双线隧洞超欠挖程序 2014-04-17 测量 说明：本程序只用于 双线隧道 隧道中线偏移线路中线 四心圆 超欠挖计算 本程序共计52 个额外变量。字节为6000多。 思路：只通过超欠挖主程序，输入实测点的坐标，高程，可算出此点的超欠挖情况。通过QH2-7程序的坐标反算桩号功能，竖曲线计算此桩号的设计高程，超欠挖算出超欠挖。 此程序的前提是 你有 覃辉 教授 的 QH2-7 程序。 本程序依附于QH2-7程序。现在一般情况， 买5800时，就会送这套QH2-7程序的。我的更改内容： 1.把原程序中的每次改变交点后，都需要重新输入参数改为子程序数据库。2.可以计算左，右线，只需选择，不需重新输入参数。3.加入高程计算（后面的版本是可以计算全线高程的）4.还有几个小程序，两线间的联络通道超欠挖程序(那个很简单，就是一直线），现在懒得打，以后再发上来。5.现在每条洞两个面开挖，现在有2个交点了。也做了一些改编。暂时没时间打，以后再传。（思路是一样的，多加几个 子程序数据库就行了）从昨天开始，在研究 一键做资料 软件，就是想做资料时偷懒，在输入平曲线要素，竖曲线要素，做资料的常用数据（如距中距，导线点坐标，高程数据，资料编号规则，导线放样控制里程段）后，做资料时，你只需要输入这次想做的里程段，确定，就给你全做出来，你只需打出来签字就行了。呵呵。懒吧。现在是以我这边的资料模版的，我这里只有三张表格。现在还不知道编程能力是否能达到预想目标。如果达到目标，呵呵，懒人有福了！缺点：由于原程序计算的线路里程是 从 ZH——HZ段，所以不能计算断链！建议：做为道路程序使用的话，有断链的话，就得自己加减断链里程了。我个人觉得如果你工程中没有匝道的话，你把各个并点参数做为子程序，且你熟悉各个交点的里程段，那么计算时间要比线元法的QH2-8要快些。线元法的QH2-8也不能算断链。道路程序的话，应该是 王中伟 老师的 ROAD 程序，我原来专门在网上找人传了一份，因为没时间研究，且计算器存储空间不足，就删了。不得很了解，但是知道那个是可以算断链的。 主程序（超欠挖） CQW 52→DimZ：Prog “QH2-7+“： Z[34]=1=Stop Prog “SQX”: “Z=”? →Z[51] If Z[40]=0: Then If S180: Then Z[38]+0.105→Z[38]: Else Z[38]-0.105→Z[38]: IfEnd:IfEnd If Z[40]=1: Then If S180: Then Z[38]-0.105→Z[38]: Else Z[38]+0.105→Z[38]: IfEnd:IfEnd If Z[51] ≤H-1.172: Then “R4=”:√(Z[38]2 +(Z[51]-H-3.85) 2 )-5.53→Z[52] ▲ Else If Z[51] ≤H-0.246: Then “R3=”:√((Z[38]-1.667)2 +(Z[51]-H-0.236) 2 )-1.55→Z[52] ▲ Else If Z[51] ≤H+3.328: Then “R2=”:√((Z[38]+7.78)2 +(H+3.328-Z[51]) 2 )-11.49→Z[52] ▲ Else If Z[51] ≧H+3.328: Then “R1=”:√(Z[38]2 +( Z[51]- H-3.328) 2 )-3.713→Z[52] ▲ IfEnd:IfEnd: IfEnd:IfEnd “K=”:Z[50] ▲ 子程序（QH2-7） QH2-7+（以区别于原来的QH2-7） 只是在程序前把参数放入子程序，添加了选择左右线命令。蓝色为原程序内容。 Deg：Fix 4：FreqOn：←┘ 40→DimZ←┘ “ZX(0),YX(1),JX(2)=”? →O←┘ If O=0: Then 0→Z[40]: Prog “QH2-7-Z”: Else If O=1: Then 1→Z[40]: Prog “QH2-7-Y”: Else O=2→ Goto 1: IfEnd: IfEnd:ClrStat If Q0: Then -1→Z[20]: Else 1→Z[20]: IfEnd Abs(Q) →D Pol(B-U,C-V):Cls 以下不改变 子程序（平曲线左线数据） QH2-7-Z 此程序就是把原来QH2-7中的输入参数部分摘出，方便左，右线。 44800.949 (此交点桩号)→Z:31559.564（此交点X坐标）→B:8850.7829（此交点Y坐标）→C:32620.182（上一交点X坐