CASIO5800计算机程序说明.docx
《CASIO5800计算机程序说明.docx》由会员分享，可在线阅读，更多相关《CASIO5800计算机程序说明.docx（7页珍藏版）》请在冰豆网上搜索。
CASIO5800计算机程序说明
反算运转程序（文件名）FSXL
“K=0,ZK≠0”?
H:
Lbi0:
”X＜0,PROG=＞IEND”:
2→
DimZ:
”X=”?
X:
IfX﹤0:
ThenGoto2:
IfEnd:
”Y=”
?
Y:
”K=”?
K:
Lbi1H=0:
ThenProg“YX”:
EIseProg
“ZX”:
IfEnd:
Prog“SUB”:
X-U→I:
Y-V→J:
Poi
（I,J）:
IfJ＜0:
ThenJ+360→J:
IfEnd:
Icos
（W–J）→M:
-Isin（W-J）→N:
IfAbs（M）
﹥0.001:
ThenK+M→K:
Goto1:
Eise“K=”K▲
“B=”:
N▲
Goto0:
IfEnd:
Lbi2:
“PROM,END”
注：
界面：
K=0,ZK≠0
计算：
右线输“0”，左线输“1”
X=?
Y=?
输入坐标；
K显示计算桩号
B显示偏距 “－”左偏，“+”右
-1-
CASIO5800计算机程序说明
CASIO5800计算机程序说明
放样运转程序，（文件名）FYXL
“K=0,ZK≠0”?
H:
Lbi0“K＜0,=＞PROG,
END”:
2→DimZ:
“K=”:
IfK＜0:
Then
Goto1:
EiseIfH=0:
ThenProg“YX”:
Eise
Prog“ZX”:
IfEnd:
Prog“SUB”:
“FWJ”:
W▼DMS▲
“XS=”:
U▲
“YS=”:
V▲
“AP=”?
O:
“B=”?
R:
“X=”:
U+Rcos（W+O）▲
“Y=”V+Rsin（W+O）▲
Goto0:
IfEnd↙
Lbi1:
“PROG,END”
注：
界面：
K=0,ZK≠0
计算：
右线输“0”，左线输“1”
K=?
输放样桩号
FWJ显示方位角
XS=,YS=显示设计中桩坐标
AP=?
输边桩角度
B=?
输偏距左“-”右“+”显示边桩坐标
——2——
主程序：
（文件名）SUB
2→DimZ:
（E-D）÷Abs（G–F）→P:
Abs
（K–F）→Q:
P×Q→I:
C+（I+2×D）×
Q×90÷∏→W:
C+（I÷4+2×D）×Q×45
÷（2×÷）→M:
C+（3×I÷4+2×D）×Q
×135÷（2×∏）→N:
C+（I÷2+2×D）×
45÷∏→Z[1]:
A+Q÷12×（cos（C）+4×（cos（M）
+cos（N））+2×cos（Z[1]）+cos（W））→U:
B+
Q÷12×（sin（C）+4×（sin（M）+sin（N）+2×
sin（Z[1]）+sin（W））→V↙
-3-
右线高程：
运行程序YGC（文件名）
Lbi0:
“K＜0,PROM,END”:
“K=”?
K:
IfK＜0:
ThenGoto2:
EiseIfK≤106984.25:
Then840.515
→S:
0.0145→A:
0→C:
107220→J:
Goto1:
Eise
IfK≤107455.75:
Then840.515→S:
0.0145→A:
-1→C:
23000→R:
235.75→T:
107220→J:
Goto1:
EiseIfK≤107822.50:
Then835.475→
S:
-0.006→A:
0→C:
108060→J:
Goto1:
Eise
IfK≤108297.50:
Then835.475→S:
-0.006→
A:
-1→C:
25000→R:
237.5→T:
108060→J:
Goto1:
EiseIfK≤108590:
Then818.975→S:
-0.025→A:
0→C:
108800→J:
Goto1:
EiseIf
K≤109010:
Then816,975→S:
-0.025→A:
-1→
C:
210000→R:
210→T:
108800→J:
Goto1:
Eise
IfK≤109490:
Then792.675→S:
-0.027→A:
0
→C:
109700→J:
Goto1:
IfEnd:
IfEnd:
IfEnd:
IfEnd:
IfEnd:
IfEnd:
Lbi1:
S–（J-K）A+C（K+T-J）∧
（2）÷（2R）→H:
“YHS=”:
H▲
Prog“YHP”:
Goto0↙
Lbi2:
“PROG,END”↙
界面：
K=?
输入桩号，YHS=，显示设计中桩高程；YHP=显示横坡+为左偏，-为右偏，0为直线。
-4-
子程序：
右线横坡（文件名）YHP
IfK≤107600:
Then-0.02→A:
Goto2:
Eise
IfK≤107780:
Then-0.02→B:
0.02→C:
180
→L:
107600→E:
Goto1:
EiseIfK≤108300:
Then0.02→A:
Goto2:
EiseIfK≤108480:
Then
0.02→B:
-0.02→C:
180→L:
108300→E:
Goto1:
EiseIfK≤108650:
Then-0.02→B:
-0.03→C:
170→L:
108480→E:
Goto1:
EiseIf
K≤109180:
Then-0.03→A:
Goto2:
IfEnd:
IfEnd:
IfEnd:
IfEnd:
IfEnd↙
Lbi1:
B+（K–E）∧
（2）÷L2×（3–2（K-E）÷
L）×（C–B）→A:
Goto2:
Lbi2:
“YHP=”:
A▲
-5-
子程序右线（平曲线）文件名：
YX
IfK≤106963.428:
Then4138.413→A:
6509.37
→B:
156°22′15″→C:
1÷5000→D:
D→E:
105871.499→F:
106963.482→G:
EiseIfK≤
107481.107:
Then3098.312→A:
6834.771→B:
168°53′2.6″→C:
0→D:
D→E:
106963.482→
F:
107481.107→G:
EiseIfK≤107803.428:
Then
2590.399→A:
6934.566→B:
168°53′2.6″→C:
0→D:
-1÷2800→E:
107481.107→F:
107803.428→G:
EiseIfK≤108068.728:
Then
2275.421→A:
7002.755→B:
165°35′10.55″→
C:
-1÷2800→D:
D→E:
107803.482→F:
108068.728
→G:
EiseIfK≤108391.049:
Then2021.982→
A:
7080.859→B:
160°09′26.96″→C:
-1÷2800
→D:
0→E:
108068.728→F:
108391.049→G:
EiseIf
K≤108655.112:
Then1723.263→A:
7201.799→B:
156°
51′34.9″→C:
0→D:
1÷1600→E:
108391.049→F:
108655.112→G:
EiseIfK≤109202.255:
Then1477.757
→A:
7298.825→B:
161°35′15.81″→C:
1÷1600→D:
D
→E:
108655.112→F:
109202.255→G:
IfEnd:
IfEnd:
IfEnd:
IfEnd:
IfEnd:
IfEnd↙
注：
曲率1，左偏“-1”-6-
左线高程，运行程序，（文件名）ZGC
Lbi0:
“K＜0,PROM,END”:
“K=”?
K:
IfK＜0:
ThenGoto2:
EiseIfK≤106994.5:
Then
840.905→S:
0.0145→A:
0→C:
107220→J:
Goto1:
EiseIfK≤107445.5:
Then840.905→
S:
0.0145→A:
-1→C:
22000→R:
225.5→T:
107220→J:
Goto1:
EiseIfK≤107792.34:
Then836.046→S:
-0.006→A:
0→C:
108029.84
→J:
Goto1:
EiseIfK≤108267.34:
Then836,046→S:
-0.006→A:
-1→C:
25000→R:
237.5→T:
108029.84→J:
Goto1:
EiseIfK≤108582.08:
Then816.975→S:
-0.025→A:
0→C:
108792.68→
J:
Goto1:
EiseIfK≤109002.68:
Then816.975
→S:
-0.025→A:
-1→C:
210000→R:
210→T:
108792.68→J:
Goto1:
IfEnd:
IfEnd:
IfEnd:
IfEnd:
IfEnd:
IfEnd↙
Lbi1:
“ZHS=”:
S–（J–K）A+C（K+T–J）2÷
（2×R）▲
Prog“ZHP”:
Goto0:
Lbi2:
“PROG,END”
界面：
K=?
输入桩号，ZHS=，显示设计中桩高程；
ZHP=显示横坡+为左偏，-为右偏，0为直线。
-7-
子程序：
左线横坡（文件名）ZHP
IfK≤107760:
Then0.02→A:
Goto2:
Eise
IfK≤107990:
Then0.02→B:
0.03→C:
230
→L:
107760→E:
Goto1:
EiseIfK≤108160:
Then0.03→A:
Goto2:
EiseIfK≤108310:
Then0.03→B:
0.02→C:
150→L:
108160→E:
Goto1:
EiseIfK≤108490:
Then0.02→B:
-0.02
→C:
180→L:
108310→E:
Goto1:
EiseIfK≤
108660:
Then-0.02→B:
-0.03→C:
170→L:
108490→E:
Goto1:
EiseIfK≤109180:
Then
-0.03→A:
Goto2:
IfEnd:
IfEnd:
IfEnd:
IfEnd↙
Lbi1:
B+（K–E）2÷L2×（3-2（K-E）÷L）×
（C–B）→A:
Goto2↙
Lbi2:
“ZHP=”:
A▲
-8-
子程序左线（平曲线）文件名ZX
IfK≤106955.535:
Then4148.926→A:
6542.974→B
:
156°22′15″→C:
1÷5000→D:
D→E:
105863.552→F:
106955.535→G:
EiseIfK≤107753.383:
Then3108.826→A:
6868.375→B:
168°53′2.4″→C:
0→D:
D→E:
106955.535→F:
107753.383→G:
EiseIfK≤107998.383:
Then
2325,947→A:
7022.197→B:
168°53′2.4″→C:
0→D
-1÷2000→E:
107753.383→F:
107998.383→G:
EiseIfK≤108154.012:
Then2086.597→A:
7074.320
→B:
165°22′28.68″→C:
-1÷2000→D:
D→E:
107998.383→F:
108154.012→G:
EiseIfK≤108399.012:
Then1937.691→A:
7119.432→B:
160°54′58.29″→C:
-1÷2000→D:
0→E:
108154.012→F:
108399.012→G:
Eise
IfK≤108663.074:
Then1709.657→A:
7208.905→B:
157°24′24.7″→C:
0→D:
1÷1600→E:
108399.012→
F:
108663.074→G:
EiseIfK≤108692.682:
Then
1463.237→A:
7303.582→B:
162°08′5.54″→C:
1÷
1600→D:
D→E:
108663.074→F:
108692.682→G:
IfEnd:
IfEnd:
IfEnd:
IfEnd:
IfEnd:
IfEnd:
IfEnd↙
注：
曲率1，左偏“-1”
-9-
升级会员 