Podeís mover los puntos A, C, E y G para superponer y comparar los segmentos.

Escoge aquí el número de trozos del segmento [A,B].

C_1 = (-2.46, 4.78)
f = Line(C_1, xAxis)
n = 9 (slider from 1 to 20, step 1)
a = 12.8 (slider from -5 to 20, step 0.1)
aa: round((random() * n))
A = (-0.35480865224625613, 2.70242928452579)
g = Line(A, yAxis)
C = Point(g)
b = Line(A, xAxis)
c = Circle(A, a)
B_1, B = Intersect(c, b)
d = Segment(A, B)
dis: d / n
e = Circle(C_1, dis)
D_1, E_1 = Intersect(e, f)
u = Vector(C_1, E_1)
L1 = Sequence(Translate[A, Vector[(i * u)]], i, 0, n)
E = Point(g)
G = Point(g)
L2 = Sequence(Translate[C, Vector[(i * u)]], i, 0, aa)
bb: round((random() * n))
L3 = Sequence(Translate[E, Vector[(i * u)]], i, 0, bb)
cc: round((random() * n))
L4 = Sequence(Translate[G, Vector[(i * u)]], i, 0, cc)
h = Segment(C, Element[L2, aa + 1])
i = Segment(E, Element[L3, bb + 1])
j = Segment(G, Element[L4, cc + 1])
D: C + (aa * u)
F: E + (bb * u)
H: G + (cc * u)
T2: "[CD] \;  = \;  \frac{" + aa + " }{ " + n + "}  \;  [AB]"
T3: "[EF] \;  = \;  \frac{" + bb + " }{ " + n + "}  \;  [AB]"
T4: "[GH] \;  = \;  \frac{" + cc + " }{ " + n + "}  \;  [AB]"
I: (13.25278, y(C))
J: (13.31308, y(E))
K: (13.37338, y(G))
T1: "El segmento [AB] está partido en " + n + " trozos"