Wolfram Language

Álgebra y teoría de números

Puntos en un círculo

La función CirclePoints regresa coordinadas de puntos distribuidos uniformemente en un círculo. Aquí hay varios ejemplos de lo que se puede hacer combinándolo con primitivos de gráfico.

Trace flechas apuntando a siete puntos equidistantes en un círculo.

In[1]:=
Click for copyable input
Graphics[Arrow[{{0, 0}, #}] & /@ CirclePoints[7]]
Out[1]=

Coloque los primeros ocho polígonos en los vértices de un octágono.

In[2]:=
Click for copyable input
Graphics[MapIndexed[RegularPolygon[#1, 0.25, First@#2 + 2] &, CirclePoints[8]]]
Out[2]=

Combine CirclePoints y BezierCurve.

In[3]:=
Click for copyable input
Graphics[{ BezierCurve[{{0, 0}, ##, {2, 0}}], BezierCurve[{{0, 0}, ##, {0, 2}}], BezierCurve[{{0, 0}, ##, {-2, 0}}], BezierCurve[{{0, 0}, ##, {0, -2}}] } & /@ CirclePoints[32] ]
Out[3]=
In[4]:=
Click for copyable input
Graphics[Table[ Rotate[BezierCurve[{{0, 0}, #, {1, 0}}] & /@ CirclePoints[8], i], {i, 0, 2 Pi, Pi/16}]]
Out[4]=

Ejemplos relacionados

de en fr ja ko pt-br ru zh