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

whdwpy666

f[x_] := 1/(A - F*x^2 + x*B I);
6 J# |2 j& @* G; T, mg[y_] := 1/(A - F*y^2 + y*B I);
h[z_] := 1/(A - F*z^2 + z*B I);
1 e4 o# K7 B8 Xj[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);
- {' T3 f8 U* g5 u: h& ?1 B' D' lresult = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]
所有的积分上限都是+ 无穷，下限是 - 无穷。
. R/ t. @0 ~( s2 Y
$ O  q  E5 a4 ?: G我想请教一下，有没有什么方法可以计算这个三重积分？
) h2 Z$ _  r: @当我转化了球面坐标后，发现还是算不动。。。。
! J1 M0 _/ `8 |$ x
3 u3 B0 q, Y$ a* g" o) e. U
7 _$ E* O/ N* x6 q+ S' `f[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);
j[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);
- e4 ]/ N( n8 S% r% x2 I\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
' ^5 j6 V1 _# E; S" X; i- E2*Pi; r1 = 0; r2 = 1;
& R; s5 Q6 M0 hIntegrate[
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,
! M, P% j; Q- P/ V1 v# T' {+ {r2}, {\[Theta], \[Theta]1, \[Theta]2},]
" ]5 K! T! F3 U" W% \3 l" C