- 在线时间
- 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);) s. C2 z: g3 Y; I4 s" z
g[y_] := 1/(A - F*y^2 + y*B I);' S$ n8 Q; a- v
h[z_] := 1/(A - F*z^2 + z*B I);
1 O+ }& c9 l8 z1 Cj[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);" i$ ~$ T$ W0 a: p" n O& J
result = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]
3 N( c2 P7 {1 a& G! T所有的积分上限都是+ 无穷,下限是 - 无穷。1 l9 Q: ]& N$ u. K4 I
3 z; x& v/ W: A4 O# o7 h我想请教一下,有没有什么方法可以计算这个三重积分?
3 \$ t/ b' x& ?) z当我转化了球面坐标后,发现还是算不动。。。。
5 N9 c% P# q' R' |& G+ E
4 b5 z0 s/ n- l: V; I/ a& J6 m5 J+ H. O: X- Y) S/ k5 L' D3 s5 K
f[x_] := 1/(a - c*x^2 + x*b I);! r j- h7 W; K( M
g[y_] := 1/(a - c*y^2 + y*b I);: t/ l) O0 N+ H5 c: w: l
h[z_] := 1/(a - c*z^2 + z*b I);
1 h+ c' E' e( C; v. aj[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);1 I: @ Y! o7 R' ?; f
\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
: G' `! o: h' W2*Pi; r1 = 0; r2 = 1;; ^; b- M3 a: d/ r
Integrate[( ]8 Z# Z- q# E
r^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
. K# {; Q7 y5 ^. O+ Sg[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*. `) ]+ [, u6 d' O. E5 E
j[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]], 9 R& i0 _6 w3 l* k
r Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1,
: J0 F' Y6 z) J" g/ yr2}, {\[Theta], \[Theta]1, \[Theta]2},]
' a0 C" T( j& d) c$ b6 L: U* V ]7 D/ w; p+ A4 ?( @
|
zan
|