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

whdwpy666

f[x_] := 1/(A - F*x^2 + x*B I);
g[y_] := 1/(A - F*y^2 + y*B I);
7 o$ e0 Q" I( ^: Eh[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);
2 }. m2 d! N$ _2 Z% I9 `8 Cresult = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]
( O; @& u5 [# c& y所有的积分上限都是+ 无穷，下限是 - 无穷。
* z3 W- z$ m3 N" e; K4 `
$ f# ]' ^* j8 f) A我想请教一下，有没有什么方法可以计算这个三重积分？
* X# P' G6 W: L. F: Z9 N当我转化了球面坐标后，发现还是算不动。。。。

  X; G3 h% ~$ f, o
f[x_] := 1/(a - c*x^2 + x*b I);
g[y_] := 1/(a - c*y^2 + y*b I);
2 l/ x, Q! |5 k9 ih[z_] := 1/(a - c*z^2 + z*b I);
) Y7 M( S! W4 C. ]/ L$ Aj[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);
' a) W# u, s0 b\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
. D6 L" }3 o2 _; p  ^7 a0 u- R2*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]]]*
6 X8 g4 m9 k' ?4 \j[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]],
r Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1,
2 l4 K) {) D2 A' Mr2}, {\[Theta], \[Theta]1, \[Theta]2},]

5 c, z4 U: W7 t1 {% d2 S  g