- Definimos parámetro para el número de lados del polígono regular. El enunciado no afirma que el polígono es regular, pero, en esta construcción de GeoGebra, asumiremos que lo es para evitar más complejidad.
polygonSides=3
A=(0,0,0)M=(0,1,0)N=(1,2,0)P=plane(A,M,N)f=Line(N,M)B=Rotate(A,30º,f)C=Rotate(B,45º,f)Q=plane(M,N,B)R=plane(M,N,C)- Ubicamos los dos puntos que definen al polígono.
D=(1,-4,0)E=(3,-3,0)
poly1=Polygon(D,E,polygonSides,P)l1=Sequence(PerpendicularLine(Vertex(poly1,i),Q),i,1,polygonSides)l2=Sequence(Intersect(Element(l1,i),Q),i,1,Length(l1))poly2=Polygon(l2)l3=Sequence(PerpendicularLine(Vertex(poly2,i),R),i,1,polygonSides)l4=Sequence(Intersect(Element(l3,i),R),i,1,Length(l3))poly3=Polygon(l4)Sequence(Segment(Vertex(poly1,i),Vertex(poly2,i)),i,1,polygonSides)Sequence(Segment(Vertex(poly2,i),Vertex(poly3,i)),i,1,polygonSides)Sequence(If(i!=polygonSides, Angle(Vertex(poly1,i), Vertex(poly2,i), Vertex(poly2,i+1)), Angle(Vertex(poly1,i), Vertex(poly2,i), Vertex(poly2,1))),i,1,polygonSides)Sequence(If(i!=polygonSides, Angle(Vertex(poly2,i), Vertex(poly3,i), Vertex(poly3,i+1)), Angle(Vertex(poly2,i), Vertex(poly3,i), Vertex(poly3,1))),i,1,polygonSides)
