Wolfram mathematica Mathematica中的指数曲线拟合

我正在尝试将一条曲线拟合到这组数据中，但我所尝试的一切都不起作用

data = {{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}};

我试过了 FindFit[data，Exp[a*x+b]，{a，b}，x]， 非线性模型拟合[数据，{A*Exp[B*x+D]}，{A，B，D}，x],， 还有许多其他的尝试

我一直收到错误信息

未能在100内收敛到要求的精度或精度 迭代

---

。我不知所措。有什么想法吗？

问题是所拟合的函数不能很好地建模数据

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