谁能教教我4850计算哭编程是怎么一回事？

变量说明：

<程序运算符定义>

文件:F1 文件名：1

L1 L2 L3

Defm 8 XYCDIJEFRLK:Fixm:Z[2]=0:Prog B Z[5]=0.5L-L X^y 3/240R²:Z[3]=Z[5]+(R+L²/24R)Abs tan T_┛2:Z=K-Ans:S=R Abs Tπ/180+L:S◢H=Z+Ans:G=RL:Prog 2

文件:F2 文件名：2

L1 L2 L3 L4 L5 L6 L7 L8 L9 L10 L11 L12

Lbl 0:Fixm:{K} Lbl 6:{B}:Norm:K(-1) X^y Z[2]>(H-L)(-1) X^y Z[2]＝>Goto 4⊿Frac Z[2]_┛2=0=>Z[6]=Z:≠>Z[6]=H⊿A=90T/Abs T B<0＝>N=0:≠>N=1⊿B=Abs B ０=Abs(K-Z[6]:K(-1) X^y Z[2]>Z[6](-1) X^y Z[2]＝>Goto 2⊿Q=Z[3]+０:Z[4]=B B≠0＝>Prog C⊿Prog D:P=0 Prog E:Goto 0 Lbl 2:０≥L＝>Goto 3⊿ Q=Z[3]-０+０ X^y 5/40G²:Z[4]=０ X^y 3/6G-０ X^y 7/336G X^y 3:Prog D:P=B B≠0＝>Prog F⊿Prog E:Goto 0 Lbl 3:Q=Z[3]-Z[5]:Z[4]=R+L²/24R:Prog D Z[8]=U+A(2(０-L)/πR-1+L/πR):B≠0＝>Prog G:≠>P=R⊿Prog E:Goto 0 Lbl 4:M=C:０=D:C=E:D=F:E=M:F=０:Z[2]=Z[2]+1:Prog B:Goto 6

文件:F3 文件名：0

L1

Pol(M,０):W<0＝>W=W+360

文件:F4 文件名：B

L1 L2

M=E-I:０=F-J:Prog 0:T=W:M=I-C:０=J-D:Prog 0:U=W:T=T-W T<-180＝>T=T+360⊿T>180＝>T=T-360

文件:F5 文件名：C

L1

A=-90(-1) X^y (N+Z[2])

文件:F6 文件名：D

L1

Z[7]=I-QcosU+Z[4]cos(U+A):Z[1]=J-QsinU+Z[4]sin(U+A)

文件:F7 文件名：E

L1 L2

M=Z[7]+PcosZ[8]-X:０=Z[1]+PsinZ[8]-Y:Prog 0 W◢Fix 3:V◢Norm

文件:F8 文件名：F

L1

Z[8]=U+A+A０²/πG+90+A(-1) X^y (N+Z[2])

文件:F9 文件名：G

L1

P=R+AB(-1) X^y (N+Z[2])/90

文件:F1 文件名：YYDFY

Y=999:I"RESET[Y_┛N]"≠Y＝>Goto 6⊿ ← Defm 1:B"JD"A"PJ(DEG)":C=90H"Lh"÷πR:P=H²÷24R:Q=H_┛2-H＾3÷240R²:T=Q+(R+P)tan A_┛2:L=2H+πR(A-2C)÷180:D=B-T:F=D+H:K=D+L_┛2:S=D+L:N=S-H:"YH=":Pause 0:Z[1]"E"=(R+P)cos A_┛2-R◢ ← Lbl 6:Fixm:{Z}:H=S-N:D=F-H:B=D+T:Z"<<888＝>(INSTAL)KM+m(r,σ；X,Y）"=888＝>{CVWJUE}:C"(ZPJ)=1;(YPJ)≠1"V"Xπ"W"Yπ(Z-,Y+)"J"Xh"U"Yh(Z-,Y+)"E"(D°M°S°）":Goto 6⊿← Z≤D＝>X=Z-D：Y=0：P=0：Goto 9⊿Z≥S＝>X=T+cos A(Z-S+T):Y=sin A(Z-S+T):P=0:Goto 9⊿Z>F＝>Z<N＝>Goto 8⊿⊿Z≤F＝>０=Z-D:≠>０=S-Z⊿ ← H≠0＝>X=０-０＾5÷40R²H²:Y=０＾3÷6RH-０＾7÷336R＾3H＾3:P=3tan^-1Y_┛X:Z≥N＝>G=Y÷tan A:I=Y÷sin A:０=X-G:X=T(1+cos A)-０cos A-I:Y=sin A(T-０)⊿Goto 9⊿← Lbl 8:P=180(K-Z)÷πR:X=R√(2-2cos Abs P):I=√(X²+Z[1]²-2XZ[1]cos(90+Abs P÷2):０=sin^-1(Xsin(90+Abs P÷2)÷I:G=A÷2+０:X=T-Isin G:Y=Icos G ← Z≤K＝>Goto 9⊿０≥A÷2＝>G=０-A÷2:X=T+Isin G:Y=Icos G:Goto 9⊿X=T-Isin(A÷2-０):Y=Icos(A÷2-０) Lbl 9:C=1＝>Y=-Y⊿B=X:H=Y ← Lbl 3:X"Xp"Y"Yp":X=V＝>G=0:Y>W＝>G=90⊿Y<W＝>G=270⊿Goto 1⊿G=Abs tan^-1(Y-W)_┛(X-V) ← X<V＝>Y≤W＝>G=180+G:≠>G=180-G⊿≠>Y<W＝>G=360-G⊿⊿ ← Lbl 1:J=V＝>U>W＝>I=270:≠>I=90⊿Goto 2⊿I=Abs tan^-1(U-W)_┛(J-V) ← J>V＝>U>W＝>I=360-I⊿⊿J<V＝>U>W＝>I=180+I:≠>I=180-I⊿⊿ ← Lbl 2:０√((X-V)²+(Y-W)²):"DIST(r)=":Pause 0:G=G+I+E:G≥720＝>G=G-720⊿G≥360＝>G=G-360⊿G"DEG(σ)="◢ Lbl 5:D=F+N-S:{MLGXY}:M"K＝>(<<);A＝>(X,Y);h＝>(r,σ);B＝>(FBZ)"=A＝>Goto 4⊿M=h＝>Goto 3⊿M=B＝>L"JU ZHONG(m)(Z-);(Y+)":Goto 6⊿ ← C=1≠>L=-L⊿Z≥N＝>X=B-Lsin(A-P):C=1＝>L=-L⊿Y=H+Lcos(A-P):Goto 3⊿Z≤F＝>X=B-Lsin P:C=1＝>L=-L⊿Y=H+Lcos P:Goto 3⊿X=B-Lsin(A÷2-P):C=1＝>L=-L⊿Y=H+Lcos(A÷2-P):Goto 3⊿ ← Lbl 4:D=L"DEG(σ)A;{G}"-I-E:D<0＝>D=360-D⊿Fixm:{Q}:X=V+Q"DIST(r)A;{Q}"cosD:"X=":Pause 0:Y=W+Qsin D⊿ ← Goto 5

变量说明：

<程序运算符定义>

文件1 程序名：SQX

ABCD:Lbl 0:{ERF}:REF:G=(D-B)÷(C-A):H=(F-D)÷(E-C):L=R×Abs(G-H)÷2 ← Lbl 1:{K}:K≤0＝>Goto 2⊿K≤C+L＝>L=-Abs L:Prog "SHU":M=D+(K-C)H+J:≠>M=D+(K-C)H:"AFTER QX"⊿L=Abs L:K≤C＝>Prog "SHU":M=B+(K-A)G+J⊿K≤C-L＝>M=B+(K-A)G⊿M=1000M:Prog "SSWR":I=M÷1000◢ K=K+20:Goto 1:Lbl 2:A=C:B=D:C=E:D=F:Goto 0

文件2 程序名：SHU

J=(K-C+L)²÷(2R):G-H>0＝>J=-J⊿

文件3 程序名：SSWR

M-Int M<0.5＝>M=Int M:≠>M=Int M+1⊿