title: Faster alternative to NSolve
body: <p>I have an equation, which I am trying to solve using <code>NSolve</code> in <em>Mathematica</em>. Here is how I do it:</p>
  
  <pre><code>T == (0.000242895 E^(-(2.09472*10^11/(5.70068*10^8 + 
              7.76206*10^12 T))))/(1 + 
      0.969073 E^(-(4.18945*10^11/(5.70068*10^8 + 7.76206*10^12 T))) - 
      1.96883 Cos[8.77331*10^6/(2.28027*10^9 + 7.76206*10^12 T)])
  
  NSolve[T == (0.000242895 E^(-(2.09472*10^11/(5.70068*10^8 + 
               7.76206*10^12 T))))/(1 + 
       0.969073 E^(-(4.18945*10^11/(5.70068*10^8 + 7.76206*10^12 T))) - 
       1.96883 Cos[8.77331*10^6/(2.28027*10^9 + 7.76206*10^12 T)])
   , {T}, Reals]
  </code></pre>
  
  <p>The problem is that it takes a long time (~1min) to find a solution. Is there a faster way to obtain a solution other than using <code>NSolve</code>?</p>