- 在线时间
- 4 小时
- 最后登录
- 2015-3-20
- 注册时间
- 2014-11-2
- 听众数
- 11
- 收听数
- 0
- 能力
- 0 分
- 体力
- 34 点
- 威望
- 0 点
- 阅读权限
- 20
- 积分
- 14
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 8
- 主题
- 4
- 精华
- 0
- 分享
- 0
- 好友
- 1
升级   9.47% TA的每日心情 | 怒 2015-3-16 11:27 |
---|
签到天数: 3 天 [LV.2]偶尔看看I
- 自我介绍
- 学生
 |
f[x_] := 1/(A - F*x^2 + x*B I);
, z- `: i" O* j) H4 G9 E' [g[y_] := 1/(A - F*y^2 + y*B I);
. r" e0 _- D: a& ^' J- ih[z_] := 1/(A - F*z^2 + z*B I);
" S& ]$ j9 R( x- Nj[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);
. Z; Q$ N8 N5 Q, C. @, L. @result = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]
g+ N8 t$ D- H2 H所有的积分上限都是+ 无穷,下限是 - 无穷。- C, D. B& z/ w2 U
! E: R+ y0 r9 g M& E: ^6 l3 a) ?
我想请教一下,有没有什么方法可以计算这个三重积分?
( G' w# f3 p0 K0 \! I" w" h& g1 _当我转化了球面坐标后,发现还是算不动。。。。
. z: n) ~8 o# h7 U. o: {( j2 b4 S& s+ }4 D* K$ V) s2 H8 q
; M" U! d- g' L) y. k' @f[x_] := 1/(a - c*x^2 + x*b I);
/ q! t3 ~; ?0 i6 l: E7 }" `: ?g[y_] := 1/(a - c*y^2 + y*b I);+ ?1 R) x3 r8 @: p0 ~
h[z_] := 1/(a - c*z^2 + z*b I);; S5 D8 a$ b3 F; I8 k- g
j[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);
) h5 l( ~9 |2 C7 q% ]2 K4 Z\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
+ y/ d5 k5 Y$ a) [2*Pi; r1 = 0; r2 = 1;
, U1 k& E d4 C2 m6 IIntegrate[' f% `2 E2 \8 Q M9 R
r^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*$ X' C2 d8 t% g1 `! V( ]7 n
g[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*
h- b5 j- a5 [$ \0 W' R6 zj[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]], / _# j5 }' d1 L9 k: a7 u
r Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1, : y; k; Z( y% f1 Z: K% k
r2}, {\[Theta], \[Theta]1, \[Theta]2},]
7 |# A9 v" @5 h) j6 T: Q
! @" ^, s9 z0 M* }$ [ |
zan
|