compare - 如何比较 Mathematica 中缺失元素的两个解析方程

Question

我有两个方程：

(1) Eq1 = -((A N1 P (A B k (a N1 + aa P - r) + (d + A B r) R))/k)

(2)Eq2 = R*N1*P,哪里

R = (k (aa B m - a mm + A B r))/d;
P = (-a^2 b k mm - A B m r + a k (aa bb m + A b B r))/(A d);
N1 = (-aa^2 bb k m + A mm r + aa k (a b mm - A bb r))/(A d);

我想将 (Eq2) 与 (Eq1) 进行比较以找到缺失的元素。在mathematica中有没有简单的方法来做到这一点？

答案是 Eq1 =-((A N1 P (A B k (a N1 + aa P - r) + (d + A B r) R))/k)等于- A R P N1 d/k（即 Eq2 需要乘以 be ( -Ad/k)

我试着做FullSimplify[Eq1/Eq2]这-((A (-a d mm + A^2 B^2 r^2 + aa B (d m + a A (b B - bb) k r)))/(k (aa B m - a mm + A B r)))对我没有太大帮助。

标签： comparecomparisonwolfram-mathematicaanalytics