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

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

卡西欧5800基本测量程序(完整版)
卡西欧5800 程序
(完整版)
说明:本程序适用于公路、桥梁、隧道测量。

本程序简单、方便、快捷、拓展功能宽,使用时只需按曲线要素表输入一次就可以计算整条线路(包括高程、超高段横坡),能正、反算,在已知坐标下可以反算出该点桩号及相对宽度,拓展功能有,放边、仰坡、隧道断面测量、开挖轮廓线等。

主程序:MAIN
"ZH(θ) F(1)"?M↓ (0为正算、1为反算)
If M=θ:Then "ZHUANG HAO"?A:"KUAN DU"?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 ↓
If M=θ:Then If A<P-T:Then goto 1 :IfEnd:IfEnd↓
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→M: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 1 :IfEnd :If F≤Z〔2〕:Then Goto 1 :IfEnd:Else If F≥Z〔1〕:Then If F≤Z[2]:Then Goto 1 :IfEnd:IfEnd:IfEnd:IfEnd↓
θ→A: Goto 2↓
Lb1 1↓
If O=θ:Then Prog"FSYUAN":IfEnd↓
If O=1:Then Prog"FSHHQX":IfEnd↓
1→A↓
Lb1 2
FSTJ
U-90K→Z[1]↓
V-90K→Z[2]↓
Prog"JDTZ"↓
P-T→A↓
-1→O↓
Prog"JDZB"↓
Prog"FSPD"↓
If A=θ:Then Goto 1 :IfEnd↓(有改)
Z[1]→Z[1]: Z[1]+K(L÷(2R))r→Z[2]:1→O↓
Prog"JDTZ"↓
Prog"JDZB"↓
Prog"FSPD"↓
If A=1:Then θ→K: Goto 2 :IfEnd↓
Z[5]→X:Z[6]→Y:(KL)÷(6R)→F:L-L^3÷(90R2)→C:U+F r→J↓Prog"XZBH"↓
U+3F r+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"↓
If A=1:Then θ→K:Goto 2: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"↓
If A=1:Then θ→K:Goto 2:IfEnd↓
Lb1 1↓
If D>θ:Then P-T+S→A:Prog"FSLINE":If A=1:Then θ→
K:IfEnd:IfEnd↓
Lb1 2
FSYUAN
"YUAN"↓
36θ+K(F-Z[1])→F ↓
F≥36θ⇒F-36θ→F⊿↓
P-T+L+πRF÷18θ→Z:If K=1:Then R-I→B: Else I-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"↓
If I<1:Then θ→B:Goto 3: Else I→B: Prog"FSHHQX1":I→
Z[7]:B+I÷10→B: Prog"FSHHQX1":If I>Z[7] :Then Goto 1: Else:Goto 2:IfEnd:IfEnd↓
Lb1 1↓
B-I÷2→B: Prog"FSHHQX1"↓
If I<1:Then -I→I:Goto 3: Else Goto 1:IfEnd↓
Lb1 2↓
B+I÷2→B: Prog"FSHHQX1"↓
If I<1:Then Goto 3: Else Goto 2:IfEnd↓(有改)
Lb1 3↓
If A>P-T+L:Then P-T+S-B-I→Z: Else P-T+B+I→Z:IfEnd↓
If K=1:Then If A<P-T+S-L:Then D-E→B: Else E-D→B:IfEnd:IfEnd ↓
If K=-1:Then If A<P-T+S-L:Then E-D→B: Else D-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+2F r+9θK→J↓
Prog"XZBH"↓
X→G:Y→Z↓
Z[3]→X:Z[4]→Y ↓
Prog"DOTLINE"
Prog"QDZB"↓
Z[5]→Z[3]:Z[6]→Z[4] ↓
If O=-1:Then P-T+S→A: Prog"QDZB":Z[3]→Z[5]:Z[4]→Z[6]: Else Z[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
If M=θ:Then Prog"ZSPD": Else Prog"FSTJ":IfEnd
FSLINE
Prog"QDZB"↓
X→G:Y→Z:J→N↓
Prog"FWJ"↓
N→J:F-J→F↓
Icos(F)→G↓
If G≤D:Then If A>P-T+S-L:Then P-T+S+G→Z:Isin(F)→B:Else P-T-G→Z:-Isin(F)→B:IfEnd :1→A:2→O: Else θ→A:IfEnd
X+Ccos(J)→X↓
Y+Csin(J)→Y
HENG PO
If A≤P-T+L-Z[10] :Then Z[8]→V:Goto 1:IfEnd↓
If A≤P-T+L:Then (Z[9]-Z[8])÷Z[10]→E:Z[8]+(A-P+T-L+Z[10])E→V: Goto 1:IfEnd↓
If A≤P-T+S-L:Then Z[9]→V:Goto 1:IfEnd↓
If A≤P-T+S-L+Z[10]:Then (Z[8]-Z[9])÷Z[10]→
E:Z[9]+(A-P+T-S+L)E→V: Goto 1:IfEnd↓
Z[8]→V ↓
Lb1 1
GAO CHENG
……(交点桩号)→O:……(交点高程)→D:……(小桩号坡度)→N:……(切线长度)→G:……(圆曲线半径)→R ↓
If A≤O-G:Then θ→K: Goto 1:IfEnd↓
If A≤O+G:Then 1→K: Goto 1:IfEnd↓
(K=0为直线、K=1为凸圆、K=-1为凹圆)
……(同上)
Lb1 1:Prog"HENG PO"↓
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"CHANG DU": G"JIAO DU"↓
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-------"
说明:
"JIAO DU"顺时钟为正、逆时针为负,"XA"、"YA"为测站点坐标、"XB"、"YB"为后视点坐标,"X"、"Y"为前视即待测点坐标,"CHANG DU"为测站点到待测点距离。

相关文档
最新文档