#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)))[br][br]#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)))[br][br]n=滑动条(0, 20,1)[br]m=滑动条(0, 20,1)[br]k=滑动条(1, 20,1)[br][br]Ratio = 滑动条(0, 2,0.01)[br]赋值(n,5)[br]赋值(m,5)[br]赋值(k,1)[br]赋值(Rr,0.15)[br]赋值(Ratio,1)[br][br]#p1=多边形(Plist1)[br]#p2=旋转(p1,pi/2,(0,0))[br][br]VP1={(0,1),(0,0),(1;pi/6)}[br][br][br]VP2={(0,-1),(0,0),(1;pi/6),(cos(pi/6),0),(0.5;-pi/6),(cos(pi/6);-pi/3)}[br]#VP33={(1;pi/6),(cos(pi/6),0),(0.5;-pi/6),(cos(pi/6);-pi/3),(0,-1)}[br][br]VP33={(cos(pi/6),0),(0.5;-pi/6),(cos(pi/6);-pi/3),(0,-1)}[br]LP1=序列(旋转(线段((0,-1),(0,0)),i 2 pi/3,(0,0)),i,0,2)[br]VP3=序列(旋转(VP33,(2-i) 2 pi/3,(0,0)),i,0,2)[br][br]SP2=多边形(VP2)[br]SP3=多边形(合并(VP3))[br][br][br]#Shape1=序列(序列(平移(旋转(位似(SP2,1,(0,0)),0*区间随机数(0,3) pi/2,(0,0)),向量( (i,j))),i,0,2n,2),j,0,2m,2)[br]#Shape2=序列(序列(平移(旋转(位似(SP3,1,(0,0)),0*区间随机数(0,3) pi/2,(0,0)),向量( (i,j))),i,0,2n,2),j,0,2m,2)[br]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)[br]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)[br]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)[br]#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)[br][br][br]#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)[br]#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)[br]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)[br]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)[br]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)[br]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)[br]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)[br]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)[br][br]#[br][br]#P1=序列((描点(SP1,i/k)),i,0,k)[br]#P2=序列((描点(SP2,i/k)),i,0,k)[br][br]#P3=序列((描点({SP1,SP2},i/k)),i,0,k+1)[br][br]SP9=多边形(VP2)[br][br]#SP3=多边形(合并(P1,P2))[br]