自编5800隧道程序综合

《自编5800隧道程序综合》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、任意坐标正反算及隧道超欠挖程序(2010-11-22)1-JINYU(主程序)Lbl4:“1→ZS,2→FS,3→CQW”?N(选择计算模式，1为正算，2为反算，3为超欠挖)N=1=>Goto1:N=2=>Goto2:N=3=>Goto3Lbl1:“K=”?S：“P=”?Z：Prog“SJ-PM”：Abs(S-O)→W：Prog“SUB1-ZS”：“X=”：Locate4,4,X:“Y=”：Locate4,4,Y:F-90→F:S→K:Prog“SJ-GC”：“H=”：Locate4,4,H：“W=”:Locate4,4,F°◢Goto4(

2、正算-输入待求点里程K=、输入待求点偏距P=、显示待求点里程X=、显示待求点里程Y=、显示待求点里程设计高程H=)Lbl2:“K(L)=”?S:“X=”?X：“Y=”？Y:Prog“SJ-PM”：X→I：Y→  J：Prog"SUB2-FS"：O+W→S:“K="：Locate4,4,S：“P="：Locate4,4,Z：S→K:Prog“SJ-GC”：“H=”：Locate4,4,H:F-90→F:“W=”:Locate4,4,F°◢Goto4(反算-输入反算点大概里程K(L)=、输入实测点X=、输入实测点Y=、显示实测点里程K=、显示实

3、测点偏距P=、显示实测点的设计高程H=)Lbl3:“K(L)=”?S:“X=”?X：“Y=”？Y:Prog“SJ-PM”：X→I：Y→  J：Prog"SUB2-FS"：O+W→S:“K="：Locate4,4,S：“P="：Locate4,4,Z：S→K:Prog“SJ-GC”：“H=”：Locate4,4,H:F-90→F:“W=”:Locate4,4,F°◢Prog“SJ-CQW”◢Goto4(超欠挖-输入实测点X=、输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、显示实测点的设计高程H=、输入实测高程H1=、显示超欠挖值及第

4、几圆心上CQ→Y？=)SJ-PM（子程序名-平面线形数据库）IfS≥59227.681（线元起点里程）:Then2599818.013→U（线元起点X坐标）：496887.918→V（线元起点Y坐标）：59227.681→O（线元起点里程）：208028’39”→G（线元起点方位角）：100→H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0→Q（线元左右偏标志：左-1右1直0）：IfEndIfS≥59327.681（线元起点里程）:Then2599730.112→U（线元起点X坐标）：496840

5、.237→V（线元起点Y坐标）：59327.681→O（线元起点里程）：208028’39”→G（线元起点方位角）：90→H（线元长度）：1×1045→P（线元起点曲率半径）：750→R（线元终点曲率半径）：-1→Q（线元左右偏标志：左-1右1直0）：IfEnd(注：有多个平面线形，依照上面的依次变更,每多一个，就增加一个。每次只需要修改以上的数据或增加一个判断。)SJ-GC（子程序名-竖曲线数据库）IfS＜变坡终点里程AndS≥变坡起点里程：Then大里程坡度→A：小里程坡度→B：变坡点里程→O：变坡点高度→G：半径→R：Prog“SUB3

6、-GC”:IfEnd(注：1.有多个竖曲线，依照上面的依次变更，每多一个，就增加一个。每次只需要修改以上的数据或增加一个判断。2.如整条线只有一个纵坡比喻为2﹪，那么程序应为IfS＜终点里程AndS≥起点里程：Then0.02→A：0.02→B：起点里程→O：起点高程→G：1×1045→R：Prog“SUB3-GC”:IfEnd)SJ-CQW(子程序名-隧道数据库)“H1=”?FIfF-H＞5.845:Then√((Abs(Z))2+(F-H-0.45)2)-7.45→W:“CQ→Y1=”:W:IfEnd:(显示超欠和第1圆心)IfF-H≤5.

7、845AndF-H＞-1.169:Then√((Abs(Z)-1)2+(Abs(F-H-1.5))2)-6→W:“CQ→Y2=”:W:IfEnd:(显示超欠和第2圆心)IfF-H≤-1.169:Then√((Abs(Z))2+(H-F+14.05)2)-16.5→W:“CQ→Y3=”:W:IfEnd:(显示超欠和第3圆心)(注：隧道断面有多个圆心，依照上面的依次变更,每多一个，就增加一个。每次只需要修改以上的数据或增加一个判断。)详细数据见下图:SUB1-ZS(正算子程序)1÷P→C：(P-R)÷(2HPR)→D：180÷π→E：0.1739

8、274226→  A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1-L→F：1-K→M：U+W(Aco