casio4800各种曲线放样程序
源程序：（有压缩附件）JZBHHQX 极坐标缓合曲线放样Lbl 0ABCZEFMNSRUVT:G”L,R”{K}:H=Z+M+S+N:O=B+(Z-A)cos E:D=C+(Z-A)sin E:G=2=>G=-1:⊿K≤Z =>Goto 1⊿K≤Z+M=>Goto 2⊿k≤Z+M+S=>Goto 3⊿k≤H=>Goto 4⊿k>H=>Goto 5⊿Lbl 1Q=O-(Z-K)cos E◣P=D-(Z-K)sin E◣Goto 0Lbl 2L=K-Z:X=L-L^5÷40R2M2+L^9÷3456R^4M^4:Y=L^3÷6RM-L^7÷336R^3M^3+L^11÷42240R^5M^5:W=E-Gtan-1(Y÷X)Q=O+√(X2+Y2) cosW◣P=D+√(X2+Y2) sinW◣Goto 0Lbl 3L=K-Z:I=(180L-90M)