旋转和扩展正方形演示B iShow
创建于2024年2月15日
借鉴于：Jon Ingram — 2015年11月12日 - 下午5:37 的 Rotating and expanding square – GeoGebra
A=(0,0)
B=(1.5,0)
a=长度(线段(A,B))
n=Slider(1,30,1)
SetValue(n,3)
α=Slider(90°,270°,1°)
SetValue(α=,110°)
#最基本的正方形
poly1=多边形(A,B,4)
#正方形分别绕顶点旋转，得到列表
l1=映射(旋转(poly1,α,DDD),DDD,{顶点(poly1)})
#两个有一点夹角的正方形作为基本单元。
l2={poly1,l1(1)}
#平移向量
u=向量((a; α)+(-a,0))
v=向量((a; α+90°)+(0,-a))
#基本单元按向量组合平移扩展得到一系列矩形，m1是其中一个矩形的平移，相当于给其中一个另外着色
l3=序列(序列(平移(l2,向量(v i+u k)),i,-n,n),k,-n,n)
m1=序列(序列(平移(poly1,向量(v i+u k)),i,-n,n),k,-n,n)
E=(a; α+90°)
F=(a; α)
#l3、l4分别是旁边的间隙的平行四边的平移，分别是AD边，和AB边的
l4=序列(序列(平移(多边形(A,D,C+u,B+u),向量(v i+u k)),i,-n,n),k,-n,n)
m2=序列(序列(平移(多边形(B,A,D+v,C+v),向量(v i+u k)),i,-n,n),k,-n,n)
#增加一个基本单元的平移
l5={多边形(A,B+u,C+u+v,D+v)}
序列(序列(平移(多边形(A,B+u,C+u+v,D+v),向量(v i+u k)),i,-n,n),k,-n,n)