2024年4月13日发(作者：仲孙恨竹)
5800坐标正反算程序
“ SZThen XY”： “2. If XYThen SZ”：“N=”？ →N：起点X→U：起点Y
→V：起点里程→O：起点方位角→G：曲线长度→H：起点曲率半径→P：终点
曲率半径→R：（左偏－1；直线0；右偏1）→Q：1÷P→C：（P－R）÷(2HPR)
→D：180÷π→E：If 1→N：Then Goto 1：Else Goto 2：IfEnd←
Lbl 1：“S＝”？→S：“Z＝”？→Z：Abs(S－O)→W：Prog “SUB1” ：X→X▲
Y→Y▲
Lbl 2：“X＝”？→X：“Y＝”？→Y：X→I：Y→J：Prog “SUB2”：O+W→S▲
Z→Z▲
Goto 2
正算子程序SUB1
0.1739274226→A：0.3260725774→B：0.→K：0.3300094782→L：1
－L→F：1－K→M：U+W（Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+
Bcos(G+QEFW(C+FWD))+A cos(G+QEMW (C+MWD)))→X：
V+W（Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW
(C+FWD)) +Asin(G+QEMW+(C+MWD)))→Y：G+QEW(C+WD)+90→F：
X+ZcosF→X：Y+ZsinF→Y←
反算子程序SUB2
G－90→T：Abs((Y－V)cosT－(X－U)sinT)→W：0→Z：Lbl 0：Prog “SUB1”：
T+QEW(C+WD) →L：（J－Y）cosL－(I－X)sinL→Z：If AbsZ＜0.000001：Then
Goto1：Else W+Z→W：Goto0：IfEnd←
Lbl 1：0→Z：Prog“SUB1”：（J－Y）÷sinF→Z
5800坐标反算程序
Lbl 0：“X=”?→X：“Y＝”？→Y：焦点X→N：焦点Y→E：转向角→A：半径
→R：缓和曲线长→C：切线长→T：直缓点里程→G：缓直点里程→M：方位角
→F：If G＜M：Then 1→P：F→U：Else －1→P：F+A→U：IfEnd←
If A＞0：Then 1→Z：Else －1→Z：IfEnd←
Pol(X－N，Y－E) ←
G+PT+Rec(I,J－U)→S：J→D←
If G＞M：Then Goto3：IfEnd←
If S≤G ：Then S→K▲
ZD→Q▲
Goto 0←
Else Goto4：IfEnd←
Lbl 3←
If S≥G：Then S→K▲
ZD→Q▲
Goto 0←
Lbl 4←
C
2
÷24÷R－C
4
÷2688÷R
3
→W：C÷2－C
3
÷240÷R
2
→V：90C÷R÷π→B：
←
Pol(P(S－G) －V，ZD－R－W) ←
If J≥B－90：Then Goto 5：IfEnd←
P(S－G)+P(S－G)
5
÷40÷R
2
÷C
2
→Z←
Z
3
÷(6RC) →H←
If A＞0：Then D－H→W：Else －D－H→ W：IfEnd←
If RC≤2WC： Then RC÷W→Z：Else(RC－√（R
2
C
2
－2RCWZ）) ÷W→Z：
IfEnd←
G+PZ→K▲
K－PZ
5
÷(40R
2
C
2
) →V：Z
3
÷(6RC) →H←
If A＜0：Then －1→Z：Else 1→Z：IfEnd←
√((S－V)
2
+(ZD－H)
2
) →W←
If ZD≥H：Then W→Q▲
Else －W→Q▲
IfEnd←
Goto 0←
Lbl 5←
(90+J)π÷180－C÷2R→J←
If RJ≥P(M－G) －2C：Then Goto 6：IfEnd←
G+P(C+JR) →K▲
R－I→Q▲
Goto 0←
Lbl 6←
Pol(P(S－G) －T，ZD) ←
M－P(T－Rec(I，J－AbsA)) →O←
If G＞M： Then Goto 7：IfEnd←
If O＞M：Then O→K▲
J→O▲
Goto 0←
Else Goto 8：IfEnd←
Lbl 7←
If O≤M：Then O→K▲
J→Q▲
IfEnd←
Goto 0←
Lbl 8←
P(M－O)+P(M－O)
5
÷(40R
2
C
2
) →Z←
Z
3
÷(6RC)) →H←
J－H→W←
If RC≤2WZ：Then RC÷W→Z：Else(RC－√(R
2
C
2
－2RCWZ)) ÷W→Z：IfEnd
←
M－PZ→K▲
K+PZ
5
÷(40R
2
C
2
) →V：Z
3
÷(6RC) →H：√（（O－V）
2
+(J－H)
2
）→W←
If J≥H：Then W→Q▲
Else －W→Q
IfEnd←
Goto 0←
2024年4月13日发(作者：仲孙恨竹)
5800坐标正反算程序
“ SZThen XY”： “2. If XYThen SZ”：“N=”？ →N：起点X→U：起点Y
→V：起点里程→O：起点方位角→G：曲线长度→H：起点曲率半径→P：终点
曲率半径→R：（左偏－1；直线0；右偏1）→Q：1÷P→C：（P－R）÷(2HPR)
→D：180÷π→E：If 1→N：Then Goto 1：Else Goto 2：IfEnd←
Lbl 1：“S＝”？→S：“Z＝”？→Z：Abs(S－O)→W：Prog “SUB1” ：X→X▲
Y→Y▲
Lbl 2：“X＝”？→X：“Y＝”？→Y：X→I：Y→J：Prog “SUB2”：O+W→S▲
Z→Z▲
Goto 2
正算子程序SUB1
0.1739274226→A：0.3260725774→B：0.→K：0.3300094782→L：1
－L→F：1－K→M：U+W（Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+
Bcos(G+QEFW(C+FWD))+A cos(G+QEMW (C+MWD)))→X：
V+W（Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW
(C+FWD)) +Asin(G+QEMW+(C+MWD)))→Y：G+QEW(C+WD)+90→F：
X+ZcosF→X：Y+ZsinF→Y←
反算子程序SUB2
G－90→T：Abs((Y－V)cosT－(X－U)sinT)→W：0→Z：Lbl 0：Prog “SUB1”：
T+QEW(C+WD) →L：（J－Y）cosL－(I－X)sinL→Z：If AbsZ＜0.000001：Then
Goto1：Else W+Z→W：Goto0：IfEnd←
Lbl 1：0→Z：Prog“SUB1”：（J－Y）÷sinF→Z
5800坐标反算程序
Lbl 0：“X=”?→X：“Y＝”？→Y：焦点X→N：焦点Y→E：转向角→A：半径
→R：缓和曲线长→C：切线长→T：直缓点里程→G：缓直点里程→M：方位角
→F：If G＜M：Then 1→P：F→U：Else －1→P：F+A→U：IfEnd←
If A＞0：Then 1→Z：Else －1→Z：IfEnd←
Pol(X－N，Y－E) ←
G+PT+Rec(I,J－U)→S：J→D←
If G＞M：Then Goto3：IfEnd←
If S≤G ：Then S→K▲
ZD→Q▲
Goto 0←
Else Goto4：IfEnd←
Lbl 3←
If S≥G：Then S→K▲
ZD→Q▲
Goto 0←
Lbl 4←
C
2
÷24÷R－C
4
÷2688÷R
3
→W：C÷2－C
3
÷240÷R
2
→V：90C÷R÷π→B：
←
Pol(P(S－G) －V，ZD－R－W) ←
If J≥B－90：Then Goto 5：IfEnd←
P(S－G)+P(S－G)
5
÷40÷R
2
÷C
2
→Z←
Z
3
÷(6RC) →H←
If A＞0：Then D－H→W：Else －D－H→ W：IfEnd←
If RC≤2WC： Then RC÷W→Z：Else(RC－√（R
2
C
2
－2RCWZ）) ÷W→Z：
IfEnd←
G+PZ→K▲
K－PZ
5
÷(40R
2
C
2
) →V：Z
3
÷(6RC) →H←
If A＜0：Then －1→Z：Else 1→Z：IfEnd←
√((S－V)
2
+(ZD－H)
2
) →W←
If ZD≥H：Then W→Q▲
Else －W→Q▲
IfEnd←
Goto 0←
Lbl 5←
(90+J)π÷180－C÷2R→J←
If RJ≥P(M－G) －2C：Then Goto 6：IfEnd←
G+P(C+JR) →K▲
R－I→Q▲
Goto 0←
Lbl 6←
Pol(P(S－G) －T，ZD) ←
M－P(T－Rec(I，J－AbsA)) →O←
If G＞M： Then Goto 7：IfEnd←
If O＞M：Then O→K▲
J→O▲
Goto 0←
Else Goto 8：IfEnd←
Lbl 7←
If O≤M：Then O→K▲
J→Q▲
IfEnd←
Goto 0←
Lbl 8←
P(M－O)+P(M－O)
5
÷(40R
2
C
2
) →Z←
Z
3
÷(6RC)) →H←
J－H→W←
If RC≤2WZ：Then RC÷W→Z：Else(RC－√(R
2
C
2
－2RCWZ)) ÷W→Z：IfEnd
←
M－PZ→K▲
K+PZ
5
÷(40R
2
C
2
) →V：Z
3
÷(6RC) →H：√（（O－V）
2
+(J－H)
2
）→W←
If J≥H：Then W→Q▲
Else －W→Q
IfEnd←
Goto 0←