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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/03 09:37:25
用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]]]