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