欢迎来到天天文库
浏览记录
ID:60792310
大小:32.50 KB
页数:14页
时间:2020-12-19
《卡西欧5800基本测量程序(完整版)上课讲义.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、精品好文档,推荐学习交流卡西欧5800程序(完整版)仅供学习与交流,如有侵权请联系网站删除谢谢-13-精品好文档,推荐学习交流说明:本程序适用于公路、桥梁、隧道测量。本程序简单、方便、快捷、拓展功能宽,使用时只需按曲线要素表输入一次就可以计算整条线路(包括高程、超高段横坡),能正、反算,在已知坐标下可以反算出该点桩号及相对宽度,拓展功能有,放边、仰坡、隧道断面测量、开挖轮廓线等。主程序:MAIN"ZH(θ)F(1)"?M↓(0为正算、1为反算)IfM=θ:Then"ZHUANGHAO"?A:"KUANDU"?W:Else"X="?H:"Y
2、="?W:"Z="?Q:IfEnd↓(第一个交点参数)(交点桩号)…→P:(切线长度)…→T:(曲线总长)…→S:(圆半径)…→R=:(缓和曲线长)…→L:(第一方位角)…→U:(第二方位角)…→V:(交点X坐标)…→N:(交点Y坐标)…→E:(第一直线长、无为0)…→D:(第一坡度)…→Z〔8〕:(第二坡度)…→Z〔9〕:(缓和曲线超高段长度)…→Z〔10〕:(曲线偏向,右偏为+1,左偏为-1)…→K↓IfM=θ:ThenIfA3、fEnd↓…………(中间交点参数)Prog"ZFXZ"↓IfK=θ:Thengoto2:IfEnd↓…………(最后一个交点参数)IfM=θ:ThenIfA>P-T+S+D:ThenGoto1:IfEnd:IfEnd↓Prog"ZFXZ"↓仅供学习与交流,如有侵权请联系网站删除谢谢-13-精品好文档,推荐学习交流IfK=θ:Thengoto2:IfEnd↓Lb11:"NOTASK"↓Lb12:IfM=1:ThenIfA=1:Then"ZHUANGHAO":Z◢"SJKUANDU":B◢IfEnd:IfEnd↓"-------END-----4、--"KUANDU(拓展功能程序,用于反算)1→M:Prog"MAIN"↓Z→A:W→E:θ→W↓Prog"GAOCHENG"↓E→W↓Q-F→P↓IfP≤……(从小至大):Then……→D:Goto1:IfEnd↓……(同上)Lb11↓"……":D◢(同上)◢"----------END---------"YUANK(B÷(2R))→F↓2RSin(KFr)→C↓J+Fr→J↓仅供学习与交流,如有侵权请联系网站删除谢谢-13-精品好文档,推荐学习交流Prog"XZBH"HHQXB-B^5÷(9θ(RL)2)→C↓KB2÷(6RL)→F↓5、J+Fr→J↓Prog"XZBH"PYJSIfO=θ:Then"YUAN":J+Fr→J:IfEnd↓IfO=1:Then"HHQX":J+2Fr→J:IfEnd↓IfO=2:Then"LINE":J+18θ→J:IfEnd↓W→C↓IfA>P-T+S-L:ThenJ-9θ→J:ElseJ+9θ→J:IfEnd↓Prog"XZBH"↓"X=":X◢"Y=":Y◢QXCS(有改)Prog"QDZB"↓IfA≤P-T+L:ThenA-P+T→B:U→J:1→O:Prog"HHQX":Goto1:IfEnd↓IfA≤P-T+S-L:ThenA-6、P+T-L→B:θ→0:L-L^3÷(90R2)→C:KL÷(6R)仅供学习与交流,如有侵权请联系网站删除谢谢-13-精品好文档,推荐学习交流→F:U+Fr→J:Prog"XZBH":U+3Fr→J:Prog"YUAN":Goto1:IfEnd↓IfA≤P-T+S:ThenP-T+S-A→B:1→O:-K→K:V+180→J:Prog"HHQX":Goto1:IfEnd↓IfA≤P-T+S+D:Then2→O:A-P+T-S→C:Prog"XZBH":IfEnd↓Lb11:↓Prog"PYJS"↓Prog"GA0CHENG"QDZBN→X7、:E→Y:T→C↓IfA>P-T+S-L:ThenV→J:ElseU+18θ→J:IfEnd↓Prog"XZBH"↓X→Z〔5〕:Y→Z〔6〕JDTZIfZ〔1〕<θ:ThenZ〔1〕+36θ→Z[1]:IfEnd↓IfZ〔1〕≥36θ:ThenZ〔1〕-36θ→Z[1]:IfEnd↓IfZ〔2〕<θ:ThenZ〔2〕+36θ→Z[2]:IfEnd↓IfZ〔2〕≥36θ:ThenZ〔2〕-36θ→Z[2]:IfEnd↓FWJθ→I:θ→J↓仅供学习与交流,如有侵权请联系网站删除谢谢-13-精品好文档,推荐学习交流Pol(H-G,W-Z)↓8、J<θ⇒J+36θ→J↓J→FDOTLINEPol(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-
3、fEnd↓…………(中间交点参数)Prog"ZFXZ"↓IfK=θ:Thengoto2:IfEnd↓…………(最后一个交点参数)IfM=θ:ThenIfA>P-T+S+D:ThenGoto1:IfEnd:IfEnd↓Prog"ZFXZ"↓仅供学习与交流,如有侵权请联系网站删除谢谢-13-精品好文档,推荐学习交流IfK=θ:Thengoto2:IfEnd↓Lb11:"NOTASK"↓Lb12:IfM=1:ThenIfA=1:Then"ZHUANGHAO":Z◢"SJKUANDU":B◢IfEnd:IfEnd↓"-------END-----
4、--"KUANDU(拓展功能程序,用于反算)1→M:Prog"MAIN"↓Z→A:W→E:θ→W↓Prog"GAOCHENG"↓E→W↓Q-F→P↓IfP≤……(从小至大):Then……→D:Goto1:IfEnd↓……(同上)Lb11↓"……":D◢(同上)◢"----------END---------"YUANK(B÷(2R))→F↓2RSin(KFr)→C↓J+Fr→J↓仅供学习与交流,如有侵权请联系网站删除谢谢-13-精品好文档,推荐学习交流Prog"XZBH"HHQXB-B^5÷(9θ(RL)2)→C↓KB2÷(6RL)→F↓
5、J+Fr→J↓Prog"XZBH"PYJSIfO=θ:Then"YUAN":J+Fr→J:IfEnd↓IfO=1:Then"HHQX":J+2Fr→J:IfEnd↓IfO=2:Then"LINE":J+18θ→J:IfEnd↓W→C↓IfA>P-T+S-L:ThenJ-9θ→J:ElseJ+9θ→J:IfEnd↓Prog"XZBH"↓"X=":X◢"Y=":Y◢QXCS(有改)Prog"QDZB"↓IfA≤P-T+L:ThenA-P+T→B:U→J:1→O:Prog"HHQX":Goto1:IfEnd↓IfA≤P-T+S-L:ThenA-
6、P+T-L→B:θ→0:L-L^3÷(90R2)→C:KL÷(6R)仅供学习与交流,如有侵权请联系网站删除谢谢-13-精品好文档,推荐学习交流→F:U+Fr→J:Prog"XZBH":U+3Fr→J:Prog"YUAN":Goto1:IfEnd↓IfA≤P-T+S:ThenP-T+S-A→B:1→O:-K→K:V+180→J:Prog"HHQX":Goto1:IfEnd↓IfA≤P-T+S+D:Then2→O:A-P+T-S→C:Prog"XZBH":IfEnd↓Lb11:↓Prog"PYJS"↓Prog"GA0CHENG"QDZBN→X
7、:E→Y:T→C↓IfA>P-T+S-L:ThenV→J:ElseU+18θ→J:IfEnd↓Prog"XZBH"↓X→Z〔5〕:Y→Z〔6〕JDTZIfZ〔1〕<θ:ThenZ〔1〕+36θ→Z[1]:IfEnd↓IfZ〔1〕≥36θ:ThenZ〔1〕-36θ→Z[1]:IfEnd↓IfZ〔2〕<θ:ThenZ〔2〕+36θ→Z[2]:IfEnd↓IfZ〔2〕≥36θ:ThenZ〔2〕-36θ→Z[2]:IfEnd↓FWJθ→I:θ→J↓仅供学习与交流,如有侵权请联系网站删除谢谢-13-精品好文档,推荐学习交流Pol(H-G,W-Z)↓
8、J<θ⇒J+36θ→J↓J→FDOTLINEPol(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-
此文档下载收益归作者所有