程序23

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

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 1：Prog＂PQ＂：J=(R+P-RcosN)÷sinN：J=Int(E4J)÷E4：

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

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

程序24

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

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＂LYA＂=Ｏ兀M÷180-I÷2◢Y＂LYB＂=R兀N÷180-H÷2◢L=X+Y+I+H◢Prog＂PQ＂：

U＂TA=＂◢V＂TB＂=H÷2+(R-(R+P)conN)÷sinN◢Z＂JDA K+＂：F＂ZH＂=Z-U◢

F＂HY＂=F+I◢F＂GQ＂=F+X◢F＂YH＂=F+Y◢F＂HZ＂=F+H◢T=X+I：W＂NO=＂↓

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

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

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

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

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

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

程序25

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

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 1：Prog＂PQ＂：Ｏ=R：Prog＂PQ1＂：S=(R+X-(R+P)cosJ)÷sinJ+Q：S=Int(E4S)÷E4：

S=T=>R◢≠>S＞T=>E=R：≠>D=R⊿R=(D+E)÷2：Goto 1⊿（只要PJB=0，AB=0即可计算单交点。）

程序26

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

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◢U＂TA＂=S-KsinN÷sin(180-J)◢

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

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

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

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

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

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

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

程序27

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

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

程序28

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

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 1：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 1⊿

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 2：≠>G＜0=>＂LYB＜0＂◢Goto 2⊿⊿

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

Lbl 2：＂RECHANGE LS1 LS2 RA＂◢

程序29

程序名：LQXF　（两点虚交卵型曲线的计算与敷设程序）                                    788字节

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

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

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

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

Z＂JDA K+＂：J＂ZH＂=Z-U◢J＂HY＂=J+I◢J＂YHA＂=J+E◢J＂GQ＂=J+C÷2◢

J＂HYB＂=J+C÷2◢J＂YH＂=J+G◢J＂HZ＂=J+H◢W＂NO=＂↓

Lbl 3：{W}：A=W-Z+U：A＞I+E+C÷2=>A=L-A：Goto 4⊿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÷兀÷Ｏ：F＂JDA X＂=S-ＯsinB◢

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

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

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

Lbl 4：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：F＂JDA X＂=S+RsinB◢

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

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

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

程序29

程序名：LQXF　（两点虚交卵型曲线的计算与敷设程序）                                    788字节

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

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

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

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

Z＂JDA K+＂：J＂ZH＂=Z-U◢J＂HY＂=J+I◢J＂YHA＂=J+E◢J＂GQ＂=J+C÷2◢

J＂HYB＂=J+C÷2◢J＂YH＂=J+G◢J＂HZ＂=J+H◢W＂NO=＂↓

Lbl 3：{W}：A=W-Z+U：A＞I+E+C÷2=>A=L-A：Goto 4⊿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÷兀÷Ｏ：F＂JDA X＂=S-ＯsinB◢

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

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

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

Lbl 4：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：F＂JDA X＂=S+RsinB◢

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

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

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