- 在线时间
- 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% l& _" C! o5 _% r/ h) e
g[y_] := 1/(A - F*y^2 + y*B I);
" ?, Q |. _* Xh[z_] := 1/(A - F*z^2 + z*B I);
; l0 j! T2 v" Cj[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);* ^5 t+ j. Z& s: m
result = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]
p3 d# F# d" h6 b" i! M& l所有的积分上限都是+ 无穷,下限是 - 无穷。
8 m1 h9 y, o" ?, B0 O1 H/ ^% `: D3 H {1 {( l a8 Z i
我想请教一下,有没有什么方法可以计算这个三重积分?
9 V" p8 S! _/ b0 V* d当我转化了球面坐标后,发现还是算不动。。。。( \, g v b: d1 s
( K$ }, E" i- c
( }. y; P$ k8 Bf[x_] := 1/(a - c*x^2 + x*b I);) C5 W, W3 |* H1 C& l
g[y_] := 1/(a - c*y^2 + y*b I);
5 p/ i, }7 W K2 C4 }% y# I: ph[z_] := 1/(a - c*z^2 + z*b I);( ^) i* P4 |/ U( W$ U
j[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I); W) Y* T4 X& Q" a5 j! ?/ G
\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
4 V1 @. w( j) w/ o2 R2 ~" O2*Pi; r1 = 0; r2 = 1;
" @3 G9 p3 O; V' |Integrate[
7 f- e6 H6 m5 Q: N2 E, x. Yr^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
9 w2 G V& }( \4 {5 |5 a- eg[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*3 i2 s& K6 s- H) t0 |
j[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]],
3 D- z6 H, r) p! p. qr Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1,
' b; f8 [6 x8 z$ X$ D) {8 Gr2}, {\[Theta], \[Theta]1, \[Theta]2},]5 P* p% l) F* Q& w( `3 d
2 V' r' t% C( ]+ n |
zan
|