| 查看: 960 | 回复: 3 | |||
[求助]
如何让mathematica把这个程序运行快一点
|
| 我想试图求文件里的alpha_2。但是好像在那一个积分的步骤，程序运行很慢。我没有等到结果，哪位高手能不能看一下什么方法可以加快运行的速度。题目应该是对的。谢谢。 |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : xiaomuchong.nb
2013-06-23 16:10:06, 2.83 K
» 猜你喜欢
26申博（荧光探针方向，有机合成）
已经有4人回复
-
要不要辞职读博？
已经有3人回复
-
论文终于录用啦！满足毕业条件了
已经有26人回复
-
2026年机械制造与材料应用国际会议 （ICMMMA 2026）
已经有4人回复
-
磺酰氟产物，毕不了业了！
已经有6人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有9人回复
-
Cas 72-43-5需要30g，定制合成，能接单的留言
已经有8人回复
-
北京211副教授，35岁，想重新出发，去国外做博后，怎么样？
已经有8人回复
-
自荐读博
已经有3人回复
-
不自信的我
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 关于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