Red de conocimiento informático - Aprendizaje de programación - comandos de Mathematica para dibujar polígonos regulares

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