- 1、本文档共4页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
卡西欧5800P计算器曲线任意里程中边桩坐标正反算
卡西欧5800P计算器曲线任意里程中边桩坐标正反算
一、程序功能
????????本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序(SDYX)构成,可以根据直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算。
??二、源程序
增加变量16→DimZ
1.主程序(ZHUCHENXU)
1.SZ → XY,2.XY → SZ,3.SDYX,4. BIANPO ?N:
Lbl 1:”ZHUANGHAO=”?S: Prog SUB3: N≥2=Goto 2: Abs(S-O)→W:”BIANZHU=”?→Z:Prog SUB1: XS=”:X→XYS=”:Y→Y◢FS=”:(F-90) →F:F#9658;DMS◢Prog FA:Goto 1:
Lbl 2:”CX=”?X: X→I:”CY=”?Y: Y→J:”DMG=”?→Z[7]:Prog SUB2: S=:(O+W) →SZ=Z→Z◢If N=3:Then Prog”SDYX”: IfEnd :If N=4:Then Prog”BIANPO”:IfEnd:Goto 2
2. 正算子程序(SUB1)
0.1739274226 →Z[1]: 0.3260725774→B: 0.0694318442→K: 0.3300094782→L: (1-L) →F: (1-K)→M: U+W(Z[1]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+Z[1]cos(G+QEMW(C+MWD))) →X: V+W(Z[1]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))
+Bsin(G+QEFW(C+FWD))+Z[1]sin(G+QEMW(C+MWD))) →Y: G+QEW(C+WD)+90→F: X+ZcosF→X: Y+ZsinF→Y
3. 反算子程序(SUB2)
G-90 →Z[2]: Abs((Y-V)cosZ[2]-(X-U)sinZ[2]) →W: 0→Z:Lbl 0:Prog SUB1: Z[2]+QEW(C+WD) →L: (J-Y)cosL-(I-X)sinL→Z:
If Abs(Z)1E-6:Then Goto1:Else W+Z→W:Goto 0: IfEnd
Lbl 1: 0→Z:Prog SUB1: (J-Y)÷sinF→Z
4. 数据库(SUB3)
If S226100:Then Cls:Stop: IfEnd
If S226255.833:Then 226100→O: 99037.9736→U: 4282.3590→V: 201.3266304→G: 1045→P: 1045→R: 253.543→H: 0→Q: Goto 1:IfEnd
……
……
If S236005.651:Then Cls:Stop: IfEnd
Lbl 1: 1÷P→C:(P-R)÷(2HPR) →D:180÷π→E:
5. 算方位角程序(FA)
LbI0:“XC=”? A : “YC=”? T :X:Y
0→J: POI(X-A,Y-T)→I:“BC=”:IIf J<0 Then 360+J→J:ElseJ→J :IfEnd
“FW=”:J#9658;DMS??Goto0
6. 使用方位角算坐标(NE)
LbI0:“X=”? X: “Y=”? Y: “L=”? L:“F0”?F: L×Cos(F)+X→N: “N=”NL×Sin(F)+Y→E: “E=”E
Goto0
7. 边坡放样程序(BIANPO)
“QPDJL=”? → Z[3]: “QPDGD=”? → Z[4]: “PG=” ? → Z[5]:2→Z[6]: “P1=” ? → Z[8]: “P2=” ? → Z[9]: “P3=” ? → Z[10] (没有的话就删): Z[7]-Z[4] → Z[11]:If Z[11]〈0 Then??AbsZ[11] →Z[11]: “T=”:Z[11] Else“W=”:Z[11] IfEnd
Z[11]÷Z[5] →Z[12]:If Z[12]〈1 Then Z[8]×Z[11] →Z[13]:Else Z[8]×Z[5]+Z[9]×Z[5]×(Z[12]-1)→Z[13]:IfEnd: AbsZ-(Z[13]+Z[6]
您可能关注的文档
最近下载
- 肝脏常见疾病超声诊断.pptx VIP
- 化工设备机械基础课件-梁的弯曲.ppt VIP
- 新版配电网规划设计技术导则QGDW 10738—2020.pdf VIP
- 质保期服务承诺及维保.doc
- DL/T5437-2009《火力发电建设工程启动试运及验收规程》.pdf
- Chapter 4 Intercultural Communication Barriers Chapter 3 Culture’s Influence on Perception 大学英语跨文化交际 教学课件.ppt VIP
- 做酸奶ppt课件完整版.ppt
- 拉伸压缩与剪切扭转课件.ppt VIP
- 天然气井溢流井喷预防与压井现场处理技术.pptx
- 4008S血液滤过机规范操作流程.ppt VIP
文档评论(0)