CASIO4800替换部分
Lbl A：H=1=>{U}:U”PJ” △H=20=>{U}:U”PJ” △S≥2706.2234=>Q=2706.2234:E=1:
Z=77°57°11°:R=500:L=70:O=70:F=28°5°29°:A=8304.6457:B=7872.5758:X=399.508: Goto 0△S≥1997.4667=>Q=1997.4667:E=-1:Z=41°27°54.01°:R=500:L=70:O=70:
F=69°33°23°:A=7474.3291:B=7429.3884:X=277: Goto 0△S≥463.224=>
Q=463.224:E=-1:Z=16°0°6°:R=1000:L=70:O=70:F=85°33°29°:A=6920.7289:B=5944.2632:X=1185: Goto 0△S≥-651.5894=>Q=-651.5894:E=1:Z=30:R=50:
L=0:O=0:F=55°33°29°:A=6821.7791:B=4670.4868:X=1089: Goto 0←
Lbl U：S≥3478.374=>R=30000:V=-.1957:W=.2152:J=3540:M=9.49: Goto 8△
S≥2979.457=>R=600000:V=-.2292:W=-.1957:J=3080:M=10.39: Goto 8△
S≥2500.011=>R=56200:V=-.585:W=-.2292:J=2600:M=11.49: Goto 8△
S≥2019.991=>R=40680:V=.3:W=-.585:J=2200:M=13.83: Goto 8△
S≥1749.959=>R=26700:V=-.4494:W=.3:J=1850:M=12.78: Goto 8△
S≥958.703=>R=15000:V=-1.8:W=-.4494:J=1060:M=16.33: Goto 8△
S≥464.1=>R=23700:V=-.3.2:W=-1.8:J=630:M=24.07: Goto 8△
S≥181.759=>R=5000:V=.3296:W=-3.2:J=270:M=35.59: Goto 8△
S≥-616.759=>R=5000:V=1:W=.3296:J=-600:M=32.722: Goto 8←
切线支距法
J”JD”Z”Z”R”R”M”LS”：Q=M÷2-M^3÷240R²：P=M²÷24R-M^4÷2384R^3：T=（R+P）tan(Z÷2)+Q▲L=ZπR÷180+M▲E=（R+P）÷cos(Z÷2)-R▲I”ZH”=J-T▲W”HY”=I+M▲G”QZ”=I+L÷2▲A”YH”=I+ ZπR÷180▲B”HZ”=A+M▲Goto 1←
Lbl 1：{S}：S＜I→X=I-S▲Y=0▲Goto 1△S＞B→X=S-B▲Y=0▲Goto 1△S≤G→D=S-I：≠→D=B-S△D≤M→Goto 3：≠→Goto 2←
Lbl 3：X=D-D^5÷40R²M²▲Y=D^3÷6RM-D^7÷(336R^3M^3) ▲Goto 1←
Lbl 2：F=90(2D-M) ÷πR：X=Q+RsinF▲Y=P+R(1-cosF) ▲Goto 1
说明：≠→为连在一起的，Z为转角，不分正负