中国传统样式-锁子纹
20260723
#Plist1=平移(旋转(位似(合并({序列((1;i pi/2/k-pi/4)+ (-cos(π / 4), 0),i,0,k),序列((1;i pi/2/k+3pi/4)+ (cos(π / 4), 0),i,0,k)}),1/sin(pi/4)/2,(0,0)),pi/2,(0,0)),向量( (0.5,0)))
#Plist1=平移(旋转(位似(合并({序列((1;i pi/2/k-pi/4)+ (-cos(π / 4), 0),i,0,k),序列((1;i pi/2/k+3pi/4)+ (cos(π / 4), 0),i,0,k)}),1/sin(pi/4)/2,(0,0)),pi/2,(0,0)),向量( (0.5,0)))
n=滑动条(0, 20,1)
m=滑动条(0, 20,1)
k=滑动条(1, 20,1)
Ratio = 滑动条(0, 2,0.01)
赋值(n,5)
赋值(m,5)
赋值(k,1)
赋值(Rr,0.15)
赋值(Ratio,1)
#p1=多边形(Plist1)
#p2=旋转(p1,pi/2,(0,0))
VP1={(0,1),(0,0),(1;pi/6)}
VP2={(0,-1),(0,0),(1;pi/6),(cos(pi/6),0),(0.5;-pi/6),(cos(pi/6);-pi/3)}
#VP33={(1;pi/6),(cos(pi/6),0),(0.5;-pi/6),(cos(pi/6);-pi/3),(0,-1)}
VP33={(cos(pi/6),0),(0.5;-pi/6),(cos(pi/6);-pi/3),(0,-1)}
LP1=序列(旋转(线段((0,-1),(0,0)),i 2 pi/3,(0,0)),i,0,2)
VP3=序列(旋转(VP33,(2-i) 2 pi/3,(0,0)),i,0,2)
SP2=多边形(VP2)
SP3=多边形(合并(VP3))
#Shape1=序列(序列(平移(旋转(位似(SP2,1,(0,0)),0*区间随机数(0,3) pi/2,(0,0)),向量( (i,j))),i,0,2n,2),j,0,2m,2)
#Shape2=序列(序列(平移(旋转(位似(SP3,1,(0,0)),0*区间随机数(0,3) pi/2,(0,0)),向量( (i,j))),i,0,2n,2),j,0,2m,2)
Shape1=序列(序列(平移(旋转(位似(SP2,1,(0,0)),0*区间随机数(0,3) pi/2,(0,0)),向量((1.5;pi/6)i+ (0,1.5)j)),i,0,n,1),j,0,m,1)
Shape2=序列(序列(平移(旋转(位似(SP3,1,(0,0)),0*区间随机数(0,3) pi/2,(0,0)),向量((1.5;pi/6)i+ (0,1.5)j)),i,-n,n,1),j,-m,m,1)
Shape3=序列(序列(平移(旋转(位似(LP1,1,(0,0)),0*区间随机数(0,3) pi/2,(0,0)),向量((1.5;pi/6)i+ (0,1.5)j)),i,0,n,1),j,0,m,1)
#Shape3=序列(序列(平移(旋转(位似(LP1,1,(0,0)),0*区间随机数(0,3) pi/2,(0,0)),向量((cos(pi/6),0) 3 i+ (0,sin(pi/6)) 4 j)),i,0,n,1),j,0,m,1)
#Shape2=序列(序列(平移(旋转(位似(SP3,1,(0,0)),0*区间随机数(0,3) pi/2,(0,0)),向量((1.5;pi/6)i+ (0,1.5)j)),i,0,n,1),j,0,m,1)
#Shape22=序列(序列(平移(旋转(位似(SP3,1,(0,0)),0*区间随机数(0,3) pi/2,(0,0)),向量((cos(pi/6) 3 i+0*mod(j+1,2) cos(pi/6) 1.5, 2 j) )),i,0,n,1),j,0,m,1)
Shape22=序列(序列(平移(旋转(位似(SP3,1,(0,0)),0*区间随机数(0,3) pi/2,(0,0)),向量((cos(pi/6) ,0) 3 i+((1.5;pi/6)+(0,1.5) ) j)),i,-n,n,1),j,-m,m,1)
Shape23=序列(序列(平移(旋转(位似(SP3,1,(0,0)),0*区间随机数(0,3) pi/2,(0,0)),向量((1.5;pi/6)+(cos(pi/6) ,0) 3 i+((1.5;pi/6)+(0,1.5) ) j)),i,-n,n,1),j,-n,m,1)
Shape24=序列(序列(平移(旋转(位似(SP3,1,(0,0)),0*区间随机数(0,3) pi/2,(0,0)),向量(2 (1.5;pi/6)+(cos(pi/6) ,0) 3 i+((1.5;pi/6)+(0,1.5) ) j)),i,-n,n,1),j,-n,m,1)
Shape221=序列(序列(平移(旋转(位似(LP1,1,(0,0)),0*区间随机数(0,3) pi/2,(0,0)),向量((cos(pi/6) ,0) 3 i+((1.5;pi/6)+(0,1.5) ) j)),i,-n,n,1),j,-m,m,1)
Shape231=序列(序列(平移(旋转(位似(LP1,1,(0,0)),0*区间随机数(0,3) pi/2,(0,0)),向量((1.5;pi/6)+(cos(pi/6) ,0) 3 i+((1.5;pi/6)+(0,1.5) ) j)),i,-n,n,1),j,-n,m,1)
Shape241=序列(序列(平移(旋转(位似(LP1,1,(0,0)),0*区间随机数(0,3) pi/2,(0,0)),向量(2 (1.5;pi/6)+(cos(pi/6) ,0) 3 i+((1.5;pi/6)+(0,1.5) ) j)),i,-n,n,1),j,-n,m,1)
#
#P1=序列((描点(SP1,i/k)),i,0,k)
#P2=序列((描点(SP2,i/k)),i,0,k)
#P3=序列((描点({SP1,SP2},i/k)),i,0,k+1)
SP9=多边形(VP2)
#SP3=多边形(合并(P1,P2))