1

A = Intersect(xAxis, yAxis)
n = 18 (slider from 1 to 18, step 1)
B: (-1, 0)
l1 = IterationList(P + UnitOrthogonalVector[Segment[A, P]], P, {B}, n)
l2 = Sequence(Polygon[A, Element[l1, t], Element[l1, t + 1]], t, 1, n)
l3 = Sequence(Text["1", Midpoint[Element[l1, k - 1], Element[l1, k]], true, true], k, 2, n + 1)
C = (-0.2023643053046846, 0.20041742644163474)
l4 = Sequence(Text["\sqrt{" + (k) + "}", C + Midpoint[A, Element[l1, k]], true, true], k, 2, n + 1)
l5 = 涂色(l2)
l2长 = 18
l2元素1 = Element(l2, 1)
l2元素2 = Element(l2, 2)
l2元素3 = Element(l2, 3)
l2元素4 = Element(l2, 4)
l2元素5 = Element(l2, 5)
l2元素6 = Element(l2, 6)
l2元素7 = Element(l2, 7)
l2元素8 = Element(l2, 8)
l2元素9 = Element(l2, 9)
l2元素10 = Element(l2, 10)
l2元素11 = Element(l2, 11)
l2元素12 = Element(l2, 12)
l2元素13 = Element(l2, 13)
l2元素14 = Element(l2, 14)
l2元素15 = Element(l2, 15)
l2元素16 = Element(l2, 16)
l2元素17 = Element(l2, 17)
l2元素18 = Element(l2, 18)

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})