New in Wolfram Mathematica 7: Transcendental Roots  previous | next 
Compute the Laplace Limit Constant
The Laplace limit constant is the real solution of .
In[1]:=

Click for copyable input
f = (x Exp[Sqrt[1 + x^2]])/(1 + Sqrt[1 + x^2]);

r = Reduce[f == 1, x, Reals]
Out[1]=



In[2]:=

Click for copyable input
Plot[{f, 1}, {x, -2, 2}, 

 Epilog -> {Red, PointSize[0.025], Point[{x, f}] /. {ToRules[r]}}]
Out[2]=