extra/math/numerical-integration/numerical-integration-tests.factor

   1 USING: kernel math.numerical-integration tools.test math
   2 math.constants math.functions ;
   3
   4 { 50 } [ 0 10 [ ] integrate-simpson ] unit-test
   5 { 1000/3 } [ 0 10 [ sq ] integrate-simpson ] unit-test
   6 { t } [ 0 pi 2 / [ sin ] integrate-simpson 1 .000000001 ~abs ] unit-test
   7 { t } [ 0 pi [ sin ] integrate-simpson 2 .00000001 ~abs ] unit-test
   8 { t } [  0 pi 2 * [ sin ] integrate-simpson 0 .00000000001 ~abs ] unit-test