Wolfram Language

Álgebra y teoría de números

Números poligonales

Los números poligonales son un tipo de números figurativos. Estos generalizan números triangulares, números cuadrados, etc., para cualquier r-gono.

Regrese los primeros 10 números triangulares.

In[1]:=
Click for copyable input
Table[PolygonalNumber[n], {n, 1, 10}]
Out[1]=

Regrese los diez números -gonales de varios polígonos regulares.

In[2]:=
Click for copyable input
Table[PolygonalNumber[r, 10], {r, 3, 10}]
Out[2]=

Un número poligonal cuenta el número de puntos distribuidos uniformemente en una disposición geométrica regular de este tipo.

muestre la entrada completa de Wolfram Language
In[3]:=
Click for copyable input
points[0, r_] := {{0, 0}}; points[n_, r_] := Flatten[Subdivide[#1, #2, n] & @@@ Partition[CirclePoints[-Last[CirclePoints[n, r]], n, r], 2, 1, 1], 1]; points[ns_List, r_] := points[#, r] & /@ ns;
In[4]:=
Click for copyable input
polygonalNumberGraphics[r_, n_] := With[{ps = points[Range[0, n - 1], r]}, Graphics[{PointSize[Large], Point /@ ps, Line /@ ps, Opacity[0.2], RandomColor[], Polygon /@ ps}]]
In[5]:=
Click for copyable input
PolygonalNumber[3, 4] polygonalNumberGraphics[3, 4]
Out[5]=
Out[5]=
In[6]:=
Click for copyable input
PolygonalNumber[3, 6] polygonalNumberGraphics[3, 6]
Out[6]=
Out[6]=
In[7]:=
Click for copyable input
PolygonalNumber[6, 5] polygonalNumberGraphics[6, 5]
Out[7]=
Out[7]=

Ejemplos relacionados

de en fr ja ko pt-br ru zh