mathematica 畫正多邊形指令

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是自定義的函數，有3個參數，p代表了多邊形的邊數，r代表了多邊形的半徑，r_:1表示半徑默認值為1，\[Theta]_: 0 表示多邊形的旋轉角度

polygonLine是得到多邊形的幾何元素，Graphics是把這些元素畫出來。

例1 ： 4,6,8,12邊形

Graphics[{Red, polygonLine[4], Blue, polygonLine[6], Green, polygonLine[8], Black, polygonLine[12]}]

例2 ： 半徑不同的6邊形

Graphics[{Red, polygonLine[6], Blue, polygonLine[6, 1.2], Green, polygonLine[6, 1.4], Black, polygonLine[6, 1.6]}]

例3 ： 旋轉角度不同的5變形

Graphics[{Red, polygonLine[5, 1, 0], Blue, polygonLine[5, 1, \[Pi]/6], Green, polygonLine[5, 1, \[Pi]/3], Black, polygonLine[5, 1, \[Pi]/2]}]