不好意思，最近嘗試要把所有用到的方程式打進電腦裡裡，方便管理也順便驗算，
但目前碰到一個很小的問題跨越不了 QQ 就是該如何化簡方程式。
舉例來說：
Clear["Global`*"]
d11 = (p11)^(-\[Sigma]) (P1)^(\[Sigma] - 1) Y1
d12 = (p12)^(-\[Sigma]) (P2)^(\[Sigma] - 1) Y2
p12 = (\[Tau])*(p11)
d11
d12
h = ((\[Sigma] - 1)/\[Sigma]) (d11 + \[Tau] (d12))
Factor[h]
Expand[h]

ExpandAll 再 Simplify 看看?

回到原樣，大哭QQ

ComplexExpand?

謝謝樓上各位，我只是肖想漂亮的結果，可以省下人工化簡的時間拉QQ

可以使用PowerExpand[h] ^_^

Mathematica is being agnosgic about branch cutsIf you are sure, "/. {(a_ b_)^c_ -> a^c b^c}" will do