extra/math/analysis/analysis-tests.factor

   1 USING: kernel math math.functions tools.test math.analysis
   2 math.constants ;
   3 IN: math.analysis.tests
   4
   5 CONSTANT: eps .00000001
   6
   7 [ t ] [ -9000000000000000000000000000000000000000000 gamma 1/0. = ] unit-test
   8 [ t ] [ -1.5 gamma 2.363271801207344 eps ~ ] unit-test
   9 [ t ] [ -1 gamma 1/0. = ] unit-test
  10 [ t ] [ -0.5 gamma -3.544907701811 eps ~ ] unit-test
  11 [ t ] [ 0 gamma 1/0. = ] unit-test
  12 [ t ] [ .5 gamma 1.772453850905479 eps ~ ] unit-test
  13 [ t ] [ 1 gamma 1 eps ~ ] unit-test
  14 [ t ] [ 2 gamma 1 eps ~ ] unit-test
  15 [ t ] [ 3 gamma 2 eps ~ ] unit-test
  16 [ t ] [ 11 gamma 3628800.000015679 eps ~ ] unit-test
  17 [ t ] [ 90000000000000000000000000000000000000000000 gamma 1/0. = ] unit-test
  18 ! some fun identities
  19 [ t ] [ 2/3 gamma 2 pi * 3 sqrt 1/3 gamma * / eps ~ ] unit-test
  20 [ t ] [ 3/4 gamma 2 sqrt pi * 1/4 gamma / eps ~ ] unit-test
  21 [ t ] [ 4/5 gamma 2 5 sqrt / 2 + sqrt pi * 1/5 gamma / eps ~ ] unit-test
  22 [ t ] [ 3/5 gamma 2 2 5 sqrt / - sqrt pi * 2/5 gamma / eps ~ ] unit-test
  23 [ t ] [ -90000000000000000000000000000000000000000000 gammaln 1/0. = ] unit-test
  24 [ t ] [ -1.5 gammaln 1/0. = ] unit-test
  25 [ t ] [ -1 gammaln 1/0. = ] unit-test
  26 [ t ] [ -0.5 gammaln 1/0. = ] unit-test
  27 ! [ t ] [ 0 gammaln 1/0. = ] unit-test
  28 [ t ] [ .5 gammaln 0.572364942924679 eps ~ ] unit-test
  29 [ t ] [ 1 gammaln 0 eps ~ ] unit-test
  30 [ t ] [ 2 gammaln 1.110223024625157e-16 eps ~ ] unit-test
  31 [ t ] [ 3 gammaln 0.6931471805599456 eps ~ ] unit-test
  32 [ t ] [ 11 gammaln 15.10441257307984 eps ~ ] unit-test
  33 [ t ] [ 9000000000000000000000000000000000000000000 gammaln 8.811521863477754e44 eps ~ ] unit-test
  34