24小时热门版块排行榜    

查看: 965  |  回复: 11
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

xxppyy

木虫 (小有名气)

[求助] Mathematica 积分的疑问?

下面三重积分的结果为什么与α[Alpha]无关?


回复此楼

» 猜你喜欢

已阅   关注TA 给TA发消息 送TA红花 TA的回帖

xiaoqing8569

铁杆木虫 (著名写手)

奥林匹亚光学院院长

引用回帖:
Originally posted by xxppyy at 2011-06-27 14:17:21:
抱歉!一楼的一个条件给错了,应该是:

b->Tan[\[Alpha]]

但疑问仍在,因为这时化简后:

Evaluate[Integrate[r^2 Sin[\[Phi]], {\[Theta], 0, 2 Pi}, {\[Phi], Pi/2 + \[Beta], Pi}, {r, -Subscript[ ...

我看了一下原始贴子你的分析,r的积分下限应该是-R。tanβ secφ,咱们mathematica跑的时候是-R。secφ,少了tanβ 。你再跑一下试一下。
11楼2011-06-28 19:46:07
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 12 个回答

xiaoqing8569

铁杆木虫 (著名写手)

奥林匹亚光学院院长

【答案】应助回帖

★ ★
xxppyy(金币+5): 谢谢关注. 2011-06-26 21:37:34
xzhdty(金币+2): 常来程序语言版参与讨论 2011-06-26 23:08:37
Evaluate[Integrate[
    r^2 Sin[\[Phi]], {r, -Subscript[R, 0] Sec[\[Phi]] Tan[\[Beta]],
     c/(b Sin[\[Phi]] Cos[\[Theta]] - Cos[\[Phi]])}, {\[Phi],
     Pi/2 + \[Beta], Pi}, {\[Theta], 0, 2 Pi}]] /. {b -> Tan[\[Beta]],
    c -> Subscript[R, 0] (Tan[\[Alpha]] + Tan[\[Beta]])} // Simplify
我运行的结果:

2楼2011-06-26 20:45:53
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

xxppyy

木虫 (小有名气)


dubo(金币+1): 欢迎常来程序语言版讨论 2011-06-29 22:26:52
引用回帖:
Originally posted by xiaoqing8569 at 2011-06-26 20:45:53:
Evaluate[Integrate[
    r^2 Sin[\[Phi]], {r, -Subscript[R, 0] Sec[\[Phi]] Tan[\[Beta]],
     c/(b Sin[\[Phi]] Cos[\[Theta]] - Cos[\[Phi]])}, {\[Phi],
     Pi/2 + \[Beta], Pi}, {\[Theta], 0, 2  ...

但是积分结果中不应该含有 \[Phi] 呀,\[Phi] 是其中一个积分变量。
3楼2011-06-26 21:41:11
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

xiaoqing8569

铁杆木虫 (著名写手)

奥林匹亚光学院院长

【答案】应助回帖


xxppyy(金币+2): 您用的Mathematica是哪一版本? 2011-06-27 00:07:43
jjdg(金币+1): 感谢应助 2011-06-27 02:56:33
调整一下顺序,上面的积分顺序错了,你试试这个。
Evaluate[Integrate[
   r^2 Sin[\[Phi]], {\[Theta], 0, 2 Pi}, {\[Phi], Pi/2 + \[Beta],
    Pi}, {r, -Subscript[R, 0] Sec[\[Phi]] Tan[\[Beta]],
    c/(b Sin[\[Phi]] Cos[\[Theta]] - Cos[\[Phi]])}]] /. {b ->
   Tan[\[Beta]], c -> Subscript[R, 0] (Tan[\[Alpha]] + Tan[\[Beta]])}
4楼2011-06-26 23:31:22
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
信息提示
请填处理意见