Wolfram Mathematica 7の新機能： 超越根 ◄ 前へ | 次へ ►
アインシュタイン(Einstein)の E1 関数の変曲点を求める
Reduceを直接使って，アインシュタインの E1 関数の変曲点を計算することができる．
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]=