- 1、本文档共3页,可阅读全部内容。
- 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简单全线坐标计算程序
5800全线任意坐标计算程序
1. 正算程序 (不运行)
8→DimZ1÷P→Z[4 ]: P-R ÷ 2HPR →D: 180÷π→E
“Z ”?Z:”YJJ ”?A:Abs S-O →W
0.1座机电话号码6→Z[1 ]: 0.座机电话号码74→B: 0.0座机电话号码2→K: 0.座机电话号码82→Z[3 ]: 1-Z[3 ]→F:1-K→Z[2 ]
U+W Z[1 ]cos G+QEKW Z[4 ]+KWD +Bcos G+ Z[3 ]QEW Z[4 ]+ Z[3 ]WD +Bcos G+QEFW Z[4 ]+FWD + Z[1 ]cos G+ Z[2 ]QEW Z[4 ]+ Z[2 ]WD →X:V+W Z[1 ] sin G+QEKW Z[4 ]+KWD +B sin G+ Z[3 ]QEW Z[4 ]+ Z[3 ]WD +B sin G+QEFW Z[4 ]+FWD + Z[1 ] sin G+ Z[2 ]QEW Z[4 ]+ Z[2 ]WD →Y:G+Q Z[4 ]+WD →F: X+cos F+A →X: Y+sin F+A →Y: If F≧360:Then F-360→F:IfEnd
”X ”:X→X◢
”Y ”:Y→Y◢If F﹤0:Then F+360→F:IfEnd
”QXFWJ ”:F▼DMS◢“C 1 XX: C 2 XZ”: ”C ”?C: ”QHJU ”?L: If C 1:Then Goto 1:Else Goto 2: IfEnd 可以计算斜交斜做或斜交正做的桥涵坐标
Lbi 1
X+Lcos F →X: Y+sin F →Y: Goto 3
Lbi 2
X+Lcos F+A-90 →X: Y+sin F+A-90 →Y: Goto 3
Lbi 3
“QH-X ”: X →X◢
“QH-Y ”: Y →Y◢
Prog “FY”
2 . 参数子程序 (直接运行)
M 主线 一条线路一个名称
“S ”?S
If S≦线元终点:Then 线元起点X值→U: 线元起点Y值→V:线元起点切线方位角→G:线元起点桩号→O:线元长度→H:线元起点半径→P:线元终点半径→R:(左偏-1,或右偏 1)→Q:Goto 1:IfEnd…
…
If S≦线元终点:Then 线元起点X值→U: 线元起点Y值→V:线元起点切线方位角→G:线元起点桩号→O:线元长度→H:线元起点半径→P:线元终点半径→R:(左偏-1,或右偏 1)→Q:Goto 1:IfEndLbi 1
Prog “ZBJS”
3. 放样程序(FY) (不运行)
“X0 ”?M:“Y0 ”?N
Pol X-M, Y-N
If J﹤0:Then J+360→J:IfEnd
“FWJ ”:J▲DMS◢
“JU-LI ”:I◢
说明:一、程序功能及原理1.功能说明:本 程序由一个主程序和两个子程——正算程序 、参数子程序(M)、放样程序(FY),可以根据曲线段——直线、圆曲线、缓和曲线(完整或非完整型)的线 元要素(起点坐标、起点里程、起点切线方位角、、起点曲率半径、止点曲率半径)及里程边距或坐标,对该线元段范围内任意里程中边桩坐标进行正算。本程序可以在CASIO fx-4800P计算器及 CASIO fx-4850P计算器上运行。2.计算原理:利用Gauss-Legendre 5点通用公式计算线路中边桩坐标并计算放样数据。 利用待求点至线元起点切线作垂线,逐次迭代趋近原理反算里程及边距。二、使用说明1、规定 1 以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时, Q -1;当线元往右偏时,Q 1。 2 ??当线元为直线时,其起点、止点的曲率半径为无穷大,以10的45次代替。 3 当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于圆弧的半径。 4 当线元为完整缓和曲线时,起点与直线相接时,曲率半径为无穷大,以10的45次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半径为无穷大,以10的45次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。 当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半径等于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径。当所求点位于中线时, 0;当位于中线左侧时,取负值;当位于中线右侧时,取正值 A YJJ 为右夹角(0≦W≦180) 输出 X ********* 计算的X坐标值 Y ********* 计算的Y坐标值 QXFWJ
文档评论(0)