math - 收集数学中的常用术语

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) 这样的东西，我真的认为你不能把它拆开，可以吗？