镶嵌平铺练习
20260722
n=滑动条(0, 20,1)
m=滑动条(0, 20,1)
k=滑动条(1, 20,1)
Rr = 滑动条(0, 1,0.01)
r=0.5-Rr
R=0.5+Rr
#r = 滑动条(0, 3,0.01)
#R = 滑动条(0, 3,0.01)
#赋值(r,0.5-Rr)
#赋值(R,0.5+Rr)
#圆弧()
Plist1=合并({序列((R;i pi/2/k),i,0,k),序列((r;(k-i) pi/2/k),i,0,k)})
p1=多边形(Plist1)
p2=旋转(p1,pi,(0.5,0.5))
Base={p1,p2}
#均匀分布随机数
M=序列(序列(均匀分布随机数(0,1),i,1,n),j,1,m)
#M=序列(序列(区间随机数(0,1),i,1,n),j,1,m)
Ratio = 滑动条(0, 2,0.01)
Shape=序列(序列(平移(位似(旋转(Base,元素(M,i,j) pi/2,(0.5,0.5)),Ratio,(0,0)),向量( (i Ratio,j Ratio))),i,1,n),j,1,m)
赋值(n,5)
赋值(m,5)
赋值(k,1)
赋值(Rr,0.15)
赋值(Ratio,1)