Mathematica如何按照系数的正负整理方程
问题描述：
Mathematica如何按照系数的正负整理方程
在Mathematica中按照系数的正负整理方程,正项留在左边,负项移到右边
例如：
2 * x^3 - 3 * x^2 * y + x * y - y^2 - 1 = 0
结果应为：
2 * x^3 + x * y = 3 * x^2 * y + y^2 + 1
或者用多项式表示,例如：
f = 2 * x^3 - 3 * x^2 * y + x * y - y^2 - 1
结果应为：
fpos = 2 * x^3 + x * y
fneg = 3 * x^2 * y + y^2 + 1
答
因为系数 1 在表达式中一般省略不懈,这有时不太方便,而 -1 是不能省略的,所以利用这一点,自定义一个函数获得系数为负的项,然后利用原表达式减去负项就可以得到正项了,如下：fneg[f_] := -Plus @@ Cases[f,(a_*b___ /...