Wolfram mathematica 如何去掉分子中的分母和mathematica中的分母

我有下面的表达

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

我如何用p^（A+B）乘以分母和数学家，即去掉分子和分母中的分母？我尝试了各种各样的扩展、因子、简化等，但都没有成功

---

谢谢

简化应该是可行的，但在你的情况下，用p^（A+B）乘以分子和分母是没有意义的，它不会取消分母

如果我理解你的问题，你可以教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)]  

是

---

我必须说我不理解原来的问题。然而，在试图理解belisarius给出的有趣解决方案时，我想到了以下几点：

expr = (-1 + 1/p)^B/(-1 + (-1 + 1/p)^(A + B));

Together@(PowerExpand@FunctionExpand@Numerator@expr/
 PowerExpand@FunctionExpand@Denominator@expr)

输出（由belisarius给出）：

或者：

PowerExpand@FunctionExpand@Numerator@expr/PowerExpand@
 FunctionExpand@Denominator@expr

给予

或

---

感谢belisarius在Mma的力量方面又上了一课

+1我认为教Mma以“优雅”的方式呈现你的公式与其说是一门手艺，不如说是一门艺术。太棒了！你是怎么制定这些规则的？为什么没有其他规则？@Qiang我只是手工做了转换，并写下了我使用的规则。。。不是很“自动”

PowerExpand@FunctionExpand@Numerator@expr/PowerExpand@
 FunctionExpand@Denominator@expr

FunctionExpand@Numerator@expr/FunctionExpand@Denominator@expr