- 在线时间
- 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);
) V5 q$ B' N, @" G8 @* G* d. ng[y_] := 1/(A - F*y^2 + y*B I);) w% Z2 r u i4 o
h[z_] := 1/(A - F*z^2 + z*B I);/ z9 r2 }! x$ z/ S
j[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);4 H$ Q, K [8 p3 p- }& q; l
result = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]! r6 V/ M/ y& W( ^! ~
所有的积分上限都是+ 无穷,下限是 - 无穷。
2 t- R* N% F0 b9 J6 U9 Q& j% T1 O
! ~' Z3 b8 n+ s0 {我想请教一下,有没有什么方法可以计算这个三重积分?
U5 }" Y2 S4 [5 W/ X+ X1 B当我转化了球面坐标后,发现还是算不动。。。。
6 Z' G0 Q8 i- k& N; I
: F F$ Z1 n7 N+ J: F, |5 r/ w4 Y7 X; g+ e" n1 e
f[x_] := 1/(a - c*x^2 + x*b I);+ U9 a7 R4 R. g g3 f
g[y_] := 1/(a - c*y^2 + y*b I);' c( j8 Z! B- X D3 f7 H
h[z_] := 1/(a - c*z^2 + z*b I);
4 R1 U/ h" k7 X6 B& U9 d! p+ xj[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);
3 U1 a# b$ b8 J& @* G\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
+ k* `( N: k: U5 }2*Pi; r1 = 0; r2 = 1;
, Z" H8 u7 v4 A8 \) F+ TIntegrate[
: J0 B3 J [: N7 J1 Kr^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
% a# x4 H) d( { _0 [% l( mg[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*
( A" U) p& e; B8 ^. ~+ ]j[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]],
6 |* [9 n" e' t% Z/ H6 J& Gr Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1, & C2 u- }1 d# t
r2}, {\[Theta], \[Theta]1, \[Theta]2},]
$ V+ O0 @, A6 _' P3 o9 T& q
: x' P; b$ N0 u: J |
zan
|