New in Wolfram Mathematica 7: Transcendental Roots ◄ previous | next ►
Solve an Analytic Equation over a Bounded Interval
Mathematica 7 finds all solutions of a univariate analytic equation in a bounded real interval.
In[1]:=

Click for copyable input
f = Log[Erf[x/7]] - Cos[x^2 - 1] + 1;

rts = Reduce[f == 0 && 1 < x < 6, x]
Out[1]=



In[2]:=

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

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