CASIO4800最简单的万能程序

CASIO4800最简单的万能程序

Lb1 0：｛EG｝：A″XA″：B″YB″：C″CA″：D″RA″：E″RB″：F″DKA″：G″DKB″
Lb1 1：｛HOR｝：H″DKI″:O″DL″：R″DR″：H＞G=＞GoTo3△
P=（E-D）/Abs(G-F)：Q=Abs(H-F)：I=P×Q：J=C+（I+2×D）×Q×90/∏：T=D+I
M=C+（I/4+2×D）×Q×45/（2×∏）：N=C+（3×I/4＋2×D）×Q×135/（2×∏）:K=C+（I/2+2×D）×Q×45/∏
X=A+Q/12×（CosC+4×(CosM+CosN)+2×CosK+CosJ）▲
Y=B+Q/12×（SinC+4×(SinM+SinN)+2×SinK+SinJ）▲
U″XL″=X+O×Cos(J-90) ▲
V″YL″=Y+O×Sin (J-90) ▲
W″XR″=X+R×Cos(J+90) ▲
Z″YR″=Y+R×Sin (J+90) ▲GoTo1