1. Trazamos las diagonales
por  un vértice

4. Trazamos paralelas a los lados para
obtener las intersecciones con las
diagonales y con el último lado

5. Construimos el polígono

Construcción de un pentágono
                  Razón de semejanza:

Secuencia de construcción

Inicio

D = (6.14, -0.86)
C = (5.04, 4.38)
n = 3 (slider from 1 to m - 1, step 1)
m = 5 (slider from 2 to 6, step 1)
A = (-2.32, 0.16)
i = Segment(A, C)
B = (0.64, 4.06)
polígono1, a, b, c, d = Polygon(A, B, C, D)
B' = Rotate(B, 45°, A)
f = Ray(A, B')
g = 0.65 (slider from 0 to 2, step 0.05)
h = Circle(A, g)
F1 = Intersect(h, f, 1)
k = Circle(F1, g)
F2 = Intersect(k, f, 2)
p = Circle(F2, g)
F3 = Intersect(p, f, 2)
q = Circle(F3, g)
F4 = Intersect(q, f, 2)
r = Circle(F4, g)
F5 = Intersect(r, f, 2)
s = Circle(F5, g)
F6 = Intersect(s, f, 2)
lista1: {F1, F2, F3, F4, F5, F6}
F = Element(lista1, m)
rr = Line(B, F)
lista2 = Sequence(Line[Element[lista1, i], rr], i, 1, m - 1)
P = Intersect(a, Element[lista2, n])
rs = Line(P, b)
Q = Intersect(i, rs)
G = Element(lista1, n)
rt = Line(Q, c)
e0 = 1 (slider from 1 to 6, step 1)
e: 6 - e0
E = (0.26, -2.3)
polígono2, a_1, b_1, c_1, d_1, e_1 = Polygon(A, B, C, D, E)
j = Segment(A, D)
R = Intersect(rt, j)
ru = Line(R, d_1)
S = Intersect(ru, e_1)
polígono3, a_2, h1, h2, h3, h4 = Polygon(A, P, Q, R, S)
lista3 = Sequence(Intersect[Element[lista2, i], a_1], i, 1, m - 1)
lista4 = Sequence(Segment[Element[lista1, i], Element[lista3, i]], i, 1, m - 1)
kk = Segment(F, B)
texto2: "2. En una semirecta auxiliar
hacemos " + m + " partes iguales"
texto7: "\frac{" + (LaTeX[n]) + "}{" + (LaTeX[m]) + "}"
texto8: "Numerador " + n + ""
texto9: "Denominador " + m + ""
texto5: "3. Tomamos " + n + " de las " + m + " partes más 
cercanas al vértice y hacemos paralelas"