- 在线时间
- 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 T+ N0 y2 }5 v( y* E
g[y_] := 1/(A - F*y^2 + y*B I);: r& n% _6 K2 E: P$ Y1 C2 r: d
h[z_] := 1/(A - F*z^2 + z*B I);; F' T" p& t, f* e
j[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);1 N/ y- U" S9 v2 H& d, D! j( U6 `
result = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]
. l! n; z9 P$ U: \( e' c所有的积分上限都是+ 无穷,下限是 - 无穷。6 I' ]# z: A y- |, [. L
R0 c4 Z/ H, m; V5 v1 Y& [我想请教一下,有没有什么方法可以计算这个三重积分?
6 t- {3 I# ?# c当我转化了球面坐标后,发现还是算不动。。。。
9 q: q; s! {, ^: R
. m- |/ ~9 A- T$ I) K% {1 ]% n6 U& E8 n0 J
f[x_] := 1/(a - c*x^2 + x*b I);
4 F* ]( ?& Y' R* Ng[y_] := 1/(a - c*y^2 + y*b I);! A. k1 l6 K- K8 C! ~. c3 |1 }+ t" n
h[z_] := 1/(a - c*z^2 + z*b I);; z. g' V/ F# r0 }& z
j[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);9 @/ Q1 j* A! w+ y5 D5 `9 S# _
\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
: }+ v6 `5 K! P& d2*Pi; r1 = 0; r2 = 1;# V' p0 W/ w3 ^% V ^
Integrate[
; ~2 v" D" Q" Yr^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
( k% c4 u$ @; r5 j( sg[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*: t' w- k- D% m: ~
j[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]], 3 H' e+ U x+ C+ r( A- b2 r
r Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1, " C" d+ [6 n- M9 v+ i' U- q
r2}, {\[Theta], \[Theta]1, \[Theta]2},]
2 {9 H1 D) ]& V0 p3 p8 h2 S* n3 a+ X
|
zan
|