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

《FX5800P——全套 双线隧洞超欠挖程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、FX5800P——全套 双线隧洞超欠挖程序2014-04-17测量说明：本程序只用于双线隧道隧道中线偏移线路中线四心圆超欠挖计算本程序共计52个额外变量。字节为6000多。思路：只通过超欠挖主程序，输入实测点的坐标，高程，可算出此点的超欠挖情况。通过QH2-7程序的坐标反算桩号功能，竖曲线计算此桩号的设计高程，超欠挖算出超欠挖。此程序的前提是你有覃辉教授的QH2-7程序。本程序依附于QH2-7程序。现在一般情况，买5800时，就会送这套QH2-7程序的。我的更改内容：1.把原程序中的每次改变交点后，都需要重新输入参数改为子程序数据库。2.可以计算左，右线，只需选择，不需重新输入参数。3.

2、加入高程计算（后面的版本是可以计算全线高程的）4.还有几个小程序，两线间的联络通道超欠挖程序(那个很简单，就是一直线），现在懒得打，以后再发上来。5.现在每条洞两个面开挖，现在有2个交点了。也做了一些改编。暂时没时间打，以后再传。（思路是一样的，多加几个子程序数据库就行了）从昨天开始，在研究一键做资料软件，就是想做资料时偷懒，在输入平曲线要素，竖曲线要素，做资料的常用数据（如距中距，导线点坐标，高程数据，资料编号规则，导线放样控制里程段）后，做资料时，你只需要输入这次想做的里程段，确定，就给你全做出来，你只需打出来签字就行了。呵呵。懒吧。现在是以我这边的资料模版的，我这里只有三张表格。现

3、在还不知道编程能力是否能达到预想目标。如果达到目标，呵呵，懒人有福了！缺点：由于原程序计算的线路里程是从ZH——HZ段，所以不能计算断链！建议：做为道路程序使用的话，有断链的话，就得自己加减断链里程了。我个人觉得如果你工程中没有匝道的话，你把各个并点参数做为子程序，且你熟悉各个交点的里程段，那么计算时间要比线元法的QH2-8要快些。线元法的QH2-8也不能算断链。道路程序的话，应该是王中伟老师的ROAD程序，我原来专门在网上找人传了一份，因为没时间研究，且计算器存储空间不足，就删了。不得很了解，但是知道那个是可以算断链的。主程序（超欠挖）CQW52→DimZ：Prog“QH2-7+“：Z

4、[34]=1=>StopProg“SQX”:“Z=”?→Z[51]IfZ[40]=0:ThenIfS>180:ThenZ[38]+0.105→Z[38]:ElseZ[38]-0.105→Z[38]:IfEnd:IfEndIfZ[40]=1:ThenIfS>180:ThenZ[38]-0.105→Z[38]:ElseZ[38]+0.105→Z[38]:IfEnd:IfEndIfZ[51]≤H-1.172:Then“R4=”:√(Z[38]2+(Z[51]-H-3.85)2)-5.53→Z[52]▲ElseIfZ[51]≤H-0.246:Then“R3=”:√((Z[38]-1.667)2+

5、(Z[51]-H-0.236)2)-1.55→Z[52]▲ElseIfZ[51]≤H+3.328:Then“R2=”:√((Z[38]+7.78)2+(H+3.328-Z[51])2)-11.49→Z[52]▲ElseIfZ[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：Fix4：FreqOn：←┘40→Dim

6、Z←┘“ZX(0),YX(1),JX(2)=”?→O←┘IfO=0:Then0→Z[40]:Prog“QH2-7-Z”:ElseIfO=1:Then1→Z[40]:Prog“QH2-7-Y”:ElseO=2→Goto1:IfEnd:IfEnd:ClrStatIfQ<0:Then-1→Z[20]:Else1→Z[20]:IfEndAbs(Q)→DPol(B-U,C-V):Cls以下不改变子程序（平曲线左线数据）QH2-7-Z此程序就是把原来QH2-7中的输入参数部分摘出，方便左，右线。44800.949(此交点桩号)→Z:31559.564（此交点X坐标）→B:8850.7829（此交点Y

7、坐标）→C:32620.182（上一交点X坐标）→U:8730.214（上一交点Y坐标）→V:-5.52’11.41”（此交点转角，左负右正）→Q:779.7435（入口缓和曲线参数）→E:3200（圆曲线半径）→R:779.7435（出口缓和曲线参数）→F子程序（平曲线右线数据）QH2-7-Y同子程序（平曲线右线数据）QH2-7-Z子程序（竖曲线计算公式）SQX52→DimZ:Z→Z[50]：Z[40]=0=>Prog“SQX-Z