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

whdwpy666

f[x_] := 1/(A - F*x^2 + x*B I);
% E5 H, d1 P1 I, ]8 }g[y_] := 1/(A - F*y^2 + y*B I);
h[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);
result = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]
# O' T9 a: ]- l( R0 l: W5 I9 Y所有的积分上限都是+ 无穷，下限是 - 无穷。
' l: w/ P+ l, `" W2 G2 l
* B) f. `0 K. y( }# D8 ~我想请教一下，有没有什么方法可以计算这个三重积分？
* V) t* T/ ^0 |3 @/ l, |0 [当我转化了球面坐标后，发现还是算不动。。。。
0 H5 V* b. {# R
' v% F0 ?& j# J- f
8 ~8 ?. `6 X; O/ B7 D7 j0 s6 N9 r" xf[x_] := 1/(a - c*x^2 + x*b I);
; }- W4 b/ T. ag[y_] := 1/(a - c*y^2 + y*b I);
h[z_] := 1/(a - c*z^2 + z*b I);
7 n/ u6 r6 W9 d1 Y' uj[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);
\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
2*Pi; r1 = 0; r2 = 1;
Integrate[
r^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
g[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*
j[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, l$ z. U: q3 A1 \+ k  k& k8 t
, r( Q7 I3 A7 C