ClearAll f, x, rts, initialValues, tol, a, b, j,
NumberOfGuesses, FD, nMax, beta, gamma, y, z, k,
fx, fk, fy, fz
f x_ := Log x/7 - Cos x 2 - 2 + 1/10
a = 0; b = 15;
Plot f x , { x, a, b } , Background -> LightBlue,
PlotStyle -> {Brown, Thick}, PlotRange -> All,
PerformanceGoal -> "Quality"
rts = Reduce f x == 0 && a < x < b, x ;
Algorithm 2: