- 在线时间
- 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);7 l" O0 a: U; _% j- Q/ K; O
g[y_] := 1/(A - F*y^2 + y*B I);
5 M4 P' ] j4 S- X, L* vh[z_] := 1/(A - F*z^2 + z*B I);9 @8 T% ?1 U n% ~, k8 Z4 Z6 W- ]
j[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);; ]- g6 s9 Q+ V7 j: w3 I+ ~% ?! W
result = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]& ~+ S$ \( ~9 f# Z& Q
所有的积分上限都是+ 无穷,下限是 - 无穷。
# i' D7 U! F* ]* Z7 m7 w4 P' B9 T- l' }% z5 L0 u' K+ G
我想请教一下,有没有什么方法可以计算这个三重积分?0 z' Q* J1 F: Q; O0 r. d, G
当我转化了球面坐标后,发现还是算不动。。。。
' P: l# d. T9 L% {7 f$ ?9 G r# F2 T h `
! }5 I1 K& A1 Y
f[x_] := 1/(a - c*x^2 + x*b I);
6 x! I8 ?# R* |) |/ }g[y_] := 1/(a - c*y^2 + y*b I);
/ S0 @! `9 L$ j' ^6 Vh[z_] := 1/(a - c*z^2 + z*b I);
8 {2 b3 j8 S9 t# Z- x, U4 cj[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);
" K( `7 U4 z0 g# E3 \- d\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
O' S( w/ ?. G2*Pi; r1 = 0; r2 = 1;
) h$ F# D$ V. ]* [+ AIntegrate[5 i: w2 k3 X3 @+ e/ q, C0 }0 m
r^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
6 u% T% t! t$ L% C* }. \2 K S! X8 Z+ `g[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*
- L' _1 G4 _" y6 Q3 h) v2 qj[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]], 4 j9 L! X0 b. r4 ]
r Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1,
" A, r4 f; w0 n+ Y( t/ e- Vr2}, {\[Theta], \[Theta]1, \[Theta]2},]; Z1 ~0 j$ q; b
1 ^) R6 |5 l$ |0 g b |
zan
|