卡西欧5800基本测量程序完整版
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
卡西欧5800 程序
(完整版)
说明:本程序适用于公路、桥梁、隧道测量。本程序简单、方便、快捷、拓展功能宽,使用时只需按曲线要素表输入一次就可以计算整条线路(包括高程、超高段横坡),能正、反算,在已知坐标下可以反算出该点桩号及相对宽度,拓展功能有,放边、仰坡、隧道断面测量、开挖轮廓线等。
主程序:MAIN
＂ZH(θ) F(１)＂?M↓ (0为正算、1为反算)
If M=θ:Then ＂ZHUANG HAO＂?A:＂KUAN DU＂?W:Else＂Ｘ＝＂?H:＂Ｙ＝＂?W:＂Ｚ＝＂？Ｑ:IfEnd↓
(第一个交点参数)
(交点桩号)…→P:(切线长度)…→T:(曲线总长)…→S:(圆半径)…→R=:(缓与曲线长)…→L:(第一方位角)…→U:(第二方位角)…→V:(交点X坐标)…→N:(交点Y坐标)…→E:(第一直线长、无为0)…→D:(第一坡度)…→Z〔8〕:(第二坡度)…→ Z〔9〕: (缓与曲线超高段长度)…→Z〔10〕:(曲线偏向,右偏为+1,左偏为-1)…→K ↓
If M=θ:Then If A Prog＂ZFXZ＂↓ If K=θ:Then goto 2 :IfEnd↓ ………… (中间交点参数) Prog＂ZFXZ＂↓ If K=θ:Then goto 2 :IfEnd↓ ………… (最后一个交点参数) If M=θ:Then If A>P-T+S+D:Then Goto 1 :IfEnd:IfEnd↓Prog＂ZFXZ＂↓ If K=θ:Then goto 2 :IfEnd↓ Lb1 1:＂NO TASK＂↓ Lb1 2:If M=1:Then If A=1:Then ＂ZHUANG HAO＂:Z◢ ＂SJ KUAN DU＂:B◢ IfEnd:IfEnd↓ ＂-------END-------＂ KUAN DU (拓展功能程序,用于反算) 1→Ｍ:Prog＂MAIN＂↓ Z→A:W→E:θ→W↓ Prog＂GAO CHENG＂↓ E→W↓ Q-F→P↓ If P≤……(从小至大):Then ……→D:Goto 1:IfEnd↓……(同上) Lb1 1↓ ＂……＂:D◢ (同上) ◢ ＂----------END---------＂ YUAN K(B÷(2R))→F↓ 2R Sin(K F r)→C ↓ J+F r→J ↓ Prog＂XZBH＂ HHQX B-B^5÷(9θ(RL)2)→C ↓ KB2÷(6RL)→F ↓ J+ F r→J↓ Prog＂XZBH＂ PYJS If O=θ:Then＂YUAN＂:J+F r→J:IfEnd↓ If O=1:Then＂HHQX＂:J+2F r→J:IfEnd↓ If O=2:Then＂LINE＂:J+18θ→J:IfEnd↓ W→C↓ If A>P-T+S-L:Then J-9θ→J:Else J+9θ→J:IfEnd↓Prog＂XZBH＂↓ "X=":X◢ "Y=":Y◢ QXCS(有改) Prog＂QDZB＂↓ If A≤P-T+L:Then A-P+T→B:U→J:1→O: Prog＂HHQX＂: Goto 1 :IfEnd↓ If A≤P-T+S-L:Then A-P+T-L→B:θ→0:L-L^3÷(90R2)→C:KL÷(6R)→F:U+F r→J: Prog＂XZBH＂:U+3F r→J: Prog＂YUAN＂: Goto 1:IfEnd↓ If A≤P-T+S:Then P-T+S-A→B:1→O:-K→K:V+180→J: Prog＂HHQX＂: Goto 1 :IfEnd↓ If A≤P-T+S+D:Then 2→O:A-P+T-S→C: Prog＂XZBH＂:IfEnd↓ Lb1 1:↓ Prog＂PYJS＂↓ Prog＂GA0 CHENG＂ QDZB N→X:E→Y:T→C↓ If A>P-T+S-L:Then V→J: Else U+18θ→J:IfEnd↓ Prog＂XZBH＂↓ X→Z〔5〕:Y→Z〔6〕 JDTZ If Z〔1〕< θ:Then Z〔1〕+ 36θ→Z[1]:IfEnd↓ If Z〔1〕≥ 36θ:Then Z〔1〕- 36θ→Z[1]:IfEnd↓ If Z〔2〕< θ:Then Z〔2〕+ 36θ→Z[2]:IfEnd↓ If Z〔2〕≥ 36θ:Then Z〔2〕- 36θ→Z[2]:IfEnd↓ FWJ θ→I:θ→J↓ Pol(H-G,W-Z) ↓ J<θ⇒J+36θ→J↓ J→F DOTLINE Pol(H-X,W-Y):I→N↓ Pol(G-H,Z-W):I→E ↓ Pol(X-G,Y-Z):I→D↓ (N+E+D)÷2→I↓ √(I(I-N)(I-E)(I-D))→I ↓ 2I÷D→I ↓ ZSPD If A≤P-T+S+D:Then Prog＂QXCS＂:θ→K:IfEnd ↓ FSPD If K=-1:Then If Z〔1〕< Z〔2〕:Then If F≤Z〔1〕:Then Goto 1 :IfEnd:If F≥Z〔2〕:Then Goto 1 :IfEnd:Else If F≤Z〔1〕:Then F≥Z〔2〕:Then Goto 1 :IfEnd:IfEnd:IfEnd:IfEnd↓ If K=1:Then If Z〔1〕> Z〔2〕:Then If F≥Z〔1〕:Then Goto