如何比较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需要乘以（-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)))并没有太大帮助。