文件名：QX （计算圆曲线或缓和曲线中点、法线点坐标）
Defm1
Z"FX=Z:Y"= 线路前进方向左转输1，右转输2
F"F1"= 直缓点往交点切线方位角
K"F2"= 缓直点往交点切线方为角
H"H1"= 第一段缓和曲线长
Z［1］"H2"= 第二段缓和曲线长
R= 半径
A"ZHX"= 直缓点Ｘ坐标
B"ZHY"= 直缓点Ｙ坐标
V"ZH"= 直缓点里程
○"HY"= 缓圆点里程
U"YH"= 圆缓点里程
C"HZ"= 缓直点里程
W"HZX"= 缓直点Ｘ坐标
S"HZY"= 缓直点Ｙ坐标
D＜V＝＞Goto4: ≠ ＝＞D≥V＝＞D ≤O＝＞Goto1: ≠ ＝ ＞D ≤U＝＞Goto2: ≠ ＝ ＞D ≤C＝＞Goto3：≠ ＝ ＞Goto4 8
Ｌb1 1 :L=D-V: X=L- L∧5÷(40（HR）2)+ L∧9÷3456÷（RH）∧4: Y= L∧3÷(6HR)- L∧7÷336÷R∧3÷H∧3+ L∧11÷42240÷（RH）∧5: Q=F+90+90 L2÷(RHπ): Z=1＝＞Y=-Y: Q =F+90-90 L2÷(RHπ)ΔQ＞360＝＞Q=Q-360ΔM=A+XcosF- YsinF: N=B+XsinF+YcosF:X=EcosQ+M:X"X="◢
Y=EsinQ+N:Y"Y="◢
Q"Q="◢
Goto 4
Ｌb1 2 : L=D-O:M=H÷2-H∧3÷(240R2):P=H2÷24÷R-H∧4÷(2688R∧3):J=L×180÷R÷π+（90H÷(Rπ)): X=Rsin J+ M:Y=R(1-cosJ)+P: Q=F+90+90(H+2L)÷(Rπ):Z=1＝＞Y=-Y:Q=F+90
-90(H+2L)÷(Rπ)ΔQ＞360＝＞Q=Q-360ΔM=A+XcosF-YsinF:N=B+XsinF+ YcosF:X=EcosQ+M:
X"X="◢
Y=EsinQ+N:Y"Y="◢
Q"Q="◢
Goto 4
Ｌb1 3: L=Abs(D-C):X=L-L∧5÷(40(Z［1］R)2)+L∧9÷3456÷（R Z［1］）∧4:Y=L∧3÷(6Z［1］R)-L∧7÷336÷R∧3÷Z［1］∧3+L∧11÷42240÷（R Z［1］∧5 :Q=K+270+90 L 2÷(R Z［1］π): Z=2＝＞Y=-Y:Q
=K+270-90L 2÷(R Z［1］π)ΔQ＞360＝＞Q=Q-360ΔM=W+XcosK- YsinK: N=S+XsinK+ YcosK:X=E
cosQ+M:X"X="◢
Y=EsinQ+N:Y"Y="◢
Q"Q="◢
Goto 4
Ｌb1 4:""
说明：1 计算时D为待求点里程， E为偏距左负、右正 。