测设缓和曲线和圆曲线的程序

测设缓和曲线和圆曲线的程序（ƒx-4800p）
说明：W---W=0时在圆曲线上设站测设圆曲线；W=1时在缓和曲线上设站测设缓和曲线；
W=2时在缓和曲线上设站测设圆曲线；Z---ZH(或HZ)的桩号；
C---测站的桩号；H---HY(或YH)的桩号；R---半径；
A---缓和曲线参数；N---N=0时前视，N=1时后视；L---缓和曲线长度。

程序：W：Z：C：H：R：A：N：L↙
Lbi1↙〔I〕↙
W=0=>J=Abs(C-I)÷2÷R×180÷π◢
S=2×R×SinJ◢ GOTO 1⊿↙
W=1=>J=180×Abs(I-C)×(3×Abs(Z-C)+(-1)＾N ×Abs(I-C))÷6 ÷π÷R÷L◢
P=(Abs(Z-C)÷Abs(I-Z))＾(1-2×N):
S= Abs(I-C)-(Abs(I-Z))＾5×(0.8-P-P＾2+P＾3+P＾4-0.8 ×P＾5)÷72÷R＾2÷L＾2◢ GOTO 1⊿↙
W=2=>E=(Abs(C-H)÷6÷A＾2×(3×Abs(Z-H)+Abs(C-H)))×180÷π:
F=(Abs(C-H)÷6÷A＾2×(3×Abs(Z-C)+Abs(C-H)))×180÷π:
P=Abs(C-Z)÷Abs(H-Z):
Q= Abs(C-H)-(Abs(H-Z))＾5÷72÷A＾4×(0.8-P-P＾2+P＾3+P＾4-0.8×P＾5):
M= Abs(I-H)÷2÷R×180÷π: G=180-(E+M):
S=√(Q＾2+(2×R×SinM)＾2-2×Q×2×R×SinM×COSG ◢J=Sin-1(2×R×SinM×SinG÷S)+F◢ GOTO 1⊿↙结束
直线、缓和曲线、圆曲线坐标计算方法（ƒx-4800p）
说明：W---W=0时计算直线段坐标；W=1时计算缓和曲线段坐标；W=2时计算圆曲线段；
E---已知点的X0坐标；F---已知点的Y0坐标；Q---已知点的桩号；
R---半径；A---缓和曲线参数；N---N=0时右偏，N=1时左偏；
M---M=0时ZH(ZY或HY)为起点，M=1时HZ(YZ或YH) 为起点；
J---已知的坐标方位角；I---计算点的桩号。

程序：W：E：F：Q：R：A：N：M：J↙
Lbi1↙〔I〕↙
H= Abs (I-Q)↙
W=0=>X=E+H×COSJ◢ Y=F+H×SinJ◢
GOTO 1⊿↙
W=1=>Z=H-H＾5÷40÷A＾4+H＾9÷3456÷A＾8-H＾13÷599040÷A ＾12+H＾17÷17542600÷A＾16↙
D=H＾3÷6÷A＾2-H＾7÷336÷A＾6+H＾11÷42240÷A＾10-H ＾15÷9676800÷A＾14+H＾19÷3530097000÷A＾18↙X=E+Z×COSJ-(-1)＾N×(-1)＾M×D×SinJ◢
Y=F+Z×SinJ+(-1)＾N×(-1)＾M×D×COSJ◢
GOTO 1⊿↙
W=2=>S=2×R×Sin(Abs(H)×180÷π÷2÷R) ↙
K=J+(-1)＾N×(-1)＾M×Abs(H)×180÷π÷2÷R↙
X=E+S×COSK◢
Y=F+S×SinK◢
GOTO 1⊿↙。