function alpha = backtracking(f, xk, alpha_bar, pk, rho, c)
    alpha = alpha_bar;
    gf = gradient(f);
    while at(f, xk + alpha * pk) > at(f, xk) - c * alpha * dot(at(gf, xk), pk)
        alpha = alpha * rho
    end 
end