应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Mathematica 积分的疑问？
121/2返回列表12下一页
查看: 1296  |  回复: 11
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

xxppyy

木虫 (小有名气)

[求助] Mathematica 积分的疑问？

下面三重积分的结果为什么与α[Alpha]无关？
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2011-06-25 09:07:40
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

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
我运行的结果：
赞一下(1人) 回复此楼
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] 是其中一个积分变量。
赞一下(1人) 回复此楼
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]])}
赞一下(1人) 回复此楼
4楼2011-06-26 23:31:22
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

xxppyy

木虫 (小有名气)
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-06-29 22:26:59
引用回帖:
Originally posted by xiaoqing8569 at 2011-06-26 23:31:22:
调整一下顺序，上面的积分顺序错了，你试试这个。
Evaluate[Integrate[
   r^2 Sin[\[Phi]], {\[Theta], 0, 2 Pi}, {\[Phi], Pi/2 + \[Beta],
    Pi}, {r, -Subscript[R, 0] Sec[\[Phi]] Tan[\[Beta]],
   ...

这样又与我1楼贴出的结果一样了！但对于这个积分是解释不通的。
赞一下(1人) 回复此楼
5楼2011-06-27 00:11:40
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

小小正钛

铜虫 (小有名气)
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-06-29 22:27:06

前面似乎应该加一句 Clear[]
不知道是不是因为坐标系的原因
全部用 xyz， abc这样的字符重新带一下试试
赞一下(1人) 回复此楼
钛有才啦……钛合金交流qq群:122328061
6楼2011-06-27 06:40:37
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

xiaoqing8569

铁杆木虫 (著名写手)

奥林匹亚光学院院长
★
xzhdty(金币+1): 谢谢参与 2011-06-27 10:02:44
引用回帖:
Originally posted by xxppyy at 2011-06-27 00:11:40:
这样又与我1楼贴出的结果一样了！但对于这个积分是解释不通的。

我用的mathematica8.0

你的意思应该是先积分再赋值吧。
  前面加Evaluate
赞一下(1人) 回复此楼
7楼2011-06-27 09:37:47
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

xxppyy

木虫 (小有名气)
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-06-29 22:27:13
引用回帖:
Originally posted by xiaoqing8569 at 2011-06-27 09:37:47:
我用的mathematica8.0

你的意思应该是先积分再赋值吧。
  前面加Evaluate

我的意思是积分结果应该与Alpha相关。原题如下：

http://muchong.com/bbs/viewthread.php?tid=3329719&fpage=1

而且我先积分后赋值所得结果与先赋值后积分计算结果不一致。
赞一下(1人) 回复此楼
8楼2011-06-27 12:53:57
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

xxppyy

木虫 (小有名气)
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-06-29 22:27:19
引用回帖:
Originally posted by 小小正钛 at 2011-06-27 06:40:37:

前面似乎应该加一句 Clear[]
不知道是不是因为坐标系的原因
全部用 xyz， abc这样的字符重新带一下试试

我试过的仍然不行。
赞一下(1人) 回复此楼
9楼2011-06-27 12:55:21
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

xxppyy

木虫 (小有名气)
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-06-29 22:27:24
抱歉！一楼的一个条件给错了，应该是：

b->Tan[\[Alpha]]

但疑问仍在，因为这时化简后：

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[\[Alpha]], c -> Subscript[R, 0] (Tan[\[Alpha]] + Tan[\[Beta]])} //Simplify

结果为:

-(1/3) Pi (Subscript[R, 0])^3 Tan[\[Beta]]

不仅仍然没有 [\Alpha]，而且体积还变成负的了！
赞一下(1人) 回复此楼
10楼2011-06-27 14:17:21
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 xxppyy 的主题更新
121/2返回列表12下一页
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 27博士申请 +3 白白白ly 2026-11-09 3/150 2026-11-09 21:39 by szq0819
[考博] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 zSbvVX9JFl9J 2026-11-09 3/150 2026-11-09 21:05 by FChKX8meu1ds
[文学芳草园] 厉娜 +3 张丹枫1991 2026-11-09 5/250 2026-11-09 16:53 by 张丹枫1991
[考博] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +5 kvewwGtKktqB 2026-11-04 12/600 2026-11-09 13:26 by Equinoxhua
[考研] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +6 5sJFDKp2kwuI 2026-11-06 14/700 2026-11-09 11:52 by GwrQVVR6Oenx
[硕博家园] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +5 5sJFDKp2kwuI 2026-11-06 16/800 2026-11-09 11:47 by GwrQVVR6Oenx
[硕博家园] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +4 5sJFDKp2kwuI 2026-11-06 10/500 2026-11-09 08:00 by IhnEQauGmT3K
[公派出国] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +4 5sJFDKp2kwuI 2026-11-06 8/400 2026-11-09 00:14 by l48hFd8Nwae2
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +4 5sJFDKp2kwuI 2026-11-06 8/400 2026-11-08 23:01 by l48hFd8Nwae2
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +5 5sJFDKp2kwuI 2026-11-06 9/450 2026-11-08 22:46 by l48hFd8Nwae2
[教师之家] 延安大学回应“副教授留绝笔信”：确已离世，正核实举报内容 +3 yexuqing 2026-11-04 5/250 2026-11-07 13:22 by 苏东坡二世
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +5 ttH3f1oA6ace 2026-11-04 10/500 2026-11-06 16:12 by 5sJFDKp2kwuI
[硕博家园] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +4 ttH3f1oA6ace 2026-11-04 11/550 2026-11-06 16:10 by 5sJFDKp2kwuI
[公派出国] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +6 ttH3f1oA6ace 2026-11-04 12/600 2026-11-06 16:10 by 5sJFDKp2kwuI
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +5 kvewwGtKktqB 2026-11-04 14/700 2026-11-06 05:10 by qL1cU46YIdK0
[硕博家园] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +6 kvewwGtKktqB 2026-11-04 16/800 2026-11-06 05:00 by qL1cU46YIdK0
[考博] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +4 ttH3f1oA6ace 2026-11-04 7/350 2026-11-06 02:13 by qL1cU46YIdK0
[考研] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 ttH3f1oA6ace 2026-11-04 10/500 2026-11-06 02:04 by qL1cU46YIdK0
[硕博家园] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +3 ttH3f1oA6ace 2026-11-04 9/450 2026-11-06 02:02 by qL1cU46YIdK0
[硕博家园] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 hNpp4Y2CGvSC 2026-11-04 12/600 2026-11-06 01:53 by qL1cU46YIdK0
信息提示
关闭
请填处理意见
关闭