QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 4823|回复: 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);) s. C2 z: g3 Y; I4 s" z
    g[y_] := 1/(A - F*y^2 + y*B I);' S$ n8 Q; a- v
    h[z_] := 1/(A - F*z^2 + z*B I);
    1 O+ }& c9 l8 z1 Cj[x_, y_, z_] := 1/(A - F*(x + y + z)^2 - (x + y + z)*B I);" i$ ~$ T$ W0 a: p" n  O& J
    result = Integrate[f[x]*g[y]*h[z]*j[x, y, z], x, y, z]
    3 N( c2 P7 {1 a& G! T所有的积分上限都是+ 无穷,下限是 - 无穷。1 l9 Q: ]& N$ u. K4 I

    3 z; x& v/ W: A4 O# o7 h我想请教一下,有没有什么方法可以计算这个三重积分?
    3 \$ t/ b' x& ?) z当我转化了球面坐标后,发现还是算不动。。。。
    5 N9 c% P# q' R' |& G+ E
    4 b5 z0 s/ n- l: V; I/ a& J6 m5 J+ H. O: X- Y) S/ k5 L' D3 s5 K
    f[x_] := 1/(a - c*x^2 + x*b I);! r  j- h7 W; K( M
    g[y_] := 1/(a - c*y^2 + y*b I);: t/ l) O0 N+ H5 c: w: l
    h[z_] := 1/(a - c*z^2 + z*b I);
    1 h+ c' E' e( C; v. aj[x_, y_, z_] := 1/(a - c*(x + y + z)^2 - (x + y + z)*b I);1 I: @  Y! o7 R' ?; f
    \[Theta]1 = 0; \[Theta]2 = Pi; \[Phi]1 = 0; \[Phi]2 =
    : G' `! o: h' W2*Pi; r1 = 0; r2 = 1;; ^; b- M3 a: d/ r
    Integrate[( ]8 Z# Z- q# E
    r^2*Sin[\[Theta]]*f[r Sin[\[Theta]] Cos[\[Phi]]]*
    . K# {; Q7 y5 ^. O+ Sg[r Sin[\[Theta]] Sin[\[Phi]]]*h[r Cos[\[Theta]]]*. `) ]+ [, u6 d' O. E5 E
    j[r Sin[\[Theta]] Cos[\[Phi]], r Sin[\[Theta]] Sin[\[Phi]], 9 R& i0 _6 w3 l* k
    r Cos[\[Theta]]], {\[Phi], \[Phi]1, \[Phi]2}, {r, r1,
    : J0 F' Y6 z) J" g/ yr2}, {\[Theta], \[Theta]1, \[Theta]2},]
    ' a0 C" T( j& d) c$ b6 L: U* V  ]7 D/ w; p+ A4 ?( @
    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-9-13 21:16 , Processed in 2.697385 second(s), 50 queries .

    回顶部