Construction of Optimal Derivative-Free Techniques without Memory

Algorithm 2

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];