level 1
陨星落尘2013
楼主
如图，很容易注意到有大量的类似于thetaL-thetaR的结构，想把它替换成一个值theta，似乎由于指数结构的多样性，没法简单替换QAQ。代码：expr = Expand[
Denominator[
t1S]/(\[CapitalGamma]^6*
Exp[3*I*\[Theta]L + 3*I*\[Theta]R + I*\[CurlyPhi]])];
expr = expr /. Power[E, a_] :> Exp[a];
exprSimplified =
expr //. {a_. Exp[
I*p_.*\[Theta]L + I*q_.*\[Theta]R + I*r_.*\[CurlyPhi]] :>
a Exp[I*(p - q)*\[Theta] + I*r*\[CurlyPhi]]}
expr /. {I *(\[Theta]L - \[Theta]R) -> I*\[Theta]}
结果：
{36 + 66 E^(I \[Theta]L - I \[Theta]R + I \[CurlyPhi]) +
66 E^(-I \[Theta]L + I \[Theta]R + I \[CurlyPhi]) +
40 E^(2 I \[Theta]L - 2 I \[Theta]R + 2 I \[CurlyPhi]) +
40 E^(-2 I \[Theta]L + 2 I \[Theta]R + 2 I \[CurlyPhi]) +
52 E^(I \[Theta]L - I \[Theta]R + 3 I \[CurlyPhi]) +
52 E^(-I \[Theta]L + I \[Theta]R + 3 I \[CurlyPhi]) +
8 E^(3 I \[Theta]L - 3 I \[Theta]R + 3 I \[CurlyPhi]) +
8 E^(-3 I \[Theta]L + 3 I \[Theta]R + 3 I \[CurlyPhi]) +
8 E^(2 I \[Theta]L - 2 I \[Theta]R + 4 I \[CurlyPhi]) +
8 E^(-2 I \[Theta]L + 2 I \[Theta]R + 4 I \[CurlyPhi]) +
2 E^(I \[Theta]L - I \[Theta]R + 5 I \[CurlyPhi]) +
2 E^(-I \[Theta]L + I \[Theta]R + 5 I \[CurlyPhi]) +
104 E^(2 I \[CurlyPhi]) + 20 E^(4 I \[CurlyPhi]) - (
I Jab Jac Jbc)/\[CapitalGamma]^6 - (
I Jab Jbc^2)/\[CapitalGamma]^6 + (3 Jab^2)/\[CapitalGamma]^4 + (
2 E^(I \[Theta]L - I \[Theta]R + I \[CurlyPhi])
Jab^2)/\[CapitalGamma]^4 + (
2 E^(-I \[Theta]L + I \[Theta]R + I \[CurlyPhi])
Jab^2)/\[CapitalGamma]^4 + (
E^(2 I \[CurlyPhi]) Jab^2)/\[CapitalGamma]^4 + (
3 Jac Jbc)/\[CapitalGamma]^4 + (
2 E^(I \[Theta]L - I \[Theta]R + I \[CurlyPhi])
Jac Jbc)/\[CapitalGamma]^4 + (
2 E^(-I \[Theta]L + I \[Theta]R + I \[CurlyPhi])
Jac Jbc)/\[CapitalGamma]^4 + (
E^(2 I \[CurlyPhi]) Jac Jbc)/\[CapitalGamma]^4 + (
4 Jbc^2)/\[CapitalGamma]^4 + (
2 E^(I \[Theta]L - I \[Theta]R + I \[CurlyPhi])
Jbc^2)/\[CapitalGamma]^4 + (
2 E^(-I \[Theta]L + I \[Theta]R + I \[CurlyPhi])
Jbc^2)/\[CapitalGamma]^4 - (
2 I Jab^2 \[CapitalDelta])/\[CapitalGamma]^6 - (
2 I Jac Jbc \[CapitalDelta])/\[CapitalGamma]^6 - (
2 I Jbc^2 \[CapitalDelta])/\[CapitalGamma]^6 - (
66 I \[CapitalDelta])/\[CapitalGamma]^2 - (
80 I E^(I \[Theta]L - I \[Theta]R +
I \[CurlyPhi]) \[CapitalDelta])/\[CapitalGamma]^2 - (
80 I E^(-I \[Theta]L + I \[Theta]R +
I \[CurlyPhi]) \[CapitalDelta])/\[CapitalGamma]^2 - (
24 I E^(2 I \[Theta]L - 2 I \[Theta]R +
2 I \[CurlyPhi]) \[CapitalDelta])/\[CapitalGamma]^2 - (
24 I E^(-2 I \[Theta]L + 2 I \[Theta]R +
2 I \[CurlyPhi]) \[CapitalDelta])/\[CapitalGamma]^2 - (
16 I E^(I \[Theta]L - I \[Theta]R +
3 I \[CurlyPhi]) \[CapitalDelta])/\[CapitalGamma]^2 - (
16 I E^(-I \[Theta]L + I \[Theta]R +
3 I \[CurlyPhi]) \[CapitalDelta])/\[CapitalGamma]^2 - (
76 I E^(2 I \[CurlyPhi]) \[CapitalDelta])/\[CapitalGamma]^2 - (
2 I E^(4 I \[CurlyPhi]) \[CapitalDelta])/\[CapitalGamma]^2 - (
40 \[CapitalDelta]^2)/\[CapitalGamma]^4 - (
24 E^(I \[Theta]L - I \[Theta]R +
I \[CurlyPhi]) \[CapitalDelta]^2)/\[CapitalGamma]^4 - (
24 E^(-I \[Theta]L + I \[Theta]R +
I \[CurlyPhi]) \[CapitalDelta]^2)/\[CapitalGamma]^4 - (
8 E^(2 I \[CurlyPhi]) \[CapitalDelta]^2)/\[CapitalGamma]^4 + (
8 I \[CapitalDelta]^3)/\[CapitalGamma]^6}
