- 在线时间
- 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);
1 }, w) d n. R% e. \+ C+ pg[y_] := 1/(A - F*y^2 + y*B I);
( I5 z4 w# }' Oh[z_] := 1/(A - F*z^2 + z*B I);- _! D2 n$ q' a) H
j[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);5 @" @) v. Y8 E' ?6 V4 ^2 Q7 e( ~
result = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]
7 J) e% B1 Y1 e5 M8 e所有的积分上限都是+ 无穷,下限是 - 无穷。
3 R. S& J4 E; c) Q, W! v% G
/ H8 `, Y; m+ L我想请教一下,有没有什么方法可以计算这个三重积分?
) e7 ]& E9 N& x' B5 j) D当我转化了球面坐标后,发现还是算不动。。。。, c$ W9 p$ V2 |2 U
^- V4 O& C) j& F; \8 F
4 Z N% ]7 B5 C3 Z8 O% P+ C. K8 Xf[x_] := 1/(a - c*x^2 + x*b I);
, h: n) ?: m1 q. Ag[y_] := 1/(a - c*y^2 + y*b I);
0 S A- D X) R z& F6 y+ h. Xh[z_] := 1/(a - c*z^2 + z*b I);6 n \6 j+ C7 k
j[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);
% M0 ]. Z/ X6 Y3 R% T6 z\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
6 j7 x( M3 t) [( F# t& k) z* ?9 {2*Pi; r1 = 0; r2 = 1;4 f$ @% ~8 l) n6 f
Integrate[8 L, J# S2 ?- a8 B n0 i
r^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*! [. H* F ^0 b C, I* B
g[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*
/ ^7 K. O6 t6 W+ D# q2 L6 lj[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]], 3 z6 V% R8 ~ Q% V, }7 G
r Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1,
3 |' f% e( I, V1 [/ v7 M1 N: Hr2}, {\[Theta], \[Theta]1, \[Theta]2},]: Y3 f- m# h# n$ l
" o7 j! F/ }% P8 H$ C6 N
|
zan
|