Wolfram mathematica 如何在操作中输入多项式

有没有办法在Wolfram Mathematica中输入多项式

我试试这个：

Manipulate[Plot[a, {x, -6, 6}, ImageSize -> 400],{{a, -3 x - 2 x^2 + x^3, "Polynomial"}}]

如果我不以cdf格式保存它，它就会工作。是否有人知道如何修复它，以便在我以cdf格式保存它时工作？

也许这样就可以了

Manipulate[ Plot[#, {x, 0, 1}, PlotLabel -> #
    ] &@Total@
   MapIndexed[# x^(First@#2 - 1) &, coef ], {{coef, {0, 1}}}]

也许这样就可以了

Manipulate[ Plot[#, {x, 0, 1}, PlotLabel -> #
    ] &@Total@
   MapIndexed[# x^(First@#2 - 1) &, coef ], {{coef, {0, 1}}}]

---

可能使用字符串和

来表达（我没有cdfplayer来尝试）。当然，存在安全问题，允许用户评估任意字符串（可能是您的代码不能与cdfplayer一起使用的原因）可能会使用字符串和
来表达
（我没有cdfplayer来尝试）。当然，允许用户评估任意字符串也存在安全问题（这可能是您的代码不能与cdfplayer一起使用的原因）