最新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-右）
（歪哥哥郑重声明：
代码无误，输入注意！
使用者使用不当所造成的一切损失概不负责！
！
）
升级会员 