




已阅读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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 高考试题最难卷子及答案
- 肝胆外科考试题及答案
- 福山护理考试题型及答案
- 分析地理中考试题及答案
- 儿内科历年考试题及答案
- 中国聚碳酸酯板项目投资计划书
- 年生产30万吨融资投资立项项目可行性研究报告(咨询)
- 中国储能锂电项目经营分析报告
- 电厂考试题库及答案
- 地理学考试题及答案
- 2025四川广安武胜县嘉陵水利集团有限公司招聘工作人员3人笔试历年参考题库附带答案详解(3卷合一)
- 九师联盟2026届高三10月联考英语试卷(含答案)
- 餐饮托盘技能培训
- 6.我们神圣的国土《辽阔的国土》(教案)-部编版道德与法治五年级上册
- 胖东来服务管理办法
- 审计实务教学案例 第2版 课件 第十七章 分析程序:胜通集团审计案例
- 氢氟酸应急处置培训课件
- 迷走神经反应性晕厥课件
- 校园防欺凌知识培训内容课件
- 2025秋大象版(2024)科学一年级上册教学设计及每课教学反思(附目录)
- 2025-2030脱硫石膏品质提升与高值化利用技术汇编
评论
0/150
提交评论