显示B列

n = 10 (slider from 1 to 10, step 1)
α = 2.844886680750757 rad (slider from 90° to 270°, step 0.017453292519943295)
β = 4.066617157146788 rad (slider from 90° to 270°, step 0.017453292519943295)
f = PolyLine((153, 51, 0) / 255, (1, 1, 0), (0, 1, 0))
k = 0.63 (slider from 0.3 to 0.7, step 0.01)
A = (0, -4)
B = (0, 0)
l1 = IterationList(Join[Zip[Zip[Segment[Point[f, 1], Dilate[Rotate[Point[f, 0], θ, Point[f, 1]], k, Point[f, 1]]], θ, {α, β}], f, f1]], f1, {{Segment[A, B]}}, n)
A1: 1
A2: 2
A3 = 3
A4 = 4
A5 = 5
A6 = 6
A7 = 7
A8 = 8
A9 = 9
A10 = 10
A11 = 11
B1 = Element(l1, A1)
B2 = Element(l1, A2)
B3 = Element(l1, A3)
B4 = Element(l1, A4)
B5 = Element(l1, A5)
B6 = Element(l1, A6)
B7 = Element(l1, A7)
B8 = Element(l1, A8)
B9 = Element(l1, A9)
B10 = Element(l1, A10)
B11 = Element(l1, A11)
C1 = Element(l1, A1)
C2 = Element(l1, A2)
C3 = Element(l1, A3)
C4 = Element(l1, A4)
C5 = Element(l1, A5)
C6 = Element(l1, A6)
C7 = Element(l1, A7)
C8 = Element(l1, A8)
C9 = Element(l1, A9)
C10 = Element(l1, A10)
C11 = Element(l1, A11)
a = true

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)