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

whdwpy666

f[x_] := 1/(A - F*x^2 + x*B I);
g[y_] := 1/(A - F*y^2 + y*B I);
h[z_] := 1/(A - F*z^2 + z*B I);
3 S* e, `) q& U" Ej[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]
所有的积分上限都是+ 无穷，下限是 - 无穷。
  J# n/ h0 b, i8 C( X
0 b7 ^( f1 [% ]3 u: m2 }, D我想请教一下，有没有什么方法可以计算这个三重积分？
3 c) B8 A; Q0 s' m% c% i当我转化了球面坐标后，发现还是算不动。。。。
* [+ w! H" K& z+ o, h
- x" I" e2 K, I  p
: N2 l6 p" ~6 {3 a# Kf[x_] := 1/(a - c*x^2 + x*b I);
8 E3 ^0 _9 p5 K, Xg[y_] := 1/(a - c*y^2 + y*b I);
! J5 I" `( h+ g" [h[z_] := 1/(a - c*z^2 + z*b I);
j[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);
& a9 v% g3 w5 C\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
2*Pi; r1 = 0; r2 = 1;
  z  V. r. z+ O* Z5 m# j1 ^4 W3 AIntegrate[
) [3 T, C0 t& \' Vr^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
/ z& G. D2 g" d8 c# l  Ug[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*
j[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]],
, X' Q# M4 V/ Q8 |& e9 F$ D% kr Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1,
r2}, {\[Theta], \[Theta]1, \[Theta]2},]
0 d5 d" J) L  w4 R# g0 A) F- J
( l# U+ E# |( g: C3 q2 o0 W" `) u