title: Fitting an exponential curve in Mathematica
body: <p>I am trying to fit a curve to this set of data, and nothing I've tried is working.</p>
  
  <pre><code>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}};
  </code></pre>
  
  <p><a href="https://i.stack.imgur.com/W3Qd4.jpg" rel="nofollow noreferrer">https://i.stack.imgur.com/W3Qd4.jpg</a></p>
  
  <p>I've tried
  <code>FindFit[data, Exp[a*x + b], {a, b}, x]</code>,
  <code>NonlinearModelFit[data, {A*Exp[B*x + D]}, {A, B, D}, x]</code>,
  and many other attempts.</p>
  
  <p>I keep getting the error message </p>
  
  <blockquote>
    <p>"Failed to converge to the requested accuracy or precision within 100
    iterations"</p>
  </blockquote>
  
  <p>. I am at a loss. Any ideas?</p>