comandos de Mathematica para dibujar polígonos regulares

Es raro que el cartel original sea tan generoso, así que escribiré una versión más detallada

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]}]