5800万能程序-平曲线+竖曲线+隧道超欠挖_第1页
5800万能程序-平曲线+竖曲线+隧道超欠挖_第2页
5800万能程序-平曲线+竖曲线+隧道超欠挖_第3页
5800万能程序-平曲线+竖曲线+隧道超欠挖_第4页
5800万能程序-平曲线+竖曲线+隧道超欠挖_第5页
已阅读5页,还剩3页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

5800万能程序,平曲线+竖曲线+隧道超欠挖1. 主程序(TYQXJS)Lbl 4:1SZ = XY, 2XY = SZ?N:?S:Prog“SUB0”1PC: (P-R)(2HPR) D:180E:N=1 = Goto1: Goto2:Lbl 1:”DZ”? Z: Abs(S-O) W:Prog SUB1: XS:XYS:YProg “SQX”(竖曲线的程序名字)F-90F: “FS=”:FDMSProg “CQW”(隧道超欠挖的程序名字)Goto4Lbl 2:”X”?X: “Y”?Y:XI:YJ: Prog“SUB2”:O+WS:“S”:S“Z”:ZProg“CQW”Goto42. 正算子程序(SUB1)0.1739274226A: 0.3260725774B: 0.0694318442K: 0.3300094782L: 1-LF: 1-KMG+QEKW(C+KWD)Z1G+QELW(C+LWD)Z2G+QEFW(C+FWD)Z3G+QEMW(C+MWD)Z4Acos(Z1)XX+Bcos(Z2)XX+Bcos(Z3)XX+Acos(Z4)XU+WXXAsin(Z1)YY+Bsin(Z2)YY+Bsin(Z3)YY+Asin(Z4)YV+WYYG+QEW(C+WD)+90FX+Zcos(F)XY+Zsin(F)Y2. 反算子程序(SUB2)G-90T: (Y-V)cos(T)-(X-U)sin(T) W:Abs(W) W:0ZLbl 0:Prog SUB1T+QEW(C+WD) L: (J-Y)cos(L)-(I-X)sin(L)Z:IF Abs(Z)0.000001:Then0Z:Prog SUB1(J-Y)sin(F)ZElse W+ZWGoto0:IfEndSUB0 数据库子程序Goto1 Lbl 1:IF S*(线元终点里程):Then*G(线元起点方位角):*O(线元起点里程):*U(线元起点X):*V(线元起点Y):*P(线元起点曲率半径):*R(线元终点曲率半径): *H(线元起点至终点长度):0或1、-1Q:Return:IfEndLbl 1:IF S XY2. XY = SZN ? 选择计算方式,输入1表示进行由里程、边距计算坐标 ;输入2表示由坐标反算里程和边距。S ?正算时所求点的里程,反算时为所求点的近似里程,反算时输入的近似里程不能夸线元,若夸线元的话,需进行第二次反算,并以第一次的结果做为近似里程,否则反算的里程及边距不对, Z ?正算时所求点距中线的边距(左侧取负,值右侧取正值,在中线上取零)X ?反算时所求点的X坐标Y ?反算时所求点的Y坐标显示部分:XS= 正算时,计算得出的所求点的X坐标YS= 正算时,计算得出的所求点的Y坐标FS= 正算时,所求点对应的中线点的切线方位角S= 反算时,计算得出的所求点的里程Z= 反算时,计算得出的所求点的边距竖曲线SQX(程序名)If S边坡终点And S边坡起点:Then大里程坡度A:小里程坡度B:边坡点里程O:边坡点高度G:半径R:Prog“Z-SQX”:IfEnd有多个竖曲线,依照上面的依次变更,每多一个,就增加一个。每次只需要修改以上的数据或增加一个判断,子程序不用变动。Z-SQX(子程序名)O-SL:A-BW:Abs(R*W2) T:O-TM:O+TPIf SM:ThenG-L*BH:Goto5:Else If SO:Then Goto3:Else If SP:Then Goto4:IfEnd: IfEnd: IfEndLbi3If W0:Then G+(M-S)22R-L*BH:Goto5: Else If W0: Then G-(M-S)22R-L*BH:Goto5: IfEnd: IfEndLbi4If W0:Then G+( S-P)22R-L

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论