编程计算平曲线坐标在市政工程施工中应用.doc

编程计算平曲线坐标在市政工程施工中应用.doc

  1. 1、本文档共7页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
编程计算平曲线坐标在市政工程施工中应用

编程计算平曲线坐标在市政工程施工中的应用 XXXX市政工程有限公司 XXXXX 摘要:本文主要介绍运用CASIO,型号为fx-4500p可编程计算器,进行包含缓和曲线和圆曲线的平曲线坐标计算的程序开发过程,以及程序的使用。该程序能快速、准确、智能地完成整个曲线坐标的计算工作。 关键词:编程计算 曲线坐标 程序开发过程 本人从事施工和测量工作已经有好几年了,从刚出来工作没多久就一直觉着计算缓和曲线坐标特别麻烦,因为要算出一个坐标最多的可能需要经过十二道算式的运算,还要将每个计算结果均记录下来供下道算式计算。这样每算一个坐标至少需要十分钟的时间,而且验算也没有特好的途径,也得重复上述的步骤。有时候面对一大堆的数据时,一不小心就会出错,同一错误还有可能会重复地发生,就算是验算一遍也未必能把错误检查出来。所以要是计算十来个点的坐标就至少要花去半天的工夫,相当的累人。而且,在实际工作中往往免不了需要在施工现场进行计算,再加上观测条件恶劣、视线受阻等影响,那么放样一个点可能就要折腾半天,真是件相当痛苦的事情。 随着计算器技术的发展,可编程计算器出现了。本人接触的第一台可编程计算器就是CASIO型号为fx-4500p的计算器。其体积跟普通计算器一般大小,携带方便、价格也不算昂贵、具有可编程功能(基本的basic语言),可以满足施工现场的需要。于是便使我萌发出用它来开发一个计算程序解决上述计算问题的想法。但限于本人笨拙的编程技巧(当时是边学边做得)所以进展相当的缓慢,不过终于在内环路素社立交工程施工时完成了程序的雏形设计并且得到了初步的应用。其实当时的程序仍有相当多的问题,只因为在一个工程特例上没有显露出来而已,这些问题在以后的工程中得到了不断完善,目前应该说是比较完善了。 下面就介绍一下程序开发中所涉及到的一些计算依据和原程序代码。(本程序中所采用的公式参考人民交通出版社的《公路勘测设计》) Y P a F° β ΔY τ ΔX X G° 缓和曲线坐标计算示图1 z P H° β+90 P1 缓和曲线坐标计算示图2 程序中所使用到的算式与计算流程 --所求点P到直缓点(ZH)的弧长; --所求点P的里程; --直缓点(ZH)的里程; ρ --所求点P上的曲率半径; F°--直缓点(ZH)到所求点的坐标方位角; G°--直缓点(ZH)上的切线的坐标方位角; H°--所求点P的法线的坐标方位角; R—圆曲线的半径。(其他的代号如上图所示。) 编程实现 1、 编程思路 就上述的计算方法设计出流程图。 2、编写程序 根据流程图便可运用Basic语言编写出应用程序。但上述的流程图中尚未阐明,当曲线的转向不同时;以及所求点落在道路中心线左侧或右侧的不同点时的各种可能性的解决方法。关于这些问题,主要是由于它们的角度变化的方向正好相反所造成。故此,我们只要在涉及这些转角的地方,加入一两个用以判断其方向的参数即可解决之。 最后,编写出的程序源代码如下: CASIO fx-4500p 计算器原程序代码 文件名 6 (带缓和曲线的平曲线坐标计算程序) Z“IP”A“X”C“Y”M“G°”S“I°” K=S/ABS S:S=ABS S:P=(N“LS”)/24R Q=N/2-N/240R:T=(R+P)tan(S/2)+Q:L=RS×π/180+N E=(R+P)/cos(S/2)-R:X=Z-T:Y=X+N Lbl 4 {QZ}:Q“LC”Z“L/0” G=Q-X-L+N W=Q-Y W0=W=N+W:U=1:Prog G:H=M+180-KI:Prog X:GOTO 4⊿ G0=W=N-G:U=-1:Prog G:H=M+KS+KI:Prog X:GOTO 4⊿ Prog D GOTO 4 文件名 G P=N(R/W F=W-W/40P+ W/3456P V=W/6P-W/336 P+ W/42240 P P=√((T-F)+V) I=tan(V/(T-F)) 文件名 E Q-Y0=Rec(T,180+M):O=Q-X

文档评论(0)

woaitiantian + 关注
实名认证
内容提供者

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

1亿VIP精品文档

相关文档