CASIO5800计算机程序说明.docx
《CASIO5800计算机程序说明.docx》由会员分享,可在线阅读,更多相关《CASIO5800计算机程序说明.docx(7页珍藏版)》请在冰豆网上搜索。
![CASIO5800计算机程序说明.docx](https://file1.bdocx.com/fileroot1/2023-4/17/ae5bd084-5d61-4683-8767-4bbd8969f3a3/ae5bd084-5d61-4683-8767-4bbd8969f3a31.gif)
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-