请用Mathematica制作由r=cos(k*t)(0<t<2pi)k=1,2,3...8所表示的曲线的...

发布网友发布时间：2024-10-13 08:18

共2个回答

热心网友时间：2024-10-21 13:29

Table[
ParametricPlot[{Cos[k*t]*Cos[t], Cos[k*t]*Sin[t]}, {t, 0, 2*Pi}], {k, 1, 8}
]

直接复制粘贴运行。

图形还挺好看的。

热心网友时间：2024-10-21 13:25

极坐标绘图不需要参数化的，有现成的命令
PolarPlot[Evaluate[Table[Cos[k*t], {k, 1, 8, 1}]], {t, 0, 2 Pi}]
另外不得不说楼主提问的有些不清楚

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com

请用Mathematica制作由r=cos(k*t)(0&lt;t&lt;2pi)k=1,2,3...8所表示的曲线的...