2024年4月13日发(作者：景欣欣)
]
一、曲线程序5800
“Q”?Q:“W”?W:“K”?K:“R”?R:“F”?F:“N”?N:“V”?V:
“G”?G◢
∧2
“M=”:V÷2-V(3) ÷(240R) →M◢
2∧∧
“P=”:V÷(24R)-V(4) ÷(2688R(3)) →P◢
“L=”: ΠRN÷180+V→L◢
“T=”:（R+P）tan(N÷2)+M→T◢
“A=”:Q-T→A◢
“B=”:A+V→B◢
“D=”:A+L→D◢
“C=”:D-V→C◢
Rec(T,F+180)回车键
“Z[1]= ”:W+I→Z[1] ◢
“Z[2]= ”:K+J→Z[2] ◢
Rec(T,F+GN) 回车键
“Z[3]= ”:W+I→Z[3] ◢
“Z[4]= ”:K+J→Z[4] ◢
Lbl 零回车键
“S”?S:“H”?H:“E”?E 回车键
S÷(Abs(S+10
×10
-9))→U:Abs(S)→S回车键
If H＜A:Then Goto1:Else If H＜B:Then Goto 2：Else If H
＜C:Then Goto 3: Else If H＜D:Then Goto 4: Else Goto 5:If
End If End If End If End If End回车键
Rec(Q-H,F+180)回车键
W+I→X:K+J→Y回车键
Rec(S,F+180-(180-E)U)回车键
X+I→X◢
Y+J→Y◢
SU→S回车键
Goto 零 回车键
Lbl 2回车键
H-A→Z◢
2
90Z÷(ΠRV)→O回车键
“X=”:Z-Z(5)÷(40RV)+ Z(9)÷(3456R(4)V(4))
→X回车键
∧∧∧∧∧∧
Z(3)÷(6RV)- Z(7)÷(336R(3)V(3)+ Z(11)÷42240 R
∧
(5)V(5)→Z回
Lbl 6回车键
Rec(X,F) 回车键
Z[1]+I→X:Z[2]+J→Y回车键
Rec(Z,F+90G) 回车键
X+I→X:Y+J→Y回车键
Rec(S,F+OG+EU) 回车键
“X=”:X+I→X◢
“Y=”:Y+J→Y◢
SU→S回车键
Goto 零 回车键
Lbl 3回车键
H-A-V→Z回车键
180V÷(2RΠ)→T回车键
180Z÷(RΠ)+T→O回车键
“X=”:Rsin(o)+M→X回车键
R(1-cos(O))+P→Z回车键
Goto 6 回车键
Lbl 4回车键
D-H→Z回车键
2
90Z÷(ΠRV)→O回车键
∧22∧∧∧
“X=”:Z-Z(5)÷(40RV)+ Z(9)÷(3456R(4)V(4))→X回车
键
∧∧∧∧∧∧
Z(3)÷(6RV)- Z(7)÷(336R(3)V(3))+ Z(11)÷(42240 R
∧
(5)V(5))→Z回车键
Rec(X,F+GN+180) 回车键
Z[3]+I→X:Z[4]+J→Y回车键
Rec(Z,F+GN+180-90G) 回车键
X+I→X:Y+J→Y回车键
Rec(S,F+GN+180-OG-(180-E)U) 回车键
“X=”:X+I→X◢
∧22∧∧∧
2024年4月13日发(作者：景欣欣)
]
一、曲线程序5800
“Q”?Q:“W”?W:“K”?K:“R”?R:“F”?F:“N”?N:“V”?V:
“G”?G◢
∧2
“M=”:V÷2-V(3) ÷(240R) →M◢
2∧∧
“P=”:V÷(24R)-V(4) ÷(2688R(3)) →P◢
“L=”: ΠRN÷180+V→L◢
“T=”:（R+P）tan(N÷2)+M→T◢
“A=”:Q-T→A◢
“B=”:A+V→B◢
“D=”:A+L→D◢
“C=”:D-V→C◢
Rec(T,F+180)回车键
“Z[1]= ”:W+I→Z[1] ◢
“Z[2]= ”:K+J→Z[2] ◢
Rec(T,F+GN) 回车键
“Z[3]= ”:W+I→Z[3] ◢
“Z[4]= ”:K+J→Z[4] ◢
Lbl 零回车键
“S”?S:“H”?H:“E”?E 回车键
S÷(Abs(S+10
×10
-9))→U:Abs(S)→S回车键
If H＜A:Then Goto1:Else If H＜B:Then Goto 2：Else If H
＜C:Then Goto 3: Else If H＜D:Then Goto 4: Else Goto 5:If
End If End If End If End If End回车键
Rec(Q-H,F+180)回车键
W+I→X:K+J→Y回车键
Rec(S,F+180-(180-E)U)回车键
X+I→X◢
Y+J→Y◢
SU→S回车键
Goto 零 回车键
Lbl 2回车键
H-A→Z◢
2
90Z÷(ΠRV)→O回车键
“X=”:Z-Z(5)÷(40RV)+ Z(9)÷(3456R(4)V(4))
→X回车键
∧∧∧∧∧∧
Z(3)÷(6RV)- Z(7)÷(336R(3)V(3)+ Z(11)÷42240 R
∧
(5)V(5)→Z回
Lbl 6回车键
Rec(X,F) 回车键
Z[1]+I→X:Z[2]+J→Y回车键
Rec(Z,F+90G) 回车键
X+I→X:Y+J→Y回车键
Rec(S,F+OG+EU) 回车键
“X=”:X+I→X◢
“Y=”:Y+J→Y◢
SU→S回车键
Goto 零 回车键
Lbl 3回车键
H-A-V→Z回车键
180V÷(2RΠ)→T回车键
180Z÷(RΠ)+T→O回车键
“X=”:Rsin(o)+M→X回车键
R(1-cos(O))+P→Z回车键
Goto 6 回车键
Lbl 4回车键
D-H→Z回车键
2
90Z÷(ΠRV)→O回车键
∧22∧∧∧
“X=”:Z-Z(5)÷(40RV)+ Z(9)÷(3456R(4)V(4))→X回车
键
∧∧∧∧∧∧
Z(3)÷(6RV)- Z(7)÷(336R(3)V(3))+ Z(11)÷(42240 R
∧
(5)V(5))→Z回车键
Rec(X,F+GN+180) 回车键
Z[3]+I→X:Z[4]+J→Y回车键
Rec(Z,F+GN+180-90G) 回车键
X+I→X:Y+J→Y回车键
Rec(S,F+GN+180-OG-(180-E)U) 回车键
“X=”:X+I→X◢
∧22∧∧∧