- 在线时间
- 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);. y; d6 M9 _8 {. M6 ^- h/ Y5 j, v6 L
g[y_] := 1/(A - F*y^2 + y*B I);& s& A/ u, T7 |# u3 z
h[z_] := 1/(A - F*z^2 + z*B I);
9 Q( ~1 j6 ]: r8 Zj[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);
7 x9 u1 v5 p, ]: w: Iresult = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]' e, c% }: e$ m6 v# X
所有的积分上限都是+ 无穷,下限是 - 无穷。: k4 { B% s- S/ o1 ], b
4 m! }) W5 |8 s
我想请教一下,有没有什么方法可以计算这个三重积分?
' N/ @9 T. O; k; u0 U% m当我转化了球面坐标后,发现还是算不动。。。。
6 r+ A |1 A/ G) L9 x7 m. g5 K; ^7 a* e5 w
7 B4 I" a' m, N0 uf[x_] := 1/(a - c*x^2 + x*b I);
5 e% z7 h# E5 P0 gg[y_] := 1/(a - c*y^2 + y*b I);, \+ }9 I! v0 X
h[z_] := 1/(a - c*z^2 + z*b I);
9 Y& Y& r( }; D! t7 D/ Yj[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);
1 y' v+ ?" o" e2 G% e/ }2 R\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 = 6 M9 M3 A2 t" w5 f& T
2*Pi; r1 = 0; r2 = 1;
0 M {2 `5 D( ^Integrate[# }% f) w; q4 P
r^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*- i1 @# ^; g4 K9 w3 S4 T
g[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*
) K! }7 a* Z/ r: _* I' v$ Cj[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]], - \4 D8 g3 l* S9 p
r Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1, , B+ w: U- P( \: v
r2}, {\[Theta], \[Theta]1, \[Theta]2},]
% D3 k0 `( M( r- V T& @
, j5 A5 P/ z% W3 S |
zan
|