RegularPolygon是Mathematica里面专门绘制正多边形的函数。
工具/原料
电脑
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,1Degree},4]}]这一点不太相符吧？感觉这个角度不同！
5、一稍僚敉视个精彩示例：With[{a=10},Graphics[{Opacity[.1],Blue,Table[RegularPolygon[{((2Sin[(a+60)De爿讥旌护gree])/Sqrt[3])^(r-1),arDegree},6],{r,0,18}]}]]
