- 在线时间
- 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);5 r! R: \9 [+ h! ^3 ?4 f ~6 f' Y
g[y_] := 1/(A - F*y^2 + y*B I);
- J- A! q0 Z8 }- E+ F& Q. T5 Y: Jh[z_] := 1/(A - F*z^2 + z*B I);
# V3 v q. I& Sj[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);
" v' j' M* _5 p1 `, ~; x- A5 \! F. tresult = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]8 [" H+ c5 k" B9 Q9 H2 M- C
所有的积分上限都是+ 无穷,下限是 - 无穷。
" [" }6 ?! \) i5 _! c+ ?& |: T3 \( w7 t
我想请教一下,有没有什么方法可以计算这个三重积分?
( a% ~( A( ?5 I: J+ C. C当我转化了球面坐标后,发现还是算不动。。。。
9 V {" E. s8 \
' j& x' @8 k2 K1 C5 C L2 N* U, R. b3 H& W
f[x_] := 1/(a - c*x^2 + x*b I);
* s4 E- ~$ a( S9 i9 ?# ?g[y_] := 1/(a - c*y^2 + y*b I);
- G) c; W4 D: l* S! \& Kh[z_] := 1/(a - c*z^2 + z*b I);
& B! W6 Y& D- s; j& R i1 T& dj[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);
4 p* w% E" E8 j\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 = ; l) N: k1 O9 G6 R' ?( E
2*Pi; r1 = 0; r2 = 1;- K4 `9 Y6 \9 S) H+ T
Integrate[
1 x! g& T% n+ z/ r* x3 rr^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
5 h0 ]9 O6 R. i- y: `g[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*- }' P+ S0 X/ C* C7 P; H* V
j[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]], & P! H9 |# Q6 `9 B3 X0 Y% [
r Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1,
6 M# J: D S6 _- N' b3 \" l0 Hr2}, {\[Theta], \[Theta]1, \[Theta]2},]' a5 ? Z5 ~7 o1 P+ [
A8 \0 z1 b' s% q
|
zan
|