$\large\frac{1}{2}$

$\large\frac{1}{8}$

$\large\frac{1}{32}$

$\large\frac{1}{4}$

$\large\frac{1}{16}$

$\large\frac{1}{64}$

$\large\frac{1}{64}$

  制作教程  

A: (0, 0)
B: (1 / 2, 0)
C: (1 / 2, 1)
D: (0, 1)
E: (1, 0)
q1, a, b, c, d = Polygon(A, B, C, D)
poly1, f, g, h, i, F, G = Polygon(B, E, 4)
l1 = IterationList(Dilate[q, 1 / 2, (1, 1)], q, {q1}, 2)
l2 = IterationList(Dilate[p, 1 / 2, (1, 1)], p, {poly1}, 2)
A1: 1
A2: 2
A3 = 3
n = 11 (slider from 0 to 11, step 0.001)
B1 = If(n ≥ (2 * A1) - 1, Element[l1, A1])
B2 = If(n ≥ (2 * A2) - 1, Element[l1, A2])
B3 = If(n ≥ (2 * A3) - 1, Element[l1, A3])
C1 = If(n ≥ (2 * A1), Element[l2, A1])
C2 = If(n ≥ (2 * A2), Element[l2, A2])
C3 = If(n ≥ (2 * A3), Element[l2, A3])
D1: 2
D2: (D1 * 4)
D3: (D2 * 4)
E1: (D1 * 2)
l4 = Sequence((1.4 + k, 0.6), k, 0, 0.5, 0.1)
E2: (D2 * 2)
E3: (D3 * 2)
H = (1, 1)
I = (1.5402511333050357, 0.4534279683624257)
u = Vector(H, I)
q2 = If(7 ≤ n ≤ 8, Polygon[(7 / 8, 7 / 8), (1, 7 / 8), 4], 8 < n < 9, Translate[Polygon[(7 / 8, 7 / 8), (1, 7 / 8), 4], Vector[((n - 8) * u)]], n ≥ 9, Translate[Polygon[(7 / 8, 7 / 8), (1, 7 / 8), 4], u])
l3 = Sequence(FractionText[1 / 2^(k)], k, 1, 6)
q3 = If(9 < n ≤ 10, Dilate[q2, n - 10, I - (1 / 16, 1 / 16)])
text2 = If(n ≥ 11, LaTeX["=\frac{63}{64}"])
text1 = If(n ≥ 10, LaTeX["\textcolor{white}{=1-}\frac{1}{64}"])
l5 = Sequence(Text[Element[l3, k] + (If[k ≠ Length[l3], "+", ""]), Element[l4, k], true, true], k, 1, n)
J = (1.940882340844301, 0.7324413123354503)
K = (2.3351842154730758, 0.7324413123354503)
L = (1.6042673871680955, 0.8300811888053314)
M = (1.9331500513799533, 0.8300811888053314)

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

$\huge\textcolor{}{x}$

$\huge\textcolor{}{y}$

$\Large\textcolor{}{O}$

A: (0, 0)
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