Mathematica基础——正多边形

1、做一个正七边形：Graphics[{Green, RegularPolygon[7]}]

3、画一个半径为6的正三角形和半径为2的六边形：Graphics[{Green, RegularPolygon[6, 3], Blue, RegularPolygon[2, 6]}]

5、一个精彩示例：With[{a = 10},Graphics[{Opacity[.1], Blue, Table[RegularPolygon[{((2 Sin[(a + 60) De爿讥旌护gree])/Sqrt[3])^(r - 1), a r Degree}, 6], {r, 0, 18}]}]]