- 在线时间
- 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);9 |3 e' d' `' u+ J: w* @" Z- A
g[y_] := 1/(A - F*y^2 + y*B I);
2 O6 l2 M+ n, T* F, t$ ~h[z_] := 1/(A - F*z^2 + z*B I);* b- C" G3 t* T! p
j[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);. C: D9 v+ ^ j% Y
result = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]* M0 \, f* p2 z: f
所有的积分上限都是+ 无穷,下限是 - 无穷。
W. \- k1 Q& E% u6 X6 f: |, |6 G7 @( q h" q8 B, s( n
我想请教一下,有没有什么方法可以计算这个三重积分?! w+ D- K- L. `( A/ q$ k
当我转化了球面坐标后,发现还是算不动。。。。% j: S% c; f0 O# r
" j* h( t7 }. M. l i; j& `/ C) x5 Q1 s) T5 K0 I3 G1 y6 s
f[x_] := 1/(a - c*x^2 + x*b I);
3 m/ ~( v0 a, y- Q# Gg[y_] := 1/(a - c*y^2 + y*b I);& F9 v# b, T+ D
h[z_] := 1/(a - c*z^2 + z*b I);! j" q$ `- ]( ?* }* R( V. H2 |4 c, y: u
j[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);0 L& j- s% W+ p/ j" i) s
\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 = + V" j8 n5 p7 R( u
2*Pi; r1 = 0; r2 = 1;
" S% A/ A# n Q& dIntegrate[
. ?" g! w) s6 |2 ~2 u, V9 u# ir^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
- G p' l; u6 rg[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*3 t" j! Q$ y0 Z0 \: Q- ~, Q9 Z$ l: k
j[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]],
0 {) D8 W, c4 `& yr Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1, ( o. y- D0 G- y
r2}, {\[Theta], \[Theta]1, \[Theta]2},]
* n2 c& u1 @0 a* H, |* h( s
# z8 H6 x, m+ n |
zan
|