如何在操作

Question

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

我试试这个：

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

如果我不以cdf格式保存它，它会工作。有没有人知道如何解决它，所以当我以cdf格式保存它时它会工作？

Answer 1

也许会这样做

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