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

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

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