RegularPolygon是Mathematica里面专门绘制正多边形的函数。
工具/原料
1
电脑
2
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}]}]]
注意事项
正多边形可以直接作图了！
上一篇：如何利用PPT制作有形状的图片?
下一篇：如何绘制CAD正多边形