交点法公路三维坐标放样程序.docVIP

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

交点法公路三维坐标放样程序   摘 要:在公路工程施工过程中,测量时需计算大量的数据,为配合施工测量,建议使用fx-9750GⅡ编程函数计算器。fx-9750GⅡ具有高速CPU、大容量内存与串列功能等特点。本人编写了交点法公路三维坐标计算程序,测量时可调用任一条路线的数据进行三维坐标计算,1秒内即可计算出线路任意一点的坐标、高程、极坐标放样等各项数据资料。   关键词:公路 fX-9750GⅡ 测量 程序 三维坐标      1、前言   fx-9750GⅡ编程函数计算器正风行市场,fx-9750GⅡ编程函数计算器有以下性能:(1) 采用高性能cpu,与传统型号相比显著加速处理速度。比拟fx-5800、fx-4850快上数十倍,(2)它拥有超大的内存容量(62K,可升级至1.5M)可下载各种数据和运用数据,(3) 即插即用的USB功能, 通过CASIO FA-124应用软件实现电脑和计算器、计算器之间的高速数据通信和程序互换,实现无纸化施工测量,   以下是对交点法公路三维坐标计算程序作一下简单介绍。   2、程序功能   本程序由一个主程序2JDF和十一个子程序(QD、XL、JF、YS、ZB、JZ、OH、HB、NS、LS)构成,运行时只需运行主程序即可。   本程序适用于单交点对称型、不对称型、无缓和曲线单圆曲线型一个交点范围内(含交点前后有直线段时)的曲线要素核对和坐标计算。(如下图范围内)   本程序能正算出任一点的三维坐标,也能测量计算出棱镜置于任一点反算桩号并求出填挖高度。本程序有以下功能   (1)进行由里程、边距计算坐标及极坐标放样(拔角测距)(2)进行由坐标反算里程和边距;(3)进行弯道上及斜交桥涵放样;(4)进行高程填挖厚度计算;(5)进行正算三维坐标放样,并自动记录;(6)进行三维坐标坐标反算放样,并自动记录;(7)进行设计桩号法填挖线放样,并自动记录;(8)进行反算桩号法填挖线放样,并自动记录;由于编幅有限,本文只介绍第(6)中的三维坐标坐标反算放样功能。   3、计算主要公式及原理   X=l(1-l4/40R2LS3+l8/3456R4LS4-…),y=l3/6|R|LS(1-l4/56R2LS2+l8/7040R4/LS4-…)   (缓和段计算公式)。y=X2/2R(竖曲线计算公式)   利用上面公式及CASIO fx-9750GⅡ编程函数计算器经过串连组合,可编写下列计算程序。   4、交点法公路三维坐标计算程序程序清单   (1)、2JDF(主程序)   Lbl 1:ClrText:r=:Locate 4,1,r?L   r=?→r:XLn?→S:1ZS,2NS?→P:Tm?→T:File 3:Prog QD?L   Lbl ASX?→W:W=0=Stop:SY?→C:SZ?→V:Prog JF?L   :File 4:0→O:Prog JZ:Z-V→Z?L   ClrText:Km+m=:Bm=:TW=:Locate 8,1,K:Locate 5,2,B:Locate 5,3,Z?L   File 4:0→O:Prog “JZ”:0→V:”SZ”?→V:Z-V→Z?L   ClrText:Km+m=:Bm=:SZ=:TW=:Locate 8,1,K:Locate 5,2,B:Locate 5,3,V:Locate 5,4,Z?   File 1:”1→ZL,0→0:Then K→List 1[r]:B→List 2[r]:V→List 3[r]:Z→List 4[r]:T→List 5[r]:Else K→K:B→B:V→V:Z→Z:T→T:IfEnd?L   Goto A?L   (2)、QD(子程序、判断线路号)   List 1[S]→Q:List 1[S+1]-1→M:ClrText:XLn=:QDK=:ZDK=?L   (Locate 5,1,S:Locate 5,2,List 2[Q]:Locate 5,3,List 2[M]?L   (3)、XL(子程序、查找并判断线路要素)   List 1[S]-1→ist 4[1]?L   List 4[1]→H:List 3[H]→H?L   Do:H+1→H:LpWhile KList 2[H+1]?L   (4)、JF(子程序、已知实测坐标,反算出桩号及边距)   File 3:Lbl A:Prog XL:Prog YS:Prog ZB?L   W-N→I:C-E→J:Pol(I,J):Rec(List Ans[1],List Ans[2]-F)?L   List Ans[1]+K→K:List Ans[2]→B:If Abs (List Ans[1])0.

文档评论(0)

317960162 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档