- 在线时间
- 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);
0 ]! G8 l7 X, R# a. c* Dg[y_] := 1/(A - F*y^2 + y*B I);8 A, h) x3 o: }2 N2 a& Z/ b( `
h[z_] := 1/(A - F*z^2 + z*B I);
0 P' o S" S# L# lj[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);
1 U- ~4 z0 C) E5 b0 U* nresult = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]
' e6 Z5 h7 _; V1 }/ N, e' f9 C0 J所有的积分上限都是+ 无穷,下限是 - 无穷。
' e9 O! C' x" h- K+ b
( P# s! ?* S& F0 s2 l# S我想请教一下,有没有什么方法可以计算这个三重积分?/ U# y4 n- d6 t3 K
当我转化了球面坐标后,发现还是算不动。。。。 Y ]3 w) [! ^8 Q' X7 V
8 G& ?' _, A, O- {; o4 q
" K$ ]6 D/ C5 d
f[x_] := 1/(a - c*x^2 + x*b I);
4 h4 X8 A" b2 n4 J/ j mg[y_] := 1/(a - c*y^2 + y*b I);. ~6 G4 w. L% r6 P7 v! \
h[z_] := 1/(a - c*z^2 + z*b I);
* i( Q! e" n, z+ A5 ~j[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);. t# v9 K C, ?. C9 o
\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 = ! p- m$ z. X3 ~" v3 U# r
2*Pi; r1 = 0; r2 = 1;9 P# h& q) K; t1 ?5 p- X0 X5 z2 M K
Integrate[+ `; i: P% d$ t
r^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*( K/ @/ b, x: D3 o) v. V
g[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*
4 h6 T4 q E+ e8 L+ L' ?. Z7 aj[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]],
& O* f' {7 u, y1 p: B9 Wr Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1,
6 A; _- k. @) g5 z- i. Kr2}, {\[Theta], \[Theta]1, \[Theta]2},]
8 L, u$ ?; j( `) g
" Z& H9 j( q& p" g& L$ E! z |
zan
|