| 查看: 635 | 回复: 7 | |||
[交流]
【求助】恳请大家有空的话帮忙看看我的问题~【已完成】 已有3人参与
|
恳请各位熟悉Mathematica的虫友帮忙看下我的问题。个人没有学过这个软件，现在又特别着急解出这个问题，在这里大谢大家了。 [ Last edited by 甲壳虫0821 on 2010-5-11 at 08:46 ] |
回复此楼» 猜你喜欢
面上再次挂了，太难了，躺也躺不了，倦也卷不过，小学校之殇！
已经有25人回复
-
2026年国自然面上资助率
已经有22人回复
-
面上提前没消息，有中的吗
已经有15人回复
-
基础研究怎么拉横向，学校到款任务越来越多，难以完成 拉横向，都有哪些途径啊
已经有12人回复
-
这种情况还有戏吗
已经有12人回复
-
微信指数没变化，科研之友没阅读
已经有19人回复
-
准备明年的基金了
已经有7人回复
-
2027年申博
已经有3人回复
-
一个有机合成实验室都需要哪些设备？
已经有7人回复
-
HXDI做水性聚氨酯乳液，是不是特别容易出渣
已经有3人回复
resonant
木虫 (正式写手)
独自为政
- 程序强帖: 2
- 应助: 0 (幼儿园)
- 贵宾: 0.063
- 金币: 3859.3
- 帖子: 594
- 在线: 44.5小时
- 虫号: 113887
- 注册: 2005-11-23
- 专业: 光学
2楼2010-05-10 23:05:30
3楼2010-05-10 23:07:46
resonant
木虫 (正式写手)
独自为政
- 程序强帖: 2
- 应助: 0 (幼儿园)
- 贵宾: 0.063
- 金币: 3859.3
- 帖子: 594
- 在线: 44.5小时
- 虫号: 113887
- 注册: 2005-11-23
- 专业: 光学
4楼2010-05-10 23:36:41
5楼2010-05-10 23:46:08
kuangfg1987
至尊木虫 (职业作家)
- 应助: 0 (幼儿园)
- 金币: 21318.2
- 散金: 30
- 红花: 25
- 帖子: 3028
- 在线: 405小时
- 虫号: 891745
- 注册: 2009-11-02
- 专业: 原子和分子物理
6楼2010-05-11 11:07:23
resonant
木虫 (正式写手)
独自为政
- 程序强帖: 2
- 应助: 0 (幼儿园)
- 贵宾: 0.063
- 金币: 3859.3
- 帖子: 594
- 在线: 44.5小时
- 虫号: 113887
- 注册: 2005-11-23
- 专业: 光学
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
jjdg(金币+1):辛苦了 2010-05-13 01:25:25
小木虫(金币+0.5):给个红包，谢谢回帖交流
jjdg(金币+1):辛苦了 2010-05-13 01:25:25
|
应楼主要求给出mathematica代码 f[n_]:=254089.8*Log[0.02/ro]-147542.8*Log[0.02/ro]+144718.9*ro+17419612.8*Sqrt[ro]+762200.5/.ro->(n/233)^2; ListPlot[Table[f[n],{n,5,1000}]]; 看起来似乎5就是最小值所在，几乎是线性的行为。 不知道有没有搞错... 不过N值很大的情况，如计算到10^5，可以发现出现非线性。但是函数的单调性似乎是保证的。 下图中横坐标是N,纵坐标是 f  [ Last edited by resonant on 2010-5-12 at 22:48 ] |
7楼2010-05-12 22:20:11
resonant:那个不是负值，只是绘图的时候横轴纵轴交点不是（0,0），我想7可能是你要的最小值。 2010-05-12 23:08:34
|
非常谢谢resonant 斑竹的耐心解答~我运行了下，程序是没错的，只是LS第二项落了个字母，f[n_] := 254089.8* Log[0.02/ρ] - 147542.8*ρ*Log[0.02/ρ] + 144718.0*ρ + 17419612.8*Sqrt[ ρ] + 762200.5 /. ρ -> (n/233)^2; ListPlot[Table[f[n], {n, 5, 20}]]; 不知道这样对不对。我运行出来的图像，线条的走势是对的，但是出现了负值，不知道为什么~ |
8楼2010-05-12 22:59:40