Thu Mar  5 12:22:29 2020 

simp38_test
  R version 3.4.4 (2018-03-15) 
  simp38 estimates an integral using Simpson's 3/8 rule.

  f(x) = sin ( x ) + cos ( x )

  simp38 ( f,  0 , 3.141593 , m =  2  ) =  2.00201 
  simp38 ( f,  0 , 3.141593 , m =  10  ) =  2.000003 
  simp38 ( f,  0 , 3.141593 , m =  100  ) =  2 
  simp38 ( f,  0 , 3.141593 , m =  1000  ) =  2 

simp38_test
  Normal end of execution.
Thu Mar  5 12:22:29 2020