n = 滑动条(0, 50,1)[br][br]m = 滑动条(0, 7,1)[br][br]#m = 滑动条(0, 50,1)[br]#随机矩阵代码[br]m1=序列(序列(区间随机数(0,3),i,1,n),j,1,n)[br][br][br]R=滑动条(0.1,3,0.01)[br]赋值(R,1)[br][br]#RList={0.2, 0.4, 0.6, 0.8, 1}[br]#ArcList=序列(圆周((0, 0), R RList(i)), i, 1, 5)[br]#Circle1=圆周((R, -0.5 R), R)[br]#Circle2=圆周((-R, -0.5 R), R)[br]#Circle1=圆周(C, R)[br]#Circle2=圆周(D, R)[br]#圆弧交点[br]#@PList1=序列(交点(圆周(D, R), ArcList(i), 1), i, 1, 5)[br]#@PList2=序列(交点(圆周(C, R), ArcList(i), 2), i, 1, 5)[br][br]#基本图案[br]#BaseShape=映射(圆弧((0, 0), pp, qq), pp, PList2, qq, PList1)[br][br]VectorP=(0,0)[br]赋值(VectorP,(2 R,R))[br][br]m=滑动条(0,15,1)[br]#赋值(m,3)[br]n=滑动条(0,15,1)[br]#赋值(n,3)[br]k=滑动条(0,2,0.01)[br]#赋值(k,0.1)[br]pp=滑动条(0,15,1)[br]#赋值(pp,3)[br][br]Step=滑动条(1,8,1)[br]赋值(Step,1)[br][br][br]VList=序列((R;i 2pi/m),i,0,m)[br]Polyn=多边形(VList)[br]r=R ( cos(pi/n))^2[br]CircleO=圆周((0, 0), R)[br]CircleO1=圆周((0, 0), R)[br]CircleO2=圆周((0, 0), R cos(pi/n))[br]CircleO3=圆周((0, 0), 中点(VList(1),VList(2)))[br]ArcList=序列(旋转(圆弧((0, 0) + VList(1), (R cos²(π / m), -R cos(π / m) sin(π / m)), (R cos²(π / m), R cos(π / m) sin(π / m))), i * 2π / m), i, 0, m)[br]ArcList22=序列(序列(旋转(圆弧((0, 0) + (R-k j; 0), (R cos²(π / m), -R cos(π / m) sin(π / m)), (R cos²(π / m), R cos(π / m) sin(π / m))), i * 2π / m), i, 0, m),j, 0,pp)[br]#ArcList24=序列(序列(旋转(圆弧((0, 0) + (R-k j; 0), (R cos²(π / m), -R cos(π / m) sin(π / m)), (R cos²(π / m), R cos(π / m) sin(π / m))), i * 2π / m), i, 0, m),j, 0,pp)[br]ArcList2=序列(旋转(圆弧((0, 0) + (R; 0), (R; -π / m), (R; π / m)), i * 2π / m), i, 0, m)[br]ArcList21=序列(序列(旋转(圆弧((0, 0) + (R-k j; 0), (R; -π / m), (R; π / m)), i * 2π / m), i, 0, m),j, 0, pp)[br]ArcList23=序列(序列(旋转(圆弧((0, 0) + (R; 0), (R; -π / m+j π / m/pp), (R; π / m- j π / m/pp)), i * 2π / m), i, 0, m),j, 0, pp)[br][br]ArcList24=序列(序列(旋转(圆弧((0, 0) + (R; 0), (R; -π / m+j π / m/pp), (R; π / m- j π / m/pp)), (i+0.5) * 2π / m), i, 0, m),j, -3, pp)[br][br][br]#设置显示条件(CircleO3,Step==1)[br]#设置显示条件(CircleO1,Step==1)[br]#设置显示条件(Polyn,Step==1)[br][br]设置显示条件(ArcList,Step==2)[br]设置显示条件(ArcList22,Step==3)[br]设置显示条件(ArcList2,Step==4)[br][br]设置显示条件(ArcList21,Step==5)[br]设置显示条件(ArcList23,Step==6||Step==7)[br]设置显示条件(ArcList24,Step==7)[br]设置显示条件(CircleO,Step==7)[br]设置显示条件(ArcList29,Step==7)[br][br][br][br][br][br]