5800万能程序,平曲线+竖曲线+隧道超欠挖(积木法)（5800 universal program, horizontal curve + vertical curve + tunnel over excavation (building block method)）.docVIP

下载本文档

4
0
约4.87千字
约 7页
2017-09-05 发布于河南
举报
版权申诉

5800万能程序,平曲线+竖曲线+隧道超欠挖(积木法)（5800 universal program, horizontal curve + vertical curve + tunnel over excavation (building block method)）.doc

1、本文档共7页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

5800万能程序,平曲线竖曲线隧道超欠挖(积木法)（5800universalprogram,horizontalcurveverticalcurvetunneloverexcavation(buildingblockmethod)）

5800万能程序,平曲线+竖曲线+隧道超欠挖(积木法)（5800 universal program, horizontal curve + vertical curve + tunnel over excavation (building block method)） The 1. main program (TYQXJS) Lbl 4: 1SZ = XY, 2XY SZ? N:? S:Prog SUB0 1, P, C: (P-R), (2HPR), D:180 / PI, E:N=1 = Goto1:Goto2: Lbl 1: DZ Z:Abs? (S-O) to W:Prog SUB1: XS:X YS:Y F-90, F: FS=: F / DMS Goto4 Lbl 2: X? X: Y? Y:X - I:Y - J:Prog SUB2 O+W, S S: S Z: Z Goto4 2. positive calculation subroutine (SUB1) 0.1739274226 - A:0.3260725774 - B:0.0694318442 - K:0.3300094782 - L:1-L - F:1-K - M G+QEKW (C+KWD), Z[1] G+QELW (C+LWD), Z[2] G+QEFW (C+FWD), Z[3] G+QEMW (C+MWD), Z[4] A * cos (Z[1]), X X+Bcos (Z[2]), X X+Bcos (Z[3]), X X+Acos (Z[4]), X U+WX, X Asin (Z[1]), Y Y+Bsin (Z[2]), Y Y+Bsin (Z[3]), Y Y+Asin (Z[4]), Y V+WY, Y G+QEW (C+WD) +90, F X+Zcos (F), X Y+Zsin (F), Y 2. inverse calculation subroutine (SUB2) G-90, T: (Y-V) cos (T) - (X-U) sin (T), W:Abs (W) - W:0 - Z Lbl 0:Prog SUB1 T+QEW (C+WD), L: (J-Y) cos (L) - (I-X) sin (L), Z:IF Abs (Z) 0.000001:Then0, Z:Prog SUB1 (J-Y), sin (F), Z Else W+Z, W Goto0:IfEnd SUB0 database program Goto1 Lbl 1:IF S*** (line end point: Then*** G (mileage), line starting point azimuth): * * * to O (line starting point mileage): * * * to U (line starting point to V (X): * * * * * *: Y line starting point), P (line starting point curvature radius): * * *. R (line end point radius): * * * to H (the starting point to the end point line length): 0 or 1, -1, Q:Return:IfEnd Lbl 1:IF S*** (line end point: Then*** G (mileage), line starting point azimuth): * * * to O (line starting point mileage): * * * to U (line starting point to V (X): * * * * * *: Y line starting point), P (line starting point curvature radius): * * *. R (line end point radius): * * * to H (the starting point to the end point line length): 0 or 1, -1, Q:Return:IfEnd ............... . In order to facilitate the interpretation, every increase of one yuan increase line 1 line, each added a curve to add a Lbl, every increase of one project