资源描述：
《隧道超欠挖计算程序(20).doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、5800隧道超欠挖计算程序（加宽值为20）一、主程序：JINYULb14："1=>ZS,2=>FS,3=>CQW"?N：N=1=>Goto1：N=2=>Goto2：N=3=>Goto3←┘Lb11："K="?S："P="?Z：Prog"SJ-PM"：Abs(S-O)=>W：Prog"SUB1"："X="：Locate4,4,X："Y="：Locate4,4,Y：F-90=>F：S=>K：Prog"SJ-GC"："H="：Locate4,4,H◢Goto4←┘Lb12："X="?X："Y="?Y：Prog"SJ-PM"：X=>I：Y=>J：Prog"SUB2"：O+
2、W=>S："K="：Locate4,4,S："P="：Locate4,4,Z：S=>K：Prog"SJ-GC"："H="：Locate4,4,H◢Goto4←┘Lb13："X="?X："Y="?Y：Prog"SJ-PM"：X=>I：Y=>J：Prog"SUB2"：O+W=>S："K="：Locate4,4,S："P="：Locate4,4,Z：S=>K：Prog"SJ-GC"："H="：Locate4,4,H◢Prog"SJ-CQW"◢Goto4←┘Return二、主子程序：一）、SJ-CQW(计算超欠挖)"H1="?F←┘IfF-H＞5.735：Then√(Ab
3、s(2.3-Z)2+(F-H-2.36)42)-6.75=>W："CQ=>Y1"：W：IfEnd：IfF-H≤5.735：AndF-H＞0.125：Then√((Abs(2.3-Z)-0.1)2+(Abs(F-H-2.418))2)-6.63=>W："CQ=>Y2="：W：IfEnd：IfF-H≤0.125：AndF-H＞-1.818：Then√((Abs(2.3-Z)-3.319)2+(H-F-1.231)2)-3.35=>W："CQ=>Y3="：W：IfEnd：IfF-H≤-1.818：Then√((Abs(2.3-Z))2+(H-F+10.23)2)-12.
4、84=>W："CQ=>Y4="：W：IfEnd：二）、SJ-GC（计算高程）IfS＜116350AndS≥113600：Then-0.013=>A：-0.0128=>B：116350=>O：2158.0956=>G：1000000=>R：Prog"SUB3"：IfEnd←┘IfS＜117300AndS≥116350：Then-0.0128=>A：-0.013=>B：117300=>O：2145.7456=>G：1000000=>R：Prog"SUB3"：IfEnd←┘IfS＜119100AndS≥117300：Then-0.01=>A：-0.0128=>B：119
5、100=>O：2122.7056=>G：30000=>R：Prog"SUB3"：IfEnd←┘说明：A为前坡坡度B为后坡坡度G为交点高程R为曲率半径（无半径可将半径放大如：R=1000000）三）、SJ-PM（计算平距）IfS≥114177.104：Then3900787.34=>U：524124.1074=>V：114177.104=>O：195°50′47.96″=>G：806.109=>H：4500=>P：4500=>R：1=>Q：IfEnd←┘IfS≥114983.213：Then3900035.67=>U：523835.892=>V：114983.213
6、=>O：206°06′37.27″=>G：320=>H：4500=>P：1×10^(45)=>R：1=>Q：IfEnd←┘IfS≥115303.213：Then3899751.762=>U：523688.297=>V：115303.213=>O：208°08′51.2″=>G：2026.159=>H：1×10^(45)=>P：1×10^(45)=>R：0=>Q：IfEnd←┘IfS≥117329.373：Then3897965.225=>U：522732.468=>V：117329.373=>O：208°08′51.2″=>G：340=>H：1×10^(45)=>
7、P：4500=>R：-1=>Q：IfEnd←┘IfS≥117669.373：Then3897663.458=>U：522575.873=>V：117669.373=>O：205°58′58.95″=>G：1973.554=>H：4500=>P：4500=>R：-1=>Q：IfEnd←┘说明：S为起点里程O为起点里程Q取值左翩为1、右偏为-1、直线为0三、SUB1（正算子程序）1÷P=>C：(P-R)÷(2HPR)=>D：180÷∏=>E：0.1739274226=>A：0.3260725774=>B：0.0694318442=>K：0.3300094782=>L：
8、1-L=>
