5800坐标计算程序

5800坐标计算程序
程序目的：依平曲线要素计算直线、圆曲线、缓和曲线的任意中桩、左、右桩坐标。

程序说明：KO：起始桩号，XO：起始X坐标，YO：起始Y坐标，ALF：起始方位角，R：半径，LS：缓和曲线长，N：曲线左转取1、右转取2，K：待求桩号，B、C：左、右桩距离，
Q：左、右桩与中线斜交角，求得XZ、YZ、XL、YL、XR、YR分别为中桩、左、右桩坐标。

1、直线段
文件名：ZX(COMP)
程式：”KO=”?→ L:”XO=”?→O:”YO=”?→P:”ALF”?→W:”Q=”?→Q↙Lb1 0
”K=”?→K↙
”XZ=”:O+(K-L)cos(W)→X◢
”YZ=”:P+(K-L)sin(W)→Y◢
”B=”?→B↙
”XL=”:X-Bcos(W+Q)→S◢
”YL=”:Y-Bsin(W+Q)→T◢
”C=”?→C↙
”XR=”:X+Ccos(W+Q)→U◢
”YR=”:Y+Csin(W+Q)→V◢
Goto0↙
↙
注：在程序执行过程中，赋给的要素变数的值被固定不变，可对变数(K、B、C)赋予不同值，迅速求得所需坐标。

2、圆曲线段
文件名：YQX(COMP)
程式：”KO=”?→ L:”XO=”?→O:”YO=”?→P:”ALF=”?→W:”Q=”?→Q: ”R=”?→R: ”N=”?→N: Lb1 1↙
”K=”?→K↙
180*(-1)^N*(K-L)/(Rπ)→J:2Rsin((-1)^NJ/2)→D:↙
”XZ=”:O+Dcos(W+J/2)→X◢
”YZ=”:P+Dsin(W+J/2)→Y◢
”B=”?→B↙
”XL=”:X-Bcos(W+Q+J)→S◢
”YL=”:Y-Bsin(W+Q+J)→T◢
”C=”?→C↙
”XR=”:X+Ccos(W+Q+J)→U◢
”YR=”:Y+Csin(W+Q+J)→V◢
Goto1↙
注：若没有直接HY点方位角，则ALFHY=ALFZH±Ls/2/R*180/π，(左转-，右转+)
3、缓和曲线
文件名：HHQX(COMP)
程式：”KO=”?→ L:”XO=”?→O:”YO=”?→P:”ALF=”?→W:”Q=”?→Q: ”LS=”?→M: ”R=”?→R: ”N=”?→N:↙
Lb1 3↙
”K=”?→K↙
180*(-1)^N*(K-L)^2/(MR6π)→I:(K-L)-(K-L)^5/(90R^2M^2)→D:↙
”XZ=”:O+Dcos(W+I)→X◢
”YZ=”:P+Dsin(W+I)→Y◢
”B=”?→B↙
”XL=”:X-Bcos(W+Q+3I)→S◢
”YL=”:Y-Bsin(W+Q+3I)→T◢
”C=”?→C↙
”XR=”:X+Ccos(W+Q+3I)→U◢
”YR=”:Y+Csin(W+Q+3I)→V◢
Goto3↙
↙
注：1、坐标计算方法是根据偏角法原理；2、缓和曲线(ZH～HY或YH～HZ)以ZH(或HZ)为起始点；3、平曲线左转(ZH～HY段N=1，YH～HZ段N=2),曲线右转(ZH～HY段N=2，YH～HZ段N=1)。