QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 4735|回复: 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);. y; d6 M9 _8 {. M6 ^- h/ Y5 j, v6 L
    g[y_] := 1/(A - F*y^2 + y*B I);& s& A/ u, T7 |# u3 z
    h[z_] := 1/(A - F*z^2 + z*B I);
    9 Q( ~1 j6 ]: r8 Zj[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);
    7 x9 u1 v5 p, ]: w: Iresult = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]' e, c% }: e$ m6 v# X
    所有的积分上限都是+ 无穷,下限是 - 无穷。: k4 {  B% s- S/ o1 ], b
    4 m! }) W5 |8 s
    我想请教一下,有没有什么方法可以计算这个三重积分?
    ' N/ @9 T. O; k; u0 U% m当我转化了球面坐标后,发现还是算不动。。。。
    6 r+ A  |1 A/ G) L9 x7 m. g5 K; ^7 a* e5 w

    7 B4 I" a' m, N0 uf[x_] := 1/(a - c*x^2 + x*b I);
    5 e% z7 h# E5 P0 gg[y_] := 1/(a - c*y^2 + y*b I);, \+ }9 I! v0 X
    h[z_] := 1/(a - c*z^2 + z*b I);
    9 Y& Y& r( }; D! t7 D/ Yj[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);
    1 y' v+ ?" o" e2 G% e/ }2 R\[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 = 6 M9 M3 A2 t" w5 f& T
    2*Pi; r1 = 0; r2 = 1;
    0 M  {2 `5 D( ^Integrate[# }% f) w; q4 P
    r^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*- i1 @# ^; g4 K9 w3 S4 T
    g[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*
    ) K! }7 a* Z/ r: _* I' v$ Cj[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]], - \4 D8 g3 l* S9 p
    r Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1, , B+ w: U- P( \: v
    r2}, {\[Theta], \[Theta]1, \[Theta]2},]
    % D3 k0 `( M( r- V  T& @
    , j5 A5 P/ z% W3 S
    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-5-28 14:16 , Processed in 0.403913 second(s), 50 queries .

    回顶部