Mathematica 如何把多项式变成一个表?

题目

Mathematica 如何把多项式变成一个表?
如何把多项式变成一个表?
例如:
输入:s1=a^2+a*b+a*b*c+d^3+10
输出:s2={a^2,a*b,a*b*c,d^3,10}
(即把加号替换成逗号生成一个表)
补充说明:即把"加号和减号"都替换成"逗号",从而生成一个表
例如:
输入:s1=a^2+a*b-a*b*c+d^3+10
输出:s2={a^2,a*b,-a*b*c,d^3,10}

答案

Table[s1[[i]], {i, 1, Length@s1}]


(*如果要把常数项放最后:*)

RotateLeft[Table[s1[[i]], {i, 1, Length@s1}], 1]
总之看帮助>_>