程序15

程序名：HTQX　（回头曲线之圆曲线部分敷设程序）                                          214字节

D＂2AB-3ABC＂：D=2=>Prog＂S2JD＂：≠>Prog＂S3JD＂⊿Z＂JDA K+＂：W＂NO=＂↓

  Lbl A：{W}：C=W-Z+U： Prog＂HY＂：＂ZH X=＂：X◢＂Y=＂：Y◢A=M：B=U：Prog＂ZXY＂：

＂JDA X=＂：X◢＂Y=＂：Y◢A=N：B=K：Prog＂ZXY＂：＂JDB X=＂：X◢＂Y=＂：Y◢

D=2=>Goto A：≠>A=Ｏ：B=I：Prog＂ZXY＂：＂JDC X=＂：X◢＂Y=＂：Y◢⊿Goto A

程序16

程序名：ZH　（缓和曲线敷设子程序）                                                       61字节

X=C-C^5÷(40H²R²)：Y=C^3÷(6RH)-C^7÷(336R^3H^3)

程序17

程序名：HY （圆曲线敷设子程序）                                                          59字节

S=180((C-H)÷R+H÷2÷R)÷兀：X=Q+RsinS：Y=P+R(1-cosS)

程序18

程序名：ZXY （坐标转换子程序）                                                           48字节

F=X：X=(F-B)cosA+YsinA：Y=YcosA-(F-B)sinA

程序19

程序名：PQ (切线增长值和内移值计算子程序1)                                             73字节

B=90H÷R÷兀：P=H²÷6÷R-H^4÷336÷R^3-R(1-cosB)：Q=H-H^3÷40÷R²-RsinB

程序20

程序名：ZN （主点桩号计算子程序）                                                        90字节

Z＂JDA K+＂：＂ZH+＂：F=Z-U◢＂HY+＂： F+H◢＂QZ+＂：F+L÷2◢

＂YH+＂：F+L-H◢＂HZ+＂：F+L◢W＂NO=＂

程序21

程序名：TS  (特殊平曲线设计与敷设主程序)                                                 85字节

G＂1TU-2FU-3FDC-4LQX＂：G=1=>Prog＂TU＂：≠>G=2=>Prog＂FU＂：

≠>G=3=>Prog＂FDCK＂：≠>G=4=>Prog＂LQX＂⊿⊿⊿⊿

程序22

程序名：TU (单交点凸型曲线设计程序)                                                     135字节

J＂PJ=＂：A=兀J÷180：B=J÷2：D＂1T-2E＂：

D=1=>R=T÷((1+A²÷24)tanB+A÷2-A^3÷240) ：＂R=＂：R◢

 ≠>D=2=>R=E÷((1+A²÷24)÷cosB-1) ：＂R=＂：R◢ ⊿⊿＂LS=＂：H=AR◢

程序23

程序名：FU  （两点虚交复曲线设计程序）                                                  239字节

M＂PJA=＂：N＂PJB=＂：K＂AB=＂：I＂LS1=＂：H＂LS2=＂：Ｏ＂RA=＂：Prog＂PQ1＂：

S=(Ｏ+X-ＯcosM)÷sinM：A=(1-cosN)÷sinN：B=K-S：C=H²÷24÷sinN：

R=(B+√(B²-4AC))÷2÷A：F=Int(E4B)÷E4：D=R-1：E=R+1↓

  Lbl A：Prog＂PQ＂：J=(R+P-RcosN)÷sinN：J=Int(E4J)÷E4：

J=F=>Goto B：≠>J＞F=>E=R：≠>D=R⊿R=(D+E)÷2：Goto A⊿↓

Lbl B：R=Int(E3R+0.5)÷E3：＂RB=＂：R◢Prog＂FUF＂

程序24

程序名：FUF  （两点虚交复曲线计算与敷设程序）                                           543字节

M＂PJA=＂：N＂PJB=＂：K＂AB=＂：I＂LS1=＂：H＂LS2=＂：Ｏ＂RA=＂：R＂RB=＂：

Prog＂PQ1＂：D=R：J=H：U=I÷2+(Ｏ-(Ｏ+X)cosM)÷sinM：

X=Ｏ兀M÷180-I÷2：＂LYA=＂：X◢Y=R兀N÷180-H÷2：＂LYB=＂：Y◢＂L=＂：

 L=X+Y+I+H◢Prog＂PQ＂：＂TA=＂：U◢V=H÷2+(R-(R+P)conN)÷sinN：＂TB=＂：V◢

Z＂JDA K+＂：＂ZH+＂：F=Z-U◢＂HY+＂：F=F+I◢＂GQ+＂：F=F+X◢＂YH+＂：F=F+Y◢

＂HZ+＂：F=F+H◢T=X+I：W＂NO=＂↓

Lbl C：{W}：C=W-Z+U：C＞L=>Goto C⊿↓ C≤T=>R=Ｏ：H=I：C≤I=>Prog＂ZH＂：

≠>Prog＂PQ1＂：P=X：Q=Y：Prog＂HY＂⊿X＜U=>＂ZH X=＂：X◢＂Y=＂：Y◢

 ≠>A=M：B=U：Prog＂ZXY＂：＂JDA X=＂：X◢＂Y=＂：Y◢⊿↓

 ≠>C=L-C：R=D：H=J：C≤H=>Prog＂ZH＂：≠>Prog＂PQ＂：Prog＂HY＂⊿

X＜V=>＂JDB X=＂：V-X◢＂Y=＂：Y◢

 ≠>A=N：B=V：Prog＂ZXY＂：＂JDA X=＂：K-X◢＂Y=＂：Y◢⊿⊿Goto C

程序25

程序名：FDC  (两点虚交非对称基本型平曲线切线长控制程序，简写为FK)　              251字节

M＂PJA=＂：N＂PJB=＂：K＂AB=＂：H＂LS1=＂：I＂LS2=＂：U＂TA=＂：J=M+N：

T=U+KsinN÷sin(180-J)：A=1-cosJ：B=(H÷2-T)sinJ：C=I²÷24-H²cosJ÷24：

R=(-B+√(B²-4AC))÷2÷A：D=R-1：E=R+1：T=Int(E4T)÷E4 ↓

Lbl A：Prog＂PQ＂：Ｏ=R：Prog＂PQ1＂：S=(R+X-(R+P)cosJ)÷sinJ+Q：S=Int(E4S)÷E4：

S=T=>＂R=＂：R◢≠>S＞T=>E=R：≠>D=R⊿R=(D+E)÷2：Goto A⊿Prog＂FDCF＂

（只要PJB=0，AB=0即可计算单交点。）

程序26

程序名：FDCF  (两点虚交非对称基本型平曲线设计与敷设程序，简写为FF)                  474字节

M＂PJA=＂：N＂PJB=＂：K＂AB=＂：J=M+N：H＂LS1=＂：I＂LS2=＂：

Prog＂PQ＂：Ｏ=R：Prog＂PQ1＂：S=(R+X-(R+P)cosJ)÷sinJ+Q：T=(R+P-(R+X)cosJ)÷sinJ+Y：

D=JR兀÷180-(H+I)÷2：L=D+I+H：＂L=＂：L◢U=S-KsinN÷sin(180-J)：＂TA=＂：U◢

V=T-KsinM÷sin(180-J)：＂TB=＂：V◢Z＂JDA K+＂：＂ZH+＂：F=Z-U◢＂HY+＂：

F＝F+H◢＂QZ+＂： F+D÷2◢＂YH+＂：F+D◢＂HZ+＂：F+D+I◢W＂NO=＂：E=H ↓

Lbl B：{W}：C=W-Z+U：C≤H=>H=E：Prog＂ZH＂： ≠>C≤H+D=>H=E：Prog＂HY＂：

≠>C=L-C：H=I：Prog＂ZH＂：X＜V=>＂JDB X=＂：V-X◢＂Y=＂：Y◢

≠>A=N：B=V：Prog＂ZXY＂：＂JDA X=＂：K-X◢＂Y=＂：Y◢⊿Goto B⊿⊿↓

X＜U=>＂ZH X=＂：X◢＂Y=＂：Y◢ ≠>A=M：B=U：Prog＂ZXY＂：X＜K=>＂JDA X=＂：X◢

＂Y=＂：Y◢≠>A=N：B=K：Prog＂ZXY＂：＂JDB X=＂：X◢＂Y=＂：Y◢⊿⊿Goto B

程序27

程序名： PQ1  (切线增长值和内移值计算子程序2)                                           73字节

B=90I÷兀÷Ｏ：X=I²÷6÷Ｏ-I^4÷336÷Ｏ^3-Ｏ(1-cosB)：Y=I-I^3÷40÷Ｏ²-ＯsinB

程序28

程序名：LQX 　（两点虚交卵型曲线的设计程序）                                          383字节

M＂PJA=＂：N＂PJB=＂：K＂AB=＂：I＂LS1=＂：H＂LS2=＂：Ｏ＂RA=＂：

Prog＂PQ1＂：S=(Ｏ+X)tan(M÷2)：F=K-S：B=F÷tan(N÷2)：C=H²÷24：

R=(B+√(B²-4C))÷2：D=R-1：E=R+1：F=Int(E4F)÷E4↓

Lbl A：Prog＂PQ＂：J=(R+P)tan(N÷2)：J=Int(E4J)÷E4：

J=F=>R=Int(E3R+0.5)÷E3：≠>J＞F=>E=R：≠>D=R⊿R=(D+E)÷2：Goto A⊿

Prog＂PQ＂：A=P-X：B=ＯR÷Abs(Ｏ-R)：C=√(24B×AbsA)：

E=ＯM兀÷180-I÷2-C÷2：G=RN兀÷180-H÷2-C÷2：

E＜0=>＂LYA＜0＂◢Goto B：≠>G＜0=>＂LYB＜0＂◢Goto B⊿⊿

＂RB=＂：R◢＂LF=＂；C◢Prog＂LQXF＂：

Lbl B：＂RECHANGE LS1 LS2 RA＂◢

程序29

程序名：LQXF

M＂PJA=＂：N＂PJB=＂：K＂AB=＂：I＂LS1=＂：H＂LS2=＂：Ｏ＂RA=＂：R＂RB=＂： C＂LF=＂：

Prog＂PQ1＂：S=(Ｏ+X)tan(M÷2)：＂TA=＂：U=S+Y◢ Prog＂PQ＂：

V=(R+P)tan(N÷2)+Q：＂TB=＂：V◢E=ＯM兀÷180-I÷2-C÷2：＂LYA=＂：E◢

＂LYB=＂：G=RN兀÷180-H÷2-C÷2：＂LYB=＂：G◢L=I+H+E+G+C：＂L=＂：L◢

Z＂JDA K+＂：＂ZH+＂：J=Z-U◢＂HY=＂：J=J+I◢＂YHA+＂：J=J+E◢＂GQ+＂：J=J+C÷2◢＂HYB+＂：J=J+C÷2◢＂YH+＂：J=J+G◢＂HZ+＂：J=J+H◢W＂NO=＂↓

Lbl C：{W}：A=W-Z+U：A＞I+E+C÷2=>A=L-A：Goto D⊿A≤I=> F=A-A^5÷40÷Ｏ^２÷I^２：

J=A^3÷6÷Ｏ÷I-A^7÷336÷Ｏ^3÷I^3：≠>A≤I+E=>B=180(A-I÷2)÷兀÷Ｏ：F=Y+ＯsinB：J=X+Ｏ(1-cosB)：≠>A=I+E+C÷2-A：B=180A÷兀÷Ｏ：＂JDA X=＂：F=S-ＯsinB◢

J=Ｏ(1-cosB)+X+4(P-X)×((C÷2-A)÷C)^3：＂Y=＂：J◢ Goto C⊿⊿↓

F＜U=>＂ZH X=＂：F◢＂Y=＂：J◢ ≠>B=J-(F-U)tanM：

F=(F-U)÷cosM+BsinM：＂JDA X=＂：F◢＂Y=＂：J=BcosM◢⊿Goto C⊿↓

Lbl D：A≤H=>F=A-A^5÷40÷R^２÷H^２：J=A^3÷6÷R÷H-A^7÷336÷R^3÷H^3：

≠>A≤H+G=>B=180(A-H÷2)÷兀÷R：F=Q+RsinB：J=P+R(1-cosB)：≠>A=H+G+C÷2-A：

B=180A÷兀÷R：＂JDA X=＂：F=S+RsinB◢

J=R(1-cosB)+P-4(P-X)×((C÷2-A)÷C)^3：＂Y=＂：J◢ Goto C⊿⊿↓

F＜V=>＂JDB X=＂：V-F◢＂Y=＂：J◢ ≠>B=J-(F-V)tanN：

F=K-(F-V)÷cosN-BsinN：＂JDA X=＂：F◢＂Y=＂：J=BcosN◢⊿Goto C