| Author |
Comment/Response |
Peter Pein
|
 10/05/12 1:32pm
Hi Stefan,
you might find [1] interesting, which can be found in the documentation center as "tutorial/NumericalEquationSolving".
Following the advice of that text:
In[1]:= int[x_] = Integrate[Sqrt[t]/(1 + Exp[t - x]), {t, 0, Infinity}];
x1 = x /. FindRoot[int[x] == 1, {x, 0.5}] // Chop
Out[2]= 0.513628
or you could try:
In[3]:= root = Log[-InverseFunction[PolyLog, 2, 2][3/2, -1/Gamma[3/2]]];
N[root, 30] // Chop
Out[4]= 0.513628061824465072839630091983
hth,
Peter
[1]: http://reference.wolfram.com/mathematica/tutorial/NumericalEquationSolving.html
URL: , |
|
