我想用 Mathematica 计算以下积分
Integrate[(E^(2 x (-1 - Sqrt[y])) + E^(
2 x (-1 + Sqrt[y]))) (-((
3 E^(1/2 (t - x) (-5 - Sqrt[1 + 24 z])))/Sqrt[1 + 24 z]) + (
3 E^(1/2 (t - x) (-5 + Sqrt[1 + 24 z])))/Sqrt[1 + 24 z]) + (E^(
2 x (-1 - Sqrt[y])) + E^(
2 x (-1 + Sqrt[y]))) (-((
E^(1/2 (t - x) (-5 - Sqrt[1 + 24 z])) (-1 - Sqrt[1 + 24 z]))/(
2 Sqrt[1 + 24 z])) + (
E^(1/2 (t - x) (-5 + Sqrt[1 + 24 z])) (-1 + Sqrt[1 + 24 z]))/(
2 Sqrt[1 + 24 z])), {t, 0, Infinity}, {x, 0, t} ,
Assumptions -> {Re[Sqrt[1 + 24 z]] < 5 && Re[Sqrt[y]] < 1}]
我们很容易得到的结果是 5/(6 (-1 + y) (-1 + z)),但是在 Mathematica 中它需要很多时间。你想帮助我更快地改进它吗?