在Mathematica中拟合指数曲线

Question

我正在尝试对这组数据拟合曲线，但我尝试过的任何方法都没有用。

数据= {{290，3.3}，{300，1.1 * 10}，{310，2.9 * 10}，{320，7.5 * 10}，{330，1.8 * 10 ^ 2}，{340，4.3 * 10 ^ 2}，{350、8.3 * 10 ^ 2}，{360、1.5 * 10 ^ 3}，{370、3.7 * 10 ^ 3}，{380、6.3 * 10 ^ 3}，{390、1.2 * 10 ^ 4}，{400、2.4 * 10 ^ 4}};

https://i.stack.imgur.com/W3Qd4.jpg

我已经尝试过FindFit [data，Exp [a x + b]，{a，b}，x]，NonlinearModelFit [data，{A Exp [B * x + D]}，{A，B，D}，x]，和其他许多尝试。

我不断收到错误消息“在100次迭代中未能收敛到所要求的精度或精度”。我很茫然。有什么想法吗？

Answer 1

问题是所安装的函数不能很好地对数据建模。

ClearAll[a, b];
nlm = NonlinearModelFit[data, a Exp[b Sqrt[x]] + c, {a, b, c}, x, MaxIterations -> 1000]
Show[ListPlot@data, Plot[nlm[x], {x, 290, 400}]]