主程序
QLC
Fix 4 : “CM=”? L: “CX=”? O: “CY=”? P :Prog“XH”:
QZB
Fix 4 : “CM=”? L: “PJ=>Z-,Y+”? U: “PJ=>°”?Q: Prog“XH”
子程序
XH
If L≤第一里程: Then Prog“X1” ↙
Else If L≤第二里程: Then Prog“X2” ↙
Else If L≤第三里程: Then Prog“X3” ↙
Else If L≤第三里程: Then Prog“ZXD”
X1
Prog“SJK”
Prog“AA”
Prog“YY1”
Prog“AB”
Prog“TJBB”
Return
X2
Prog“SJK”
Prog“AA”
Prog“YY2”
Prog“AB”
Prog“TJBB”
Return
X3
Prog“SJK”
Prog“AA”
Prog“YY2”
Prog“AB”
Prog“TJBB”
Return
DCLC
Pol〔O-X,P-Y〕↙
J≤0=>J=J+360Δ↙
A→M:Z=J-M:Z【1】=ICosZ:“CKM=”: L+ Z【1】→L◢
“CPJ=” :IsinZ→U◢
DCZB
A→M:“X1=”:X+Ucos (M+Q) →X ◢
“Y1=”:Y+Usin (M+Q) →Y ◢
AA
I=B-A+180↙
I <0=>I=I+360Δ↙
If I<180: Then 1→W: Else -1→W ↙
AB
Lb1 1↙
I=X↙
J=Y↙
X=E+IcosA-JsinA↙
Y=F+IsinA+JcosA↙
Lb1 2↙
X↙
Y↙
TJBB
“N=”?N: If N=1: Then Prog“DCLC”:Else If N=0: Then Prog“DCZB”
YY1
L-D→I: I-I^5÷40R^2C^2→X: -W(I^3÷6RC-I^7÷336R^3C^3) →Y: =A-90WI^2÷πRC→ M
YY2
L-D-C→I: 90(2I+C) ÷πR→J: RsinJ+C÷2-C^3÷240R^2→X: -W(R(1-CosJ)+C^2÷24R) →Y: A-JW→M
YY3
G-L→I: I^5÷40R^2V^2-I→X: -W(I^3÷6RV-I^7÷336R^3V^3) →Y: B+90WI^2÷πRV→M
ZXD
L-D→X : 0→Y
Prog“AB”
Prog“TJBB”