- 在线时间
- 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);
) M+ P, z4 i( t2 Fg[y_] := 1/(A - F*y^2 + y*B I);
3 V+ @* o L- U; J5 g1 gh[z_] := 1/(A - F*z^2 + z*B I);
4 V8 x5 G' ~3 H2 Uj[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);
. R7 }. b4 _* T- d5 Gresult = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]9 U. `$ k8 K+ k
所有的积分上限都是+ 无穷,下限是 - 无穷。
, v1 x0 A. _! _5 }$ @1 k* A$ {( E
% g- G0 y" L, J我想请教一下,有没有什么方法可以计算这个三重积分?
4 B# w+ g' G2 l0 t, F当我转化了球面坐标后,发现还是算不动。。。。
. j( x) j. [4 c7 {: |! x$ s0 j6 e# y3 ]
. ]# C; k1 P) L1 V( x9 a% T
f[x_] := 1/(a - c*x^2 + x*b I);
0 ^) }8 K2 Q/ I% Gg[y_] := 1/(a - c*y^2 + y*b I);
- r' V; X6 ^0 v. o/ I4 q$ v+ ch[z_] := 1/(a - c*z^2 + z*b I);( A R. y! C3 t0 H1 Q
j[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);1 Q- w$ N }8 K
\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 = 6 \- A% E* Q7 z4 `- q5 F$ W: j
2*Pi; r1 = 0; r2 = 1;) {4 }9 x. l. u' h
Integrate[3 V+ r R0 b9 p1 i& K6 P
r^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
: v! T1 \ a x/ Xg[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*
7 b1 x a/ Z' ?0 Lj[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]],
5 Q8 G. Z( W2 Q9 X9 B0 cr Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1,
4 ]8 }# X7 X) a" x6 ?3 cr2}, {\[Theta], \[Theta]1, \[Theta]2},]
' i4 _8 O8 G' D+ W4 f& l$ q1 y* R( v$ ~
|
zan
|