最新Casio5800交点法程序线路任意中边桩坐标计算汇总文档格式.docx
- 文档编号:3230045
- 上传时间:2023-05-01
- 格式:DOCX
- 页数:6
- 大小:16.40KB
最新Casio5800交点法程序线路任意中边桩坐标计算汇总文档格式.docx
《最新Casio5800交点法程序线路任意中边桩坐标计算汇总文档格式.docx》由会员分享,可在线阅读,更多相关《最新Casio5800交点法程序线路任意中边桩坐标计算汇总文档格式.docx(6页珍藏版)》请在冰点文库上搜索。
Y:
"LS1"?
B:
"LS2"?
C:
?
R:
"(ZH)FWJ°
"?
M:
"α(Z-,Y+)°
O:
M+O→N:
Prog"JDA"↙
"T1=":
"T2=":
"L=":
"LY=":
Locate4,1,S:
Locate4,2,T:
Locate4,3,L:
Locate4,4,Q◢
"E=":
"K(ZH)=":
Locate7,1,E:
Locate7,2,Z[1]◢
"K(HY)=":
"K(QZ)=":
"K(YH)=":
"K(HZ)=":
Locate7,1,Z[2]:
Locate7,2,Z[3]:
Locate7,3,Z[4]:
Locate7,4,Z[5]◢
LbI0:
"K×
+×
×
P:
"Z"?
D:
IfD≠0:
Then"RJ"?
H:
IfEnd:
Prog"JDB"↙
IfD<0:
ThenCls:
"X(L)=":
"Y(L)=":
Locate6,1,F:
Locate6,2,G◢
Pol(F-U,G-V:
Cls:
"S(L)=":
Locate6,1,I:
"F(L)=":
360Frac((J+360)÷
360▼DMS◢
Goto0:
IfEnd↙
IfD=0:
"X(Z)=":
"Y(Z)=":
Locate6,2,G:
"QXFWJ(Z)=":
Z▼DMS◢
"S(Z)=":
"F(Z)=":
IfD>0:
"X(R)=":
"Y(R)=":
"S(R)=":
"F(R)=":
子程序1名:
JDA
IfO<0:
Then-1→W:
Else1→W:
WO→A↙
B2÷
24÷
R-B^(4)÷
2688÷
R^(3)→Z[6]↙
C2÷
R-C^(4)÷
R^(3)→Z[7]↙
B÷
2-B^(3)÷
240÷
R2→Z[8]↙
C÷
2-C^(3)÷
R2→Z[9]↙
Z[8]+((R+Z[7]-(R+Z[6])cos(A))÷
sin(A))→S↙
Z[9]+((R+Z[6]-(R+Z[7])cos(A))÷
sin(A))→T↙
RAπ÷
180+(B+C)÷
2→L↙
180-(B+C)÷
2→Q↙
(R+(Z[6]+Z[7])÷
2)÷
cos(A÷
2)-R→E↙
K-S→Z[1]↙↙
Z[1]+B→Z[2]↙↙
Z[2]+Q÷
2→Z[3]↙
Z[1]+L-C→Z[4]↙
Z[4]+C→Z[5]↙
子程序2名:
JDB
X-Scos(M)→Z[19]:
Y-Ssin(M)→Z[20]↙
X+Tcos(N)→Z[21]:
Y+Tsin(N)→Z[22]↙
IfP>Z[1]:
ThenGoto1:
IfEnd↙
Z[1]-P→L↙
X-(S+L)cos(M)+Dcos(Z+H)→F↙
Y-(S+L)sin(M)+Dsin(Z+H)→G↙
M→Z:
Goto5↙
LbI1:
IfP>Z[2]:
ThenGoto2:
P-Z[1]→L:
L→Z[12]:
B→Z[13]:
Prog"JDC"↙
Z[19]+Z[14]cos(M)-WZ[15]sin(M)+Dcos(Z+H)→F↙
Z[20]+Z[14]sin(M)+WZ[15]cos(M)+Dsin(Z+H)→G↙
M+90WL2÷
(BRπ)→Z↙
Goto5↙
LbI2:
IfP>Z[4]:
ThenGoto3:
90(2L-B)÷
R÷
π→Z[11]↙
Rsin(Z[11])+Z[8]→Z[14]:
R(1-cos(Z[11]))+Z[6]→Z[15]↙
M+WZ[11]→Z↙
LbI3:
IfP>Z[5]:
ThenGoto4:
Z[5]-P→L:
C→Z[13]:
Z[21]-Z[14]cos(N)-WZ[15]sin(N)+Dcos(Z+H)→F↙
Z[22]-Z[14]sin(N)+WZ[15]cos(N)+Dsin(Z+H)→G↙
N-90WL2÷
(CRπ)→Z↙
LbI4:
P-Z[5]→L↙
X+(T+L)cos(N)+Dcos(Z+H)→F↙
Y+(T+L)sin(N)+Dsin(Z+H)→G↙
N→Z↙
LbI5:
360Frac((Z+360)÷
360→Z↙
子程序3名:
JDC
IfZ[12]=0:
Then0→Z[14]:
0→Z[15]:
Else↙
Z[12]-Z[12]^(5)÷
40÷
(RZ[13])2+Z[12]^(9)÷
3456÷
(RZ[13])^(4)→Z[14]↙
Z[12]^(3)÷
6÷
(RZ[13])-Z[12]^(7)÷
336÷
(RZ[13])^(3)+Z[12]^(11)÷
42240÷
(RZ[13])^(5)→Z[15]↙
程序说明:
已知数据输入:
XC?
测站X坐标
YC?
测站Y坐标
K(JD)?
交点桩号
X(JD)?
交点X坐标
Y(JD)?
交点Y坐标
LS1?
第一缓和曲线长度
LS2?
第二缓和曲线长度
R?
圆曲线半径
(ZH)FWJ°
?
交点前(即前交点至本交点也即ZH点)的正切线方位角
α(Z-,Y+)?
本交点处线路转角(左转为负,右转为正,度分秒输入)
K×
待求桩号
Z?
待求桩号距中距离(左负值,右正值,中为0)
RJ?
斜交右角(线路切线前进方向与边桩右侧夹角)
计算结果显示:
T1=第一切线长
T2=第二切线长
L=曲线总长
LY=圆曲线长
E=曲线外距
K(ZH)=直缓点桩号
K(HY)=缓圆点桩号
K(QZ)=曲中点桩号
K(YH)=圆缓点桩号
K(HZ)=缓直点桩号
X=Y=待求点的坐标(其中:
L-左Z-中R-右)
QXFWJ(Z)=待求点的中桩切线方位角(当求中桩坐标时显示)
S=F=测站至待求点的水平距离、方位角(其中L-左Z-中R-右)
(歪哥哥郑重声明:
代码无误,输入注意!
使用者使用不当所造成的一切损失概不负责!
!
)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 最新 Casio5800 交点 程序 线路 任意 中边桩 坐标 计算 汇总