| 查看: 1037 | 回复: 3 | ||
[求助]
如何让mathematica把这个程序运行快一点
|
| 我想试图求文件里的alpha_2。但是好像在那一个积分的步骤，程序运行很慢。我没有等到结果，哪位高手能不能看一下什么方法可以加快运行的速度。题目应该是对的。谢谢。 |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : xiaomuchong.nb
2013-06-23 16:10:06, 2.83 K
» 猜你喜欢
调剂
已经有6人回复
-
290求调剂
已经有11人回复
-
0854调剂
已经有9人回复
-
267求调剂
已经有8人回复
-
材料与化工300求调剂
已经有42人回复
-
310求调剂
已经有9人回复
-
调剂求收留
已经有22人回复
-
材料工程日语考生求调剂
已经有7人回复
-
26自然地理学303分求调剂
已经有11人回复
-
271求调剂
已经有16人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 关于linux里运行mathematica的.nb文件
已经有4人回复
- 【求助】弱问下Mathematica里怎么运行*.nb文件
已经有6人回复
- 【分享】Mathematica 7.0.1.0 / 6.0.3.0 / 5.2.0.0 注册版 之 永不重装版 全套下载
已经有17人回复
- 【求助】如何提高Mathematica运行速度？
已经有6人回复
walk1997
金虫 (著名写手)
- 应助: 1 (幼儿园)
- 金币: 4676.2
- 红花: 22
- 帖子: 1066
- 在线: 798.1小时
- 虫号: 416039
- 注册: 2007-06-29
- 性别: GG
- 专业: 粒子物理学和场论
★ ★ ★ ★ ★ ★
jollage(xzhdty代发): 金币+6, 代楼主发放金币 2013-06-25 07:15:09
jollage(xzhdty代发): 金币+6, 代楼主发放金币 2013-06-25 07:15:09
|
数值结果 不知道对否 Clear["Global`*"]; a1 = 1/9 (7 - 12 \[Alpha]2); a2 = 1/36 + (19 \[Alpha]2)/6; \[Alpha]1 = 1/3 + 4 \[Alpha]2; fint = (k - (2 a2*Sin[2 k] + 2 a1*Sin[k])/(1 + 2 \[Alpha]1*Cos[k] + 2 \[Alpha]2*Cos[2 k]))^2; temp = D[fint, \[Alpha]2]; test[\[Alpha]\[Alpha]2_?NumericQ] := temp /. {\[Alpha]2 -> \[Alpha]\[Alpha]2}; test2[\[Alpha]\[Alpha]2_?NumericQ] := NIntegrate[test[\[Alpha]\[Alpha]2], {k, 0, Pi/2}] FindRoot[test2[\[Alpha]2], {\[Alpha]2, 0.1}] FindRoot[test2[\[Alpha]2], {\[Alpha]2, -0.1}] |
2楼2013-06-23 21:11:13
3楼2013-06-23 22:07:40
4楼2013-06-24 17:02:20
