描述
将多边形各顶点绕其一边的单位向量,以一定步长运动,得到二维分形图例。

n:多边形顶点数
speed:步长控制参数
k:步进数
使用指令
初始化多边形顶点
Rotate(对象,角度,旋转中心)
a = Rotate(p, 2π / n, (0, 0)):将p点绕(0,0)逆时针旋转2π / n得到新点p':p为点对象,将p逆时 针旋转2π / n,旋转中心(0, 0),旋转后得到的对象与p共圆
IterationList(表达式,变量,初始列表,迭代次数)
l1 = IterationList(a, p, {(0, 4)}, n - 1):a中的p以(0, 4)为初始点重复执行(n-1)次,且每次得到的新点p'作为下一次的p回传给a,最终得到下图的n=7个点

多边形各顶点运动k步后的点集轨迹
Mod(被除数, 除数)
b = Mod(i, n)通过取余得到列表中初始位值;i为参数、n表示多边形顶点数
Element(列表, 位置):
Element(p, b+1)得到列表中点;p为参数、b+1表示点的位置
Vector(起点,终点):
c = Vector(Element(p, Mod(i, n)+1), Element(p, Mod(i+1, n)+1))生成两点间的向量,即位于 多边形边上的向量
UnitVector(向量):
d = Element(p,Mod(i,n)+1)+speed*UnitVector(c)根据多边形边上的向量,以当前向量的起点 为起点生成方向相同,长度为speed的顶点步进向量
Sequence(表达式, 变量, 初始值, 终止值)
e = Sequence(d,i,0,n-1)生成多边形所有顶点的步进向量;注:0≦i≦n-1,若n=3有 Vector(Element(p,1),Element(p,2))、Vector(Element(p,2),Element(p,3))、 Vector(Element(p,3),Element(p,1))。[Sequence(Element(p,Mod(i,n))+speed*UnitVector(Vector(Element(p,Mod(i,n)),Element(p, Mod(i+1, n)))), i,1,n)的效果]
IterationList(表达式,变量,初始列表,迭代次数)
l2 = IterationList(e, p, {l1}, k)多边形所有顶点以相同步进向量执行k次,得到所有顶点的步进轨迹

构建每次步进的多边形
Polygon(点集)
f = Polygon(Element(l2, i))绘制出点集构成的多边形;i为参数、l2表示所有顶点各次步进的新 顶点集合,如上图
Sequence(表达式, 变量, 初始值, 终止值)
l3 = Sequence(f, i, 1, k)绘制出所有多边形
