4850计算器程序(lg)

YQX
G=K-D
H=90G/R/π
I=2Rsin H
F=N+2H
C=N+H
X=A+IcosC◢
Y=B+IsinC◢
HHQU
K:J=0（这里是零）:N=N:K<D=>J=1:N=N+180⊿
E= Abs(K-D)
G=RL
X[1]=E-E^5/(40R2 L2)+E^9/G^4/3456-E^13/599040/G^6+E^17/G^8/175472640
Y[1]=E^3/6G- E^7/336/G^3+ E^11/42240/G^5-E^15/G^7/9676800
H=N+Ptan-1(Y[1]/ X[1])
I=√（X[1] 2+ Y[1] 2）
F=N+PE2*90/(Gπ)+180J
X=A+Icos H◢
Y=B+Isin H◢
F≥360=>F=F-360:F≤0=>F+360: ≠=>F
SQX
Deg:V”AO=0（这里是零）”:RTA”JL”B”JH”K”I1”G”I2”:Lb1 0（这里是零）:{Q}:Q<A=>C=A-T:I=K:D=B-TI: ≠=>C=A+T:I=G:D=B+TG: ⊿S=Q-A: √S2≥T=>H=B+SI◢Goto 0: ≠=> Lb1 1:E=Q-C:N=D+EI:Y=E2/2R:V=0（这里是零）=>H=N+Y◢
≠=>H=N-Y◢
⊿Goto 0（这里是零）:⊿Goto 1
ZBZL
{F,S}
X=cos F*S◢
Y=sin F*S◢
CR
{K,S}:K:S
K≤60186.954=>D=59800:F=164°29′50.07″◢
X=327407.141+(K-D)cos F◢
Y=5423698.269+(K-D)sin F◢
Goto 0（这里是零）
≠=> K≤60446.954=>A=327033.378:B=5423798.438:D=60186.954:N=164°59′50.07″:R=2000:P=1:L=260: Prog”HHQX”: Goto0（这里是零）
≠=> K≤60792.355=>A=326780.889: B=5423860.275:D=60446.954:N=168°43′17.11″:R=2000:Prog”YQX”: Goto0（这里是零）
≠=> K≤61052.356=>A=326438.021:B=5423898.316:D=60792.355:N=178°36′59.19″:R=2000:P=-1:L=260: Prog”HHQX”: Goto0（这里是零）
≠=> K≤61865.894=>D=61052.355:F=182°20′26.2″◢
X=326178.117+(K-D)cos F◢
Y=5423893.32+(K-D)sin F◢
Goto 0（这里是零）
≠=> K≤62165.894=>A=325365.257:B=5423860.1:D=61865.894:N=182°20′26.2″:R=2000:P=-1:L=300: Prog”HHQX”: Goto0（这里是零）
≠=> K≤62558.770=>A=325065.369:B=5423855.346:D=62165.894:N=178°02′36.54″:R=-2000:Prog”YQX”: Goto0（这里是零）
≠=> K≤62858.770=>A=324676.556:B=5423907.118:D=52558.770:N=193°9′59.19″:R=2000:P=1:L=300: Prog”HHQX”: Goto0（这里是零）
≠=> K≤63291.566=>D=62858.770:F=162°29′28.41″◢
X=324388.36+(K-D)cos F◢
Y=5423990.173+(K-D)sin F◢
Goto0（这里是零）
≠=> K≤64288.854=>A=323975.615: B=5424120.380:D=63291.566:N=162°29′28.41″:R=2000:Prog”YQX”: Goto0（这里是零）
Lb1 0（这里是零）:V”X1”=X+S cos(F-90) ◢
W”Y1”=Y+S sin(F-90)
CRGC
Lb1 0
{K,A,Z,Y}:K:A:Z:Y
K≤60181=>P=398.065:E=0.0155:D=59719:R=-12000: Goto1
≠=>K≤60400=>H=396.332-0.023*(K-60181)-A◢
Goto 2
≠=>K≤60920=>P=391.295:E=-0.023:D=60400:R=10000: Goto1
≠=>K≤61083.278=>H=392.855+0.029*(K-60920)-A◢
Goto 2
≠=>K≤61476.727=>P=397.589:E=0.029:D=61083.273:R=-17000: Goto1
≠=>K≤62048.582=>H=404.448+0.00586*(K-61476.727)-A◢
Goto 2
≠=>K≤62451.418=>P=407.795:E=0.00586:D=62048.582:R=-15000: Goto1
≠=>K≤62868.433=>H=404.746-0.021*(K-62451.418)-A◢
Goto 2
≠=>K≤63291.567=>P=395.988:E=-0.021:D=62868.433:R=16925.33: Goto1
≠=>K≤63708.433=>P=392.391:E=0.004:D=63291.567:R=-34738.88: Goto1
Lb1 1:F=K-D
H=P+EF+tan(F/R*90/π)*F-A◢
Goto 2
Lb1 2:G=K-1
G≤60264=> B=0.02:C=-0.02: Goto 3
Lb1 3:V”ZH”=H+ZB◢
W”YH”=H+YC◢
Goto 0
Q
A”XA”:B”YA”:C”CA”:D”1/RA”:F”KA”:Lb1 0（这里是零）:{EG}:E”1/RB”:G”KB”
Lb1 1:{HOR}:H”KI”﹥G=> Goto 3⊿
O”DL”:R”DR”:P=(E-D)/ Abs(G-F:Q=Abs(H-F:I=PQ J=C+90(I+2D)Q/π◢
J﹥360=>J=J-360◢
⊿
N=1:K=4:S=0（这里是零）:T=0（这里是零）:Lb1 4:M=C+45N(NI/8+2D)Q/4π:S=S+cosM:T=T+sinM:N=N+2:Dsz K:Goto 4
N=1:M=3:K=0（这里是零）:L=0（这里是零）:Lb1 5:Z=C+45N(NI/4+2D)Q/2π:K=K+cosZ:L=L+sinZ:N=N+1:Dsz M:Goto 5 X=A+Q(cosC+4S+2K+cosJ)/24◢
Y=B+Q(sinC+4T+2L+sinJ)/24◢
K=J-90:L=J+90
U”XL”=X+0（这里是零）cosK◢
V”XL”=Y+0（这里是零）sinK◢
W”XR”=X+R（这里是零）cosL◢
Z”YR”=Y+R（这里是零）sinL◢
Goto 1
Lb1 3:A=X:B=Y:D=E:F+G:C=J: Goto 0
常用数据：
Fixm Goto Abs sin cos tan Prog ^ Rec( * ÷﹤﹥≠=> Pol( ⊿◢≥≤ V : π [] < {}（这里是零）() 2 “”1 Lb1 Deg √°′″。