- 在线时间
- 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);
1 }3 R: l8 n( f, V; B' Bg[y_] := 1/(A - F*y^2 + y*B I);" E! N% m' e+ q- @, [
h[z_] := 1/(A - F*z^2 + z*B I);
8 c1 e8 V& L/ Qj[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);
. v Y6 K; [" |9 I$ E/ rresult = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]- ?& g3 h, q' H9 T6 C
所有的积分上限都是+ 无穷,下限是 - 无穷。. v* k6 R8 O- Z8 c4 D# s
2 h7 ]1 N8 e$ X: R: X我想请教一下,有没有什么方法可以计算这个三重积分?
6 M4 \) L' P( p3 G! L! b) D当我转化了球面坐标后,发现还是算不动。。。。3 x; h# A7 \% b
3 k7 K: {2 U: n+ k+ D+ c9 @5 |3 |, T, s# G j0 @7 ]% D
f[x_] := 1/(a - c*x^2 + x*b I);
6 c+ U6 D8 c" l1 i( fg[y_] := 1/(a - c*y^2 + y*b I);
: m: k* `) m, c+ c, I. D) O! q3 r$ Ch[z_] := 1/(a - c*z^2 + z*b I);
3 N, `& Q; X6 e) y6 _" {5 uj[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);
7 e" e* ~& W9 y3 x5 `: x\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
# E* J m; s9 f2*Pi; r1 = 0; r2 = 1;$ u' u" E" h" D( C! M7 o
Integrate[
' ~2 d# q( b; K7 q+ [7 w. H1 Ir^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*/ I! i0 u7 L& K( J$ F$ i+ \
g[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*
# G, o) \" X# ej[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]],
- E3 E% q I) c( yr Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1, 8 h6 ~6 y3 t/ j* |# I2 w) d& S9 r! c
r2}, {\[Theta], \[Theta]1, \[Theta]2},]
# p; p0 ^0 c5 ?6 w
, S0 C" R$ Z3 q; L% k9 n |
zan
|