| 查看: 585 | 回复: 7 | |||
[交流]
【求助】恳请大家有空的话帮忙看看我的问题~【已完成】 已有3人参与
|
恳请各位熟悉Mathematica的虫友帮忙看下我的问题。个人没有学过这个软件，现在又特别着急解出这个问题，在这里大谢大家了。 [ Last edited by 甲壳虫0821 on 2010-5-11 at 08:46 ] |
回复此楼» 猜你喜欢
081700化学工程与技术 一志愿中海洋 323 求调剂学校
已经有12人回复
-
385分 生物学（071000）求调剂
已经有7人回复
-
材料专硕283求调剂
已经有3人回复
-
0703求调剂383分
已经有5人回复
-
323求调剂
已经有3人回复
-
26考研调剂0710 0860
已经有8人回复
-
081700学硕，323分，一志愿中国海洋大学求调剂学校
已经有3人回复
-
一志愿北京化工大学，初试成绩350求调剂
已经有5人回复
-
一志愿0817化学工程与技术，求调剂
已经有22人回复
-
085600，专业课化工原理，321分求调剂
已经有10人回复
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
