- 在线时间
- 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);! e) b! r9 r+ M$ @$ x7 w7 t
g[y_] := 1/(A - F*y^2 + y*B I);
I7 n" a9 Q) [. g7 T) f; X5 sh[z_] := 1/(A - F*z^2 + z*B I);
: A% q0 M8 g) t7 ^2 Qj[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I); d7 r* G# _; f9 A
result = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]5 L$ g3 \% C2 l- \
所有的积分上限都是+ 无穷,下限是 - 无穷。
+ J2 n4 ~7 ]) ~. B- D2 U
' q$ A* i8 J: M8 w我想请教一下,有没有什么方法可以计算这个三重积分?/ y( i( W( a z: B$ F: }
当我转化了球面坐标后,发现还是算不动。。。。
3 B2 x. j& O. a( k# G) |
% g- R+ F; z' _2 H% _7 q2 K9 |$ Q
. F# [# p' W) If[x_] := 1/(a - c*x^2 + x*b I);
9 o6 \- T" P& K# ~/ K1 Rg[y_] := 1/(a - c*y^2 + y*b I);
; [- O+ C3 l& P* L5 th[z_] := 1/(a - c*z^2 + z*b I);
& @+ X5 B1 Z# P W! |j[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);: I9 q! R1 h$ Z1 b/ D
\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
+ _( {+ b J3 j& G2*Pi; r1 = 0; r2 = 1;
, W% J/ l) c4 j0 m/ bIntegrate[
3 S' D0 O l( X8 y6 f6 e$ V0 H8 O) F* t% vr^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
7 \. O' L3 z2 [+ C* N" a" P7 X$ `g[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*
7 P- _$ J1 c( `7 j( B% @j[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]], / q! {! d9 t }! z2 W
r Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1, - ^2 V3 n, D0 c- f
r2}, {\[Theta], \[Theta]1, \[Theta]2},]
# K) Y) z8 s* q& E5 b: u5 S+ K' [: j' l% `- R
|
zan
|