卡西欧5800完整程序Word格式.docx
- 文档编号:17684727
- 上传时间:2022-12-08
- 格式:DOCX
- 页数:9
- 大小:22.97KB
卡西欧5800完整程序Word格式.docx
《卡西欧5800完整程序Word格式.docx》由会员分享,可在线阅读,更多相关《卡西欧5800完整程序Word格式.docx(9页珍藏版)》请在冰豆网上搜索。
LbI1:
G→Z[26]:
Z[17]-Lcos(G-180°
)→Z[21]:
Z[18]-Lsin(G-180°
)→Z[22]:
Goto9←┚
LbI2:
L-L^5÷
(40R2Q2)→Z[23]:
L^(3)÷
(6RQ)-L^(7)÷
(336R^(3)Q^(3))→Z[24]:
G+DL2×
(QRπ)→Z[26]:
Goto7←┚
LbI3:
(L-Q)×
(Rπ)+Z[9]→Z[25]:
Rsin(Z[25])+Z[2]→Z[23]:
R(1-cos(Z[25]))+Z[1]→Z[24]:
G+DZ[25]→Z[26]:
LbI4:
(Rπ)+Z[10]→Z[25]:
Rsin(Z[25])+Z[4]→Z[23]:
R(1-cos(Z[25]))+Z[3]→Z[24]:
Z[11]-DZ[25]→Z[26]:
Goto8←┚
LbI5:
(6RQ)-L^7÷
Z[11]-DL2×
LbI6:
Z[11]→Z[26]:
Z[19]-L×
cosZ[11]→Z[21]:
Z[20]-Lsin(Z[11])→Z[22]:
LbI7:
Z[17]+Z[23]cos(G)+Z[24]cos(G+D×
Z[18]+
Z[23]sin(G)+Z[24]sin(G+D×
LbI8:
Z[19]+Z[23]cos(Z[11]+180°
)+Z[24]cos(Z[11]+D×
Z[20]+Z[23]sin(Z[11]+180°
)+Z[24]sin(Z[11]+D×
LbI9:
"JJ"?
N:
"PJ"?
P:
"X=":
Z[21]+Pcos(z[26]+N)→X◢
"Y=":
Z[22]+Psin(Z[26]+N)→Y◢
"QXFWJ=":
Z[26]
DMS◢←┚
ZXZB(该程序为主线程序,只运行该程序)
"CZX"?
S:
"CZY"?
W←┚
LbI0:
"K"?
K:
IfK<54074.263(第1条曲线的终点桩号带大桩号,也就是是缓直点桩号,下面同上):
ThenGotoA:
ElseIfK<56247.409(第2条曲线的终点桩号带大桩号)AndK≥54074.263(第1条曲线的终点桩号带大桩号):
ThenGotoB:
ElseIfK<58007.266AndK≥56247.409:
ThenGotoC:
IfEnd←┚(有几条曲线就是几个IfEnd)
LbIA:
53203.87266(第1条曲线的交点桩号)→A:
3560815.660(第1条曲线交点的X坐标)→B:
484158.7230(第1条曲线交点的Y坐标)→C:
76°
10'54.56"(计算方位角)→G:
16°
49'2.2"(转角)→H:
-1(路线左右偏,左-,右+)→D:
4500(半径)→R:
430→(第1缓和曲线的长度)E:
430(第2缓和曲线的长度)→F:
Prog"ZHYHZ":
GotoW←┚(下面同上)
LbIB:
55278.9644→A:
3561878.191→B:
485952.830→C:
59°
21'52.34"→G:
19°
22'48.7"→H:
+1→D:
4500→R:
430→E:
430→F:
GotoW←┚
LbIC:
57236.8579→A:
3562263.305→B:
487888.000→C:
78°
44'41"→G:
14°
13'19.1"→H:
-1→D:
LbIW:
"PJ1"?
T←┚
IfT=0:
ThenX→Z:
Y→M:
GotoP:
ElseGotoV:
IfEnd←┚
LbIV:
"JJ1"?
O←┚
"X1=":
X+Tcos(Z[26]+N+O)→U◢
"Y1=":
Y+Tsin(Z[26]+N+O)→V◢
U→Z:
V→M:
GotoP←┚
LbIP:
Pol(Z-S,M-W):
IfJ≤0:
ThenJ+360°
→J:
"JL=":
I◢
"FWJ=":
J
DMS◢
Goto0
显示:
1、CZX?
(输入仪站X坐标)
2、CZY?
(输入仪站Y坐标)
3、K?
(输入所求桩号,带大桩号)
4、JJ?
(输入夹角,正交输90°
,斜交输夹角)
5、PJ?
(输入偏距,左负右正,中桩输0)
6、X=(所求X坐标)
7、Y=(所求Y坐标)
8、QXFWJ(所求曲线方位角)
9、PJ1?
(输入左右边桩再偏距离,前负后正,不需要再偏输0)
10、JJ1?
(输入左右边桩再偏夹角,上面输0,该步不会显示)
11、X1=(所求左右边桩再偏X坐标)
12、Y1=(所求左右边桩再偏Y坐标)
13、JL=(仪站点至所求点的距离)
14、FWJ=(仪站点至所求点的方位角)
再往下继续计算
Z-ZBFS
LbI0
"DQX"?
W:
"DQY"?
S←┚
"JDX"?
A:
"JDY"?
B:
"A0"?
G:
"ZJ"?
H:
"Z(-1)Y
(1)"?
D:
"R"?
R:
"LS1"?
E:
"LS2"?
F:
"K"?
K←┚
LbI1←┚
Norm1:
Prog"ZHYHZ":
Pol(W-Z[21],S-Z[22]):
IfJ>0:
ThenJ→J:
I→I:
ElseJ+360°
I=I:
J-Z[26]→Z[27]:
Icos(Z[27])→Z[28]:
K+Z[28]→K:
IfAbs(Z[28]≥0.001:
ThenGoto1:
ElseFix3:
IfEnd:
Isin(Z[27])→Z[29]:
Fix3:
"FSJL=":
Z[29]◢
"FSK=":
K◢
Goto0
反算时要在反算区域正算一次,获取曲线要素
显示
1、DQX?
(输入反算时的X坐标)
2、DQY?
(输入反算时的Y坐标)
3、然后一直按"EXE"出现下面的字符
4、FSJL=(所求反算左右偏距,左负右正)
5、FSK=(所求反算的桩号)
6、再按继续运算
WN(不运行)
"ZS=1,FS=2"?
1÷
P→C:
(P-R)÷
(2HPH)→D:
180÷
π→E:
IfN=1:
ThenGoto1:
ElseGoto2:
1→I:
0→Z:
Abs(K-O)→W:
Prog"ZS"←┚
F-90→F←┚
"JJ"?
L:
"ZX=":
Z[7]+Lcos(F+K)→Z[3]◢
"ZY=":
Z[8]+Lsin(F+K)→Z[4]◢
F
Abs(Z)→Z:
Goto8←┚
"X"?
I:
"Y"?
J:
Prog"FS":
"FSZH=":
O+W→K◢
Z◢
Lbl8
正算子程序(ZS)(不运行)
1÷
P→C:
(2HPR)→D:
180÷
π→E
0.1739274226→A:
0.3260725774→B:
0.0694318442→K:
0.3300094782→L:
1-L→F:
1-K→M:
U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))→Z[7]:
V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))→Z[8]:
G+QEW(C+WD)+90→F:
Z[7]+ZcosF→Z[7]:
Z[8]+ZsinF→Z[8]
3反算子程序(FS)(不运行)
G-90→T:
Abs((Z[8]-V)cosT-(Z[7]-U)sinT)→W:
0→Z←┚
Lbl0←┚
prog"ZS":
T+QEW(C+WD)→L:
(J-Z[8])cosL-(I-Z[7])sinL→Z:
IfAbs(Z)<0.001:
ThenGoto1:
ElseW+Z→W:
IfEnd:
Goto0←┚
Lbl1:
0→Z:
Prog"ZS":
(J-Y)÷
sinF→Z
ZX-WN(运行主程序,该程序适用于匝道,对全段完整非完整曲线计算太过麻烦)
S(仪站X坐标):
W(仪站Y坐标)
IfK≤218.50(第1条单一曲线的终点下面同上):
ElseIfK≤373.307AndK>218.50:
ElseIfK≤526.691AndK>373.307:
ThenGotoC:
ElseIfK≤946.255AndK>526.691:
ThenGotoDIfEnd:
3803701.508(起点X坐标)→U:
494281.813(起点Y坐标)→V:
0起点桩号→O:
293°
47'49"(方位角)→G:
218.50(曲线长度)→H:
3990.75(起点半径)→P:
3990.75(止点半径)→R:
+1(路线左右偏,左负右正)→Q:
Prog"WN":
GotoW
3803795.099→U:
494084.403→V:
218.50→O:
296°
56'2.4"→G:
154.807→H:
10^45→P:
10^45→R:
0→Q:
3803865.221→U:
493946.388→V:
373.307→O:
296°
153.384→H:
496.5→R:
+1→Q:
LbID:
3803941.562→U:
493813.538→V:
526.691→O:
305°
47'3.15"→G:
419.564→H:
496.5→P:
T←┚(该项是只左右边桩再左右偏距,输0为不再左右偏,适用于桥梁桥台、盖梁、涵洞八字墙等放样,以路线前进方向,前-,后+)
ThenZ[3]→Z:
Z[4]→M:
GotoP:
ElseGotoV:
O←┚(左右边桩再偏夹角,用180°
减去路线夹角)
Z[3]+Tcos(F+K+O)→U◢
"Y1=":
Z[4]+Tsin(F+K+O)→V◢
I◢(仪站至测点的距离)
DMS◢(仪站至测点的方位角)
1.规定以道路中线前进方向(即里程增大的方向)区分左右;
当线元往左偏时Q=-1;
当元线往右偏时,Q=1:
当元线为直线时,Q=0°
2.当所求点位于中线时,Z=0;
当位于中线左侧时,Z取负值:
当位于中线右侧时,Z取正值°
当线元为直线时,其起点、止点的曲率半径为无穷大,以10的45次方代替°
3.当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于圆弧的半径°
4.当线元为完整的缓和曲线时,起点与直线相接时,曲率半径为无穷大,以10的45次方代替°
与圆曲线相接时,曲率半径等于圆曲线的半径,止点跟直线相接时,曲率半径为无穷大,以10的45次方代替;
与圆曲线相接时,曲率半径等于圆曲线的半径°
5.当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的值;
与圆曲线衔接时,曲率半径等于圆曲线的半径°
止点与直线相接时,曲率半径等于设计规定的值;
二、输入与显示说明
1.输入部分:
2..输入
3.ZS=1,FS=2,选择计算方式,输入1正算;
输入2反算
4.数据库的输入
5.U?
线元起点的X坐标
6.V?
线元起点的Y坐标
7.O?
线元起点的里程
8.G?
线元的起点切点方位角
9.H?
线元的长度
10.P?
线元起点的曲率的半径
11.R?
线元止点的曲率的半径.
12.ZY?
线元左右偏标志(左偏Q=-1,右偏Q=1,直线段Q=0)
13.计算时:
14.K?
正算时所求的里程
15.JJ?
夹角,(正交90°
,斜交直接输角度)
16.PJ?
偏距(左负右正)
17..结果
18.ZX=正算时,计算得出的测点的X坐标
19.ZY=正算时,计算得出的测点的Y坐标
20.QXFWJ=正算时,测点对应中线点的切线方位角
21.PJ1?
:
左右桩号再偏距离,不需要时输0
22.JJ1?
:
左右边桩再偏角度
23.JL=仪站与测点的距离
24.FWJ=仪站与测点的方位角
25.反算时输入:
26.X?
反算时所求点的X坐标
27.Y?
反算时所求点的Y坐标
28.结果
29.FSZH=反算时,计算得出的所求点的里程
30.FSJL=反算时,计算得出的所求点的边距(负为左偏,正为右偏)
GCJS
Abs(C-D)×
R÷
2→Z[1]:
A-Z[1]→Z[2]:
A+Z[1]→Z[3]:
If D-C>0:
Then1→E:
Else-1→E:
IfK≤Z[2]:
ThenGoto1:
ElseIfK>Z[2]AndK≤A:
ElseIfK>AAndK≤Z[3]:
ElseIFK>
Z[3]:
thenGoto4:
IfEnd:
LbI1:
Z[2]-K→L:
B-(Z[1]+L)×
C→H:
Goto5←┚
K-Z[2]→L:
B-(Z[1]-L)×
C+E×
L2÷
2→H:
Z[3]-K→L:
B+(Z[1]-L)×
D+E×
K-Z[3]→L:
B+(Z[1]+L)×
D→H:
Goto5←┚
"EL=":
H◢←┚
主线高程(ZXGC)
IfK≤552.156(第1条竖曲线的终点下面同上):
ElseIfK≤1352.805AndK>552.156:
ElseIfK≤2045.311AndK>1352.805:
ElseIfK≤2493.942AndK>2045.311:
ThenGotoD:
ElseIfK≤3265.244AndK>2493.942:
ThenGotoE:
501.436(边坡点桩号)→A:
226.395(边坡点高程)→B:
-0.0257(边坡点前坡比)→C:
-0.005(边坡点后坡比)→D:
4900(半径)→R:
Prog"GCJS":
GotoF←┚(下面同上)
1303.305→A:
222.386→B:
-0.005→C:
0.04→D:
2200→R:
GotoF←┚
1985.311→A:
249.666→B:
0.04→C:
-0.04→D:
1500→R:
2425.578→A:
232.055→B:
-0.04→C:
-0.0218→D:
7500→R:
LbIE:
2849.694→A:
222.823→B:
-0.0218→C:
-0.03→D:
6000→R:
LbIF:
IfK≤309.562(第1条曲线的终点):
ElseIfK≤1053.022(第2条曲线终点)AndK>309.562:
ElseIfK≤1354.954AndK>1053.022:
ElseIfK≤1613.025AndK>1354.954:
ThenGoto4:
ElseIfK≤1863.124AndK>1613.025:
ThenGoto5:
ElseIfK≤2937.433AndK>2312.560:
ThenGoto6:
ElseIfK≤3145.553AndK>2937.433:
ThenGoto7:
←┚
-0.015(直线段横坡)→F:
-0.02(圆曲线线段横坡)→G:
126.9(第1缓和曲线起点)→I:
176.9(第1缓和曲线终点)→J:
259.562(原曲线终点)→L:
309.562(第2缓和曲线终点)→M:
1(方向,左负右正)→N:
GotoG←┚(下面同上)
-0.015→F:
-0.02→G:
860.749→I:
920.749→J:
993.022→L:
1053.022→M:
-1→N:
GotoG←┚
1248.441→I:
1283.441→J:
1319.954→L:
1354.954→M:
+1→N:
1439.731→I:
1489.731→J:
1563.025→L:
1613.025→M:
1712.165→I:
1757.165→J:
818.124→L:
1863.124→M:
1→N:
2121.544→I:
2121.544→J:
2312.560→L:
2312.560→M:
2752.223→I:
2812.223→J:
2877.433→L:
2937.433→M:
3060.515→I:
3060.515→J:
3145.553→L:
3145.553→M:
LbIG:
IfK≤I:
ThenGotoH:
ElseIfK≤JAndK>I:
ThenGotoI:
ElseIfK≤LAndK>J:
ThenGotoJ:
ElseIfK≤MAndK>L:
ThenGotoK:
ElseIfK>M:
ThenGotoL:
LbIH:
F→Z:
F→Y:
Goto9
LbII:
J=I=>GotoJ:
((K-I)×
(Abs(F)+Abs(G)))÷
(J-I)-Abs(F)→Z[1]:
IfN=-1:
ThenGotoM:
ElseGotoN:
LbIM:
Z[1]→Y:
IfZ[1]≤-F:
ThenF→Z:
Else–Z[1]→Z:
IfEnd:
Goto9
LbIN:
Z[1]→Z:
ThenF→Y:
Else–Z[1]→Y:
LbIJ:
ThenG→Z:
-G→Y:
Else-G→Z:
G→Y:
LbIK:
M=L=>GotoL:
(M-K)×
(Abs(F)+Abs(G))÷
(M-L)-Abs(F)→Z[2]:
IfN=-1:
ThenGotoP:
ElseGotoQ:
Z[2]→Y:
IfZ[2]≤-F:
Else–Z[2]→Z:
LbIQ:
Z[2]→Z:
Else–Z[2]→Y:
LbIL:
Lbl9:
"ZC=1,YC=2"?
X:
IfX=1:
ThenGotoV:
EIseGotoW:
IfEnd
IblV:
”BJZ”?
”BHZ=”:
H+J×
IblW:
”BJY”?
”BHY=”:
H+S×
Y◢
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 卡西欧 5800 完整 程序