- 在线时间
- 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);& f- p3 d+ `4 A" D$ b7 Y
g[y_] := 1/(A - F*y^2 + y*B I); M" O1 p. n) u5 |, u: x
h[z_] := 1/(A - F*z^2 + z*B I);
' ^/ e& a: l4 lj[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);; W$ L& g' D+ l- m. q
result = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]
) _, Q; k6 Y3 Z, ^& I* p所有的积分上限都是+ 无穷,下限是 - 无穷。
P! f, x5 K# T* z$ p$ A% K* V% h) w8 S; \
我想请教一下,有没有什么方法可以计算这个三重积分?' r: x* C2 J4 J+ [4 }& X
当我转化了球面坐标后,发现还是算不动。。。。
7 `. v5 e" {" ]% n) N! f' H6 G, C/ ~& O
1 J; t- @+ F3 S8 }0 Kf[x_] := 1/(a - c*x^2 + x*b I);
3 `( b* L9 j3 F8 \- eg[y_] := 1/(a - c*y^2 + y*b I);- v+ i6 n5 x4 d" E% O
h[z_] := 1/(a - c*z^2 + z*b I);: {2 h! r1 F N) C) _
j[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);9 r% m: q, }4 L% h3 q j6 d. [
\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
$ S7 e6 m7 l8 H/ D" y2*Pi; r1 = 0; r2 = 1;; E( }- P& R# J9 X6 \* ^) K& s0 F q
Integrate[9 r9 ?, T9 e8 B
r^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*% P! _6 K" y% e' `$ b" h
g[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*
% L( L* j; C9 V- q& N! k& rj[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]], , D* d6 E) D3 [+ j( O& v+ i
r Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1, 2 a$ k2 M. \' j# c: p
r2}, {\[Theta], \[Theta]1, \[Theta]2},]* P: K3 R5 R1 J
9 k! w5 c5 x# b6 t- Y |
zan
|