収集機能の一般性を作成する方法

Question

私はメープルに問題があり、誰かが私を助けることができます。

メープルにコレクト機能の一般性を書きたいと思います。 =（AK + BK + C）+ B（BK + CK + A）+ C（AK + CK + B）

Iはgcollect（F、A^2を呼び出す：例えば、私は

Fを有します+ B^2 + C^2）次に、我々は

K（A^2 + B^2 + C^2）+ ABK + ACK + BCK + AB +交流+ BCを得る

またはgcollect（ （a^2 + b^2）+ kc^2 + abk + ack + bck + ab + ac + bcとなる。

ありがとうございました。

Answer 1

は、ここで私がしようとします。..

restart: 

gcollect:=(expr,t)-> 
      thaw(collect(algsubs(t=freeze(t), 
         expand(expr)),freeze(t),_rest)): 

f := a*(a*k+b*k+c)+b*(b*k+c*k+a)+c*(a*k+c*k+b): 

gcollect(f, a^2+b^2+c^2); 

gcollect(f, a^2+b^2+c^2, expand); 

gcollect(f, a^2+b^2); 

gcollect(f, a^2+b^2, expand);