QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 4787|回复: 0
打印 上一主题 下一主题

复杂的三重积分,mathematica算不了?

[复制链接]
字体大小: 正常 放大
whdwpy666        

4

主题

11

听众

14

积分

升级  9.47%

  • TA的每日心情

    2015-3-16 11:27
  • 签到天数: 3 天

    [LV.2]偶尔看看I

    自我介绍
    学生
    跳转到指定楼层
    1#
    发表于 2015-3-16 11:29 |只看该作者 |正序浏览
    |招呼Ta 关注Ta
    f[x_] := 1/(A - F*x^2 + x*B I);
    ) M+ P, z4 i( t2 Fg[y_] := 1/(A - F*y^2 + y*B I);
    3 V+ @* o  L- U; J5 g1 gh[z_] := 1/(A - F*z^2 + z*B I);
    4 V8 x5 G' ~3 H2 Uj[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);
    . R7 }. b4 _* T- d5 Gresult = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]9 U. `$ k8 K+ k
    所有的积分上限都是+ 无穷,下限是 - 无穷。
    , v1 x0 A. _! _5 }$ @1 k* A$ {( E
    % g- G0 y" L, J我想请教一下,有没有什么方法可以计算这个三重积分?
    4 B# w+ g' G2 l0 t, F当我转化了球面坐标后,发现还是算不动。。。。
    . j( x) j. [4 c7 {: |! x$ s0 j6 e# y3 ]
    . ]# C; k1 P) L1 V( x9 a% T
    f[x_] := 1/(a - c*x^2 + x*b I);
    0 ^) }8 K2 Q/ I% Gg[y_] := 1/(a - c*y^2 + y*b I);
    - r' V; X6 ^0 v. o/ I4 q$ v+ ch[z_] := 1/(a - c*z^2 + z*b I);( A  R. y! C3 t0 H1 Q
    j[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);1 Q- w$ N  }8 K
    \[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 = 6 \- A% E* Q7 z4 `- q5 F$ W: j
    2*Pi; r1 = 0; r2 = 1;) {4 }9 x. l. u' h
    Integrate[3 V+ r  R0 b9 p1 i& K6 P
    r^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
    : v! T1 \  a  x/ Xg[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*
    7 b1 x  a/ Z' ?0 Lj[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]],
    5 Q8 G. Z( W2 Q9 X9 B0 cr Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1,
    4 ]8 }# X7 X) a" x6 ?3 cr2}, {\[Theta], \[Theta]1, \[Theta]2},]
    ' i4 _8 O8 G' D+ W4 f& l$ q1 y* R( v$ ~
    zan
    转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2026-7-27 08:47 , Processed in 0.447766 second(s), 51 queries .

    回顶部