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