Как вводить полином в манипуляции

Question

Есть ли способ ввода полинома в манипуляции в Wolfram Mathematica?

Я стараюсь это:

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

Это работает, если я не сохранить его в формате ф.р.. Кто-нибудь знает, как исправить это, чтобы он работал, когда я сохраняю его в формате cdf?

Answer 1

может быть, это будет делать

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