卡西欧5800的公路测量程序Word文件下载.docx
《卡西欧5800的公路测量程序Word文件下载.docx》由会员分享，可在线阅读，更多相关《卡西欧5800的公路测量程序Word文件下载.docx（14页珍藏版）》请在冰豆网上搜索。
IfAbs（I）<
1m:
ThenFix3:
K="
K◢:
K.D="
J◢
ElseGoto3:
1→M:
.NEXT1.EXIT"
M:
IfM=&
ThenGoto3:
Goto2↙
子程序3：
【ZZ-FD】
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]↙
For1→Ito5:
A+MrZ[I]（1÷
P+OMZ[I]）→Z[I]:
Next:
Z[3]→F↙
X+M（Bcos（Z[1]）+Ccos（Z[2]）+Ccos（Z[4]）+Bcos（Z[5]））→S↙
Y+M（Bsin（Z[1]）+Csin（Z[2]）+Csin（Z[4]）+Bsin（Z[5]））→T↙
子程序4：
【DATA-FD】
→U:
IfK<
（线路起点里程）:
<
!
IfK>
（线路终点里程）:
>
（线元起点里程）→Q:
IfK≤L+Q:
Then（线元起点半径）→P:
（线元终点半径）→R:
（线元起点X坐标）→X:
（线元起点Y坐标）→Y:
（线元起点方位角）→A:
GotoE:
L+Q→L↙
（重复L2）
LblE↙
输入说明：
L2开始每行程序为一个线元参数要素，有几个线元就输入几行。
直线半径按<
1E45>
输入。
功能常数可能位置会不同，请仔细查询；
m>
位于<
Function－1－▽▽▽▽－1；
r>
Function－5－5>
；
e>
EXP>
键；
Dsz>
Function－3－6>
。
*******************************************************************************************************
【完整线路坐标正反算程序】
【XLFY-ALL】
5→DimZ:
1→Z:
IfZ=1:
ZS-ALL"
FS-ALL"
【ZS-ALL】
L01:
Z→&
V→9&
L02:
ZZ-ALL"
IfZ[1]≠&
X+Zcos（F）→X:
Y+Zsin（F）→Y:
L03:
X◢
L04:
Y◢
L05:
【FS-ALL】
Lbl8:
Lbl9:
V-X→I:
W-Y→J:
ElseGoto9:
1→Z:
IfZ=&
ThenGoto9:
Goto8↙
【ZZ-ALL】
DATA-ALL"
Abs（B）πR÷
18&
-（L+M）÷
2→G↙
L&
sup2;
÷
24÷
R-L^4÷
2688÷
R^3→P:
L÷
2-L^3÷
24&
R&
→Q↙
M&
R-M^4÷
R^3→U:
M÷
2-M^3÷
→O↙
（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↙
IfK≤D:
ThenGoto1:
IfK≤D+L:
ThenK-D→C:
L→U:
Goto2:
IfK≤D+L+G:
Then1→C:
Goto3:
IfK≤D+M+L+G:
ThenK-D-M-L-G→C:
M→U:
D+M+L+G:
ThenK-D-L-M-G→C:
Goto5:
L06:
Lbl1:
E+（J-K）cos（A+18&
）→X:
N+（J-K）sin（A+18&
）→Y:
A→F:
GotoE↙
L07:
C-C^5÷
（4&
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:
Goto6↙
L08:
（2K-2D-L）÷
π÷
R→U:
Rsin（U）+Q→H:
R（1-cos（U））+P→I↙
L09:
Lbl4:
IfB<
Then-I→I:
E+Tcos（A+18&
）+Hcos（A）+Icos（A+9&
N+Tsin（A+18&
）+Hsin（A）+Isin（A+9&
Goto7↙
L10:
Lbl5:
A+B→F:
E+（C+S）cos（F）→X:
N+（C+S）sin（F）→Y:
L11:
Lbl6:
IfB>
E+（S+H）cos（A+B）+Icos（A+B+9&
N+（S+H）sin（A+B）+Isin（A+B+9&
）→Y↙
L12:
Lbl7:
Then-R→U:
ThenA+9&
C&
（πUL）→F:
IfC=K-D-L-M-G:
ThenA+B-9&
（πUM）→F:
IfC=1:
ThenA+18&
（K-D-L÷
2）÷
U→F:
L13:
【DATA-ALL】
→Z[1]:
1→Z[1]:
L2：
IfK≤（起点或上一段曲线缓直点里程）:
Then（交点里程）→J:
（交点X坐标）→E:
（交点Y坐标）→N:
（半径）→R:
（第一缓和曲线长度）→L:
（第二缓和曲线长度）→M:
（偏角）→B:
（起始边方位角）→A:
IfEnd↙
L3：
（重复L2）
L4：
LblE
简要说明：
每行程序为一个曲线的参数要素，有几个曲线就输入几行。
【中桩标高计算程序】
【H-SJ】
DATA-H"
Abs（R（G-F））÷
200→T↙
IfK≤N-T:
ThenO-0.01F（N-K）→S:
Goto1:
IfK≤N:
ThenO-0.01F（N-K）-（T+K-N）^2÷
R÷
2→S:
IfK≤N+T:
ThenO-0.01G（N-K）-（T+N-K）^2÷
L6:
IfK>
N+T:
ThenO-0.01G（N-K）→S:
L7:
Fix3:
H="
S◢Norm:
【DATA-SJ】
IfK≤（起点或上一段竖曲线终止里程）:
Then（变坡点里程）→N:
（变坡点高程）→O:
（竖曲线半径<
凸+凹->
）→R:
（前纵坡值）→F:
（后纵坡值）→G:
【坡脚宽度计算程序】
程序名：
【PJD】
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↙
H-DM"
Abs（S-M）→H↙
IfS-M≥0:
ThenL+HD→K:
IfH≤N:
ThenL+G+HA→K:
IfH≤2N:
ThenL+G+NA+T+（H-N）B→K:
IfH>
2N:
ThenL+G+NA+T+NB+T+（H-2N）C→K:
L-PJ="
K◢↙
L8:
Goto1↙
【坐标反算程序】
【XY-DF】
→I:
→J:
A.X"
D:
A.Y"
G:
B.X"
X:
B.Y"
Y:
Pol（（X-D）,（Y-G））:
IfJ<
ThenJ+36&
Fix5:
AB-AZIMUTH="
AB-DIST="
I◢
Norm↙
【坐标正算程序】
【DF-XY】
AB-AZIMUTH"
J:
AB-DIST"
I↙
B.X="
D+Icos（J）→X◢
B.Y="
G+Isin（J）→Y◢
【面积计算程序】
【AREA】
M"
N"
N:
M→E:
N→F:
→S↙
X"
Y"
S-（XN-YM）÷
IfX=E:
ThenIfY=F:
AREA="
Abs（S）→S◢Goto&
X→M:
Y→N:
【两直线交点计算程序】
【JD】
1.X"
A:
1.Y"
B:
2.X"
C:
2.Y"
3.X"
E:
3.Y"
F:
4.X"
4.Y"
H↙
C-A→N:
D-B→O:
G-E→P:
H-F→Q:
QN-OP→K:
NB-OA→U:
PF-QE→V↙
P.X="
（PU-NV）÷
K→X◢↙
P.Y="
（QU-OV）÷
K→Y◢
【点到直线距离计算程序】
【PLDIST】
P.X"
P.Y"
L1.X"
L1.Y"
L2.X"
L2.Y"
Pol（（G-E）,（H-F））:
J-90→J↙
A+10cos（J）→C:
B+10sin（J）→D↙
（PU-NV）÷
K→X:
K→Y:
Pol（（X-A）,（Y-B））↙
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”?
Prog“AU”
②Lbl2:
L:
Prog“Z”:
Prog“E”:
1n→O:
90→S
③Lbl4:
”JJ”?
”YC”?
O:
SO=0=>
Goto2‘原来lbl后没有标号４的。
④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”?
”YF”?
XY=0=>
⑦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[8]→Y:
Z[6]→S:
”XF”?
X:
X→Z[7]:
”ZF”?
S→Z[6]
③Lbl2:
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:
⑥IfZ[9]≠0:
ThenPol（Z[9]-SO,I）:
πJZ[9]÷
180→I:
⑦”DL”:
I▲L+I→L:
Goto2
⑧Lbl3:
IfS=0:
⑧M→Z
⑨Lbl4:
”SG”?
Z→M:
IfAbs（Z）=1:
ThenProg“GG”:
Y→Z:
IfX=1:
ThenX→Z:
⑾IfZ=0:
ThenZ[11]→C:
Z[12]→D:
Z[13]→E:
Z[14]→F:
”LA”?
C→Z[11]:
”HA”?
D→Z[12]:
”LB”?
E→Z[13]:
”HB”?
F→Z[14]:
D+（E-C）-1（F-D）（L-C）→Z:
⑿Lbl5:
”SG”:
”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=>
②Z[1]→R:
Z[2]→U:
”JL”?
”JX”?
”JY”?
H:
”JA”?
”R”?
”LS”?
”L1”?
R:
”L2”?
R→Z[1]:
U→Z[2]:
ReTurn
”L0”?
”X0”?
”Y0”?
”A0”?
V”:
”L-0Z=-1Y=1”?
W=0=>
④”R0”?
”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程序：
桩号出界判断
②IfL>
Z[2]:
Then“>
L2”:
L▲IfEnd
③IfL<
Z[1]:
Then“<
L1”:
④Goto3
⑤Lbl2:
IfL<
Then“<
L0”:
L-K▲IfEnd
⑥IfL>
Then“>
L-F▲IfEnd
⑦Lbl3
七、GG程序：
用统计数据中桩号，左右高程数据进行内插计算。
①FreqOff:
n→C:
FreqOn:
minX:
Then“L<
minX”:
1→I:
Goto8:
maxX:
Then“L>
maxX”:
C-1→I:
③For1→IToC-1
④IfL≤ListX[I+1]:
ThenBreak:
Next
⑤Lbl8:
（L-ListX）÷
（ListX[I+1]-ListX）→J:
ListY+J（ListY[I+1]-ListY）→X:
ListFreq+J（ListFreq[I+1]-ListFreq）→Y
八、S程序:
对统计数据列表中数据按桩号进行排序。
FreqOn“WAIT…n=”:
Locate10,1,C
②IfC<
2ThenReturn:
③For1→DToC:
D→I:
④ForD+1→EToC:
⑤IfListX[E]<
ListX:
ThenE→I:
⑥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:
⑦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”
”L=”?
L=0=>
Return
③Prog“GG”:
”X,Y”:
X▲Y▲Goto1
十一、GZW程序：
构造物坐标放样计算，在运行模式直接调用。
①Z[10]→S:
N：
0→T
②Lbl1;
IFZ=-1:
Then“A0,DD”:
J→Z▲I▲IfEnd
③IfZ=0:
ThenR→
升级会员 