Sun May 30 07:47:28 2021 

zero_test():
  R version 3.4.4 (2018-03-15) 
  zero() seeks the root of a function using Brent's method.

  f(x) = sin(x) - x/2
  Interval = [ 1 , 2 ]
  f(a) = 0.341471 , f(b) =  -0.09070257 
  zero() returns x =  1.895494 
  f( 1.895494 ) =  4.761858e-12 
  The function was evaluated  8  times.

  f(x) = 2 x - exp ( -x )
  Interval = [ 0 , 1 ]
  f(a) = -1 , f(b) =  1.632121 
  zero() returns x =  0.3517337 
  f( 0.3517337 ) =  1.026179e-12 
  The function was evaluated  7  times.

  f(x) = x * exp ( -x )
  Interval = [ -1 , 0.5 ]
  f(a) = -2.718282 , f(b) =  0.3032653 
  zero() returns x =  -4.035216e-10 
  f( -4.035216e-10 ) =  -4.035216e-10 
  The function was evaluated  10  times.

  f(x) = exp ( x ) - 1 / ( 100 * x * x )
  Interval = [ 1e-04 , 20 ]
  f(a) = -999999 , f(b) =  485165195 
  zero() returns x =  0.09534462 
  f( 0.09534462 ) =  7.39127e-08 
  The function was evaluated  14  times.

  f(x) = (x+3)*(x-1)*(x-1)
  Interval = [ -5 , 2 ]
  f(a) = -72 , f(b) =  5 
  zero() returns x =  -3 
  f( -3 ) =  -8.597567e-13 
  The function was evaluated  14  times.

zero_test():
  Normal end of execution.
Sun May 30 07:47:28 2021