Mathematica基础——正多边形

1、做一个正七边形：

Graphics[{Green, RegularPolygon[7]}]

2、做一个正十七边形，并改变图形的样式：

Graphics[{EdgeForm[Directive[Thick, Dashed, Blue]], Green, 

  RegularPolygon[17]}]

3、画一个半径为6的正三角形和半径为2的六边形：

Graphics[{Green, RegularPolygon[6, 3], Blue, RegularPolygon[2, 6]}]

4、从x轴转过1°，开始画一个正方形：

Graphics[{Blue, RegularPolygon[{6, 1 Degree}, 4]}]

这一点不太相符吧？感觉这个角度不同！

5、一个精彩示例：

With[{a = 10}, 

 Graphics[{Opacity[.1], Blue, 

   Table[RegularPolygon[{((2 Sin[(a + 60) Degree])/Sqrt[3])^(r - 1), 

      a r Degree}, 6], {r, 0, 18}]}]]