卡西欧5800基本测量程序完整版.docx
- 文档编号:12442589
- 上传时间:2023-06-05
- 格式:DOCX
- 页数:10
- 大小:16.79KB
卡西欧5800基本测量程序完整版.docx
《卡西欧5800基本测量程序完整版.docx》由会员分享,可在线阅读,更多相关《卡西欧5800基本测量程序完整版.docx(10页珍藏版)》请在冰点文库上搜索。
卡西欧5800基本测量程序完整版
卡西欧5800程序
(完整版)
说明:
本程序适用于公路、桥梁、隧道测量。
本程序简单、方便、快捷、拓展功能宽,使用时只需按曲线要素表输入一次就可以计算整条线路(包括高程、超高段横坡),能正、反算,在已知坐标下可以反算出该点桩号及相对宽度,拓展功能有,放边、仰坡、隧道断面测量、开挖轮廓线等。
主程序:
MAIN
"ZH(θ)F(1)"M↓(0为正算、1为反算)
IfM=θ:
Then"ZHUANGHAO"A:
"KUANDU"W:
Else"X="H:
"Y="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=θ:
ThenIfA Thengoto1: IfEnd: IfEnd↓ Prog"ZFXZ"↓ IfK=θ: Thengoto2: IfEnd↓ …………(中间交点参数) Prog"ZFXZ"↓ IfK=θ: Thengoto2: IfEnd↓ …………(最后一个交点参数) IfM=θ: ThenIfA>P-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→M: 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↓ 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-P+T-L→B: θ→0: L-L^3÷(90R2)→C: KL÷(6R)→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" QDZB N→X: E→Y: T→C↓ IfA>P-T+S-L: ThenV→J: ElseU+18θ→J: IfEnd↓ Prog"XZBH"↓ X→Z〔5〕: Y→Z〔6〕 JDTZ IfZ〔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↓ 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 IfA≤P-T+S+D: ThenProg"QXCS": θ→K: IfEnd↓ FSPD IfK=-1: ThenIfZ〔1〕 ThenIfF≤Z〔1〕: ThenGoto1: IfEnd: IfF≥Z〔2〕: ThenGoto1: IfEnd: ElseIfF≤Z〔1〕: ThenF≥Z〔2〕: ThenGoto1: IfEnd: IfEnd: IfEnd: IfEnd↓ IfK=1: ThenIfZ〔1〕>Z〔2〕: ThenIfF≥Z〔1〕: ThenGoto1: IfEnd: IfF≤Z〔2〕: ThenGoto1: IfEnd: ElseIfF≥Z〔1〕: ThenIfF≤Z[2]: ThenGoto1: IfEnd: IfEnd: IfEnd: IfEnd↓ θ→A: Goto2↓ Lb11↓ IfO=θ: ThenProg"FSYUAN": IfEnd↓ IfO=1: ThenProg"FSHHQX": IfEnd↓ 1→A↓ Lb12 FSTJ U-90K→Z[1]↓ V-90K→Z[2]↓ Prog"JDTZ"↓ P-T→A↓ -1→O↓ Prog"JDZB"↓ Prog"FSPD"↓ IfA=θ: ThenGoto1: IfEnd↓(有改) Z[1]→Z[1]: Z[1]+K(L÷(2R))r→Z[2]: 1→O↓ Prog"JDTZ"↓ Prog"JDZB"↓ Prog"FSPD"↓ IfA=1: Thenθ→K: Goto2: IfEnd↓ Z[5]→X: Z[6]→Y: (KL)÷(6R)→F: L-L^3÷(90R2)→C: U+Fr→J↓ Prog"XZBH"↓ U+3Fr+90K→J: R→C↓ Prog"XZBH"↓ X→G: Y→Z↓ Prog"FWJ"↓ Z[2]→Z[1]: Z[1]+K((S-2L)÷R)r→Z[2]: θ→0↓ Prog"JDTZ"↓ Prog"FSPD"↓ IfA=1: Thenθ→K: Goto2: IfEnd↓ -K→K: V+9θK→Z[1]: Z[1]+K(L÷(2R))r→Z[2]: 1→O↓ Prog"JDTZ"↓ P-T+S→A↓ Prog"JDZB"↓ Prog"FSPD"↓ IfA=1: Thenθ→K: Goto2: IfEnd↓ Lb11↓ IfD>θ: ThenP-T+S→A: Prog"FSLINE": IfA=1: Thenθ→K: IfEnd: IfEnd↓ Lb12 FSYUAN "YUAN"↓ 36θ+K(F-Z[1])→F↓ F≥36θ⇒F-36θ→F⊿↓ P-T+L+πRF÷18θ→Z: IfK=1: ThenR-I→B: ElseI-R→B: IfEnd↓ FSHHQX "HHQX"↓ Z[5]→X: Z[6]→Y↓ Z[1]+18θ→J: R→C↓ Prog"XZBH"↓ X→G: Y→Z↓ Z[5]→X: Z[6]→Y↓ Prog"DOTLINE"↓ IfI<1: Thenθ→B: Goto3: ElseI→B: Prog"FSHHQX1": I→Z[7]: B+I÷10→B: Prog"FSHHQX1": IfI>Z[7]: ThenGoto1: Else: Goto2: IfEnd: IfEnd↓ Lb11↓ B-I÷2→B: Prog"FSHHQX1"↓ IfI<1: Then-I→I: Goto3: ElseGoto1: IfEnd↓ Lb12↓ B+I÷2→B: Prog"FSHHQX1"↓ IfI<1: ThenGoto3: ElseGoto2: IfEnd↓(有改) Lb13↓ IfA>P-T+L: ThenP-T+S-B-I→Z: ElseP-T+B+I→Z: IfEnd↓ IfK=1: ThenIfA ThenD-E→B: ElseE-D→B: IfEnd: IfEnd↓ IfK=-1: ThenIfA ThenE-D→B: ElseD-E→B: IfEnd: IfEnd FSHHQX1 Z[5]→X: Z[6]→Y: Z[1]+9θK→J↓ Prog"HHQX"↓ X→Z[3]: Y→Z[4]↓ R→C: J+2Fr+9θK→J↓ Prog"XZBH"↓ X→G: Y→Z↓ Z[3]→X: Z[4]→Y↓ Prog"DOTLINE" JDZB Prog"QDZB"↓ Z[5]→Z[3]: Z[6]→Z[4]↓ IfO=-1: ThenP-T+S→A: Prog"QDZB": Z[3]→Z[5]: Z[4]→Z[6]: ElseZ[1]+9θK+K(L÷(6R))r→J: L-L^3÷(9θR2)→C: Prog"XZBH": IfEnd↓ (Z[6]-Y+Xtan(Z[2])-Z[5]tan(Z[1]))÷(tan(Z[2])-tan(Z[1]))→G↓ tanZ[2](G-X)+Y→Z↓ Prog"FWJ" ZFXZ IfM=θ: ThenProg"ZSPD": ElseProg"FSTJ": IfEnd FSLINE Prog"QDZB"↓ X→G: Y→Z: J→N↓ Prog"FWJ"↓ N→J: F-J→F↓ Icos(F)→G↓ IfG≤D: ThenIfA>P-T+S-L: ThenP-T+S+G→Z: Isin(F)→B: ElseP-T-G→Z: -Isin(F)→B: IfEnd: 1→A: 2→O: Elseθ→A: IfEnd XZBH X+Ccos(J)→X↓ Y+Csin(J)→Y HENGPO IfA≤P-T+L-Z[10]: ThenZ[8]→V: Goto1: IfEnd↓ IfA≤P-T+L: Then(Z[9]-Z[8])÷Z[10]→E: Z[8]+(A-P+T-L+Z[10])E→V: Goto1: IfEnd↓ IfA≤P-T+S-L: ThenZ[9]→V: Goto1: IfEnd↓ IfA≤P-T+S-L+Z[10]: Then(Z[8]-Z[9])÷Z[10]→E: Z[9]+(A-P+T-S+L)E→V: Goto1: IfEnd↓ Z[8]→V↓ Lb11 GAOCHENG ……(交点桩号)→O: ……(交点高程)→D: ……(小桩号坡度)→N: ……(切线长度)→G: ……(圆曲线半径)→R↓ IfA≤O-G: Thenθ→K: Goto1: IfEnd↓ IfA≤O+G: Then1→K: Goto1: IfEnd↓(K=0为直线、K=1为凸圆、K=-1为凹圆) ……(同上) Lb11: Prog"HENGPO"↓ K(A-O+G)2÷(2R)→P↓ D+N(A-O)-P+WV→F↓ "DM": F◢ FWJJS(测回法测坐标) A"XA": B"YA": C"XB": D"YB": K"CHANGDU": G"JIAODU"↓ I=0: J=0: Pol(C-A,D-B): J<0⇒J=J+360⊿↓ E=J+G↓ J"FWJ"◢ X"X"=A+KcosE◢ Y"Y"=B+KsinE◢ "-------END-------" 说明: "JIAODU"顺时钟为正、逆时针为负,"XA"、"YA"为测站点坐标、"XB"、"YB"为后视点坐标,"X"、"Y"为前视即待测点坐标,"CHANGDU"为测站点到待测点距离。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 卡西欧 5800 基本 测量 程序 完整版