- 在线时间
- 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);
) K6 n8 W W; Q6 A+ `g[y_] := 1/(A - F*y^2 + y*B I);
. }8 I& g6 m/ Eh[z_] := 1/(A - F*z^2 + z*B I);
) B" t) P, u: |5 J) d9 U% I2 mj[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);
S9 M0 D, H5 Bresult = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]' n j/ R; Q7 C# G
所有的积分上限都是+ 无穷,下限是 - 无穷。
5 D1 P" R5 n" y6 Z
+ T- S8 @4 O/ b) q* g& x$ a7 t我想请教一下,有没有什么方法可以计算这个三重积分?% u+ `3 `- p4 P
当我转化了球面坐标后,发现还是算不动。。。。
8 v+ ]: m# C1 r; b) i' r7 }3 c% X; P/ \/ u: O$ F9 K7 [- t* d
u6 f2 P' j4 s L6 J* Z
f[x_] := 1/(a - c*x^2 + x*b I); h n+ d; ?8 j2 o: G5 k" F" U6 x
g[y_] := 1/(a - c*y^2 + y*b I);+ F* k5 M& N2 x4 p; \( r0 q8 V
h[z_] := 1/(a - c*z^2 + z*b I);
2 @/ L- p/ y+ v& A3 lj[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);) {& e2 T5 p6 ^3 t# K% A4 ^4 w: y
\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
$ _' P1 }" ^/ @4 T: ]6 y. H* t2*Pi; r1 = 0; r2 = 1;
+ i1 z* F2 B3 ?/ @: |0 IIntegrate[( j7 t2 n, R6 u" Z ]; t7 y5 |+ e' t
r^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
1 L" y- N8 w4 L, t6 n# j) I3 wg[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*" F" T' B; }# ]1 r3 s5 i0 T
j[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]],
5 L6 B9 I6 M) y5 ~6 X& V7 Wr Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1,
" r1 q) }; h( W: z8 H vr2}, {\[Theta], \[Theta]1, \[Theta]2},]/ I0 x/ A& F4 h s" v; K/ p
" F9 N& C- ]' d C |
zan
|