收集Mathematica中的常用術語

Question

給定一個大的表情，我怎麼能收集Mathematica內部變量的各種權力？

例如：

p = (1 + a + x)^4; 
Expand[p] 
Out: 1 + 4 a + 6 a^2 + 4 a^3 + a^4 + 4 x + 12 a x + 12 a^2 x + 
    4 a^3 x + 6 x^2 + 12 a x^2 + 6 a^2 x^2 + 4 x^3 + 4 a x^3 + x^4 

Answer 1

使用Collect[expression,variable]。來自help documentation：

In[1]:=Collect[(1 + a + x)^4, x] 
Out[1]=(1 + a)^4 + 4 (1 + a)^3 x + 6 (1 + a)^2 x^2 + 4 (1 + a) x^3 + x^4 

Answer 2

或CoefficientList。另外從documentation：

In[1]:= CoefficientList[(1 + x)^10 , x] 

Out[1]= {1, 10, 45, 120, 210, 252, 210, 120, 45, 10, 1} 

In[1]:= CoefficientList[1 + a x^2 + b x y + c y^2, {x, y}] 

Out[1]= {{1, 0, c}, {0, b, 0}, {a, 0, 0}}