创建于2024年2月15日[br]借鉴于：[url=https://www.geogebra.org/u/joningram]Jon Ingram[/url] — 2015年11月12日 - 下午5:37 的 [url=https://www.geogebra.org/m/SVxjNZy8]Rotating and expanding square – GeoGebra[/url]

[br]A=(0,0)[br]B=(1.5,0)[br]a=长度(线段(A,B))[br]n=Slider(1,30,1)[br]SetValue(n,3)[br][br]α=Slider(90°,270°,1°)[br]SetValue(α=,110°)[br][br]#最基本的正方形[br]poly1=多边形(A,B,4)[br][br]#正方形分别绕顶点旋转，得到列表[br]l1=映射(旋转(poly1,α,DDD),DDD,{顶点(poly1)})[br][br]#两个有一点夹角的正方形作为基本单元。[br]l2={poly1,l1(1)}[br][br]#平移向量[br]u=向量((a; α)+(-a,0))[br]v=向量((a; α+90°)+(0,-a))[br][br]#基本单元按向量组合平移扩展得到一系列矩形，m1是其中一个矩形的平移，相当于给其中一个另外着色[br]l3=序列(序列(平移(l2,向量(v i+u k)),i,-n,n),k,-n,n)[br]m1=序列(序列(平移(poly1,向量(v i+u k)),i,-n,n),k,-n,n)[br][br][br]E=(a; α+90°)[br]F=(a; α)[br][br]#l3、l4分别是旁边的间隙的平行四边的平移，分别是AD边，和AB边的[br]l4=序列(序列(平移(多边形(A,D,C+u,B+u),向量(v i+u k)),i,-n,n),k,-n,n)[br]m2=序列(序列(平移(多边形(B,A,D+v,C+v),向量(v i+u k)),i,-n,n),k,-n,n)[br][br]#增加一个基本单元的平移[br]l5={多边形(A,B+u,C+u+v,D+v)}[br]序列(序列(平移(多边形(A,B+u,C+u+v,D+v),向量(v i+u k)),i,-n,n),k,-n,n)[br]