Wolfram 언어™

다각수

다각수는 도형수의 일종입니다. 다각수는 삼각수, 사각수 등에서부터 임의의 r-각형까지 일반화합니다.

처음 10개의 삼각수를 반환합니다.

In[1]:=

Table[PolygonalNumber[n], {n, 1, 10}]

Out[1]=

일부 정다각형의 10번째 r-각 수를 반환합니다.

In[2]:=

Table[PolygonalNumber[r, 10], {r, 3, 10}]

Out[2]=

다각수는 이런 종류의 기하학적 배열에 균등하게 간격을 가지고 놓인 점의 수를 셉니다.

In[3]:=

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]:=

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]:=

PolygonalNumber[3, 4] polygonalNumberGraphics[3, 4]

Out[5]=

Out[5]=

In[6]:=

PolygonalNumber[3, 6] polygonalNumberGraphics[3, 6]

Out[6]=

Out[6]=

In[7]:=

PolygonalNumber[6, 5] polygonalNumberGraphics[6, 5]

Out[7]=

Out[7]=