comandos de Mathematica para dibujar polígonos regulares
polygonLine[p_, r_: 1, \[Theta]_: 0]:= Line[Table[{r *Cos[(2.0 \ [Pi] k)/p \[Theta]], r*Sin[(2.0 \[Pi] k)/p \[Theta]]}, {k, 1, p 1}]]
polygonLine es una función personalizada con 3 parámetros. p representa el número de lados del polígono, r representa el radio del polígono, r_: 1 representa el valor predeterminado del radio es 1, \[Theta]_: 0 representa el ángulo de rotación del polígono
polygonLine se utiliza para obtener elementos geométricos poligonales. Función, Graphics es la función que dibuja estos elementos.
Ejemplo 1: 4, 6, 8, 12 polígonos
Gráficos[{Rojo, PolygonLine[4], Azul, PolygonLine[6], Verde, PolygonLine[8], Negro , polygonLine[12]}]
Ejemplo 2: polígonos de 6 lados con diferentes radios
Gráficos[{Red, polygonLine[6], Blue, polygonLine[6, 1.2] , green, polygonLine[6, 1.4], black, polygonLine[6, 1.6]}]
Ejemplo 3: 5 deformaciones con diferentes ángulos de rotación
Gráficos [{red, polygonLine [5 , 1, 0], azul, polygonLine[5, 1, \[Pi]/6], verde, polygonLine[5, 1, \[Pi]/3], negro, polygonLine[5, 1, \ [Pi] /2]}]