| 查看: 1041 | 回复: 11 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
Mathematica 积分的疑问？
|
|||
下面三重积分的结果为什么与α[Alpha]无关？  |
回复此楼» 猜你喜欢
315分求调剂
已经有3人回复
-
材料与化工304求B区调剂
已经有3人回复
-
一志愿天津大学339材料与化工求调剂
已经有3人回复
-
297求调剂
已经有3人回复
-
一志愿北京化工大学材料与化工（085600）296求调剂
已经有3人回复
-
打过很多竞赛，085406控制工程300分，求调剂
已经有3人回复
-
北京林业大学硕导招生广告
已经有5人回复
-
一志愿北京化工大学材料与化工 264分各科过A区国家线
已经有4人回复
-
一志愿 西北大学 总分282 英语一62 求调剂
已经有4人回复
-
274求调剂
已经有15人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请教一个Mathematica积分的问题（重金求解）
已经有6人回复
- mathematica请教计算结果问题
已经有4人回复
- 【求助】如何用Mathematica画三重积分区域图
已经有4人回复
- 【求助】请教一个关于Mathematica中计算小量的问题
已经有4人回复
- 【求助】请问MATHEMATICA输出数据格式问题
已经有5人回复
- 【交流】怎样用mathematica 做积分嵌套积分的运算
已经有5人回复
- 【求助】求教mathematica7的积分问题和根号下代数运算问题【已完结】
已经有3人回复
- 【求助】【求助】mathematica中的一种数值积分问题
已经有5人回复
- 【讨论】mathematica绘图问题
已经有7人回复
- 【求助】用mathematica解决问题【已完结】
已经有7人回复
- 【求助】Mathematica画图问题
已经有7人回复
- 【讨论】Mathematica分段函数绘图问题
已经有8人回复
- 【求助】origin和mathematica的问题！
已经有6人回复
- 【分享】Mathematica 7.0.1.0 / 6.0.3.0 / 5.2.0.0 注册版 之 永不重装版 全套下载
已经有17人回复
- 【求助】紧急求助有关MATHEMATICA的问题
已经有9人回复
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-06-29 22:27:24
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]，而且体积还变成负的了！ |
10楼2011-06-27 14:17:21
xiaoqing8569
铁杆木虫 (著名写手)
奥林匹亚光学院院长
- 应助: 37 (小学生)
- 金币: 7414.2
- 散金: 2240
- 红花: 14
- 帖子: 1822
- 在线: 696.6小时
- 虫号: 458097
- 注册: 2007-11-13
- 性别: GG
- 专业: 应用光学
【答案】应助回帖
★ ★
xxppyy(金币+5): 谢谢关注. 2011-06-26 21:37:34
xzhdty(金币+2): 常来程序语言版参与讨论 2011-06-26 23:08:37
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
3楼2011-06-26 21:41:11
xiaoqing8569
铁杆木虫 (著名写手)
奥林匹亚光学院院长
- 应助: 37 (小学生)
- 金币: 7414.2
- 散金: 2240
- 红花: 14
- 帖子: 1822
- 在线: 696.6小时
- 虫号: 458097
- 注册: 2007-11-13
- 性别: GG
- 专业: 应用光学
【答案】应助回帖
★
xxppyy(金币+2): 您用的Mathematica是哪一版本？ 2011-06-27 00:07:43
jjdg(金币+1): 感谢应助 2011-06-27 02:56:33
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
