function [c, t, e] = seededSecant(f, x0, x1, TOL, N0)
    tic;
    i = 2;
    f_x0 = f(x0);
    f_x1 = f(x1);

    while (i <= N0)
        if abs(f_x1 - f_x0) < eps
            % The difference between function values is too small
            c = NaN;
            t = toc;
            e = NaN;
            return;
        end

        c = x1 - f_x1 * (x1 - x0) / (f_x1 - f_x0);

        if abs(c - x1) < TOL
            t = toc;
            e = i;
            return;
        end

        x0 = x1;
        f_x0 = f_x1;
        x1 = c;
        f_x1 = f(c);
        i = i + 1;
    end

    % If the maximum number of iterations is reached without convergence
    c = NaN;
    t = toc;
    e = NaN;
end
