卡西欧5800计算器公路测量常用程序集secret文档格式.docx
《卡西欧5800计算器公路测量常用程序集secret文档格式.docx》由会员分享，可在线阅读，更多相关《卡西欧5800计算器公路测量常用程序集secret文档格式.docx（12页珍藏版）》请在冰豆网上搜索。
GotoX:
Prog＂KM＂:
?
D:
Porg＂THB＂:
O→L:
＂L0＂?
L:
Z[2]+Z[1]-Z[8]→E:
X+Lcos（E）→X:
Y+Lsin（E）→Y:
Prog＂XY＂:
Prog＂JS＂:
GotoB
LbI2:
2→F:
90→Z[1]:
LbIC:
Z=-1=>
＂XO＂?
X:
＂Y0＂?
Y:
Prog＂THB＂:
Porg＂ZD＂:
GotoC:
LbI3:
0→B:
＂H-B＂?
B→Z[9]:
LbID:
Porg＂H＂:
Fix3:
＂H=＂:
Lcoate6,4,H-Z[9]◢
＂I=＂:
Locate6,4,I◢GotoD
LbI4:
LbIE:
Prog＂GD＂:
＂SJGD=＂:
Locate7,4,L◢GotoE
LbI5:
0.5→B:
＂TH-GD＂?
B→Z[15]:
LbIF:
＂KM＂?
Z=-1=>
Z=-2=>
＂X0＂?
0→M:
”M0”?
M:
M→Z[4]:
Prog＂3FBZ＂
Fix2:
Z[3]→D:
Abs（D）-S→O:
＂L0=＂:
Locate6,4,O◢
Prog＂ZD＂:
Z[5]→T:
＂TW=＂:
Lcoate6,4,T◢GotoF:
LbI6:
Prog＂DX＂:
LbIG:
LbIH:
GotoG:
Prog＂H＂:
＂M0＂?
H-M→T:
＂TW=＂:
Locate6,4,T◢GotoH:
LbI7:
LbII:
0→D:
＂LD:
Z-,Y+＂?
D:
Abs（D）→R:
＂LR＂?
R:
＂Z0＂?
D→Z[6]:
R→Z[7]:
Z→Z[8]:
LbIJ:
0→Y:
＂L0:
SZ+,DZ-＂?
Y=-1=>
Y=-2=>
GotoI:
Prog＂ZP＂:
GotoJ:
LbI8:
LbIK:
X=-1=>
X=-2=>
GotoK:
LbI9:
Porg＂DX＂:
LbIL:
Prog”QX”:
LbIM:
GotoL:
Prog＂SD1＂:
0.5→A:
“CQHD＂?
“X0＂?
＂Y0＂?
0→M=＂M0＂?
M→Z[8]:
A→Z[15]:
Prog＂5SD＂：
GotoM:
LbIX:
MatF◢Goto0
2、次程序:
路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）
3FBX
Prog”THB”:
D→P:
Prog”GD”:
IfD<
0:
Then0.75-L→D:
GotoH:
ElseL-0.75→D:
IfEnd
Prog“H”:
H-0.03-Z[4]→Z[4]:
Prog“W1”:
IfZ[4]<
Then–Z[4]→G:
GotoW:
ElseZ[4]→G:
GotoT:
LbIW:
Z[8]+Z[9]→A:
IfG>
ThenGoto1:
ElseIfG>
Z[8]:
ThenGoto2:
ElseGoto3:
IfEnd:
L+Z[10]+Z[11]+Z[12]+（G-A）×
Z[7]+Z[9]×
Z[6]+Z[8]×
Z[5]→S:
GotoZ:
L+Z[10]+Z[11]+（G-Z[8]）×
L+Z[10]+G×
LbIT:
L+Z[17]→T:
IfG>
Z[15]:
Then（T+Z[16]+（G-Z[15]）×
Z[14]+Z[15]×
Z[13]）→S:
Else（T+G×
LbIZ
3.次程序3.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值）
5SD
Prog”KM”:
Prog“THB”:
D→Z[13]:
Cos（Z[10]）×
Z[4]→E:
H+Z[5]→Z[5]:
H+Z[7]→Z[7]:
E+Z[5]→Z[10]:
IfZ[8]>
Z[10]:
ThenGotoR:
ElseGotoS:
LbIR:
√（（Z[13]-Z[9]）2+（Z[8]-Z[5]）2）-Z[4]-Z[15]→L:
LbIS:
Z[4]-Z[6]→S:
√（S2-（Z[7]-Z[5]）2）×
S÷
Abs（S）→T:
Abs（Z[13]-Z[9]）-T→T:
√（T2+（Z[8]-Z[7]）2）-Z[6]-Z[15]→L:
Fix2:
”L0=”:
Locate6,4,L◢
Prog”ZD”:
“H0=”:
Locate6,4,Z[8]-H◢
4：
极坐放样计算程序（计算放样点至置仪点方位角及距离）
JS
X：
Y：
Z[11]→K：
Z[12]→L：
Pol（X-K,Y-L）:
IFJ<
ThenJ+360→J:
IFEnd:
Int（J）+0.01Int（60Frac（J））+0.006Frac（60Frac（J））→J:
Fix4:
”FWJ=”:
Locate6,4,J◢
”S=”:
Locate6,4,I◢
5．路基宽度子程序6：
路基标准半幅宽度计算程序（对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L）
GD
1→S:
Prog“G1”:
Z-C→E:
（B-A）*E/S+A→L:
6．坐标计算次程序（ＴＨＢ）
THB
IfQ=2:
ThenGotoJ:
Else1÷
P→Ｃ：
（P-R）÷
（2HPR）→Ｓ：
180÷
Π→E：
IfF=1:
ThenAbs（Ｚ－0）→W：
Prog"
Ａ"
：
Ｇoto2:
ElseＸ→I：
Ｙ→J：
Prog＂Ｂ＂：
Ｏ＋Ｗ→Z：
Ｄ→Ｄ：
IfEnd:
IfF=1:
ThenProg"
Z"
Ｇoto1:
ElseProg＂ZX＂：
I+D×
COS（Z[2]+Z[1]）→X:
J+D×
Sin（Z[2]+Z[1]）→Y:
LbI2
7.线元法正算子程序（Ａ）
A
0.1184634425→A：
0.2393143352→B：
0.2844444444→N：
0.046910077→K：
0.2307653449→L：
0.5→M：
U+W（Acos（G+QEKW（C+KWＳ））+Bcos（G+QELW（C+LWＳ））+Ncos（G+QEMW（C+MWＳ））+Bcos（G+QE（1-L）W（C+（1-L）WS））+Acos（G+QE（1-K）W（C+（1-K）WS）））→X：
V+W（Asin（G+QEKW（C+KWＳ））+Bsin（G+QELW（C+LWＳ））+Nsin（G+QEMW（C+MWS））+Bsin（G+QE（1-L）W（C+（1-L）WS））+Asin（G+QE（1-K）W（C+（1-K）WＳ）））→Y：
G+QEW（C+WＳ）→Ｚ［２］：
X+Ｄcos（Ｚ［２］+Z[1]）→Ｘ：
Y+Ｄsin（Ｚ［２］+Z[1]）→Ｙ
8.线元法反算子程序（Ｂ）
B
G-90→Ｔ：
Abs（（Y-V）cos（T）-（X-U）sin（T））→Ｗ：
0→Ｄ：
Lbl0：
T+QEW（C+WＳ）→Ｌ：
（J-Y）cos（L）-（I-X）sin（L）→Ｄ：
IFAbs（Ｄ）<
0.01:
ThenGoto1：
ElseW+Ｄ→W:
←┘
Lbl1:
0→D：
（J-Y）÷
sin（Ｚ［２］+90）→D
9.交点法正算子程序（Z）
Z
H2÷
R÷
24-H∧（4）÷
2688÷
R∧（3）→A:
H÷
2-H∧（3）÷
240÷
R2→B:
（R+A）tan（Abs（P）÷
2）+B→T:
O-T→C:
C+H→L:
L+ΠR×
Abs（P）÷
180→N:
N-H→E:
P÷
Abs（P）→W:
IfZ<
ThenZ-O→S:
G→Z[2]:
IfZ≥N:
ThenZ-N+T→S:
G+P→Z[2]:
IfZ≥E:
ThenN-Z→S:
Prog“HX”:
G+P→S:
S-WK→Z[2]:
U+（T-A）Cos（S）-WBSin（S）→I:
V+（T-A）Sin（S）+WBcos（S）→J:
IfZ>
Then180（Z-L+0.5H）÷
Π→S:
R2+Rsin（S）→A:
R∧（3）+R（1-Cos（S））→B:
R→M:
G+WS→Z[2]:
Z-C→S:
G+WK→Z[2]:
U+（A-T）cos（G）-WBsin（G）→I:
V+（A-T）Sin（G）+WBcos（G）→J:
Goto3:
U+Scos（Z[2]）→I:
V+Ssin（Z[2]）→J:
LbI3
10.交点法缓和段转化子程序（HX）
HX
S-S∧（5）÷
40÷
R2÷
H2+S∧（9）÷
3456÷
R∧（4）÷
H∧（4）→A:
S∧（3）÷
6÷
H-S∧（7）÷
336÷
R∧（3）÷
H∧（3）+S∧（11）÷
42240÷
R∧（5）÷
H∧（5）→B:
90S2÷
Π÷
H→K:
RH÷
S→M
11.交点法反算子程序（ZX）
ZX
LbI0:
Prog“Z”:
Pol（X-I,Y-J）:
J-Z[2]→J:
Isin（J）→S:
Icos（J）→I:
IfAbs（I）<
0.1:
ThenZ+I→Z:
S→D:
ElseGoto1:
LbI1:
IfM=0:
ElesPol（M-WS,I）:
（JMΠ）/180→I:
Z+I→Z:
LbI2
12．高程计算子程序（H）
H
Prog“S1”:
C-T→F:
Z-F→S:
C+T→E:
G-TI→Q:
IfT=O:
ThenQ+SI→H:
ElseIfZ<
F:
ElseIfZ≤E:
ThenQ+SI+S2÷
2÷
R→H:
H:
IfD=0:
ThenGotoI:
ElseProg“I”:
H+V→H:
LbII
13.高程超高计算程序（I）
I
IfZ[3]=1:
ThenProg“I1”:
ElseProg“I2”:
Goto1:
IfW=1:
Then:
Else:
IfEnd
LbIZ:
IfS=0:
ThenAbs（D）×
M→V:
ElseAbs（D）×
（（N-M）×
（Z-C）÷
S+M）→V:
（（（3（（Z-C）÷
S）2-2（（Z-C）÷
S）∧（3））×
（N-M））+M）→V:
Abs（D）→E:
V÷
E→I:
I（E-K）→V
14．导线点子程序（DX）
DX
Z[11]→K:
Z[12]→L:
“XZ”?
K:
”YZ”?
K→Z[11]:
L→Z[12]
15．线路选择子程序（线路选择输0时。
则输曲线参数（QX）
QX
1→A:
”QX:
X1=1,X2=2”?
A→Z[3]:
IfA=0:
ElseGoto2:
”JDO”?
O:
”XO”?
U:
”YO”?
V:
”FW”?
G:
”LS”?
P:
”J=2,X=（0,1,-1）”?
Q:
16．线路中线元段判别子程序（KM）
KM
IfZ[3]=0:
ThenGoto0:
ElseIfZ[3]=1:
ThenProg“X1”:
ElseProg“X2”:
LbI0
17．坐标计算参数转化子程序（F）
F
MatF[1,1]→O:
MatF[1,2]→U:
MatF[1,3]→V:
MatF[1,4]→G:
MatF[1,5]→H:
MatF[1,6]→P:
MatF[1,7]→R:
MatF[1,8]→Q
18.桥梁锥坡放样子程序（ZP）
ZP
√（Z[6]2（1-Y2/Z[7]2））→X：
Z[8]→Z:
ThenL+X→D:
Else–L-X→D:
Z[8]+Y→Z:
Prog”XY”:
Prog”JS”
19．显示子程序（XY）
XY
Ｆix3:
＂Ｘ=＂：
Locate6,4,Ｘ◢
＂Ｙ＝＂：
Locate6,4,Ｙ◢
ZD
＂ ＫＭ＝＂：
Locate6,4,Ｚ◢
＂ Ｄ＝＂：
Locate6,4,Ｄ◢
20．数据子程序（附后示例）
①-1程序名：
X1（线路1坐标计算要素程序）
IfZ≤26615.555:
Then[[25900,11587.421,1847.983,101。
09’23.1”,715.555,1×
1045,1×
1045,0]]→MatF:
IfZ≤26915.555:
Then[[26615.555,11448.97,2550.016,101。
09’23.1”,300,1×
1045,1800,1]]→MatF:
Prog”F”
①-2程序名：
X2（线路2坐标计算要素程序）
IfZ≤616.951:
Then[[316.951,11230.669,3213.086,118。
42’28.42”,300,1800,1×
1045,1]]→MatF:
IfZ≤4050:
Then[[3089.766,9708.017,5530.185,123。
28’57.1”,300,-44。
39’38”,2200,2]]→MatF:
Prog”F”
程序字母说明：
O-线元起点桩号（交点桩号）；
U-起点X坐标（交点X）；
V-起点Y坐标（交点Y）；
G-线元起点桩号切线方位角（交点前一交点至现交点方位角）;
Ｈ－线元长度（缓和曲线长度），Ｐ－线元起点曲率半径（偏角：
值为正负，左偏为负，右偏为正），Ｒ－线元终点曲率半径（圆半径）,Q－线元判别（以道路中线的前进方向（即里程增大的方向）区分左右；
当线元往左偏时，Q=-1；
当线元往右偏时，Q=1；
当线元为直线时，Q=0;
交点法取值2）.说明括内为交点法子母代表意思。
。
②-1程序名：
S1（线路1高程竖曲线要素子程序）
ElseProg“S2”:
IfZ≤26157.8:
Then-200000→R:
157.8→T:
26000→C:
37.1→G:
0.01222→I:
IfZ≤27421.915:
Then300000→R:
171.915→T:
27250→C:
32.65→G:
-0.00356→I:
IfZ≤27889.029:
Then1000000→R:
134.029→T:
27755→C:
36.64→G:
0.0079→I:
LbI0
②-2程序名：
S2（线路2高程竖曲线要素子程序）
IfZ≤183.007:
Then1365→R:
20.475→T:
162.532→C:
46.1→G:
0.003→I:
IfZ≤321.264:
Then-1200→R:
38.732→T:
282.532→C:
50.175→G:
0.033→I:
C-竖曲线交点桩号；
G-交点桩号高程（未竖曲线调整的）；
T-竖曲线切线长（标段结尾或开头没有竖曲线的输0）；
R-竖曲线半径（分正负：
凹曲线为正，凸曲线为负）；
I－竖曲线前纵坡
③-1程序名：
I1（线路1高程超高参数子程序）
1.5→K:
2→W:
ThenGotoL:
ElseGotoR:
Then0→S:
-0.02→M:
IfZ≤26735.555:
Then120→S:
26615.555→C:
0.02→N:
IfZ≤26795.555:
Then60→S:
26735.555→C:
0.02→M:
0.04→N:
IfZ≤26735.555:
Goto0:
-0.04→N:
IfZ≤27436.951:
-0.04→M:
LbI0
③-2程序名：
I2（线路2高程超高参数子程序）
0.5→K:
1→W:
IfZ≤100:
-0.015→M:
IfZ≤110:
Then10→S:
100→C:
-0.02→N:
IfZ≤343.665:
-0.02→M:
IfZ≤100:
IfEndIfZ≤375.665:
字程序中字母表示说明：
K－中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）；
W－超高方式参数（W=1为一般直线方式超高，W=2为三次抛物线方式超高）;
S－超高渐变段距离（不是渐变段则输入0）；
C-超高渐变段起点桩号（不是渐变段，无需输入）；
M－超高段起点横坡，N-超高渐变段终点横坡（不是渐变段，无需输入）。
④-1程序名：
G1（线路1路基标准半幅宽度参数子程序）
ElseProg“G2”:
IfEnd
IfZ≤28110.727:
ThenZ→C:
17.25→A:
IfZ≤28200.727:
Then28110.727→C:
21.25→B:
90→S:
Z≤27927.478:
IfZ≤28172:
Then27927.478→C:
27.031→B:
244.522→S:
④-2程序名：
G2（线路2路基标准半幅宽度参数子程序）
IfZ≤69.998:
28.25→A:
IfZ≤82.402:
Then69.998→C:
25.545→B:
12.404→S:
Z≤69.998:
17.45→A:
IfZ≤80.367:
16.787→B:
10.369→S:
C－宽度渐变段起点桩号（不是渐变段C=Z）；
A－宽度渐变段起点宽度;
B－宽度渐变段终点宽
升级会员 