From 13e3a2a640811a8378c0a1598ea5b474080e67ab Mon Sep 17 00:00:00 2001 From: Alexey Khudyakov Date: Thu, 16 Jan 2025 18:10:35 +0300 Subject: [PATCH] Delete unnecessary files tests/Tests/Math/* are remants from time when math-function were part of statistics --- Setup.lhs | 3 --- dense-linear-algebra/Setup.hs | 2 -- statistics.cabal | 2 -- tests/Tests/Math/Tables.hs | 47 -------------------------------- tests/Tests/Math/gen.py | 51 ----------------------------------- 5 files changed, 105 deletions(-) delete mode 100644 Setup.lhs delete mode 100644 dense-linear-algebra/Setup.hs delete mode 100644 tests/Tests/Math/Tables.hs delete mode 100644 tests/Tests/Math/gen.py diff --git a/Setup.lhs b/Setup.lhs deleted file mode 100644 index 5bde0de9..00000000 --- a/Setup.lhs +++ /dev/null @@ -1,3 +0,0 @@ -#!/usr/bin/env runhaskell -> import Distribution.Simple -> main = defaultMain diff --git a/dense-linear-algebra/Setup.hs b/dense-linear-algebra/Setup.hs deleted file mode 100644 index 9a994af6..00000000 --- a/dense-linear-algebra/Setup.hs +++ /dev/null @@ -1,2 +0,0 @@ -import Distribution.Simple -main = defaultMain diff --git a/statistics.cabal b/statistics.cabal index 640503db..2f341a49 100644 --- a/statistics.cabal +++ b/statistics.cabal @@ -41,8 +41,6 @@ extra-source-files: examples/kde/data/faithful.csv examples/kde/kde.html examples/kde/kde.tpl - tests/Tests/Math/Tables.hs - tests/Tests/Math/gen.py tests/utils/Makefile tests/utils/fftw.c diff --git a/tests/Tests/Math/Tables.hs b/tests/Tests/Math/Tables.hs deleted file mode 100644 index 89ac560a..00000000 --- a/tests/Tests/Math/Tables.hs +++ /dev/null @@ -1,47 +0,0 @@ -module Tests.Math.Tables where - -tableLogGamma :: [(Double,Double)] -tableLogGamma = - [(0.000001250000000, 13.592366285131769033) - , (0.000068200000000, 9.5930266308318756785) - , (0.000246000000000, 8.3100370767447966358) - , (0.000880000000000, 7.03508133735248542) - , (0.003120000000000, 5.768129358365567505) - , (0.026700000000000, 3.6082588918892977148) - , (0.077700000000000, 2.5148371858768232556) - , (0.234000000000000, 1.3579557559432759994) - , (0.860000000000000, 0.098146578027685615897) - , (1.340000000000000, -0.11404757557207759189) - , (1.890000000000000, -0.0425116422978701336) - , (2.450000000000000, 0.25014296569217625565) - , (3.650000000000000, 1.3701041997380685178) - , (4.560000000000000, 2.5375143317949580002) - , (6.660000000000000, 5.9515377269550207018) - , (8.250000000000000, 9.0331869196051233217) - , (11.300000000000001, 15.814180681373947834) - , (25.600000000000001, 56.711261598328121636) - , (50.399999999999999, 146.12815158702164808) - , (123.299999999999997, 468.85500075897556371) - , (487.399999999999977, 2526.9846647543727158) - , (853.399999999999977, 4903.9359135978220365) - , (2923.300000000000182, 20402.93198938705973) - , (8764.299999999999272, 70798.268343590112636) - , (12630.000000000000000, 106641.77264982508495) - , (34500.000000000000000, 325976.34838781820145) - , (82340.000000000000000, 849629.79603036714252) - , (234800.000000000000000, 2668846.4390507959761) - , (834300.000000000000000, 10540830.912557534873) - , (1230000.000000000000000, 16017699.322315014899) - ] -tableIncompleteBeta :: [(Double,Double,Double,Double)] -tableIncompleteBeta = - [(2.000000000000000, 3.000000000000000, 0.030000000000000, 0.0051864299999999996862) - , (2.000000000000000, 3.000000000000000, 0.230000000000000, 0.22845923000000001313) - , (2.000000000000000, 3.000000000000000, 0.760000000000000, 0.95465728000000005249) - , (4.000000000000000, 2.300000000000000, 0.890000000000000, 0.93829812158347802864) - , (1.000000000000000, 1.000000000000000, 0.550000000000000, 0.55000000000000004441) - , (0.300000000000000, 12.199999999999999, 0.110000000000000, 0.95063000053947077639) - , (13.100000000000000, 9.800000000000001, 0.120000000000000, 1.3483109941962659385e-07) - , (13.100000000000000, 9.800000000000001, 0.420000000000000, 0.071321857831804780226) - , (13.100000000000000, 9.800000000000001, 0.920000000000000, 0.99999578339197081611) - ] diff --git a/tests/Tests/Math/gen.py b/tests/Tests/Math/gen.py deleted file mode 100644 index fde9da69..00000000 --- a/tests/Tests/Math/gen.py +++ /dev/null @@ -1,51 +0,0 @@ -#!/usr/bin/python -""" -""" - -from mpmath import * - -def printListLiteral(lines) : - print " [" + "\n , ".join(lines) + "\n ]" - -################################################################ -# Generate header -print "module Tests.Math.Tables where" -print - -################################################################ -## Generate table for logGamma -print "tableLogGamma :: [(Double,Double)]" -print "tableLogGamma =" - -gammaArg = [ 1.25e-6, 6.82e-5, 2.46e-4, 8.8e-4, 3.12e-3, 2.67e-2, - 7.77e-2, 0.234, 0.86, 1.34, 1.89, 2.45, - 3.65, 4.56, 6.66, 8.25, 11.3, 25.6, - 50.4, 123.3, 487.4, 853.4, 2923.3, 8764.3, - 1.263e4, 3.45e4, 8.234e4, 2.348e5, 8.343e5, 1.23e6, - ] -printListLiteral( - [ '(%.15f, %.20g)' % (x, log(gamma(x))) for x in gammaArg ] - ) - - -################################################################ -## Generate table for incompleteBeta - -print "tableIncompleteBeta :: [(Double,Double,Double,Double)]" -print "tableIncompleteBeta =" - -incompleteBetaArg = [ - (2, 3, 0.03), - (2, 3, 0.23), - (2, 3, 0.76), - (4, 2.3, 0.89), - (1, 1, 0.55), - (0.3, 12.2, 0.11), - (13.1, 9.8, 0.12), - (13.1, 9.8, 0.42), - (13.1, 9.8, 0.92), - ] -printListLiteral( - [ '(%.15f, %.15f, %.15f, %.20g)' % (p,q,x, betainc(p,q,0,x, regularized=True)) - for (p,q,x) in incompleteBetaArg - ])