Подгонка экспоненциальной кривой в Mathematica

Question

Я пытаюсь подогнать кривую к этому набору данных, и ничего из того, что я пробовал, не работает.

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}};

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

I Я пробовал 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, 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}]]