- 在线时间
- 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);
- i' p4 E# w* g. n; O+ w* tg[y_] := 1/(A - F*y^2 + y*B I);
) Q6 Y3 {5 ^, F, s& Eh[z_] := 1/(A - F*z^2 + z*B I);* n- y# \5 Y9 K H( f5 w0 k
j[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);
9 ?8 K! K: b2 R! f" H) p* cresult = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]3 x) P9 z4 x" Y, B
所有的积分上限都是+ 无穷,下限是 - 无穷。
* @. ]. U$ k7 J; l4 y
' K' K# ^7 \; i1 E! S+ J我想请教一下,有没有什么方法可以计算这个三重积分?/ p( D: ~- G R
当我转化了球面坐标后,发现还是算不动。。。。
! y" C) I" j8 R0 J0 w+ l& a( G6 m0 ], w9 m- l. \# L2 ^7 p; D
& F! Y2 V6 ]4 o$ sf[x_] := 1/(a - c*x^2 + x*b I);# M6 [4 q0 E% l i
g[y_] := 1/(a - c*y^2 + y*b I);5 `& X9 s6 p+ R0 w
h[z_] := 1/(a - c*z^2 + z*b I);
+ h- p. J4 H \$ b" _. |j[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);
9 i; C* k% y- z\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
) a7 g/ j. X E2*Pi; r1 = 0; r2 = 1;# a9 K0 }9 J) M+ y' K, l0 L
Integrate[
( ~" \( h# G X- Z& ~4 W! Qr^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
; Y- d' f1 K _& s' Z" vg[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]* j( A, S g( w
j[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]], 8 t7 ^& d, `3 i+ @& S
r Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1,
$ [8 t5 b" {' J* f, p; x! x6 Tr2}, {\[Theta], \[Theta]1, \[Theta]2},]
8 u# A: L. C' A
" t: n% h1 \' U' `+ k/ A0 `- x |
zan
|