- 在线时间
- 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);! K6 X$ Q# q- `+ N% c
g[y_] := 1/(A - F*y^2 + y*B I);7 m8 r0 ]: F0 s1 F
h[z_] := 1/(A - F*z^2 + z*B I);1 R/ p! C, @+ M" L, S
j[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);, s: J# T" q1 q$ X# v9 y7 C
result = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]
W0 t- Z+ D" A1 N所有的积分上限都是+ 无穷,下限是 - 无穷。
4 f9 Q1 {) D! L- }9 q6 W. X: W% u6 O4 c( V! X% {9 H
我想请教一下,有没有什么方法可以计算这个三重积分?7 _) \3 J$ H" s5 J
当我转化了球面坐标后,发现还是算不动。。。。2 t3 _" l: x) |: f3 }+ {
4 G8 o ]; w6 n# N
) |$ p" q+ p% ~: Bf[x_] := 1/(a - c*x^2 + x*b I);- M/ o8 u; G$ H& a: g5 E+ M# J
g[y_] := 1/(a - c*y^2 + y*b I);
5 M2 ~$ N7 r4 ?, F3 W1 A3 y8 ~h[z_] := 1/(a - c*z^2 + z*b I);
. R" m, e5 }* S. j. ?j[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);
& |" O) k5 x! J! M3 Y7 s\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 = ) N. H. X( @4 [- n1 b3 Z( C" E
2*Pi; r1 = 0; r2 = 1;, T- u7 l4 h2 V. G2 e
Integrate[
* i }! g. S$ C( K' G+ ]r^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*7 K2 i2 u% r" y( L
g[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*
: U$ g6 V4 O5 i ]3 Z" ~j[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]], % U* X# y P/ S, w0 b4 j- F* F; P
r Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1, ' s. Y; @0 _5 ?9 [
r2}, {\[Theta], \[Theta]1, \[Theta]2},]
7 _3 @8 a, L' R+ v3 v3 B/ d* z# l3 V& z6 S
|
zan
|