function xR = punto_Lagrange( f , df , a , b )
  g = @(x) df(x)*(b-a) - ( f(b) - f(a) ) ;
  xR = metodo_secanti(g, [a b]) ;
end