- 在线时间
- 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);
3 ?& f" @1 q7 T" N9 C9 M$ Q! `g[y_] := 1/(A - F*y^2 + y*B I);
- ]/ \, ]9 Y9 u( nh[z_] := 1/(A - F*z^2 + z*B I);( X! ~9 y4 i* n, m& `( n- @* i. @
j[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);& \4 ~% P# `( K( [$ j. X: o% o
result = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]4 I5 t) V$ D* O! I* B1 X
所有的积分上限都是+ 无穷,下限是 - 无穷。
) Q) o) F- d( X9 f( @) o
I+ ]6 } o* X* D我想请教一下,有没有什么方法可以计算这个三重积分?
/ e3 s3 N8 v5 ]5 e A8 q当我转化了球面坐标后,发现还是算不动。。。。
; i3 T/ w/ g. D6 K6 [: d" K& b# d' v; [* [3 P Q; F* }1 g- i' K
% O( [: E1 ^) Y7 e$ a1 `0 p9 b
f[x_] := 1/(a - c*x^2 + x*b I);/ ^0 k1 O# D7 Q
g[y_] := 1/(a - c*y^2 + y*b I);. k, e2 n& P% X& Q0 Z9 m; C. Y
h[z_] := 1/(a - c*z^2 + z*b I);
3 l( R f7 }. s6 P7 gj[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);
- n9 n; ?4 ]& }/ u\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
) v, a" S% m$ R+ N2*Pi; r1 = 0; r2 = 1;
* R* ]5 D: j5 I* ?" J: [" S5 ^Integrate[7 N& ^* H9 P0 G% [) \' J8 ~ h
r^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
& N2 A9 ~/ y Mg[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*
# l4 Q( V+ m- u$ l! Q" K4 B( |j[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]], 0 A4 ?) i, P# {- W+ {( g
r Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1,
/ n0 s0 v4 `& U* ?. K0 {1 jr2}, {\[Theta], \[Theta]1, \[Theta]2},]
- ~( R8 S% H+ `1 L
7 B8 ~! h9 D- P% r, T3 [8 \ |
zan
|