Многоугольные числа
Многоугольные числа являются разновидностью фигурных чисел. Они включают треугольные числа, квадратные числа, а также фигуры с любым количеством углов.
Запросить первые 10 треугольных чисел.
In[1]:=
![Click for copyable input](assets.ru/polygonal-numbers/In_7.png)
Table[PolygonalNumber[n], {n, 1, 10}]
Out[1]=
![](assets.ru/polygonal-numbers/O_6.png)
Запросить десятое r-угольное число для нескольких правильных многоугольников.
In[2]:=
![Click for copyable input](assets.ru/polygonal-numbers/In_8.png)
Table[PolygonalNumber[r, 10], {r, 3, 10}]
Out[2]=
![](assets.ru/polygonal-numbers/O_7.png)
Многоугольное число представляет количество равноудалённых точек в правильном геометрическом распределении определенного типа.
код на языке Wolfram Language целиком
In[5]:=
![Click for copyable input](assets.ru/polygonal-numbers/In_11.png)
PolygonalNumber[3, 4]
polygonalNumberGraphics[3, 4]
Out[5]=
![](assets.ru/polygonal-numbers/O_8.png)
Out[5]=
![](assets.ru/polygonal-numbers/O_9.png)
In[6]:=
![Click for copyable input](assets.ru/polygonal-numbers/In_12.png)
PolygonalNumber[3, 6]
polygonalNumberGraphics[3, 6]
Out[6]=
![](assets.ru/polygonal-numbers/O_10.png)
Out[6]=
![](assets.ru/polygonal-numbers/O_11.png)
In[7]:=
![Click for copyable input](assets.ru/polygonal-numbers/In_13.png)
PolygonalNumber[6, 5]
polygonalNumberGraphics[6, 5]
Out[7]=
![](assets.ru/polygonal-numbers/O_12.png)
Out[7]=
![](assets.ru/polygonal-numbers/O_13.png)