α = 0.7853999087267003 rad (slider from 0.7853999087267004 to 1.5707945814656445, step 0.017453292519943295)
A: (0, 0)
r: 1
B: A + (0, (r * tan(α)))
c = CircleArc(B, A, Rotate[A, ((2 * π) * r / Distance[B, A]), B])

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)