\copyright\;Roman\;Chijner,\;Heidelberg\;2013

A = (5.768599243486522, 2.354662175638649)
B = (9.82, -4.76)
C = (14.02, 2.3)
r1 = 1.5 (slider from 0 to 5, step 0.1)
r2 = 1.5 (slider from 0 to 5, step 0.1)
r3 = 1.5 (slider from 0 to 5, step 0.1)
Liste1 = W1(A, r1)
Liste2 = W1(B, r2)
Liste3 = W1(C, r3)
D: (A + B + C) / 3
E = (16.15689192641334, -6.788752458507695)
c = Circle(D, E)
Name2: "" + (LaTeX[Name1]) + ""

Tool: W1
A,r
Input: A, r
Output: ll7c

l2 = Sequence(A + (r; π / 3 * (0.5 + i)), i, 0, 6)
l22 = Sequence({CircleArc[Element[l2, k1], Element[l2, k1 + 1], A], CircleArc[Element[l2, k1 + 2], A, Element[l2, k1 + 1]]}, k1, 0, 6)
ll7c = Sequence(Sequence[Sequence[Translate[Translate[Element[l22, k1 + 1], (Element[l2, k1 + 1] - A) * j], (Element[l2, k1] - A) * i], j, -3 + If[i > 0, 0, -i], 2 + If[i ≤ 0, 0, -i]], i, -3, 3], k1, 1, 3)