复杂的三重积分，mathematica算不了？

whdwpy666

f[x_] := 1/(A - F*x^2 + x*B I);
! e# p8 g8 H2 M7 J/ ^# ~8 u; og[y_] := 1/(A - F*y^2 + y*B I);
# F/ L% M: Z! ?" K, t) uh[z_] := 1/(A - F*z^2 + z*B I);
j[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);
. C- |/ ]: H/ {5 |' @result = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]
所有的积分上限都是+ 无穷，下限是 - 无穷。

我想请教一下，有没有什么方法可以计算这个三重积分？
# s! n3 q8 ^; i- ^当我转化了球面坐标后，发现还是算不动。。。。

# F  m) Z& E5 `) e9 A1 y6 |2 H7 q
; \) e4 f8 d" T7 ]: Sf[x_] := 1/(a - c*x^2 + x*b I);
g[y_] := 1/(a - c*y^2 + y*b I);
h[z_] := 1/(a - c*z^2 + z*b I);
% g3 E0 \# Q8 l! z" A+ L: {j[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);
1 ?( v) g; \7 b! @) a3 |: [: W7 r\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
9 C5 m# I! S4 G7 J! P8 E& ?2*Pi; r1 = 0; r2 = 1;
Integrate[
# ?" n' a( c  Yr^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
g[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*
# `+ \: S. [+ k  dj[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]],
r Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1,
r2}, {\[Theta], \[Theta]1, \[Theta]2},]
$ T. N- z; A; I. L2 y
3 e% x- F2 h5 E1 z