math - Mathematica の共通項を集める

Question

x1, x2, x3,...,x10の複雑な式があります。4 つの演算 (+、-、​​、/) と平方根が含まれます。

そして、各変数の共通項を集めたいと思います。

たとえば、私は

F = x1 + 2*x2 + 5x3 -Sqrt(x4 + x5) + x7 +...長くて複雑なもの

以下のフォームに変更したい：

F = A*x1 + B*x2 + C*x3 + D*x4 +...+(何か)*xn

Mathematica でこれを行う方法があれば助けてください。

Answer 1

CoefficientList を使用してから、Total と Table を使用してみてください。このようなもの：

cef = CoefficientList[a + b x + c x + Sin[c] x^2 + x^2 + x^3, x]; Total[Table[cef[[i]] x^i, {i, 1, 4}]]

sqrt(x) でも動作するはずの Collect[] も試してください。ただし、Sqrt(x4 + x5) のようなものがある場合、分解できるとは思いませんね。