24小时热门版块排行榜    

查看: 550  |  回复: 7
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

甲壳虫0821

金虫 (正式写手)

[交流] 【求助】恳请大家有空的话帮忙看看我的问题~【已完成】 已有3人参与

恳请各位熟悉Mathematica的虫友帮忙看下我的问题。个人没有学过这个软件,现在又特别着急解出这个问题,在这里大谢大家了。


[ Last edited by 甲壳虫0821 on 2010-5-11 at 08:46 ]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

resonant

木虫 (正式写手)

独自为政

★ ★
小木虫(金币+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
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 8 个回答

resonant

木虫 (正式写手)

独自为政


小木虫(金币+0.5):给个红包,谢谢回帖交流
你的问题其实很简单,自己看一下帮助文件还是要的。
交朋识友,猛搞科研。两手抓,两手都要硬。
2楼2010-05-10 23:05:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

甲壳虫0821

金虫 (正式写手)

引用回帖:
Originally posted by resonant at 2010-05-10 23:05:30:
你的问题其实很简单,自己看一下帮助文件还是要的。

难者不会,会者不难嘛~弱弱的问一下,帮助文件指的是???
3楼2010-05-10 23:07:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

resonant

木虫 (正式写手)

独自为政

★ ★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+2):辛苦了! 2010-05-11 09:00:59
你把f等式右边的部分显式写成N的函数,然后用ListPlot这个函数进行绘图应该可以解决当N不太大时候的所谓极值问题。

ListPlot选择N的绘图范围为{N,5,MaxN}
MaxN为你所考察问题中N的取值上限。

具体形式为ListPlot[f的含N表达式,{N,5,MaxN}];
交朋识友,猛搞科研。两手抓,两手都要硬。
4楼2010-05-10 23:36:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见