24小时热门版块排行榜

返回列表

当前主题已经存档。

hongyexi

木虫 (正式写手)

应助: 0 (幼儿园)
金币: 4967.4
帖子: 369
在线: 133.6小时
虫号: 381139
注册: 2007-05-24
性别: MM
专业: 物理化学

[交流] [求助]Mathematica做拟合出错

下面为用Mathematica做的拟合并作图，附件为程序、输出、以及错误信息，高手帮忙看一下
data = {{0.258, 2.056}, {0.258, 2.122}, {0.282, 2.002}, {0.282, 2.07}, {0.282,
2.105}, {0.305, 1.983}, {0.305, 2.023},{0.329, 1.929}, {0.352, 1.843}, {0.376, 1.781}, {0.399, 1.737}, {0.423, 1.702}, {0.446, 1.676}, {0.493, 1.59}};
FindFit[data, a + (b - a)/(1 + (x/c)^d), {a, b, c, d}, x]

pd = ListPlot[data, DisplayFunction -> Identity];
fd = Plot[ a + (b - a)/(1 + (x/c)^d) /. %2, {x, 0.2, 0.5}, DisplayFunction ->
Identity];
Show[pd, fd, DisplayFunction -> $DisplayFunction]

[ Last edited by hongyexi on 2008-3-15 at 20:44 ]

回复此楼