wolfram-mathematica - 如何在Mathematica中消除分子中的分母和分母

我有以下表达

(-1 + 1/p)^B/(-1 + (-1 + 1/p)^(A + B))

如何将分母和分母都乘以p ^（A + B），即摆脱分子和分母中的分母？我尝试了各种Expand，Factor，Simplify等方法，但是都没有用。

谢谢！

最佳答案

如果我理解您的问题，您可以教Mma一些代数：

r = {(k__ + Power[a_, b_]) Power[c_, b_] -> (k Power[c, b] + Power[a c, b]),
      p_^(a_ + b_) q_^a_ -> p^b ( q p)^(a),
      (a_ + b_) c_ -> (a c + b c)
    }

然后定义

s1 = ((-1 + 1/p)^B/(-1 + (-1 + 1/p)^(A + B)))

f[a_, c_] := (Numerator[a ] c //. r)/(Denominator[a ] c //. r)

以便

f[s1, p^(A + B)]

是

((1 - p)^B*p^A)/((1 - p)^(A + B) - p^(A + B))

关于wolfram-mathematica - 如何在Mathematica中消除分子中的分母和分母，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/4743707/