| 查看: 566 | 回复: 7 | |||
[交流]
【求助】恳请大家有空的话帮忙看看我的问题~【已完成】 已有3人参与
|
恳请各位熟悉Mathematica的虫友帮忙看下我的问题。个人没有学过这个软件，现在又特别着急解出这个问题，在这里大谢大家了。 [ Last edited by 甲壳虫0821 on 2010-5-11 at 08:46 ] |
回复此楼» 猜你喜欢
“人文社科而论，许多学术研究还没有达到民国时期的水平”
已经有6人回复
-
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低
已经有16人回复
-
版面费该交吗
已经有13人回复
-
面上可以超过30页吧？
已经有6人回复
-
网上报道青年教师午睡中猝死、熬夜猝死的越来越多，主要哪些原因引起的？
已经有4人回复
-
为什么中国大学工科教授们水了那么多所谓的顶会顶刊，但还是做不出宇树机器人？
已经有10人回复
-
什么是人一生最重要的？
已经有4人回复
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