- 在线时间
- 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);
3 Y0 t: {0 _# V$ tg[y_] := 1/(A - F*y^2 + y*B I);
" _9 W- a a% ?h[z_] := 1/(A - F*z^2 + z*B I);
# n' }3 B7 W$ m4 k/ d8 jj[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);& b* K. `2 M: s3 X' w$ K
result = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]% L1 O6 q# U. x, p
所有的积分上限都是+ 无穷,下限是 - 无穷。$ @# A' q0 f1 o; ?& f* j
" x! x& j) c U7 E7 J- m
我想请教一下,有没有什么方法可以计算这个三重积分?
. Z/ w2 A! y0 e0 C3 c5 I当我转化了球面坐标后,发现还是算不动。。。。3 n( ]4 Q" P! r/ y- r& [% s
+ R" [; j* ^$ ^' n' Y/ V/ C
c! x4 t! w" E7 m) R; |2 ff[x_] := 1/(a - c*x^2 + x*b I);
5 o6 Q V+ b; ng[y_] := 1/(a - c*y^2 + y*b I);
7 F/ v# c; Q8 H. d5 Z/ y* k( ^* Ih[z_] := 1/(a - c*z^2 + z*b I);
5 c+ C; A1 t8 x' D# Yj[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);, P# b- q$ G9 w( U
\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 = 9 Y' B. I) U4 W0 a" s3 E
2*Pi; r1 = 0; r2 = 1;) ]( Y6 q1 R6 C" b
Integrate[* L+ C8 I* ?, v$ y* K' V. n2 J7 I
r^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*4 {* u5 e7 z: Q/ Y( J
g[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*$ T6 M, ^% q# M; q @5 z5 Y9 ^2 r
j[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]], 6 S) {- Y/ ^' J/ f( n
r Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1,
. u" k$ \+ F! {; ar2}, {\[Theta], \[Theta]1, \[Theta]2},]1 z$ Z8 T# T& @' p- b" J0 d4 M
: E3 s8 V# D3 ?+ p7 Z: } P
|
zan
|