如何創建收集函數的一般性

Question

我在楓樹中遇到問題，有人可以幫助我。

我想寫在楓收集函數的一般性。例如，我有

F：=α（AK + BK + C）+ B（BK + CK + A）+ C（AK + CK + B）

我請gcollect（F，A^2 + b^2 + C^2），那麼我們得到

K（A^2 + b^2 + C^2）+ ABK + ACK + BCK + AB + AC + BC，

或gcollect（ （a^2 + b^2）+ kc^2 + abk + ack + bck + ab + ac + bc。然後我們得到

k

非常感謝。

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);