New in Wolfram Mathematica 7: Transcendental Roots ◄ previous | next ►
Find the Inflection Points of Einstein's E1 Function
Reduce can be used directly to compute the inflection points of Einstein's E1 function.
In[1]:=

Click for copyable input
Subscript[E, 1] = (x^2 Exp[x])/(Exp[x] - 1)^2;

infl = Reduce[\!\(

\*SubscriptBox[\(\[PartialD]\), \({x, 2}\)]

\*SubscriptBox[\(E\), \(1\)]\) == 0, x, Reals]
Out[1]=



In[2]:=

Click for copyable input
Plot[Subscript[E, 1], {x, -5, 5}, 

 Epilog -> {Red, PointSize[0.025], 

   Point[{x, Subscript[E, 1]}] /. {ToRules[infl]}}]
Out[2]=