卡西欧5800的公路测量程序.docx
- 文档编号:4423052
- 上传时间:2022-12-01
- 格式:DOCX
- 页数:14
- 大小:29.27KB
卡西欧5800的公路测量程序.docx
《卡西欧5800的公路测量程序.docx》由会员分享,可在线阅读,更多相关《卡西欧5800的公路测量程序.docx(14页珍藏版)》请在冰豆网上搜索。
卡西欧5800的公路测量程序
卡西欧5800的公路测量程序
相关搜索:
卡西欧,公路测量,程序
【分段线路坐标正反算程序】
主程序:
【XLZB-FD】
L1:
Ø.1739274226→B:
Ø.5-B→C:
1→U:
"1.KD→XY2.XY→KD"?
U:
IfU=1:
ThenProg"ZS-FD":
ElseProg"FS-FD":
IfEnd↙
子程序1:
【ZS-FD】
L1:
Ø→Z:
9Ø→V↙
L2:
LblØ:
"K"?
K:
Prog"ZZ-FD":
IfU≠Ø:
ThenGotoØ:
IfEnd:
"K.D"?
Z:
IfZ≠Ø:
Then"K.A"?
V:
F+V→F:
S+Zcos(F)→S:
T+Zsin(F)→T:
IfEnd↙
L3:
Fix3:
"K.X=":
S◢
L4:
"K.Y=":
T◢
L5:
Norm:
GotoØ↙
子程序2:
【FS-FD】
L1:
Lbl2:
{VW}:
"K.X"?
V:
"K.Y"?
W:
Ø→K↙
L2:
Lbl3:
Prog"ZZ-FD":
V-S→I:
W-T→J:
Pol(I,J):
J-F→J:
K+Rec(I,J)→K:
IfAbs(I)<1m:
ThenFix3:
"K=":
K◢:
"K.D=":
J◢
L3:
Norm:
ElseGoto3:
IfEnd↙
L4:
1→M:
"Ø.NEXT1.EXIT"?
M:
IfM=Ø:
ThenGoto3:
IfEnd:
Goto2↙
子程序3:
【ZZ-FD】
L1:
Prog"DATA-FD":
K-L→M:
(P-R)÷2PQR→O:
5→DimZ:
Ø.Ø694318442→Z[1]:
Ø.33ØØØ94782→Z[2]:
1→Z[3]:
1-Z[3]→Z[4]:
1-Z[2]→Z[5]↙
L2:
For1→Ito5:
A+MrZ[I](1÷P+OMZ[I])→Z[I]:
Next:
Z[3]→F↙
L3:
X+M(Bcos(Z[1])+Ccos(Z[2])+Ccos(Z[4])+Bcos(Z[5]))→S↙
L4:
Y+M(Bsin(Z[1])+Csin(Z[2])+Csin(Z[4])+Bsin(Z[5]))→T↙
子程序4:
【DATA-FD】
L1:
Ø→U:
IfK<(线路起点里程):
Then"<
":
1→U:
IfEnd:
IfK>(线路终点里程):
Then">>!
":
1→U:
IfEnd↙
L2:
(线元起点里程)→Q:
IfK≤L+Q:
Then(线元起点半径)→P:
(线元终点半径)→R:
(线元起点X坐标)→X:
(线元起点Y坐标)→Y:
(线元起点方位角)→A:
GotoE:
IfEnd:
L+Q→L↙
L3:
(重复L2)
L4:
LblE↙
输入说明:
L2开始每行程序为一个线元参数要素,有几个线元就输入几行。
直线半径按<1E45>输入。
功能常数可能位置会不同,请仔细查询;
******************************************************************************************************* 【完整线路坐标正反算程序】 主程序: 【XLFY-ALL】 L1: 5→DimZ: 1→Z: "1.KD→XY2.XY→KD"? Z: IfZ=1: ThenProg"ZS-ALL": ElseProg"FS-ALL": IfEnd↙ 子程序1: 【ZS-ALL】 L01: Z→Ø: V→9Ø↙ L02: LblØ: "K"? K: Prog"ZZ-ALL": IfZ[1]≠Ø: ThenGotoØ: IfEnd: "K.D"? Z: IfZ≠Ø: Then"K.A"? V: F+V→F: X+Zcos(F)→X: Y+Zsin(F)→Y: IfEnd↙ L03: Fix3: "K.X=": X◢ L04: "K.Y=": Y◢ L05: Norm: GotoØ↙ 子程序2: 【FS-ALL】 L01: Lbl8: "K.X"? V: "K.Y"? W: Ø→K↙ L02: Lbl9: Prog"ZZ-ALL": V-X→I: W-Y→J: Pol(I,J): J-F→J: K+Rec(I,J)→K: IfAbs(I)<1m: ThenFix3: "K=": K◢: "K.D=": J◢ L03: Norm: ElseGoto9: IfEnd↙ L04: 1→Z: "Ø.NEXT1.EXIT"? Z: IfZ=Ø: ThenGoto9: IfEnd: Goto8↙ 子程序3: 【ZZ-ALL】 L01: Prog"DATA-ALL": Abs(B)πR÷18Ø-(L+M)÷2→G↙ L02: L²÷24÷R-L^4÷2688÷R^3→P: L÷2-L^3÷24Ø÷R²→Q↙ L03: M²÷24÷R-M^4÷2688÷R^3→U: M÷2-M^3÷24Ø÷R²→O↙ L04: (R+U-(R+P)cos(Abs(B)))÷sin(Abs(B))+Q→T: (R+P-(R+U)cos(Abs(B)))÷sin(Abs(B))+O→S: J-T+1m→D↙ L05: IfK≤D: ThenGoto1: IfEnd: IfK≤D+L: ThenK-D→C: L→U: Goto2: IfEnd: IfK≤D+L+G: Then1→C: Goto3: IfEnd: IfK≤D+M+L+G: ThenK-D-M-L-G→C: M→U: Goto2: IfEnd: IfK>D+M+L+G: ThenK-D-L-M-G→C: Goto5: IfEnd↙ L06: Lbl1: E+(J-K)cos(A+18Ø)→X: N+(J-K)sin(A+18Ø)→Y: A→F: GotoE↙ L07: Lbl2: C-C^5÷(4ØR²U²)+C^9÷(3456R^4U^4)→H: C^3÷(6RU)-C^7÷(336R^3U^3)+C^11÷(4224ØR^5U^5)→I: IfC=K-D: ThenGoto4: IfEnd: Goto6↙ L08: Lbl3: 9Ø(2K-2D-L)÷π÷R→U: Rsin(U)+Q→H: R(1-cos(U))+P→I↙ L09: Lbl4: IfB<Ø: Then-I→I: IfEnd: E+Tcos(A+18Ø)+Hcos(A)+Icos(A+9Ø)→X: N+Tsin(A+18Ø)+Hsin(A)+Isin(A+9Ø)→Y: Goto7↙ L10: Lbl5: A+B→F: E+(C+S)cos(F)→X: N+(C+S)sin(F)→Y: GotoE↙ L11: Lbl6: IfB>Ø: Then-I→I: IfEnd: E+(S+H)cos(A+B)+Icos(A+B+9Ø)→X: N+(S+H)sin(A+B)+Isin(A+B+9Ø)→Y↙ L12: Lbl7: R→U: IfB<Ø: Then-R→U: IfEnd: IfC=K-D: ThenA+9ØC²÷(πUL)→F: IfEnd: IfC=K-D-L-M-G: ThenA+B-9ØC²÷(πUM)→F: IfEnd: IfC=1: ThenA+18Ø(K-D-L÷2)÷π÷U→F: IfEnd↙ L13: LblE↙ 子程序4: 【DATA-ALL】 L1: Ø→Z[1]: IfK<(线路起点里程): Then"< ": 1→Z[1]: IfEnd: IfK>(线路终点里程): Then">>! ": 1→Z[1]: IfEnd↙ L2: IfK≤(起点或上一段曲线缓直点里程): Then(交点里程)→J: (交点X坐标)→E: (交点Y坐标)→N: (半径)→R: (第一缓和曲线长度)→L: (第二缓和曲线长度)→M: (偏角)→B: (起始边方位角)→A: GotoE: IfEnd↙ L3: (重复L2) L4: LblE 简要说明: 每行程序为一个曲线的参数要素,有几个曲线就输入几行。 ******************************************************************************************************* 【中桩标高计算程序】 主程序: 【H-SJ】 L1: LblØ: "K"? K: Prog"DATA-H"↙ L2: Abs(R(G-F))÷200→T↙ L3: IfK≤N-T: ThenO-0.01F(N-K)→S: Goto1: IfEnd↙ L4: IfK≤N: ThenO-0.01F(N-K)-(T+K-N)^2÷R÷2→S: Goto1: IfEnd↙ L5: IfK≤N+T: ThenO-0.01G(N-K)-(T+N-K)^2÷R÷2→S: Goto1: IfEnd↙ L6: IfK>N+T: ThenO-0.01G(N-K)→S: IfEnd↙ L7: Lbl1: Fix3: "H=": S◢Norm: GotoØ↙ 子程序4: 【DATA-SJ】 L1: Ø→Z: IfK<(线路起点里程): Then"< ": 1→Z: IfEnd: IfK>(线路终点里程): Then">>! ": 1→Z: IfEnd↙ L2: IfK≤(起点或上一段竖曲线终止里程): Then(变坡点里程)→N: (变坡点高程)→O: (竖曲线半径<凸+凹->)→R: (前纵坡值)→F: (后纵坡值)→G: GotoE: IfEnd↙ L3: (重复L2) L4: LblE ******************************************************************************************************* 【坡脚宽度计算程序】 程序名: 【PJD】 L1: 25→L: 2.5→G: 1.5→T: 8→N: 0.9→A: 0.9→B: 1.10→C: 1.5→D: "H-SJ"? S↙ L2: Lbl1: "H-DM"? M: Abs(S-M)→H↙ L3: IfS-M≥0: ThenL+HD→K: Goto2: IfEnd↙ L4: IfH≤N: ThenL+G+HA→K: Goto2: IfEnd↙ L5: IfH≤2N: ThenL+G+NA+T+(H-N)B→K: Goto2: IfEnd↙ L6: IfH>2N: ThenL+G+NA+T+NB+T+(H-2N)C→K: Goto2: IfEnd↙ L7: Lbl2: Fix3: "L-PJ=": K◢↙ L8: Norm: Goto1↙ ******************************************************************************************************* 【坐标反算程序】 程序名: 【XY-DF】 L1: Ø→I: Ø→J: "A.X"? D: "A.Y"? G: "B.X"? X: "B.Y"? Y: Pol((X-D),(Y-G)): IfJ<Ø: ThenJ+36Ø→J: IfEnd↙ L2: Fix5: "AB-AZIMUTH=": J◢ L3: Fix3: "AB-DIST=": I◢ L4: Norm↙ ******************************************************************************************************* 【坐标正算程序】 程序名: 【DF-XY】 L1: "A.X"? D: "A.Y"? G: "AB-AZIMUTH"? J: "AB-DIST"? I↙ L2: Fix3: "B.X=": D+Icos(J)→X◢ L3: "B.Y=": G+Isin(J)→Y◢ L4: Norm↙ ******************************************************************************************************* 【面积计算程序】 程序名: 【AREA】 L1: LblØ: "M"? M: "N"? N: M→E: N→F: Ø→S↙ L2: Lbl1: "X"? X: "Y"? Y: S-(XN-YM)÷2→S: IfX=E: ThenIfY=F: Then"AREA=": Abs(S)→S◢GotoØ: IfEnd: IfEnd↙ L3: X→M: Y→N: Goto1↙ ******************************************************************************************************* 【两直线交点计算程序】 程序名: 【JD】 L1: "1.X"? A: "1.Y"? B: "2.X"? C: "2.Y"? D: "3.X"? E: "3.Y"? F: "4.X"? G: "4.Y"? H↙ L2: C-A→N: D-B→O: G-E→P: H-F→Q: QN-OP→K: NB-OA→U: PF-QE→V↙ L3: Fix3: "P.X=": (PU-NV)÷K→X◢↙ L4: "P.Y=": (QU-OV)÷K→Y◢ L5: Norm↙ ******************************************************************************************************* 【点到直线距离计算程序】 程序名: 【PLDIST】 L1: "P.X"? A: "P.Y"? B: "L1.X"? E: "L1.Y"? F: "L2.X"G: "L2.Y"? H↙ L2: Pol((G-E),(H-F)): J-90→J↙ L3: A+10cos(J)→C: B+10sin(J)→D↙ L4: C-A→N: D-B→O: G-E→P: H-F→Q: QN-OP→K: NB-OA→U: PF-QE→V↙ L5: (PU-NV)÷K→X: (QU-OV)÷K→Y: Pol((X-A),(Y-B))↙ L6: Fix3: "AB-DIST=": I◢ L7: Norm↙ CASIO5800计算器测量计算程序 2009-08-1714: 51: 21来自: ritsing(祥瑞之士) 简要介绍: 1.新版程序把线元法和交点法已经集成在一个模块中了,用户只需修改JD程序和ZA程序中的数据部分即可,其余不需作任何的改动。 2.因为每条路高程计算不尽相同,且比较复杂,现在可利用PC机EXCEL计算好打印成表格带到工地上使用,所以本版程序未对线路高程序进行专门的编程计算,而是利用统计计算模式中来输入桩号(第一列X)及左、右高程(第二、三列Y,Freq),这种输入数据的方式最为直观,易发现错误,也易修改,输入完毕后运行S程序对数据按桩号进行排序,在程序中通过调用GG程序来进行内插计算,SG=-1得左标高,SG=1得右标高(若SG输入0,则可进行一般的线性内插计算)。 3.在JD程序和XY程序中,先将一个计算单元的数据置入矩阵F中(1行8列或1行9列),这样程序可读性极好。 4.相比原CASIO4850程序操作习惯,作了一点小小的改动,测站坐标存在Z[10],N中,X坐标原存在M中容易被误操作修改,而设计标高存在M中,这样易于修改,因为CASIO5800没有IN,OUT功能,很不方便。 4.程序利用Z[2]变量值来判断是采用交点法还是线元法模型计算,Z[2]=0为线元法,否则为交点法。 一、PQX程序: 计算中边桩坐标及近似的桩号反算,在运行模式直接调用。 ①Z[10]→S: ”XO”? S: S→Z[10]: ”YO”? N: Prog“AU” ②Lbl2: ? L: Prog“Z”: Prog“E”: 1n→O: 90→S ③Lbl4: ”JJ”? S: ”YC”? O: SO=0=>Goto2‘原来lbl后没有标号4的。 ④O=-1=>Goto6 ⑤“X,Y”: R+OCos(Z+S)→X▲U+OSin(Z+S)→Y▲Prog“D”: Goto4 ⑥Lbl6: Z[7]→X: Z[8]→Y: ”XF”? X: ”YF”? Y: XY=0=>Goto4 ⑦X→Z[7]: Y→Z[8]: Pol(X-R,Y-U+1p): Z+S-J→J: ”YC,DL,L”: ICos(J)→O▲ISin(J)→I▲L+I▲Goto6 二、P程序: 在程序中提供一个自由运算的模式。 ①Lbl1: ”TMP”? I: IfI≠0: Then“RST”: I▲Goto1: IfEnd 二、LYC程序: 进行桩号反算及边坡放样,在运行模式直接调用。 ①Prog“AU” ②Lbl1: Z[7]→X: Z[8]→Y: Z[6]→S: ”XF”? X: X→Z[7]: ”YF”? Y: Y→Z[8]: ”ZF”? S: S→Z[6] ③Lbl2: Prog“Z”: Y=U=>Y+1p→Y ④Pol(X-R,Y-U): J-Z→J: Isin(J)→O: Icos(J)→I ⑤IfAbs(I)≤0.1: ThenProg“E”: ”L,YC”: L+I→L▲O▲Goto3: IfEnd ⑥IfZ[9]≠0: ThenPol(Z[9]-SO,I): πJZ[9]÷180→I: IfEnd ⑦”DL”: I▲L+I→L: Goto2 ⑧Lbl3: Z[6]→S: IfS=0: ThenGoto1: IfEnd ⑧M→Z ⑨Lbl4: ”SG”? Z: Z→M: IfAbs(Z)=1: ThenProg“GG”: Y→Z: IfX=1: ThenX→Z: IfEnd: Z→M: IfEnd ⑾IfZ=0: ThenZ[11]→C: Z[12]→D: Z[13]→E: Z[14]→F: ”LA”? C: C→Z[11]: ”HA”? D: D→Z[12]: ”LB”? E: E→Z[13]: ”HB”? F: F→Z[14]: D+(E-C)-1(F-D)(L-C)→Z: Z→M: IfEnd ⑿Lbl5: ”SG”: Z: ”TW”: Z-S→C▲: Z[3]→P: Z[4]→Q: : Z[5]→T: ”YC0”? P: P→Z[3]: : ”HC0”? Q: Q→Z[4]: ”M”? T: T→Z[5]: O÷Abs(O)→I: ”BL”: I(P+TC(C+Q)÷Abs(C))→U▲”DB”: IU-IO→J▲ Ans→I: Prog“P”: Goto1 四、I程序: 通过手工方式输要素 ①Z[2]=0=>Goto2 ②Z[1]→R: Z[2]→U: ”JL”? K: ”JX”? G: ”JY”? H: ”JA”? V: ”JJ”? W: ”R”? A: ”LS”? B: ”L1”? R: ”L2”? U: R→Z[1]: U→Z[2]: ReTurn ③Lbl2: ”L0”? K: ”X0”? G: ”Y0”? H: ”A0”? V”: ”L1”? F: ”L-0Z=-1Y=1”? W: W=0=>ReTurn ④”R0”? A: ”R1”? B 五、D程序: 根据测站点的坐标及放样点的坐标计算水平距离及方位角 ①Y=N=>Y+1n→Y ②Pol(X-Z[10],Y-N): J<0=>J+360→J ③”A,D”: J→DMS▲I▲ 六、E程序: 桩号出界判断 ①Z[2]=0=>Goto2 ②IfL>Z[2]: Then“>L2”: L▲IfEnd ③IfL Then“ L▲IfEnd ④Goto3 ⑤Lbl2: IfL Then“ L-K▲IfEnd ⑥IfL>F: Then“>L1”: L-F▲IfEnd ⑦Lbl3 七、GG程序: 用统计数据中桩号,左右高程数据进行内插计算。 ①FreqOff: n→C: FreqOn: IfL Then“L 1→I: Goto8: IfEnd ②IfL>maxX: Then“L>maxX”: C-1→I: Goto8: IfEnd ③For1→IToC-1 ④IfL≤ListX[I+1]: ThenBreak: IfEnd: Next ⑤Lbl8: (L-ListX)÷(ListX[I+1]-ListX)→J: ListY+J(ListY[I+1]-ListY)→X: ListFreq+J(ListFreq[I+1]-ListFreq)→Y 八、S程序: 对统计数据列表中数据按桩号进行排序。 ①FreqOff: n→C: FreqOn“WAIT…n=”: Locate10,1,C ②IfC<2ThenReturn: IfEnd ③For1→DToC: D→I: ④ForD+1→EToC: ⑤IfListX[E] ThenE→I: IfEnd: Next ⑥IfI≠D: ThenListX[D]→F: ListX→ListX[D]: F→ListX: ListY[D]→F: ListY→ListY[D]: F→ListY: ListFreq[D]→F: ListFreq→ListFreq[D]: F→ListFreq: IfEnd: Next ⑦Locate1,2,”minX: ”Locate6,2,minX ⑧Locate1,3,”minX: ”Locate6,3,maxX 九、X程序: 计算缓和曲线坐标增量xx,yy ①AB→U: U÷O→Z[9]: 0.5O2÷U→R: O-0.1OR2→I: 6-1OR(2-7-1R2)→J: Rr→R 十、JS程序: 内插计算的接口程序,在运行模式直接调用。 ①Prog“S” ②Lbl1: ”L=”? L: L=0=>Return ③Prog“GG”: ”X,Y”: X▲Y▲Goto1 十一、GZW程序: 构造物坐标放样计算,在运行模式直接调用。 ①Z[10]→S: ”XO”? S: S→Z[10]: ”YO”? N: 0→T ②Lbl1;”X0”? R: ”Y0”? U: ”A0”? Z: IFZ=-1: Then“A0,DD”: J→Z▲I▲IfEnd ③IfZ=0: ThenR→
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 卡西欧 5800 公路 测量 程序