子程序2名： JDB

X-Scos(M)→Z[19]:

Y-Ssin(M)→Z[20]↙

X+Tcos(N)→Z[21]:

Y+Tsin(N)→Z[22]↙

If P＞Z[1]:Then Goto 1 :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 : Goto 5↙

LbI 1 : If P＞Z[2]:Then Goto 2 :IfEnd↙

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↙ Goto 5↙

LbI 2 : If P＞Z[4]:Then Goto 3 :IfEnd↙

P-Z[1]→L:90(2L-B)÷R÷π→Z[11]↙

Rsin(Z[11])+Z[8]→Z[14]:R(1-cos(Z[11]))+Z[6]→Z[15]↙

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+WZ[11]→Z↙ Goto 5↙

LbI 3 : If P＞Z[5]:Then Goto 4 :IfEnd↙

Z[5]-P→L:L→Z[12]:C→Z[13]:Prog＂JDC＂↙

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↙ Goto 5↙

LbI 4 : P-Z[5]→L↙

X+(T+L)cos(N)+Dcos(Z+H)→F↙

Y+(T+L)sin(N)+Dsin(Z+H)→G↙

N→Z↙ Goto 5↙

LbI 5 : 360Frac((Z+360)÷360→Z↙

子程序3名： JDC

If Z[12]=0 :Then 0→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] ↙ IfEnd↙

程序说明：

已知数据输入：

XC ? 测站X坐标

YC ? 测站Y坐标

K（JD）?交点桩号

X（JD）?交点X坐标

Y（JD）?交点Y坐标

LS1 ?第一缓和曲线长度

LS2 ?第二缓和曲线长度

R ? 圆曲线半径

（ZH）FWJ°?交点前（即前交点至本交点也即ZH点）的正切线方位角