O = Intersect(xAxis, yAxis)
A = (7.794228634059948, 0)
B = Rotate(A, 240.0*°, O)
C = Rotate(A, 120.0*°, O)
som1: {A, B, C}
step1 = Join({Sequence[Segment[Element[som1, i], Element[som1, i + 1.0]], i, 1.0, Length[som1] - 1.0], {Segment[Element[som1, Length[som1]], Element[som1, 1.0]]}})
step2 = Join(Sequence[floc1[Element[step1, i]], i, 1.0, Length[step1]])
step3 = Join(Sequence[floc1[Element[step2, i]], i, 1.0, Length[step2]])
step4 = Join(Sequence[floc1[Element[step3, i]], i, 1.0, Length[step3]])
step5 = Join(Sequence[floc1[Element[step4, i]], i, 1.0, Length[step4]])
step6 = Join(Sequence[floc1[Element[step5, i]], i, 1.0, Length[step5]])
etape = 1 (slider from 1 to 6, step 1)
cote1 = Distance(A, B)
péri: 3.0 * Distance[A, B] * (4.0 / 3.0)^(etape - 1.0)
aire1: sqrt(3.0) / 4.0 * cote1^(2.0)
i = (0, 1)
aire: aire1 * (1.0 + 1.0 / 3.0 * Sum[Sequence[(4.0 / 9.0)^(i), i, 0.0, etape - 2.0]])
texte1: "Le périmètre vaut " + péri + "
L'aire vaut " + aire
cote: cote1 / 3.0^(etape - 1.0)
texte3: "Les\, côtés\, ont\, une\, longueur\, de\," + (FractionText[cote])
texte2: "Les\, côtés\, ont\, une\, longueur\, de\, " + cote
texte4: etape + ""

Tool: floc1
Input: a
Output: liste1

B = (7.794228634059933, 7.688294445529209E-15)
A = (7.649891066762519, 0.08333333333334456)
a = Segment(A, B)
G: Midpoint[a] + Vector[Midpoint[a], Intersect[Circle[Midpoint[a], a / 4.0], a, 2.0]] * 2.0
F: Midpoint[a] + Vector[Midpoint[a], Intersect[Circle[Midpoint[a], a / 4.0], a, 1.0]] * 2.0
C: F + 1.0 / 3.0 * Vector[F, G]
D: F + 2.0 / 3.0 * Vector[F, G]
E = Intersect(Circle[C, D], LineBisector[F, G], 2.0)
S_1: {F, G}
S_2: {Element[S_1, 1.0], C, E, D, Element[S_1, 2.0]}
liste1 = Sequence(Segment[Element[S_2, i], Element[S_2, i + 1.0]], i, 1.0, Length[S_2] - 1.0)