| 查看: 1020 | 回复: 11 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
Mathematica 积分的疑问？
|
|||
下面三重积分的结果为什么与α[Alpha]无关？  |
回复此楼» 猜你喜欢
» 本主题相关价值贴推荐，对您同样有帮助:
请教一个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:13
dubo(金币+1): 欢迎常来程序语言版讨论 2011-06-29 22:27:13
|
我的意思是积分结果应该与Alpha相关。原题如下： http://muchong.com/bbs/viewthread.php?tid=3329719&fpage=1 而且我先积分后赋值所得结果与先赋值后积分计算结果不一致。 |
8楼2011-06-27 12:53:57
xiaoqing8569
铁杆木虫 (著名写手)
奥林匹亚光学院院长
- 应助: 37 (小学生)
- 金币: 7387.2
- 散金: 2240
- 红花: 14
- 帖子: 1822
- 在线: 694.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 (小学生)
- 金币: 7387.2
- 散金: 2240
- 红花: 14
- 帖子: 1822
- 在线: 694.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
