卡西欧5800基本测量程序(完整版).docxVIP

PAGE 1 PAGE 1 卡西欧5800基本测量程序(完整版) 卡西欧5800程序  (完整版)  说明：本程序适用于公路、桥梁、隧道测量。本程序简洁、便利、快捷、拓展功能宽，使用时只需按曲线要素表输入一次就可以计算整条线路（包括高程、超高段横坡），能正、反算，在已知坐标下可以反算出该点桩号及相对宽度，拓展功能有，放边、仰坡、隧道断面测量、开挖轮廓线等。  主程序:MAIN  ＂ZH（θ）F（１）＂M↓(0为正算、1为反算)  IfM=θ:Then＂ZHUANGHAO＂A：＂KUANDU＂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↓  IfM=θ:ThenIfAP-T+S+D:ThenGoto1:IfEnd:IfEnd↓Prog＂ZFXZ＂↓  IfK=θ:Thengoto2:IfEnd↓  Lb11：＂NOTASK＂↓  Lb12：IfM=1:ThenIfA=1:Then＂ZHUANGHAO＂:Z◢＂SJKUANDU＂:B◢  IfEnd:IfEnd↓  ＂END＂  KUANDU（拓展功能程序，用于反算）  1→Ｍ:Prog＂MAIN＂↓  Z→A:W→E:θ→W↓  Prog＂GAOCHENG＂↓  E→W↓  Q-F→P↓  IfP≤……(从小至大):Then……→D:Goto1:IfEnd↓……(同上)  Lb11↓  ＂……＂:D◢  (同上)◢  ＂END＂  YUAN  K(B÷(2R))→F↓  2RSin(KFr)→C↓  J+Fr→J↓  Prog＂XZBH＂  HHQX  B-B^5÷(9θ(RL)2)→C↓  KB2÷(6RL)→F↓  J+Fr→J↓  Prog＂XZBH＂  PYJS  IfO=θ:Then＂YUAN＂:J+Fr→J:IfEnd↓  IfO=1:Then＂HHQX＂:J+2Fr→J:IfEnd↓  IfO=2:Then＂LINE＂:J+18θ→J:IfEnd↓  W→C↓  IfAP-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-P+T-L→B:θ→0:L-L^3÷(90R2)→C:KL÷(6R)→F:U+Fr→J:Prog＂XZBH＂:U+3Fr→J:Prog＂YUAN＂:Goto  1: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＂  QDZB  N→X:E→Y:T→C↓  IfAP-T+S-L:ThenV→J:ElseU+18θ→J:IfEnd↓  Prog＂XZBH＂↓  X→Z〔5〕:Y→Z〔6〕  JDTZ  IfZ〔1〕Z〔2〕:ThenIfF≥Z〔1〕:ThenGoto1:IfEnd:IfF≤Z〔2〕:ThenGoto1:IfEnd:ElseIfF≥Z〔1〕:Then  IfF≤Z:ThenGoto1:IfEnd:IfEnd:IfEnd:IfEnd↓  θ→A:Goto2↓  Lb11↓  IfO=θ:ThenProg＂FSYUAN＂:IfEnd↓  IfO=1:ThenProg＂FSHHQX＂:IfEnd↓  1→