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

whdwpy666

f[x_] := 1/(A - F*x^2 + x*B I);
g[y_] := 1/(A - F*y^2 + y*B I);
$ d, z5 A7 ?, n) ~$ q+ e" th[z_] := 1/(A - F*z^2 + z*B I);
# Z+ e4 o* G8 x2 m- O4 x: {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]
+ R6 T& `: j2 H& m. f7 s3 ^3 S- Y" M0 o所有的积分上限都是+ 无穷，下限是 - 无穷。
) E9 V- s8 Q, t9 p0 {# e
我想请教一下，有没有什么方法可以计算这个三重积分？
8 ~0 j. y5 J" {9 R/ e9 l当我转化了球面坐标后，发现还是算不动。。。。


f[x_] := 1/(a - c*x^2 + x*b I);
g[y_] := 1/(a - c*y^2 + y*b I);
4 t6 ]6 G9 x! _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);
\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
; H% w% r5 W# P7 ]: _8 }$ Y2*Pi; r1 = 0; r2 = 1;
Integrate[
. `3 ^" j9 X1 }* V3 Ir^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
: m  _6 m3 D4 W% ]' ~$ ag[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*
8 l  r* t/ ]8 j) Xj[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]],
+ S% S! T) c% p+ Z: Br Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1,
1 S* e8 {  H1 T' I$ k* Ir2}, {\[Theta], \[Theta]1, \[Theta]2},]