| 查看: 1039 | 回复: 11 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
Mathematica 积分的疑问？
|
||
下面三重积分的结果为什么与α[Alpha]无关？  |
回复此楼» 猜你喜欢
材料调剂
已经有7人回复
-
化学工程085602 305分求调剂
已经有10人回复
-
289求调剂
已经有15人回复
-
291 求调剂
已经有7人回复
-
274求调剂
已经有14人回复
-
北京林业大学硕导招生广告
已经有3人回复
-
309求调剂
已经有5人回复
-
292求调剂
已经有8人回复
-
求调剂
已经有4人回复
-
一志愿 西北大学 总分282 英语一62 求调剂
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请教一个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人回复
3楼2011-06-26 21:41:11
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
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
5楼2011-06-27 00:11:40
40