- 在线时间
- 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 {7 ]0 f* ^, s+ p+ g
g[y_] := 1/(A - F*y^2 + y*B I);1 V1 |; C& M7 E$ z! a
h[z_] := 1/(A - F*z^2 + z*B I);
; W& y- }" S. Q) |5 r' Rj[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);: q2 I" F- Z) T2 i& D0 y- T g
result = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]
; b6 x. J; i, [: d所有的积分上限都是+ 无穷,下限是 - 无穷。
* }) c% t1 j' r# k( z
) a* f2 O3 k3 N3 o9 v) i我想请教一下,有没有什么方法可以计算这个三重积分?
. ^ `7 K9 |! t. C% ]4 \/ \- l" Z* X& `当我转化了球面坐标后,发现还是算不动。。。。3 w$ m9 A1 d0 @' j2 {9 @* E5 Q9 v3 k9 b
) Y, I" N9 N6 w) d$ i3 r9 d: J$ L3 g/ g0 F0 \
f[x_] := 1/(a - c*x^2 + x*b I);
8 _5 b, }2 i1 ~9 m. ~4 @6 X2 Rg[y_] := 1/(a - c*y^2 + y*b I);
9 d! r9 Y9 |8 }' ch[z_] := 1/(a - c*z^2 + z*b I);
% ]' l* |7 U( u- h. L3 K; `$ Bj[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);& }% W6 n" G, T% l8 G+ }5 T& S
\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 = 7 I7 h+ a( G0 E) ^
2*Pi; r1 = 0; r2 = 1;
5 L+ u0 `/ J' X5 H4 bIntegrate[
7 r8 j' ?: A3 H8 A! sr^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
n7 r { _2 lg[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*3 W+ W# S! A+ ~; q2 {& \: `. b
j[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]],
: q2 }& Y9 U7 M- x0 T# b' g* qr Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1, w+ v$ H) |. N% j. h# q0 Y$ |
r2}, {\[Theta], \[Theta]1, \[Theta]2},]' u2 ^, J2 R* j
3 B w0 R: S" ^. |' L3 n
|
zan
|