Mathematica基础——正多边形

时间:2024-10-12 16:48:21

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

Mathematica基础——正多边形

2、做一个正十七边形,并改变图形的样式:Graphics[辘腋粪梯{EdgeForm[Directive[Thick, Dashed, Blue]], Green, RegularPolygon[17]}]

Mathematica基础——正多边形

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

Mathematica基础——正多边形

4、从x轴转过1°,开始画一个正方形:Graphics[{Blue, RegularPolygon[{6, 1 Degree}, 4]}]这一点不太相符吧?感觉这个角度不同!

Mathematica基础——正多边形

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}]}]]

Mathematica基础——正多边形
© 手抄报圈