用mathematica编出 定义函数,对任意N画出一个正N边形,用它做一个从3到20边形的图

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 14:06:26
用mathematica编出 定义函数,对任意N画出一个正N边形,用它做一个从3到20边形的图

用mathematica编出 定义函数,对任意N画出一个正N边形,用它做一个从3到20边形的图
用mathematica编出 定义函数,对任意N画出一个正N边形,用它做一个从3到20边形的图

用mathematica编出 定义函数,对任意N画出一个正N边形,用它做一个从3到20边形的图
f[x_]:=Graphics[Polygon[Table[{Cos[2 Pi k/x], Sin[2 Pi k/x]}, {k, 0, x}]]]
For[x = 3, x <= 20, x++, Print[f[x]]]