- 在线时间
- 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);
9 H- U1 j: v+ H2 ^5 b# ag[y_] := 1/(A - F*y^2 + y*B I);
8 h& D [' G, R* ]5 _h[z_] := 1/(A - F*z^2 + z*B I);6 S) V2 d9 h s. B$ \7 K% {0 a
j[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);0 L/ n4 A0 l+ w ^3 G2 g! Y
result = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]
& i8 {5 f' F. g \所有的积分上限都是+ 无穷,下限是 - 无穷。+ n" |! e. `8 q* _1 s! p+ r
|) N( x" e9 l我想请教一下,有没有什么方法可以计算这个三重积分?
) r% E/ V# M% f当我转化了球面坐标后,发现还是算不动。。。。/ V+ A9 Z$ y6 h' X/ J1 a1 m
& L! D* N; L1 x( `1 E. F9 H
6 W7 u7 U7 n0 @7 Z! ?( wf[x_] := 1/(a - c*x^2 + x*b I);
0 u) H w/ j! w0 y( E1 J8 H# vg[y_] := 1/(a - c*y^2 + y*b I);
9 `, ]9 j& F6 \9 G# U' Ph[z_] := 1/(a - c*z^2 + z*b I);
1 {/ O3 a) x* T7 Y2 aj[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);* z) X, @ U- B) W# {
\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
! O8 j! Q0 P, J1 Q+ @2 T+ t e( H2*Pi; r1 = 0; r2 = 1;) U. n( I* |& Q2 r$ V; }
Integrate[7 p1 T9 E$ z/ f) I, {3 R. Q& u8 K
r^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
2 P( F& s9 T0 v7 {) z# `g[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*& H9 u% `+ |& [" d5 L1 s
j[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]],
3 z/ U, r5 S, b9 G- n& Mr Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1, " \; y, D: H4 {9 }" K
r2}, {\[Theta], \[Theta]1, \[Theta]2},]
- T0 [. r; q" _/ k. T4 i _# G0 r" Z$ f1 D$ y) A
|
zan
|