- 在线时间
- 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);, @, ] U+ z' k, }0 j! r
g[y_] := 1/(A - F*y^2 + y*B I);2 |9 p- s1 m" p1 I. N
h[z_] := 1/(A - F*z^2 + z*B I);1 ^2 Q& j Y8 A% \
j[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);
; M @. t, ~9 w& o' n0 b) ?- gresult = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]
$ S) w5 s! P0 o& ^所有的积分上限都是+ 无穷,下限是 - 无穷。
) Z, _: d. u3 v& u! K% @" o7 }8 d4 ?6 ]3 r$ c0 `
我想请教一下,有没有什么方法可以计算这个三重积分?
: _) h7 A( B* j+ f3 V! d当我转化了球面坐标后,发现还是算不动。。。。
: f6 t5 Z: m) {
% ~/ {" e, Z8 G+ |1 {6 u/ x: P5 Z, x0 s
f[x_] := 1/(a - c*x^2 + x*b I);
1 b8 n& f! v$ C; Z+ Jg[y_] := 1/(a - c*y^2 + y*b I);' w8 o9 \. t4 M) L) q* k
h[z_] := 1/(a - c*z^2 + z*b I);7 E1 |! U5 v" M* ?
j[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);
! E1 D/ k/ L" V- n l! C0 Z\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
' s: d1 C( p/ s6 t5 h8 T2*Pi; r1 = 0; r2 = 1;. c/ X( o0 }5 ^
Integrate[
4 i; W- t! Y' \1 E1 n0 x5 S8 Nr^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
) M3 l" S+ K) B- ig[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*5 M v7 l+ b& r$ [
j[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]], 6 _' c5 x9 b) o4 N' G- D. n
r Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1,
5 F; p$ L7 |4 r9 f- {& J. fr2}, {\[Theta], \[Theta]1, \[Theta]2},]
' \& e) Y+ l5 q2 [% c- C# H- f
. w3 w" S, H- p7 @+ l4 K' B' q |
zan
|