lista1 = Sequence(Segment[(-(5.0), k), (18.0, k)], k, -7.0, 7.0)
lista2 = Sequence(Segment[(k, -(7.0)), (k, 7.0)], k, -5.0, 18.0)
A = (5, 1)
B = (6, 1)
a = Segmento(A, B)
C, b, c = Espiralderaices(A, B)
D, d, e = Espiralderaices(A, C)
E, f, g = Espiralderaices(A, D)
F, h, i = Espiralderaices(A, E)
G, j, k = Espiralderaices(A, F)
H, l, m = Espiralderaices(A, G)
I, n, p = Espiralderaices(A, H)
texto1 = Medidaexacta(A, C)
texto2 = Medidaexacta(A, I)
q = Circle(A, C)
J = Intersect(q, n, 1.0)
r = Circle(J, A)

Tool: Segmento, dados 2 puntos (command Segmento)
Señala origen y extremo
Input: A, B
Output: b

b = Segment(A, B)

Tool: Espiral de raices (command Espiralderaices)
Señala dos puntos
Input: A, B
Output: C, b, a

C = Rotate(B + (B - A) / Distance[A, B], 90.0*°, B)
a = Segment(B, C)
b = Segment(A, C)

Tool: Medida exacta (command Medidaexacta)
Clic en los dos extremos
Input: A, B
Output: texto1

texto1: " \sqrt{ " + (Distance[A, B]^(2.0)) + " }" + (If[Distance[A, B] ≟ floor(Distance[A, B]), "=" + (Distance[A, B]), ""])