收集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）也可以。但是如果你有像Sqrt（x4 + x5）这样的东西，我真的不认为你能把它拆开，可以吗？