UC知道Mathematica画图问题！
来源：百度知道 编辑：UC知道 时间：2024/07/12 15:23:05
Needs["FourierSeries`"]
p = FourierTrigSeries[x Sin[x], x, n]
Manipulate[Plot[p, {x, -1, 1}], {n, 1, 2, 1}]
为什么画不出来？如果第二行中的n是常数就能画出图来，否则不行。是否FourierTrigSeries规定n参数必须是常数？
如果这种办法不行，怎样用Manipulate观察xSinx傅里叶展开（到n项为止）随着n增大的收敛情况？
p = FourierTrigSeries[x Sin[x], x, n]
Manipulate[Plot[p, {x, -1, 1}], {n, 1, 2, 1}]
为什么画不出来？如果第二行中的n是常数就能画出图来，否则不行。是否FourierTrigSeries规定n参数必须是常数？
如果这种办法不行，怎样用Manipulate观察xSinx傅里叶展开（到n项为止）随着n增大的收敛情况？
FourierTrigSeries调用时，参数n必须是常数.
下面的程序可以观察到展开第3项，n的值可以自己设置：
n = 3;
Needs["FourierSeries`"]
p = Table[FourierTrigSeries[x Sin[x], x, t], {t, n}];
Manipulate[Plot[Take[p, {t}], {x, -1, 1}], {t, 1, n, 1}]