QXZB(曲线坐标)
A〝ZH(ZH)=〞:B〝X(ZH)=〞:C〝Y(ZH)=〞:D〝X(HZ)=〞:E〝Y(HZ)=〞:F〝FWJ-1=〞:G〝FWJ-2=〞:H〝R=〞:I〝L1=〞:J〝L=〞:K〝L2=〞:L〝ZJ(Z=1,Y=-1)=〞
O=180/pi
LbI A
{MN}
M〝ZHUANG HAO=〞
P=M-A
M<A?GOTO A⊿
M>(A+I+J+K)?GOTO A⊿
N〝ZHUANG JU(Z+,Y-)=〞
M>(A+I+J)?GOTO D⊿
M>(A+I)?GOTO C⊿
LbI B
X=B+(P-(P5÷40÷H2÷I2))COSF+(P3÷6÷H÷I-P7÷336÷H3÷I3)LSINF
Y=C+(P-(P5÷40÷H2÷I2))SINF-(P3÷6÷H÷I-P7÷336÷H3÷I3)LCOSF
X=X+NCOS(F-(P2÷2÷H÷I)OL-90)◢
Y=Y+NSIN(F-(P2÷2÷H÷I)OL-90)◢
GOTO A
LbI C
X=B+(HSIN(((P-I)÷H+I÷2÷H)O)+(I÷2-I3÷240÷H2))COSF-(H(1-COS(((P-I)÷H+I÷2÷H)O))+ I2÷24÷H)(-1)LSINF
Y=C+(HSIN(((P-I)÷H+I÷2÷H)O)+(I÷2-I3÷240÷H2))SINF+(H(1-COS(((P-I)÷H+I÷2÷H)O))+I2÷24÷H)(-1)LCOSF
X=X+NCOS(F-((P-I)÷H+I÷2÷H)OL-90)◢
Y=Y+NSIN(F-((P-I)÷H+I÷2÷H)OL-90)◢
GOTO A
LbI D
Q=A+I+J+K-M
X=D-(Q-Q5÷40÷H2÷K2)COSG+(Q3÷6÷H÷K-Q7÷336÷H3÷K3)LSING
Y=E-(Q-Q5÷40÷H2÷K2)SING-(Q3÷6÷H÷K-Q7÷336÷H3÷K3)LCOSG
X=X+NCOS(F-(I÷2÷H+J÷H+K÷2÷H-Q2÷2÷H÷K)OL-90)◢
Y=Y+NSIN(F-(I÷2÷H+J÷H+K÷2÷H-Q2÷2÷H÷K)OL-90)◢
GOTO A

变量说明：
以上变量依次为：
ZH(ZH)=直缓点桩号
X(ZH)=直缓点X坐标
Y(ZH)=直缓点Y坐标
X(HZ)=缓直点X坐标
Y(HZ)=缓直点Y坐标
FWJ-1=第一切线方位角
FWJ-2=第二切线方位角
R=半径；
L1=第一缓和曲线长
L=圆曲线长
L2=第二缓和曲线长
ZJ(Z=1,Y=-1)=转角形式(左=1，右=-1)
ZHUANG HAO=所求点桩号
ZHUANG JU(Z+,Y-)=边桩桩距，左边桩为正，右为负，中桩0