Wolfram Mathematica 7の新機能： 超越根 ◄ 前へ | 次へ ►
アインシュタインの E4 関数と双曲線の交差点を求める
Reduceを直接使って，アインシュタインの E4 関数と単位双曲線の交差点を計算することができる．
In[1]:=

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

intp = Reduce[Subscript[E, 4] == 1/x, x, Reals]
Out[1]=



In[2]:=

Click for copyable input
Plot[{Subscript[E, 4], 1/x}, {x, 0, 3}, 

 Epilog -> {Red, PointSize[0.025], 

   Point[{x, Subscript[E, 4]}] /. {ToRules[intp]}}]
Out[2]=