n = 1 (slider from 0 to 3, step 1)
A: (1.86507, -3.91586, 0)
B: (2.10092, 3.91586, 0)
l1 = Iteration(Join[Zip[Zip[Dilate[a, 0.5, P], P, Sequence[Point[a, k / 6], k, 0, 3]], a, a1]], a1, {{Tetrahedron[Polygon[A, B, 3, xOyPlane], true]}}, n)
l2 = 涂色(l1)
l1长 = 64
l1元素1 = Element(l1, 1)
l1元素2 = Element(l1, 2)
l1元素3 = Element(l1, 3)
l1元素4 = Element(l1, 4)
l1元素5 = Element(l1, 5)
l1元素6 = Element(l1, 6)
l1元素7 = Element(l1, 7)
l1元素8 = Element(l1, 8)
l1元素9 = Element(l1, 9)
l1元素10 = Element(l1, 10)
l1元素11 = Element(l1, 11)
l1元素12 = Element(l1, 12)
l1元素13 = Element(l1, 13)
l1元素14 = Element(l1, 14)
l1元素15 = Element(l1, 15)
l1元素16 = Element(l1, 16)
l1元素17 = Element(l1, 17)
l1元素18 = Element(l1, 18)
l1元素19 = Element(l1, 19)
l1元素20 = Element(l1, 20)
l1元素21 = Element(l1, 21)
l1元素22 = Element(l1, 22)
l1元素23 = Element(l1, 23)
l1元素24 = Element(l1, 24)
l1元素25 = Element(l1, 25)
l1元素26 = Element(l1, 26)
l1元素27 = Element(l1, 27)
l1元素28 = Element(l1, 28)
l1元素29 = Element(l1, 29)
l1元素30 = Element(l1, 30)
l1元素31 = Element(l1, 31)
l1元素32 = Element(l1, 32)
l1元素33 = Element(l1, 33)
l1元素34 = Element(l1, 34)
l1元素35 = Element(l1, 35)
l1元素36 = Element(l1, 36)
l1元素37 = Element(l1, 37)
l1元素38 = Element(l1, 38)
l1元素39 = Element(l1, 39)
l1元素40 = Element(l1, 40)
l1元素41 = Element(l1, 41)
l1元素42 = Element(l1, 42)
l1元素43 = Element(l1, 43)
l1元素44 = Element(l1, 44)
l1元素45 = Element(l1, 45)
l1元素46 = Element(l1, 46)
l1元素47 = Element(l1, 47)
l1元素48 = Element(l1, 48)
l1元素49 = Element(l1, 49)
l1元素50 = Element(l1, 50)
l1元素51 = Element(l1, 51)
l1元素52 = Element(l1, 52)
l1元素53 = Element(l1, 53)
l1元素54 = Element(l1, 54)
l1元素55 = Element(l1, 55)
l1元素56 = Element(l1, 56)
l1元素57 = Element(l1, 57)
l1元素58 = Element(l1, 58)
l1元素59 = Element(l1, 59)
l1元素60 = Element(l1, 60)
l1元素61 = Element(l1, 61)
l1元素62 = Element(l1, 62)
l1元素63 = Element(l1, 63)
l1元素64 = Element(l1, 64)
f: z = 0

Tool: 涂色
请点击列表，会生成一个新列表；再在指令栏输入：执行()【括号里面写新列表的名称】
Input: l1
Output: l5

l1长 = Length(l1)
l2 = Sequence(Name[l1] + "元素" + (k) + "=Element(" + (Name[l1]) + "," + (k) + ")", k, 1, l1长)
l4: {Name[l1] + "长=CopyFreeObject(Length(" + (Name[l1]) + "))"}
l3 = Sequence("SetDynamicColor(" + (Name[l1]) + "元素" + (k) + ",x(Point(Polyline({(1, 0, 0), (1, 0, 1), (0, 0, 1), (0, 1, 1), (0, 1, 0), (1, 1, 0), (1, 0, 0)}), " + (k) + "/ " + (Name[l1]) + "长)),y(Point(Polyline({(1, 0, 0), (1, 0, 1), (0, 0, 1), (0, 1, 1), (0, 1, 0), (1, 1, 0), (1, 0, 0)}), " + (k) + "/" + (Name[l1]) + "长)),z(Point(Polyline({(1, 0, 0), (1, 0, 1), (0, 0, 1), (0, 1, 1), (0, 1, 0), (1, 1, 0), (1, 0, 0)}), " + (k) + "/ " + (Name[l1]) + "长)))", k, 1, l1长)
l5 = Join({l4, l2, l3})

Tool: 简易坐标系
请输入：原点，x最小值、最大值，y最小值、最大值
Input: A, a, b, c, d
Output: B, C, O, u, v

$\huge\textcolor{}{x}$

$\huge\textcolor{}{y}$

$\Large{O}$

u = Vector(A + (a - 1, 0), A + (b + 1, 0))
v = Vector(A + (0, c - 1), A + (0, d + 1))
B: A + (b + 1, 0)
C: A + (0, d + 1)
O: A

Tool: 直角坐标系
请输入：x轴最小值，x轴最大值，y轴最小值，y轴最大值
Input: m, n, p, q
Output: A, B, O, l1, l2, l3, l4, l5, l6, u, v

$\huge\textcolor{}{x}$

$\huge\textcolor{}{y}$

$\Large{O}$

u = Vector((m - 1, 0), (n + 1, 0))
A: (n + 1, 0)
v = Vector((0, p - 1), (0, q + 1))
B: (0, q + 1)
O: B - (0, q + 1)
l1 = Sequence(Segment[(k, 0), (k, 0.23)], k, m, n)
l2 = Sequence(Segment[(0, k), (0.23, k)], k, p, q)
l4 = Sequence(Text[k, (-0.24, 0) + (k, 0), true, true], k, 1, n)
l3 = Sequence(Text[k, (-0.69, 0) + (k, 0), true, true], k, m, -1)
l6 = Sequence(Text[k, (-0.55, 0.35) + (0, k), true, true], k, 1, q)
l5 = Sequence(Text[k, (-0.98, 0.26) + (0, k), true, true], k, p, -1)

Tool: 坐标系
请输入：x轴最小值/π,x轴最大值/π,y轴最大值
Input: m, n, p
Output: A, B, l1, l2, l3, l4, l5, l6, u, v

$\huge\textcolor{}{x}$

$\huge\textcolor{}{y}$

u = Vector(((m * π) - 1, 0), ((n * π) + 1, 0))
v = Vector((0, (-p) - 1), (0, p + 1))
A: ((n * π) + 1, 0)
B: (0, p + 1)
l1 = Sequence(Segment[(k, 0), (k, 0.1)], k, (m * π), (n * π), π / 2)
l2 = Sequence(Segment[(0, k), (0.1, k)], k, (-p), p, 1)
l3 = Sequence(Text[If[k ≟ -1, "- π ", "-" + (FractionText[abs(k)]) + " π "], (-0.57, -0.17) + ((k * π), 0), true, true], k, m, -1 / 2, 1 / 2)
l4 = Sequence(Text[If[k ≟ 0, "O", k ≟ 1, " π ", k ≟ -1, "- π ", FractionText[k] + " π "], (0, -0.08) + ((k * π), 0), true, true], k, 0, n, 1 / 2)
l5 = Sequence(Text[k, (-0.66, 0.17) + (0, k), true, true], k, (-p), -1, 1)
l6 = Sequence(Text[k, (-0.34, 0.22) + (0, k), true, true], k, 1, p, 1)