У меня есть два уравнения:
(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))), который мне не очень помогает.