diff options
-rw-r--r-- | HSSL.cabal | 92 | ||||
-rw-r--r-- | README | 4 | ||||
-rw-r--r-- | examples/deriv.hs | 2 | ||||
-rw-r--r-- | examples/error.hs | 2 | ||||
-rw-r--r-- | examples/integrate.hs | 2 | ||||
-rw-r--r-- | examples/kalman.hs | 5 | ||||
-rw-r--r-- | examples/listlike.hs | 2 | ||||
-rw-r--r-- | examples/minimize.hs | 4 | ||||
-rw-r--r-- | examples/pca1.hs | 4 | ||||
-rw-r--r-- | examples/pca2.hs | 4 | ||||
-rw-r--r-- | examples/pinv1.hs | 2 | ||||
-rw-r--r-- | examples/pinv2.hs | 2 | ||||
-rw-r--r-- | examples/plot.hs | 4 | ||||
-rw-r--r-- | examples/tests.hs | 10 | ||||
-rw-r--r-- | lib/Data/Packed/Vector.hs | 2 | ||||
-rw-r--r-- | lib/GSL.hs | 38 | ||||
-rw-r--r-- | lib/GSL/Special.hs | 74 | ||||
-rw-r--r-- | lib/Graphics/Plot.hs | 8 | ||||
-rw-r--r-- | lib/Numeric/GSL.hs | 38 | ||||
-rw-r--r-- | lib/Numeric/GSL/Differentiation.hs (renamed from lib/GSL/Differentiation.hs) | 4 | ||||
-rw-r--r-- | lib/Numeric/GSL/Fourier.hs (renamed from lib/GSL/Fourier.hs) | 4 | ||||
-rw-r--r-- | lib/Numeric/GSL/Integration.hs (renamed from lib/GSL/Integration.hs) | 4 | ||||
-rw-r--r-- | lib/Numeric/GSL/Matrix.hs (renamed from lib/GSL/Matrix.hs) | 11 | ||||
-rw-r--r-- | lib/Numeric/GSL/Minimization.hs (renamed from lib/GSL/Minimization.hs) | 4 | ||||
-rw-r--r-- | lib/Numeric/GSL/Polynomials.hs (renamed from lib/GSL/Polynomials.hs) | 4 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special.hs | 74 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Airy.hs (renamed from lib/GSL/Special/Airy.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Bessel.hs (renamed from lib/GSL/Special/Bessel.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Clausen.hs (renamed from lib/GSL/Special/Clausen.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Coulomb.hs (renamed from lib/GSL/Special/Coulomb.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Coupling.hs (renamed from lib/GSL/Special/Coupling.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Dawson.hs (renamed from lib/GSL/Special/Dawson.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Debye.hs (renamed from lib/GSL/Special/Debye.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Dilog.hs (renamed from lib/GSL/Special/Dilog.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Elementary.hs (renamed from lib/GSL/Special/Elementary.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Ellint.hs (renamed from lib/GSL/Special/Ellint.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Erf.hs (renamed from lib/GSL/Special/Erf.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Exp.hs (renamed from lib/GSL/Special/Exp.hs) | 8 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Expint.hs (renamed from lib/GSL/Special/Expint.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Fermi_dirac.hs (renamed from lib/GSL/Special/Fermi_dirac.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Gamma.hs (renamed from lib/GSL/Special/Gamma.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Gegenbauer.hs (renamed from lib/GSL/Special/Gegenbauer.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Hyperg.hs (renamed from lib/GSL/Special/Hyperg.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Internal.hs (renamed from lib/GSL/Special/Internal.hs) | 4 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Laguerre.hs (renamed from lib/GSL/Special/Laguerre.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Lambert.hs (renamed from lib/GSL/Special/Lambert.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Legendre.hs (renamed from lib/GSL/Special/Legendre.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Log.hs (renamed from lib/GSL/Special/Log.hs) | 8 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Pow_int.hs (renamed from lib/GSL/Special/Pow_int.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Psi.hs (renamed from lib/GSL/Special/Psi.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Synchrotron.hs (renamed from lib/GSL/Special/Synchrotron.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Trig.hs (renamed from lib/GSL/Special/Trig.hs) | 10 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/Zeta.hs (renamed from lib/GSL/Special/Zeta.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/airy.h (renamed from lib/GSL/Special/airy.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/auto.hs (renamed from lib/GSL/Special/auto.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/autoall.sh (renamed from lib/GSL/Special/autoall.sh) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/bessel.h (renamed from lib/GSL/Special/bessel.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/clausen.h (renamed from lib/GSL/Special/clausen.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/coulomb.h (renamed from lib/GSL/Special/coulomb.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/coupling.h (renamed from lib/GSL/Special/coupling.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/dawson.h (renamed from lib/GSL/Special/dawson.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/debye.h (renamed from lib/GSL/Special/debye.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/dilog.h (renamed from lib/GSL/Special/dilog.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/elementary.h (renamed from lib/GSL/Special/elementary.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/ellint.h (renamed from lib/GSL/Special/ellint.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/erf.h (renamed from lib/GSL/Special/erf.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/exp.h (renamed from lib/GSL/Special/exp.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/expint.h (renamed from lib/GSL/Special/expint.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/fermi_dirac.h (renamed from lib/GSL/Special/fermi_dirac.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/gamma.h (renamed from lib/GSL/Special/gamma.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/gegenbauer.h (renamed from lib/GSL/Special/gegenbauer.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/gsl_sf_exp.h (renamed from lib/GSL/Special/gsl_sf_exp.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/gsl_sf_log.h (renamed from lib/GSL/Special/gsl_sf_log.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/hyperg.h (renamed from lib/GSL/Special/hyperg.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/laguerre.h (renamed from lib/GSL/Special/laguerre.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/lambert.h (renamed from lib/GSL/Special/lambert.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/legendre.h (renamed from lib/GSL/Special/legendre.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/log.h (renamed from lib/GSL/Special/log.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/pow_int.h (renamed from lib/GSL/Special/pow_int.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/psi.h (renamed from lib/GSL/Special/psi.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/synchrotron.h (renamed from lib/GSL/Special/synchrotron.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/trig.h (renamed from lib/GSL/Special/trig.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Special/zeta.h (renamed from lib/GSL/Special/zeta.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/Vector.hs (renamed from lib/GSL/Vector.hs) | 5 | ||||
-rw-r--r-- | lib/Numeric/GSL/gsl-aux.c (renamed from lib/GSL/gsl-aux.c) | 0 | ||||
-rw-r--r-- | lib/Numeric/GSL/gsl-aux.h (renamed from lib/GSL/gsl-aux.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/LinearAlgebra.hs (renamed from lib/LinearAlgebra.hs) | 20 | ||||
-rw-r--r-- | lib/Numeric/LinearAlgebra/Algorithms.hs (renamed from lib/LinearAlgebra/Algorithms.hs) | 16 | ||||
-rw-r--r-- | lib/Numeric/LinearAlgebra/Instances.hs (renamed from lib/LinearAlgebra/Instances.hs) | 8 | ||||
-rw-r--r-- | lib/Numeric/LinearAlgebra/Interface.hs (renamed from lib/LinearAlgebra/Interface.hs) | 8 | ||||
-rw-r--r-- | lib/Numeric/LinearAlgebra/LAPACK.hs (renamed from lib/LinearAlgebra/LAPACK.hs) | 6 | ||||
-rw-r--r-- | lib/Numeric/LinearAlgebra/LAPACK/clapack.h (renamed from lib/LinearAlgebra/LAPACK/clapack.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/LinearAlgebra/LAPACK/f2c.h (renamed from lib/LinearAlgebra/LAPACK/f2c.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c (renamed from lib/LinearAlgebra/LAPACK/lapack-aux.c) | 0 | ||||
-rw-r--r-- | lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h (renamed from lib/LinearAlgebra/LAPACK/lapack-aux.h) | 0 | ||||
-rw-r--r-- | lib/Numeric/LinearAlgebra/Linear.hs (renamed from lib/LinearAlgebra/Linear.hs) | 6 |
96 files changed, 325 insertions, 322 deletions
@@ -1,4 +1,4 @@ | |||
1 | Name: HSSL | 1 | Name: hssl |
2 | Version: 0.1 | 2 | Version: 0.1 |
3 | License: GPL | 3 | License: GPL |
4 | License-file: LICENSE | 4 | License-file: LICENSE |
@@ -9,6 +9,8 @@ Homepage: http://dis.um.es/~alberto/GSLHaskell | |||
9 | Synopsis: Simple Scientific Library | 9 | Synopsis: Simple Scientific Library |
10 | Description: A high level functional interface to some linear algebra computations | 10 | Description: A high level functional interface to some linear algebra computations |
11 | and other numerical routines, internally implemented using GSL, BLAS and LAPACK. | 11 | and other numerical routines, internally implemented using GSL, BLAS and LAPACK. |
12 | . | ||
13 | More information: <http://dis.um.es/~alberto/GSLHaskell> | ||
12 | Category: Numerical, Math | 14 | Category: Numerical, Math |
13 | tested-with: GHC ==6.6.1 | 15 | tested-with: GHC ==6.6.1 |
14 | Build-Depends: base, haskell98 | 16 | Build-Depends: base, haskell98 |
@@ -23,52 +25,52 @@ Exposed-modules: Data.Packed.Internal, | |||
23 | Data.Packed, | 25 | Data.Packed, |
24 | Data.Packed.Vector, | 26 | Data.Packed.Vector, |
25 | Data.Packed.Matrix, | 27 | Data.Packed.Matrix, |
26 | GSL.Vector, | 28 | Numeric.GSL.Vector, |
27 | GSL.Matrix, | 29 | Numeric.GSL.Matrix, |
28 | GSL.Differentiation, | 30 | Numeric.GSL.Differentiation, |
29 | GSL.Integration, | 31 | Numeric.GSL.Integration, |
30 | GSL.Fourier, | 32 | Numeric.GSL.Fourier, |
31 | GSL.Polynomials, | 33 | Numeric.GSL.Polynomials, |
32 | GSL.Minimization, | 34 | Numeric.GSL.Minimization, |
33 | GSL.Special, | 35 | Numeric.GSL.Special, |
34 | GSL.Special.Internal, | 36 | Numeric.GSL.Special.Internal, |
35 | GSL.Special.Gamma, | 37 | Numeric.GSL.Special.Gamma, |
36 | GSL.Special.Erf, | 38 | Numeric.GSL.Special.Erf, |
37 | GSL.Special.Airy, | 39 | Numeric.GSL.Special.Airy, |
38 | GSL.Special.Exp, | 40 | Numeric.GSL.Special.Exp, |
39 | GSL.Special.Bessel, | 41 | Numeric.GSL.Special.Bessel, |
40 | GSL.Special.Clausen, | 42 | Numeric.GSL.Special.Clausen, |
41 | GSL.Special.Coulomb, | 43 | Numeric.GSL.Special.Coulomb, |
42 | GSL.Special.Coupling, | 44 | Numeric.GSL.Special.Coupling, |
43 | GSL.Special.Dawson, | 45 | Numeric.GSL.Special.Dawson, |
44 | GSL.Special.Debye, | 46 | Numeric.GSL.Special.Debye, |
45 | GSL.Special.Dilog, | 47 | Numeric.GSL.Special.Dilog, |
46 | GSL.Special.Elementary, | 48 | Numeric.GSL.Special.Elementary, |
47 | GSL.Special.Ellint, | 49 | Numeric.GSL.Special.Ellint, |
48 | GSL.Special.Expint, | 50 | Numeric.GSL.Special.Expint, |
49 | GSL.Special.Fermi_dirac, | 51 | Numeric.GSL.Special.Fermi_dirac, |
50 | GSL.Special.Gegenbauer, | 52 | Numeric.GSL.Special.Gegenbauer, |
51 | GSL.Special.Hyperg, | 53 | Numeric.GSL.Special.Hyperg, |
52 | GSL.Special.Laguerre, | 54 | Numeric.GSL.Special.Laguerre, |
53 | GSL.Special.Lambert, | 55 | Numeric.GSL.Special.Lambert, |
54 | GSL.Special.Pow_int, | 56 | Numeric.GSL.Special.Pow_int, |
55 | GSL.Special.Psi, | 57 | Numeric.GSL.Special.Psi, |
56 | GSL.Special.Synchrotron, | 58 | Numeric.GSL.Special.Synchrotron, |
57 | GSL.Special.Trig, | 59 | Numeric.GSL.Special.Trig, |
58 | GSL.Special.Zeta, | 60 | Numeric.GSL.Special.Zeta, |
59 | GSL.Special.Log, | 61 | Numeric.GSL.Special.Log, |
60 | GSL.Special.Legendre, | 62 | Numeric.GSL.Special.Legendre, |
61 | GSL, | 63 | Numeric.GSL, |
62 | LinearAlgebra, | 64 | Numeric.LinearAlgebra, |
63 | LinearAlgebra.LAPACK, | 65 | Numeric.LinearAlgebra.LAPACK, |
64 | LinearAlgebra.Linear, | 66 | Numeric.LinearAlgebra.Linear, |
65 | LinearAlgebra.Instances, | 67 | Numeric.LinearAlgebra.Instances, |
66 | LinearAlgebra.Interface, | 68 | Numeric.LinearAlgebra.Interface, |
67 | LinearAlgebra.Algorithms, | 69 | Numeric.LinearAlgebra.Algorithms, |
68 | Graphics.Plot | 70 | Graphics.Plot |
69 | C-sources: lib/Data/Packed/Internal/aux.c, | 71 | C-sources: lib/Data/Packed/Internal/aux.c, |
70 | lib/LinearAlgebra/LAPACK/lapack-aux.c, | 72 | lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c, |
71 | lib/GSL/gsl-aux.c | 73 | lib/Numeric/GSL/gsl-aux.c |
72 | extra-libraries: gsl cblas lapack | 74 | extra-libraries: gsl cblas lapack |
73 | cc-options: -O4 | 75 | cc-options: -O4 |
74 | ghc-prof-options: -auto-all | 76 | ghc-prof-options: -auto-all |
@@ -17,8 +17,8 @@ $ runhaskell Setup.hs install --user | |||
17 | 17 | ||
18 | USING ATLAS | 18 | USING ATLAS |
19 | 19 | ||
20 | $ ln -s /usr/lib/atlas/libblas.so.3.0 $HOME/lib/HSSL-0.1/ghc-6.6.1/libcblas.so | 20 | $ ln -s /usr/lib/atlas/libblas.so.3.0 $HOME/lib/hssl-0.1/ghc-6.6.1/libcblas.so |
21 | $ ln -s /usr/lib/atlas/liblapack.so.3.0 $HOME/lib/HSSL-0.1/ghc-6.6.1/liblapack.so | 21 | $ ln -s /usr/lib/atlas/liblapack.so.3.0 $HOME/lib/hssl-0.1/ghc-6.6.1/liblapack.so |
22 | 22 | ||
23 | TESTS | 23 | TESTS |
24 | 24 | ||
diff --git a/examples/deriv.hs b/examples/deriv.hs index 472a284..c9456d1 100644 --- a/examples/deriv.hs +++ b/examples/deriv.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | -- Numerical differentiation | 1 | -- Numerical differentiation |
2 | 2 | ||
3 | import GSL | 3 | import Numeric.GSL |
4 | 4 | ||
5 | d :: (Double -> Double) -> (Double -> Double) | 5 | d :: (Double -> Double) -> (Double -> Double) |
6 | d f x = fst $ derivCentral 0.01 f x | 6 | d f x = fst $ derivCentral 0.01 f x |
diff --git a/examples/error.hs b/examples/error.hs index bcfe224..16305dc 100644 --- a/examples/error.hs +++ b/examples/error.hs | |||
@@ -1,4 +1,4 @@ | |||
1 | import GSL | 1 | import Numeric.GSL |
2 | import Prelude hiding (catch) | 2 | import Prelude hiding (catch) |
3 | import Control.Exception | 3 | import Control.Exception |
4 | 4 | ||
diff --git a/examples/integrate.hs b/examples/integrate.hs index 6da88ad..10f0269 100644 --- a/examples/integrate.hs +++ b/examples/integrate.hs | |||
@@ -1,5 +1,5 @@ | |||
1 | -- Numerical integration | 1 | -- Numerical integration |
2 | import GSL | 2 | import Numeric.GSL |
3 | 3 | ||
4 | quad f a b = fst $ integrateQAGS 1E-9 100 f a b | 4 | quad f a b = fst $ integrateQAGS 1E-9 100 f a b |
5 | 5 | ||
diff --git a/examples/kalman.hs b/examples/kalman.hs index ccb8083..e191cbb 100644 --- a/examples/kalman.hs +++ b/examples/kalman.hs | |||
@@ -1,8 +1,5 @@ | |||
1 | import LinearAlgebra | 1 | import Numeric.LinearAlgebra |
2 | import Graphics.Plot | 2 | import Graphics.Plot |
3 | import LinearAlgebra.Instances | ||
4 | |||
5 | --import GSLHaskell | ||
6 | 3 | ||
7 | vector l = fromList l :: Vector Double | 4 | vector l = fromList l :: Vector Double |
8 | matrix ls = fromLists ls :: Matrix Double | 5 | matrix ls = fromLists ls :: Matrix Double |
diff --git a/examples/listlike.hs b/examples/listlike.hs index 6c54f17..43216cb 100644 --- a/examples/listlike.hs +++ b/examples/listlike.hs | |||
@@ -1,7 +1,7 @@ | |||
1 | {-# OPTIONS_GHC -fglasgow-exts #-} | 1 | {-# OPTIONS_GHC -fglasgow-exts #-} |
2 | 2 | ||
3 | import qualified Data.ListLike as LL | 3 | import qualified Data.ListLike as LL |
4 | import LinearAlgebra | 4 | import Numeric.LinearAlgebra |
5 | import Data.Monoid | 5 | import Data.Monoid |
6 | import Data.Packed.Internal.Vector | 6 | import Data.Packed.Internal.Vector |
7 | import Foreign | 7 | import Foreign |
diff --git a/examples/minimize.hs b/examples/minimize.hs index 0429a24..d7bc350 100644 --- a/examples/minimize.hs +++ b/examples/minimize.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | -- the multidimensional minimization example in the GSL manual | 1 | -- the multidimensional minimization example in the GSL manual |
2 | import GSL | 2 | import Numeric.GSL |
3 | import LinearAlgebra | 3 | import Numeric.LinearAlgebra |
4 | import Graphics.Plot | 4 | import Graphics.Plot |
5 | 5 | ||
6 | -- the function to be minimized | 6 | -- the function to be minimized |
diff --git a/examples/pca1.hs b/examples/pca1.hs index 2c5074d..4ad8720 100644 --- a/examples/pca1.hs +++ b/examples/pca1.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | -- Principal component analysis | 1 | -- Principal component analysis |
2 | 2 | ||
3 | import LinearAlgebra | 3 | import Numeric.LinearAlgebra |
4 | import System.Directory(doesFileExist) | 4 | import System.Directory(doesFileExist) |
5 | import System(system) | 5 | import System(system) |
6 | import Control.Monad(when) | 6 | import Control.Monad(when) |
@@ -26,7 +26,7 @@ pca n dataSet = (encode,decode) | |||
26 | decode x = x <> vp + m | 26 | decode x = x <> vp + m |
27 | m = mean dataSet | 27 | m = mean dataSet |
28 | c = cov dataSet | 28 | c = cov dataSet |
29 | (_,v) = eigS c | 29 | (_,v) = eigSH c |
30 | vp = takeRows n (trans v) | 30 | vp = takeRows n (trans v) |
31 | 31 | ||
32 | main = do | 32 | main = do |
diff --git a/examples/pca2.hs b/examples/pca2.hs index bd498e4..8c20370 100644 --- a/examples/pca2.hs +++ b/examples/pca2.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | -- Improved PCA, including illustrative graphics | 1 | -- Improved PCA, including illustrative graphics |
2 | 2 | ||
3 | import LinearAlgebra | 3 | import Numeric.LinearAlgebra |
4 | import Graphics.Plot | 4 | import Graphics.Plot |
5 | import System.Directory(doesFileExist) | 5 | import System.Directory(doesFileExist) |
6 | import System(system) | 6 | import System(system) |
@@ -24,7 +24,7 @@ type Stat = (Vec, [Double], Mat) | |||
24 | stat :: Mat -> Stat | 24 | stat :: Mat -> Stat |
25 | stat x = (m, toList s, trans v) where | 25 | stat x = (m, toList s, trans v) where |
26 | m = mean x | 26 | m = mean x |
27 | (s,v) = eigS (cov x) | 27 | (s,v) = eigSH' (cov x) |
28 | 28 | ||
29 | -- creates the compression and decompression functions from the desired reconstruction | 29 | -- creates the compression and decompression functions from the desired reconstruction |
30 | -- quality and the statistics of a data set | 30 | -- quality and the statistics of a data set |
diff --git a/examples/pinv1.hs b/examples/pinv1.hs index 76fa0a9..301eac8 100644 --- a/examples/pinv1.hs +++ b/examples/pinv1.hs | |||
@@ -1,5 +1,5 @@ | |||
1 | -- initial check for the polynomial model example | 1 | -- initial check for the polynomial model example |
2 | import LinearAlgebra | 2 | import Numeric.LinearAlgebra |
3 | 3 | ||
4 | 4 | ||
5 | prepSyst :: Int -> Matrix Double -> (Matrix Double, Vector Double) | 5 | prepSyst :: Int -> Matrix Double -> (Matrix Double, Vector Double) |
diff --git a/examples/pinv2.hs b/examples/pinv2.hs index c1038d1..7423540 100644 --- a/examples/pinv2.hs +++ b/examples/pinv2.hs | |||
@@ -1,5 +1,5 @@ | |||
1 | -- MSE polynomial model using the pseudoinverse | 1 | -- MSE polynomial model using the pseudoinverse |
2 | import LinearAlgebra | 2 | import Numeric.LinearAlgebra |
3 | import Graphics.Plot | 3 | import Graphics.Plot |
4 | 4 | ||
5 | expand :: Int -> Vector Double -> Matrix Double | 5 | expand :: Int -> Vector Double -> Matrix Double |
diff --git a/examples/plot.hs b/examples/plot.hs index 1177c11..e4025fd 100644 --- a/examples/plot.hs +++ b/examples/plot.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | import LinearAlgebra | 1 | import Numeric.LinearAlgebra |
2 | import Graphics.Plot | 2 | import Graphics.Plot |
3 | import GSL(erf_Z, erf) | 3 | import Numeric.GSL(erf_Z, erf) |
4 | 4 | ||
5 | sombrero n = f x y where | 5 | sombrero n = f x y where |
6 | (x,y) = meshdom range range | 6 | (x,y) = meshdom range range |
diff --git a/examples/tests.hs b/examples/tests.hs index e66774b..b088069 100644 --- a/examples/tests.hs +++ b/examples/tests.hs | |||
@@ -3,11 +3,11 @@ | |||
3 | module Main where | 3 | module Main where |
4 | 4 | ||
5 | import Data.Packed.Internal((>|<), fdat, cdat, multiply', multiplyG, MatrixOrder(..),debug) | 5 | import Data.Packed.Internal((>|<), fdat, cdat, multiply', multiplyG, MatrixOrder(..),debug) |
6 | import GSL hiding (sin,cos,exp,choose) | 6 | import Numeric.GSL hiding (sin,cos,exp,choose) |
7 | import LinearAlgebra | 7 | import Numeric.LinearAlgebra |
8 | import LinearAlgebra.Linear(Linear) | 8 | import Numeric.LinearAlgebra.Linear(Linear) |
9 | import LinearAlgebra.LAPACK | 9 | import Numeric.LinearAlgebra.LAPACK |
10 | import GSL.Matrix | 10 | import Numeric.GSL.Matrix |
11 | import Test.QuickCheck hiding (test) | 11 | import Test.QuickCheck hiding (test) |
12 | import Test.HUnit hiding ((~:),test) | 12 | import Test.HUnit hiding ((~:),test) |
13 | import System.Random(randomRs,mkStdGen) | 13 | import System.Random(randomRs,mkStdGen) |
diff --git a/lib/Data/Packed/Vector.hs b/lib/Data/Packed/Vector.hs index 3fc625c..c893fe7 100644 --- a/lib/Data/Packed/Vector.hs +++ b/lib/Data/Packed/Vector.hs | |||
@@ -24,7 +24,7 @@ module Data.Packed.Vector ( | |||
24 | 24 | ||
25 | import Data.Packed.Internal | 25 | import Data.Packed.Internal |
26 | import Complex | 26 | import Complex |
27 | import GSL.Vector | 27 | import Numeric.GSL.Vector |
28 | 28 | ||
29 | {- | Creates a real vector containing a range of values: | 29 | {- | Creates a real vector containing a range of values: |
30 | 30 | ||
diff --git a/lib/GSL.hs b/lib/GSL.hs deleted file mode 100644 index f04cf26..0000000 --- a/lib/GSL.hs +++ /dev/null | |||
@@ -1,38 +0,0 @@ | |||
1 | {- | | ||
2 | |||
3 | Module : GSL | ||
4 | Copyright : (c) Alberto Ruiz 2006-7 | ||
5 | License : GPL-style | ||
6 | |||
7 | Maintainer : Alberto Ruiz (aruiz at um dot es) | ||
8 | Stability : provisional | ||
9 | Portability : uses -fffi and -fglasgow-exts | ||
10 | |||
11 | This module reexports all the available GSL functions (except those in "LinearAlgebra"). | ||
12 | |||
13 | -} | ||
14 | |||
15 | module GSL ( | ||
16 | module GSL.Integration | ||
17 | , module GSL.Differentiation | ||
18 | , module GSL.Fourier | ||
19 | , module GSL.Polynomials | ||
20 | , module GSL.Minimization | ||
21 | , module GSL.Special | ||
22 | , module Complex | ||
23 | , setErrorHandlerOff | ||
24 | ) where | ||
25 | |||
26 | import GSL.Integration | ||
27 | import GSL.Differentiation | ||
28 | import GSL.Special | ||
29 | import GSL.Fourier | ||
30 | import GSL.Polynomials | ||
31 | import GSL.Minimization | ||
32 | import Complex | ||
33 | import GSL.Special | ||
34 | |||
35 | |||
36 | -- | This action removes the GSL default error handler (which aborts the program), so that | ||
37 | -- GSL errors can be handled by Haskell (using Control.Exception) and ghci doesn't abort. | ||
38 | foreign import ccall "GSL/gsl-aux.h no_abort_on_error" setErrorHandlerOff :: IO () | ||
diff --git a/lib/GSL/Special.hs b/lib/GSL/Special.hs deleted file mode 100644 index fa002b9..0000000 --- a/lib/GSL/Special.hs +++ /dev/null | |||
@@ -1,74 +0,0 @@ | |||
1 | ----------------------------------------------------------------------------- | ||
2 | {- | | ||
3 | Module : GSL.Special | ||
4 | Copyright : (c) Alberto Ruiz 2006 | ||
5 | License : GPL-style | ||
6 | |||
7 | Maintainer : Alberto Ruiz (aruiz at um dot es) | ||
8 | Stability : provisional | ||
9 | Portability : uses ffi | ||
10 | |||
11 | Wrappers for selected special functions. | ||
12 | |||
13 | <http://www.gnu.org/software/gsl/manual/html_node/Special-Functions.html#Special-Functions> | ||
14 | -} | ||
15 | ----------------------------------------------------------------------------- | ||
16 | |||
17 | module GSL.Special ( | ||
18 | module GSL.Special.Airy | ||
19 | , module GSL.Special.Bessel | ||
20 | , module GSL.Special.Clausen | ||
21 | , module GSL.Special.Coulomb | ||
22 | , module GSL.Special.Coupling | ||
23 | , module GSL.Special.Dawson | ||
24 | , module GSL.Special.Debye | ||
25 | , module GSL.Special.Dilog | ||
26 | , module GSL.Special.Elementary | ||
27 | , module GSL.Special.Ellint | ||
28 | , module GSL.Special.Erf | ||
29 | , module GSL.Special.Exp | ||
30 | , module GSL.Special.Expint | ||
31 | , module GSL.Special.Fermi_dirac | ||
32 | , module GSL.Special.Gamma | ||
33 | , module GSL.Special.Gegenbauer | ||
34 | , module GSL.Special.Hyperg | ||
35 | , module GSL.Special.Laguerre | ||
36 | , module GSL.Special.Lambert | ||
37 | , module GSL.Special.Legendre | ||
38 | , module GSL.Special.Log | ||
39 | , module GSL.Special.Pow_int | ||
40 | , module GSL.Special.Psi | ||
41 | , module GSL.Special.Synchrotron | ||
42 | , module GSL.Special.Trig | ||
43 | , module GSL.Special.Zeta | ||
44 | ) | ||
45 | where | ||
46 | |||
47 | import Foreign | ||
48 | import GSL.Special.Internal | ||
49 | import GSL.Special.Airy | ||
50 | import GSL.Special.Bessel | ||
51 | import GSL.Special.Clausen | ||
52 | import GSL.Special.Coulomb | ||
53 | import GSL.Special.Coupling | ||
54 | import GSL.Special.Dawson | ||
55 | import GSL.Special.Debye | ||
56 | import GSL.Special.Dilog | ||
57 | import GSL.Special.Elementary | ||
58 | import GSL.Special.Ellint | ||
59 | import GSL.Special.Erf | ||
60 | import GSL.Special.Exp | ||
61 | import GSL.Special.Expint | ||
62 | import GSL.Special.Fermi_dirac | ||
63 | import GSL.Special.Gamma | ||
64 | import GSL.Special.Gegenbauer | ||
65 | import GSL.Special.Hyperg | ||
66 | import GSL.Special.Laguerre | ||
67 | import GSL.Special.Lambert | ||
68 | import GSL.Special.Legendre | ||
69 | import GSL.Special.Log | ||
70 | import GSL.Special.Pow_int | ||
71 | import GSL.Special.Psi | ||
72 | import GSL.Special.Synchrotron | ||
73 | import GSL.Special.Trig | ||
74 | import GSL.Special.Zeta | ||
diff --git a/lib/Graphics/Plot.hs b/lib/Graphics/Plot.hs index 9f719ab..71ad0fc 100644 --- a/lib/Graphics/Plot.hs +++ b/lib/Graphics/Plot.hs | |||
@@ -14,7 +14,7 @@ | |||
14 | 14 | ||
15 | module Graphics.Plot( | 15 | module Graphics.Plot( |
16 | 16 | ||
17 | gnuplotX, mplot, | 17 | mplot, |
18 | 18 | ||
19 | plot, parametricPlot, | 19 | plot, parametricPlot, |
20 | 20 | ||
@@ -22,12 +22,14 @@ module Graphics.Plot( | |||
22 | 22 | ||
23 | matrixToPGM, imshow, | 23 | matrixToPGM, imshow, |
24 | 24 | ||
25 | gnuplotX | ||
26 | |||
25 | ) where | 27 | ) where |
26 | 28 | ||
27 | import Data.Packed.Vector | 29 | import Data.Packed.Vector |
28 | import Data.Packed.Matrix | 30 | import Data.Packed.Matrix |
29 | import LinearAlgebra.Linear(outer) | 31 | import Numeric.LinearAlgebra.Linear(outer) |
30 | import GSL.Vector(FunCodeS(Max,Min),toScalarR) | 32 | import Numeric.GSL.Vector(FunCodeS(Max,Min),toScalarR) |
31 | import Data.List(intersperse) | 33 | import Data.List(intersperse) |
32 | import System | 34 | import System |
33 | import Data.IORef | 35 | import Data.IORef |
diff --git a/lib/Numeric/GSL.hs b/lib/Numeric/GSL.hs new file mode 100644 index 0000000..4bc3940 --- /dev/null +++ b/lib/Numeric/GSL.hs | |||
@@ -0,0 +1,38 @@ | |||
1 | {- | | ||
2 | |||
3 | Module : Numeric.GSL | ||
4 | Copyright : (c) Alberto Ruiz 2006-7 | ||
5 | License : GPL-style | ||
6 | |||
7 | Maintainer : Alberto Ruiz (aruiz at um dot es) | ||
8 | Stability : provisional | ||
9 | Portability : uses -fffi and -fglasgow-exts | ||
10 | |||
11 | This module reexports all the available Numeric.GSL functions (except those in "LinearAlgebra"). | ||
12 | |||
13 | -} | ||
14 | |||
15 | module Numeric.GSL ( | ||
16 | module Numeric.GSL.Integration | ||
17 | , module Numeric.GSL.Differentiation | ||
18 | , module Numeric.GSL.Fourier | ||
19 | , module Numeric.GSL.Polynomials | ||
20 | , module Numeric.GSL.Minimization | ||
21 | , module Numeric.GSL.Special | ||
22 | , module Complex | ||
23 | , setErrorHandlerOff | ||
24 | ) where | ||
25 | |||
26 | import Numeric.GSL.Integration | ||
27 | import Numeric.GSL.Differentiation | ||
28 | import Numeric.GSL.Special | ||
29 | import Numeric.GSL.Fourier | ||
30 | import Numeric.GSL.Polynomials | ||
31 | import Numeric.GSL.Minimization | ||
32 | import Complex | ||
33 | import Numeric.GSL.Special | ||
34 | |||
35 | |||
36 | -- | This action removes the GSL default error handler (which aborts the program), so that | ||
37 | -- GSL errors can be handled by Haskell (using Control.Exception) and ghci doesn't abort. | ||
38 | foreign import ccall "GSL/gsl-aux.h no_abort_on_error" setErrorHandlerOff :: IO () | ||
diff --git a/lib/GSL/Differentiation.hs b/lib/Numeric/GSL/Differentiation.hs index e8e22d2..e7fea92 100644 --- a/lib/GSL/Differentiation.hs +++ b/lib/Numeric/GSL/Differentiation.hs | |||
@@ -1,7 +1,7 @@ | |||
1 | {-# OPTIONS #-} | 1 | {-# OPTIONS #-} |
2 | ----------------------------------------------------------------------------- | 2 | ----------------------------------------------------------------------------- |
3 | {- | | 3 | {- | |
4 | Module : GSL.Differentiation | 4 | Module : Numeric.GSL.Differentiation |
5 | Copyright : (c) Alberto Ruiz 2006 | 5 | Copyright : (c) Alberto Ruiz 2006 |
6 | License : GPL-style | 6 | License : GPL-style |
7 | 7 | ||
@@ -16,7 +16,7 @@ Numerical differentiation. | |||
16 | From the GSL manual: \"The functions described in this chapter compute numerical derivatives by finite differencing. An adaptive algorithm is used to find the best choice of finite difference and to estimate the error in the derivative.\" | 16 | From the GSL manual: \"The functions described in this chapter compute numerical derivatives by finite differencing. An adaptive algorithm is used to find the best choice of finite difference and to estimate the error in the derivative.\" |
17 | -} | 17 | -} |
18 | ----------------------------------------------------------------------------- | 18 | ----------------------------------------------------------------------------- |
19 | module GSL.Differentiation ( | 19 | module Numeric.GSL.Differentiation ( |
20 | derivCentral, | 20 | derivCentral, |
21 | derivForward, | 21 | derivForward, |
22 | derivBackward | 22 | derivBackward |
diff --git a/lib/GSL/Fourier.hs b/lib/Numeric/GSL/Fourier.hs index 9788602..e975fbf 100644 --- a/lib/GSL/Fourier.hs +++ b/lib/Numeric/GSL/Fourier.hs | |||
@@ -1,7 +1,7 @@ | |||
1 | {-# OPTIONS_GHC -fglasgow-exts #-} | 1 | {-# OPTIONS_GHC -fglasgow-exts #-} |
2 | ----------------------------------------------------------------------------- | 2 | ----------------------------------------------------------------------------- |
3 | {- | | 3 | {- | |
4 | Module : GSL.Fourier | 4 | Module : Numeric.GSL.Fourier |
5 | Copyright : (c) Alberto Ruiz 2006 | 5 | Copyright : (c) Alberto Ruiz 2006 |
6 | License : GPL-style | 6 | License : GPL-style |
7 | 7 | ||
@@ -15,7 +15,7 @@ Fourier Transform. | |||
15 | 15 | ||
16 | -} | 16 | -} |
17 | ----------------------------------------------------------------------------- | 17 | ----------------------------------------------------------------------------- |
18 | module GSL.Fourier ( | 18 | module Numeric.GSL.Fourier ( |
19 | fft, | 19 | fft, |
20 | ifft | 20 | ifft |
21 | ) where | 21 | ) where |
diff --git a/lib/GSL/Integration.hs b/lib/Numeric/GSL/Integration.hs index 4152c9d..d756417 100644 --- a/lib/GSL/Integration.hs +++ b/lib/Numeric/GSL/Integration.hs | |||
@@ -1,7 +1,7 @@ | |||
1 | {-# OPTIONS #-} | 1 | {-# OPTIONS #-} |
2 | ----------------------------------------------------------------------------- | 2 | ----------------------------------------------------------------------------- |
3 | {- | | 3 | {- | |
4 | Module : GSL.Integration | 4 | Module : Numeric.GSL.Integration |
5 | Copyright : (c) Alberto Ruiz 2006 | 5 | Copyright : (c) Alberto Ruiz 2006 |
6 | License : GPL-style | 6 | License : GPL-style |
7 | 7 | ||
@@ -15,7 +15,7 @@ Numerical integration routines. | |||
15 | -} | 15 | -} |
16 | ----------------------------------------------------------------------------- | 16 | ----------------------------------------------------------------------------- |
17 | 17 | ||
18 | module GSL.Integration ( | 18 | module Numeric.GSL.Integration ( |
19 | integrateQNG, | 19 | integrateQNG, |
20 | integrateQAGS | 20 | integrateQAGS |
21 | ) where | 21 | ) where |
diff --git a/lib/GSL/Matrix.hs b/lib/Numeric/GSL/Matrix.hs index 3a54226..eb1931a 100644 --- a/lib/GSL/Matrix.hs +++ b/lib/Numeric/GSL/Matrix.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ----------------------------------------------------------------------------- | 1 | ----------------------------------------------------------------------------- |
2 | -- | | 2 | -- | |
3 | -- Module : GSL.Matrix | 3 | -- Module : Numeric.GSL.Matrix |
4 | -- Copyright : (c) Alberto Ruiz 2007 | 4 | -- Copyright : (c) Alberto Ruiz 2007 |
5 | -- License : GPL-style | 5 | -- License : GPL-style |
6 | -- | 6 | -- |
@@ -8,11 +8,12 @@ | |||
8 | -- Stability : provisional | 8 | -- Stability : provisional |
9 | -- Portability : portable (uses FFI) | 9 | -- Portability : portable (uses FFI) |
10 | -- | 10 | -- |
11 | -- A few linear algebra computations based on the GSL (<http://www.gnu.org/software/gsl>). | 11 | -- A few linear algebra computations based on the Numeric.GSL (<http://www.gnu.org/software/Numeric.GSL>). |
12 | -- | 12 | -- |
13 | ----------------------------------------------------------------------------- | 13 | ----------------------------------------------------------------------------- |
14 | -- #hide | ||
14 | 15 | ||
15 | module GSL.Matrix( | 16 | module Numeric.GSL.Matrix( |
16 | eigSg, eigHg, | 17 | eigSg, eigHg, |
17 | svdg, | 18 | svdg, |
18 | qr, | 19 | qr, |
@@ -23,7 +24,7 @@ module GSL.Matrix( | |||
23 | 24 | ||
24 | import Data.Packed.Internal | 25 | import Data.Packed.Internal |
25 | import Data.Packed.Matrix(fromLists,ident,takeDiag) | 26 | import Data.Packed.Matrix(fromLists,ident,takeDiag) |
26 | import GSL.Vector | 27 | import Numeric.GSL.Vector |
27 | import Foreign | 28 | import Foreign |
28 | import Complex | 29 | import Complex |
29 | 30 | ||
@@ -228,7 +229,7 @@ luCaux x = unsafePerformIO $ do | |||
228 | c = cols x | 229 | c = cols x |
229 | foreign import ccall "gsl-aux.h luCaux" c_luCaux :: TCMCV | 230 | foreign import ccall "gsl-aux.h luCaux" c_luCaux :: TCMCV |
230 | 231 | ||
231 | {- | The LU decomposition of a square matrix. Is based on /gsl_linalg_LU_decomp/ and /gsl_linalg_complex_LU_decomp/ as described in <http://www.gnu.org/software/gsl/manual/gsl-ref_13.html#SEC223>. | 232 | {- | The LU decomposition of a square matrix. Is based on /gsl_linalg_LU_decomp/ and /gsl_linalg_complex_LU_decomp/ as described in <http://www.gnu.org/software/Numeric.GSL/manual/Numeric.GSL-ref_13.html#SEC223>. |
232 | 233 | ||
233 | @\> let m = 'fromLists' [[1,2,-3],[2+3*i,-7,0],[1,-i,2*i]] | 234 | @\> let m = 'fromLists' [[1,2,-3],[2+3*i,-7,0],[1,-i,2*i]] |
234 | \> let (l,u,p,s) = luR m@ | 235 | \> let (l,u,p,s) = luR m@ |
diff --git a/lib/GSL/Minimization.hs b/lib/Numeric/GSL/Minimization.hs index aa89475..23ca51b 100644 --- a/lib/GSL/Minimization.hs +++ b/lib/Numeric/GSL/Minimization.hs | |||
@@ -1,7 +1,7 @@ | |||
1 | {-# OPTIONS_GHC -fglasgow-exts #-} | 1 | {-# OPTIONS_GHC -fglasgow-exts #-} |
2 | ----------------------------------------------------------------------------- | 2 | ----------------------------------------------------------------------------- |
3 | {- | | 3 | {- | |
4 | Module : GSL.Minimization | 4 | Module : Numeric.GSL.Minimization |
5 | Copyright : (c) Alberto Ruiz 2006 | 5 | Copyright : (c) Alberto Ruiz 2006 |
6 | License : GPL-style | 6 | License : GPL-style |
7 | 7 | ||
@@ -15,7 +15,7 @@ Minimization of a multidimensional function Minimization of a multidimensional f | |||
15 | 15 | ||
16 | -} | 16 | -} |
17 | ----------------------------------------------------------------------------- | 17 | ----------------------------------------------------------------------------- |
18 | module GSL.Minimization ( | 18 | module Numeric.GSL.Minimization ( |
19 | minimizeConjugateGradient, | 19 | minimizeConjugateGradient, |
20 | minimizeNMSimplex | 20 | minimizeNMSimplex |
21 | ) where | 21 | ) where |
diff --git a/lib/GSL/Polynomials.hs b/lib/Numeric/GSL/Polynomials.hs index a87fa56..42694f0 100644 --- a/lib/GSL/Polynomials.hs +++ b/lib/Numeric/GSL/Polynomials.hs | |||
@@ -1,7 +1,7 @@ | |||
1 | {-# OPTIONS_GHC -fglasgow-exts #-} | 1 | {-# OPTIONS_GHC -fglasgow-exts #-} |
2 | ----------------------------------------------------------------------------- | 2 | ----------------------------------------------------------------------------- |
3 | {- | | 3 | {- | |
4 | Module : GSL.Polynomials | 4 | Module : Numeric.GSL.Polynomials |
5 | Copyright : (c) Alberto Ruiz 2006 | 5 | Copyright : (c) Alberto Ruiz 2006 |
6 | License : GPL-style | 6 | License : GPL-style |
7 | 7 | ||
@@ -15,7 +15,7 @@ Polynomials. | |||
15 | 15 | ||
16 | -} | 16 | -} |
17 | ----------------------------------------------------------------------------- | 17 | ----------------------------------------------------------------------------- |
18 | module GSL.Polynomials ( | 18 | module Numeric.GSL.Polynomials ( |
19 | polySolve | 19 | polySolve |
20 | ) where | 20 | ) where |
21 | 21 | ||
diff --git a/lib/Numeric/GSL/Special.hs b/lib/Numeric/GSL/Special.hs new file mode 100644 index 0000000..b6cea2b --- /dev/null +++ b/lib/Numeric/GSL/Special.hs | |||
@@ -0,0 +1,74 @@ | |||
1 | ----------------------------------------------------------------------------- | ||
2 | {- | | ||
3 | Module : Numeric.GSL.Special | ||
4 | Copyright : (c) Alberto Ruiz 2006 | ||
5 | License : GPL-style | ||
6 | |||
7 | Maintainer : Alberto Ruiz (aruiz at um dot es) | ||
8 | Stability : provisional | ||
9 | Portability : uses ffi | ||
10 | |||
11 | Wrappers for selected special functions. | ||
12 | |||
13 | <http://www.gnu.org/software/gsl/manual/html_node/Special-Functions.html#Special-Functions> | ||
14 | -} | ||
15 | ----------------------------------------------------------------------------- | ||
16 | |||
17 | module Numeric.GSL.Special ( | ||
18 | module Numeric.GSL.Special.Airy | ||
19 | , module Numeric.GSL.Special.Bessel | ||
20 | , module Numeric.GSL.Special.Clausen | ||
21 | , module Numeric.GSL.Special.Coulomb | ||
22 | , module Numeric.GSL.Special.Coupling | ||
23 | , module Numeric.GSL.Special.Dawson | ||
24 | , module Numeric.GSL.Special.Debye | ||
25 | , module Numeric.GSL.Special.Dilog | ||
26 | , module Numeric.GSL.Special.Elementary | ||
27 | , module Numeric.GSL.Special.Ellint | ||
28 | , module Numeric.GSL.Special.Erf | ||
29 | , module Numeric.GSL.Special.Exp | ||
30 | , module Numeric.GSL.Special.Expint | ||
31 | , module Numeric.GSL.Special.Fermi_dirac | ||
32 | , module Numeric.GSL.Special.Gamma | ||
33 | , module Numeric.GSL.Special.Gegenbauer | ||
34 | , module Numeric.GSL.Special.Hyperg | ||
35 | , module Numeric.GSL.Special.Laguerre | ||
36 | , module Numeric.GSL.Special.Lambert | ||
37 | , module Numeric.GSL.Special.Legendre | ||
38 | , module Numeric.GSL.Special.Log | ||
39 | , module Numeric.GSL.Special.Pow_int | ||
40 | , module Numeric.GSL.Special.Psi | ||
41 | , module Numeric.GSL.Special.Synchrotron | ||
42 | , module Numeric.GSL.Special.Trig | ||
43 | , module Numeric.GSL.Special.Zeta | ||
44 | ) | ||
45 | where | ||
46 | |||
47 | import Foreign | ||
48 | import Numeric.GSL.Special.Internal | ||
49 | import Numeric.GSL.Special.Airy | ||
50 | import Numeric.GSL.Special.Bessel | ||
51 | import Numeric.GSL.Special.Clausen | ||
52 | import Numeric.GSL.Special.Coulomb | ||
53 | import Numeric.GSL.Special.Coupling | ||
54 | import Numeric.GSL.Special.Dawson | ||
55 | import Numeric.GSL.Special.Debye | ||
56 | import Numeric.GSL.Special.Dilog | ||
57 | import Numeric.GSL.Special.Elementary | ||
58 | import Numeric.GSL.Special.Ellint | ||
59 | import Numeric.GSL.Special.Erf | ||
60 | import Numeric.GSL.Special.Exp | ||
61 | import Numeric.GSL.Special.Expint | ||
62 | import Numeric.GSL.Special.Fermi_dirac | ||
63 | import Numeric.GSL.Special.Gamma | ||
64 | import Numeric.GSL.Special.Gegenbauer | ||
65 | import Numeric.GSL.Special.Hyperg | ||
66 | import Numeric.GSL.Special.Laguerre | ||
67 | import Numeric.GSL.Special.Lambert | ||
68 | import Numeric.GSL.Special.Legendre | ||
69 | import Numeric.GSL.Special.Log | ||
70 | import Numeric.GSL.Special.Pow_int | ||
71 | import Numeric.GSL.Special.Psi | ||
72 | import Numeric.GSL.Special.Synchrotron | ||
73 | import Numeric.GSL.Special.Trig | ||
74 | import Numeric.GSL.Special.Zeta | ||
diff --git a/lib/GSL/Special/Airy.hs b/lib/Numeric/GSL/Special/Airy.hs index 872f7c5..d987e1f 100644 --- a/lib/GSL/Special/Airy.hs +++ b/lib/Numeric/GSL/Special/Airy.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Airy | 3 | Module : Numeric.GSL.Special.Airy |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,7 +14,7 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Airy( | 17 | module Numeric.GSL.Special.Airy( |
18 | Precision (..) | 18 | Precision (..) |
19 | , airy_Ai_e | 19 | , airy_Ai_e |
20 | , airy_Ai | 20 | , airy_Ai |
@@ -43,7 +43,7 @@ module GSL.Special.Airy( | |||
43 | ) where | 43 | ) where |
44 | 44 | ||
45 | import Foreign(Ptr) | 45 | import Foreign(Ptr) |
46 | import GSL.Special.Internal | 46 | import Numeric.GSL.Special.Internal |
47 | 47 | ||
48 | -- | wrapper for int gsl_sf_airy_Ai_e(double x,gsl_mode_t mode,gsl_sf_result* result); | 48 | -- | wrapper for int gsl_sf_airy_Ai_e(double x,gsl_mode_t mode,gsl_sf_result* result); |
49 | airy_Ai_e :: Double -> Precision -> (Double,Double) | 49 | airy_Ai_e :: Double -> Precision -> (Double,Double) |
diff --git a/lib/GSL/Special/Bessel.hs b/lib/Numeric/GSL/Special/Bessel.hs index 4a96926..e059666 100644 --- a/lib/GSL/Special/Bessel.hs +++ b/lib/Numeric/GSL/Special/Bessel.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Bessel | 3 | Module : Numeric.GSL.Special.Bessel |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,7 +14,7 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Bessel( | 17 | module Numeric.GSL.Special.Bessel( |
18 | bessel_J0_e | 18 | bessel_J0_e |
19 | , bessel_J0 | 19 | , bessel_J0 |
20 | , bessel_J1_e | 20 | , bessel_J1_e |
@@ -106,7 +106,7 @@ module GSL.Special.Bessel( | |||
106 | ) where | 106 | ) where |
107 | 107 | ||
108 | import Foreign(Ptr) | 108 | import Foreign(Ptr) |
109 | import GSL.Special.Internal | 109 | import Numeric.GSL.Special.Internal |
110 | 110 | ||
111 | -- | wrapper for int gsl_sf_bessel_J0_e(double x,gsl_sf_result* result); | 111 | -- | wrapper for int gsl_sf_bessel_J0_e(double x,gsl_sf_result* result); |
112 | -- | 112 | -- |
diff --git a/lib/GSL/Special/Clausen.hs b/lib/Numeric/GSL/Special/Clausen.hs index 57c8878..3052187 100644 --- a/lib/GSL/Special/Clausen.hs +++ b/lib/Numeric/GSL/Special/Clausen.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Clausen | 3 | Module : Numeric.GSL.Special.Clausen |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,13 +14,13 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Clausen( | 17 | module Numeric.GSL.Special.Clausen( |
18 | clausen_e | 18 | clausen_e |
19 | , clausen | 19 | , clausen |
20 | ) where | 20 | ) where |
21 | 21 | ||
22 | import Foreign(Ptr) | 22 | import Foreign(Ptr) |
23 | import GSL.Special.Internal | 23 | import Numeric.GSL.Special.Internal |
24 | 24 | ||
25 | -- | wrapper for int gsl_sf_clausen_e(double x,gsl_sf_result* result); | 25 | -- | wrapper for int gsl_sf_clausen_e(double x,gsl_sf_result* result); |
26 | -- | 26 | -- |
diff --git a/lib/GSL/Special/Coulomb.hs b/lib/Numeric/GSL/Special/Coulomb.hs index a60b724..06848cb 100644 --- a/lib/GSL/Special/Coulomb.hs +++ b/lib/Numeric/GSL/Special/Coulomb.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Coulomb | 3 | Module : Numeric.GSL.Special.Coulomb |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,7 +14,7 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Coulomb( | 17 | module Numeric.GSL.Special.Coulomb( |
18 | hydrogenicR_1_e | 18 | hydrogenicR_1_e |
19 | , hydrogenicR_1 | 19 | , hydrogenicR_1 |
20 | , hydrogenicR_e | 20 | , hydrogenicR_e |
@@ -23,7 +23,7 @@ module GSL.Special.Coulomb( | |||
23 | ) where | 23 | ) where |
24 | 24 | ||
25 | import Foreign(Ptr) | 25 | import Foreign(Ptr) |
26 | import GSL.Special.Internal | 26 | import Numeric.GSL.Special.Internal |
27 | 27 | ||
28 | -- | wrapper for int gsl_sf_hydrogenicR_1_e(double Z,double r,gsl_sf_result* result); | 28 | -- | wrapper for int gsl_sf_hydrogenicR_1_e(double Z,double r,gsl_sf_result* result); |
29 | -- | 29 | -- |
diff --git a/lib/GSL/Special/Coupling.hs b/lib/Numeric/GSL/Special/Coupling.hs index fb949d1..9578b1b 100644 --- a/lib/GSL/Special/Coupling.hs +++ b/lib/Numeric/GSL/Special/Coupling.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Coupling | 3 | Module : Numeric.GSL.Special.Coupling |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,7 +14,7 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Coupling( | 17 | module Numeric.GSL.Special.Coupling( |
18 | coupling_3j_e | 18 | coupling_3j_e |
19 | , coupling_3j | 19 | , coupling_3j |
20 | , coupling_6j_e | 20 | , coupling_6j_e |
@@ -28,7 +28,7 @@ module GSL.Special.Coupling( | |||
28 | ) where | 28 | ) where |
29 | 29 | ||
30 | import Foreign(Ptr) | 30 | import Foreign(Ptr) |
31 | import GSL.Special.Internal | 31 | import Numeric.GSL.Special.Internal |
32 | 32 | ||
33 | -- | wrapper for int gsl_sf_coupling_3j_e(int two_ja,int two_jb,int two_jc,int two_ma,int two_mb,int two_mc,gsl_sf_result* result); | 33 | -- | wrapper for int gsl_sf_coupling_3j_e(int two_ja,int two_jb,int two_jc,int two_ma,int two_mb,int two_mc,gsl_sf_result* result); |
34 | coupling_3j_e :: Int -> Int -> Int -> Int -> Int -> Int -> (Double,Double) | 34 | coupling_3j_e :: Int -> Int -> Int -> Int -> Int -> Int -> (Double,Double) |
diff --git a/lib/GSL/Special/Dawson.hs b/lib/Numeric/GSL/Special/Dawson.hs index 69d0127..1d77a2b 100644 --- a/lib/GSL/Special/Dawson.hs +++ b/lib/Numeric/GSL/Special/Dawson.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Dawson | 3 | Module : Numeric.GSL.Special.Dawson |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,13 +14,13 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Dawson( | 17 | module Numeric.GSL.Special.Dawson( |
18 | dawson_e | 18 | dawson_e |
19 | , dawson | 19 | , dawson |
20 | ) where | 20 | ) where |
21 | 21 | ||
22 | import Foreign(Ptr) | 22 | import Foreign(Ptr) |
23 | import GSL.Special.Internal | 23 | import Numeric.GSL.Special.Internal |
24 | 24 | ||
25 | -- | wrapper for int gsl_sf_dawson_e(double x,gsl_sf_result* result); | 25 | -- | wrapper for int gsl_sf_dawson_e(double x,gsl_sf_result* result); |
26 | -- | 26 | -- |
diff --git a/lib/GSL/Special/Debye.hs b/lib/Numeric/GSL/Special/Debye.hs index 55f5158..b8e9aca 100644 --- a/lib/GSL/Special/Debye.hs +++ b/lib/Numeric/GSL/Special/Debye.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Debye | 3 | Module : Numeric.GSL.Special.Debye |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,7 +14,7 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Debye( | 17 | module Numeric.GSL.Special.Debye( |
18 | debye_1_e | 18 | debye_1_e |
19 | , debye_1 | 19 | , debye_1 |
20 | , debye_2_e | 20 | , debye_2_e |
@@ -26,7 +26,7 @@ module GSL.Special.Debye( | |||
26 | ) where | 26 | ) where |
27 | 27 | ||
28 | import Foreign(Ptr) | 28 | import Foreign(Ptr) |
29 | import GSL.Special.Internal | 29 | import Numeric.GSL.Special.Internal |
30 | 30 | ||
31 | -- | wrapper for int gsl_sf_debye_1_e(double x,gsl_sf_result* result); | 31 | -- | wrapper for int gsl_sf_debye_1_e(double x,gsl_sf_result* result); |
32 | -- | 32 | -- |
diff --git a/lib/GSL/Special/Dilog.hs b/lib/Numeric/GSL/Special/Dilog.hs index 5575895..e7693da 100644 --- a/lib/GSL/Special/Dilog.hs +++ b/lib/Numeric/GSL/Special/Dilog.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Dilog | 3 | Module : Numeric.GSL.Special.Dilog |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,13 +14,13 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Dilog( | 17 | module Numeric.GSL.Special.Dilog( |
18 | dilog_e | 18 | dilog_e |
19 | , dilog | 19 | , dilog |
20 | ) where | 20 | ) where |
21 | 21 | ||
22 | import Foreign(Ptr) | 22 | import Foreign(Ptr) |
23 | import GSL.Special.Internal | 23 | import Numeric.GSL.Special.Internal |
24 | 24 | ||
25 | -- | wrapper for int gsl_sf_dilog_e(double x,gsl_sf_result* result); | 25 | -- | wrapper for int gsl_sf_dilog_e(double x,gsl_sf_result* result); |
26 | -- | 26 | -- |
diff --git a/lib/GSL/Special/Elementary.hs b/lib/Numeric/GSL/Special/Elementary.hs index da927a2..0312ada 100644 --- a/lib/GSL/Special/Elementary.hs +++ b/lib/Numeric/GSL/Special/Elementary.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Elementary | 3 | Module : Numeric.GSL.Special.Elementary |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,14 +14,14 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Elementary( | 17 | module Numeric.GSL.Special.Elementary( |
18 | multiply_e | 18 | multiply_e |
19 | , multiply | 19 | , multiply |
20 | , multiply_err_e | 20 | , multiply_err_e |
21 | ) where | 21 | ) where |
22 | 22 | ||
23 | import Foreign(Ptr) | 23 | import Foreign(Ptr) |
24 | import GSL.Special.Internal | 24 | import Numeric.GSL.Special.Internal |
25 | 25 | ||
26 | -- | wrapper for int gsl_sf_multiply_e(double x,double y,gsl_sf_result* result); | 26 | -- | wrapper for int gsl_sf_multiply_e(double x,double y,gsl_sf_result* result); |
27 | -- | 27 | -- |
diff --git a/lib/GSL/Special/Ellint.hs b/lib/Numeric/GSL/Special/Ellint.hs index dddbe21..798531a 100644 --- a/lib/GSL/Special/Ellint.hs +++ b/lib/Numeric/GSL/Special/Ellint.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Ellint | 3 | Module : Numeric.GSL.Special.Ellint |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,7 +14,7 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Ellint( | 17 | module Numeric.GSL.Special.Ellint( |
18 | ellint_Kcomp_e | 18 | ellint_Kcomp_e |
19 | , ellint_Kcomp | 19 | , ellint_Kcomp |
20 | , ellint_Ecomp_e | 20 | , ellint_Ecomp_e |
@@ -38,7 +38,7 @@ module GSL.Special.Ellint( | |||
38 | ) where | 38 | ) where |
39 | 39 | ||
40 | import Foreign(Ptr) | 40 | import Foreign(Ptr) |
41 | import GSL.Special.Internal | 41 | import Numeric.GSL.Special.Internal |
42 | 42 | ||
43 | -- | wrapper for int gsl_sf_ellint_Kcomp_e(double k,gsl_mode_t mode,gsl_sf_result* result); | 43 | -- | wrapper for int gsl_sf_ellint_Kcomp_e(double k,gsl_mode_t mode,gsl_sf_result* result); |
44 | -- | 44 | -- |
diff --git a/lib/GSL/Special/Erf.hs b/lib/Numeric/GSL/Special/Erf.hs index 6dc5abb..ec73980 100644 --- a/lib/GSL/Special/Erf.hs +++ b/lib/Numeric/GSL/Special/Erf.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Erf | 3 | Module : Numeric.GSL.Special.Erf |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,7 +14,7 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Erf( | 17 | module Numeric.GSL.Special.Erf( |
18 | erfc_e | 18 | erfc_e |
19 | , erfc | 19 | , erfc |
20 | , log_erfc_e | 20 | , log_erfc_e |
@@ -30,7 +30,7 @@ module GSL.Special.Erf( | |||
30 | ) where | 30 | ) where |
31 | 31 | ||
32 | import Foreign(Ptr) | 32 | import Foreign(Ptr) |
33 | import GSL.Special.Internal | 33 | import Numeric.GSL.Special.Internal |
34 | 34 | ||
35 | -- | wrapper for int gsl_sf_erfc_e(double x,gsl_sf_result* result); | 35 | -- | wrapper for int gsl_sf_erfc_e(double x,gsl_sf_result* result); |
36 | -- | 36 | -- |
diff --git a/lib/GSL/Special/Exp.hs b/lib/Numeric/GSL/Special/Exp.hs index 8c3e5b8..2787df4 100644 --- a/lib/GSL/Special/Exp.hs +++ b/lib/Numeric/GSL/Special/Exp.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Exp | 3 | Module : Numeric.GSL.Special.Exp |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,9 +14,9 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Exp( | 17 | module Numeric.GSL.Special.Exp( |
18 | exp_e | 18 | exp_e |
19 | , GSL.Special.Exp.exp | 19 | , Numeric.GSL.Special.Exp.exp |
20 | , exp_e10_e | 20 | , exp_e10_e |
21 | , exp_mult_e | 21 | , exp_mult_e |
22 | , exp_mult | 22 | , exp_mult |
@@ -36,7 +36,7 @@ module GSL.Special.Exp( | |||
36 | ) where | 36 | ) where |
37 | 37 | ||
38 | import Foreign(Ptr) | 38 | import Foreign(Ptr) |
39 | import GSL.Special.Internal | 39 | import Numeric.GSL.Special.Internal |
40 | 40 | ||
41 | -- | wrapper for int gsl_sf_exp_e(double x,gsl_sf_result* result); | 41 | -- | wrapper for int gsl_sf_exp_e(double x,gsl_sf_result* result); |
42 | exp_e :: Double -> (Double,Double) | 42 | exp_e :: Double -> (Double,Double) |
diff --git a/lib/GSL/Special/Expint.hs b/lib/Numeric/GSL/Special/Expint.hs index 4e1b2b5..9882d09 100644 --- a/lib/GSL/Special/Expint.hs +++ b/lib/Numeric/GSL/Special/Expint.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Expint | 3 | Module : Numeric.GSL.Special.Expint |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,7 +14,7 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Expint( | 17 | module Numeric.GSL.Special.Expint( |
18 | expint_E1_e | 18 | expint_E1_e |
19 | , expint_E1 | 19 | , expint_E1 |
20 | , expint_E2_e | 20 | , expint_E2_e |
@@ -42,7 +42,7 @@ module GSL.Special.Expint( | |||
42 | ) where | 42 | ) where |
43 | 43 | ||
44 | import Foreign(Ptr) | 44 | import Foreign(Ptr) |
45 | import GSL.Special.Internal | 45 | import Numeric.GSL.Special.Internal |
46 | 46 | ||
47 | -- | wrapper for int gsl_sf_expint_E1_e(double x,gsl_sf_result* result); | 47 | -- | wrapper for int gsl_sf_expint_E1_e(double x,gsl_sf_result* result); |
48 | -- | 48 | -- |
diff --git a/lib/GSL/Special/Fermi_dirac.hs b/lib/Numeric/GSL/Special/Fermi_dirac.hs index 18dc3b2..a189dd4 100644 --- a/lib/GSL/Special/Fermi_dirac.hs +++ b/lib/Numeric/GSL/Special/Fermi_dirac.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Fermi_dirac | 3 | Module : Numeric.GSL.Special.Fermi_dirac |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,7 +14,7 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Fermi_dirac( | 17 | module Numeric.GSL.Special.Fermi_dirac( |
18 | fermi_dirac_m1_e | 18 | fermi_dirac_m1_e |
19 | , fermi_dirac_m1 | 19 | , fermi_dirac_m1 |
20 | , fermi_dirac_0_e | 20 | , fermi_dirac_0_e |
@@ -36,7 +36,7 @@ module GSL.Special.Fermi_dirac( | |||
36 | ) where | 36 | ) where |
37 | 37 | ||
38 | import Foreign(Ptr) | 38 | import Foreign(Ptr) |
39 | import GSL.Special.Internal | 39 | import Numeric.GSL.Special.Internal |
40 | 40 | ||
41 | -- | wrapper for int gsl_sf_fermi_dirac_m1_e(double x,gsl_sf_result* result); | 41 | -- | wrapper for int gsl_sf_fermi_dirac_m1_e(double x,gsl_sf_result* result); |
42 | -- | 42 | -- |
diff --git a/lib/GSL/Special/Gamma.hs b/lib/Numeric/GSL/Special/Gamma.hs index ae5010d..aa03892 100644 --- a/lib/GSL/Special/Gamma.hs +++ b/lib/Numeric/GSL/Special/Gamma.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Gamma | 3 | Module : Numeric.GSL.Special.Gamma |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,7 +14,7 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Gamma( | 17 | module Numeric.GSL.Special.Gamma( |
18 | lngamma_e | 18 | lngamma_e |
19 | , lngamma | 19 | , lngamma |
20 | , gamma_e | 20 | , gamma_e |
@@ -58,7 +58,7 @@ module GSL.Special.Gamma( | |||
58 | ) where | 58 | ) where |
59 | 59 | ||
60 | import Foreign(Ptr) | 60 | import Foreign(Ptr) |
61 | import GSL.Special.Internal | 61 | import Numeric.GSL.Special.Internal |
62 | 62 | ||
63 | -- | wrapper for int gsl_sf_lngamma_e(double x,gsl_sf_result* result); | 63 | -- | wrapper for int gsl_sf_lngamma_e(double x,gsl_sf_result* result); |
64 | -- | 64 | -- |
diff --git a/lib/GSL/Special/Gegenbauer.hs b/lib/Numeric/GSL/Special/Gegenbauer.hs index 9667042..40cc1e9 100644 --- a/lib/GSL/Special/Gegenbauer.hs +++ b/lib/Numeric/GSL/Special/Gegenbauer.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Gegenbauer | 3 | Module : Numeric.GSL.Special.Gegenbauer |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,7 +14,7 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Gegenbauer( | 17 | module Numeric.GSL.Special.Gegenbauer( |
18 | gegenpoly_1_e | 18 | gegenpoly_1_e |
19 | , gegenpoly_2_e | 19 | , gegenpoly_2_e |
20 | , gegenpoly_3_e | 20 | , gegenpoly_3_e |
@@ -26,7 +26,7 @@ module GSL.Special.Gegenbauer( | |||
26 | ) where | 26 | ) where |
27 | 27 | ||
28 | import Foreign(Ptr) | 28 | import Foreign(Ptr) |
29 | import GSL.Special.Internal | 29 | import Numeric.GSL.Special.Internal |
30 | 30 | ||
31 | -- | wrapper for int gsl_sf_gegenpoly_1_e(double lambda,double x,gsl_sf_result* result); | 31 | -- | wrapper for int gsl_sf_gegenpoly_1_e(double lambda,double x,gsl_sf_result* result); |
32 | -- | 32 | -- |
diff --git a/lib/GSL/Special/Hyperg.hs b/lib/Numeric/GSL/Special/Hyperg.hs index f9551eb..28bf984 100644 --- a/lib/GSL/Special/Hyperg.hs +++ b/lib/Numeric/GSL/Special/Hyperg.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Hyperg | 3 | Module : Numeric.GSL.Special.Hyperg |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,7 +14,7 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Hyperg( | 17 | module Numeric.GSL.Special.Hyperg( |
18 | hyperg_0F1_e | 18 | hyperg_0F1_e |
19 | , hyperg_0F1 | 19 | , hyperg_0F1 |
20 | , hyperg_1F1_int_e | 20 | , hyperg_1F1_int_e |
@@ -40,7 +40,7 @@ module GSL.Special.Hyperg( | |||
40 | ) where | 40 | ) where |
41 | 41 | ||
42 | import Foreign(Ptr) | 42 | import Foreign(Ptr) |
43 | import GSL.Special.Internal | 43 | import Numeric.GSL.Special.Internal |
44 | 44 | ||
45 | -- | wrapper for int gsl_sf_hyperg_0F1_e(double c,double x,gsl_sf_result* result); | 45 | -- | wrapper for int gsl_sf_hyperg_0F1_e(double c,double x,gsl_sf_result* result); |
46 | -- | 46 | -- |
diff --git a/lib/GSL/Special/Internal.hs b/lib/Numeric/GSL/Special/Internal.hs index 8d81c72..a08809b 100644 --- a/lib/GSL/Special/Internal.hs +++ b/lib/Numeric/GSL/Special/Internal.hs | |||
@@ -1,7 +1,7 @@ | |||
1 | {-# OPTIONS #-} | 1 | {-# OPTIONS #-} |
2 | ----------------------------------------------------------------------------- | 2 | ----------------------------------------------------------------------------- |
3 | {- | | 3 | {- | |
4 | Module : GSL.Special.Internal | 4 | Module : Numeric.GSL.Special.Internal |
5 | Copyright : (c) Alberto Ruiz 2007 | 5 | Copyright : (c) Alberto Ruiz 2007 |
6 | License : GPL-style | 6 | License : GPL-style |
7 | 7 | ||
@@ -15,7 +15,7 @@ Support for Special functions. | |||
15 | -} | 15 | -} |
16 | ----------------------------------------------------------------------------- | 16 | ----------------------------------------------------------------------------- |
17 | 17 | ||
18 | module GSL.Special.Internal ( | 18 | module Numeric.GSL.Special.Internal ( |
19 | createSFR, | 19 | createSFR, |
20 | createSFR_E10, | 20 | createSFR_E10, |
21 | Precision(..), | 21 | Precision(..), |
diff --git a/lib/GSL/Special/Laguerre.hs b/lib/Numeric/GSL/Special/Laguerre.hs index f5ab85e..320e451 100644 --- a/lib/GSL/Special/Laguerre.hs +++ b/lib/Numeric/GSL/Special/Laguerre.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Laguerre | 3 | Module : Numeric.GSL.Special.Laguerre |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,7 +14,7 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Laguerre( | 17 | module Numeric.GSL.Special.Laguerre( |
18 | laguerre_1_e | 18 | laguerre_1_e |
19 | , laguerre_2_e | 19 | , laguerre_2_e |
20 | , laguerre_3_e | 20 | , laguerre_3_e |
@@ -26,7 +26,7 @@ module GSL.Special.Laguerre( | |||
26 | ) where | 26 | ) where |
27 | 27 | ||
28 | import Foreign(Ptr) | 28 | import Foreign(Ptr) |
29 | import GSL.Special.Internal | 29 | import Numeric.GSL.Special.Internal |
30 | 30 | ||
31 | -- | wrapper for int gsl_sf_laguerre_1_e(double a,double x,gsl_sf_result* result); | 31 | -- | wrapper for int gsl_sf_laguerre_1_e(double a,double x,gsl_sf_result* result); |
32 | -- | 32 | -- |
diff --git a/lib/GSL/Special/Lambert.hs b/lib/Numeric/GSL/Special/Lambert.hs index 5e8fed9..ad5579f 100644 --- a/lib/GSL/Special/Lambert.hs +++ b/lib/Numeric/GSL/Special/Lambert.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Lambert | 3 | Module : Numeric.GSL.Special.Lambert |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,7 +14,7 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Lambert( | 17 | module Numeric.GSL.Special.Lambert( |
18 | lambert_W0_e | 18 | lambert_W0_e |
19 | , lambert_W0 | 19 | , lambert_W0 |
20 | , lambert_Wm1_e | 20 | , lambert_Wm1_e |
@@ -22,7 +22,7 @@ module GSL.Special.Lambert( | |||
22 | ) where | 22 | ) where |
23 | 23 | ||
24 | import Foreign(Ptr) | 24 | import Foreign(Ptr) |
25 | import GSL.Special.Internal | 25 | import Numeric.GSL.Special.Internal |
26 | 26 | ||
27 | -- | wrapper for int gsl_sf_lambert_W0_e(double x,gsl_sf_result* result); | 27 | -- | wrapper for int gsl_sf_lambert_W0_e(double x,gsl_sf_result* result); |
28 | -- | 28 | -- |
diff --git a/lib/GSL/Special/Legendre.hs b/lib/Numeric/GSL/Special/Legendre.hs index 70315e9..0ea7557 100644 --- a/lib/GSL/Special/Legendre.hs +++ b/lib/Numeric/GSL/Special/Legendre.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Legendre | 3 | Module : Numeric.GSL.Special.Legendre |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,7 +14,7 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Legendre( | 17 | module Numeric.GSL.Special.Legendre( |
18 | legendre_Pl_e | 18 | legendre_Pl_e |
19 | , legendre_Pl | 19 | , legendre_Pl |
20 | , legendre_P1_e | 20 | , legendre_P1_e |
@@ -55,7 +55,7 @@ module GSL.Special.Legendre( | |||
55 | ) where | 55 | ) where |
56 | 56 | ||
57 | import Foreign(Ptr) | 57 | import Foreign(Ptr) |
58 | import GSL.Special.Internal | 58 | import Numeric.GSL.Special.Internal |
59 | 59 | ||
60 | -- | wrapper for int gsl_sf_legendre_Pl_e(int l,double x,gsl_sf_result* result); | 60 | -- | wrapper for int gsl_sf_legendre_Pl_e(int l,double x,gsl_sf_result* result); |
61 | legendre_Pl_e :: Int -> Double -> (Double,Double) | 61 | legendre_Pl_e :: Int -> Double -> (Double,Double) |
diff --git a/lib/GSL/Special/Log.hs b/lib/Numeric/GSL/Special/Log.hs index 0d62e99..e9c345b 100644 --- a/lib/GSL/Special/Log.hs +++ b/lib/Numeric/GSL/Special/Log.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Log | 3 | Module : Numeric.GSL.Special.Log |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,9 +14,9 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Log( | 17 | module Numeric.GSL.Special.Log( |
18 | log_e | 18 | log_e |
19 | , GSL.Special.Log.log | 19 | , Numeric.GSL.Special.Log.log |
20 | , log_abs_e | 20 | , log_abs_e |
21 | , log_abs | 21 | , log_abs |
22 | , log_1plusx_e | 22 | , log_1plusx_e |
@@ -26,7 +26,7 @@ module GSL.Special.Log( | |||
26 | ) where | 26 | ) where |
27 | 27 | ||
28 | import Foreign(Ptr) | 28 | import Foreign(Ptr) |
29 | import GSL.Special.Internal | 29 | import Numeric.GSL.Special.Internal |
30 | 30 | ||
31 | -- | wrapper for int gsl_sf_log_e(double x,gsl_sf_result* result); | 31 | -- | wrapper for int gsl_sf_log_e(double x,gsl_sf_result* result); |
32 | log_e :: Double -> (Double,Double) | 32 | log_e :: Double -> (Double,Double) |
diff --git a/lib/GSL/Special/Pow_int.hs b/lib/Numeric/GSL/Special/Pow_int.hs index 4142c5b..384dfc4 100644 --- a/lib/GSL/Special/Pow_int.hs +++ b/lib/Numeric/GSL/Special/Pow_int.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Pow_int | 3 | Module : Numeric.GSL.Special.Pow_int |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,13 +14,13 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Pow_int( | 17 | module Numeric.GSL.Special.Pow_int( |
18 | pow_int_e | 18 | pow_int_e |
19 | , pow_int | 19 | , pow_int |
20 | ) where | 20 | ) where |
21 | 21 | ||
22 | import Foreign(Ptr) | 22 | import Foreign(Ptr) |
23 | import GSL.Special.Internal | 23 | import Numeric.GSL.Special.Internal |
24 | 24 | ||
25 | -- | wrapper for int gsl_sf_pow_int_e(double x,int n,gsl_sf_result* result); | 25 | -- | wrapper for int gsl_sf_pow_int_e(double x,int n,gsl_sf_result* result); |
26 | -- | 26 | -- |
diff --git a/lib/GSL/Special/Psi.hs b/lib/Numeric/GSL/Special/Psi.hs index bee934b..c0021e4 100644 --- a/lib/GSL/Special/Psi.hs +++ b/lib/Numeric/GSL/Special/Psi.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Psi | 3 | Module : Numeric.GSL.Special.Psi |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,7 +14,7 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Psi( | 17 | module Numeric.GSL.Special.Psi( |
18 | psi_int_e | 18 | psi_int_e |
19 | , psi_int | 19 | , psi_int |
20 | , psi_e | 20 | , psi_e |
@@ -30,7 +30,7 @@ module GSL.Special.Psi( | |||
30 | ) where | 30 | ) where |
31 | 31 | ||
32 | import Foreign(Ptr) | 32 | import Foreign(Ptr) |
33 | import GSL.Special.Internal | 33 | import Numeric.GSL.Special.Internal |
34 | 34 | ||
35 | -- | wrapper for int gsl_sf_psi_int_e(int n,gsl_sf_result* result); | 35 | -- | wrapper for int gsl_sf_psi_int_e(int n,gsl_sf_result* result); |
36 | -- | 36 | -- |
diff --git a/lib/GSL/Special/Synchrotron.hs b/lib/Numeric/GSL/Special/Synchrotron.hs index 2ed484b..14881fe 100644 --- a/lib/GSL/Special/Synchrotron.hs +++ b/lib/Numeric/GSL/Special/Synchrotron.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Synchrotron | 3 | Module : Numeric.GSL.Special.Synchrotron |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,7 +14,7 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Synchrotron( | 17 | module Numeric.GSL.Special.Synchrotron( |
18 | synchrotron_1_e | 18 | synchrotron_1_e |
19 | , synchrotron_1 | 19 | , synchrotron_1 |
20 | , synchrotron_2_e | 20 | , synchrotron_2_e |
@@ -22,7 +22,7 @@ module GSL.Special.Synchrotron( | |||
22 | ) where | 22 | ) where |
23 | 23 | ||
24 | import Foreign(Ptr) | 24 | import Foreign(Ptr) |
25 | import GSL.Special.Internal | 25 | import Numeric.GSL.Special.Internal |
26 | 26 | ||
27 | -- | wrapper for int gsl_sf_synchrotron_1_e(double x,gsl_sf_result* result); | 27 | -- | wrapper for int gsl_sf_synchrotron_1_e(double x,gsl_sf_result* result); |
28 | -- | 28 | -- |
diff --git a/lib/GSL/Special/Trig.hs b/lib/Numeric/GSL/Special/Trig.hs index 4d37a05..b846c1d 100644 --- a/lib/GSL/Special/Trig.hs +++ b/lib/Numeric/GSL/Special/Trig.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Trig | 3 | Module : Numeric.GSL.Special.Trig |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,11 +14,11 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Trig( | 17 | module Numeric.GSL.Special.Trig( |
18 | sin_e | 18 | sin_e |
19 | , GSL.Special.Trig.sin | 19 | , Numeric.GSL.Special.Trig.sin |
20 | , cos_e | 20 | , cos_e |
21 | , GSL.Special.Trig.cos | 21 | , Numeric.GSL.Special.Trig.cos |
22 | , hypot_e | 22 | , hypot_e |
23 | , hypot | 23 | , hypot |
24 | , sinc_e | 24 | , sinc_e |
@@ -36,7 +36,7 @@ module GSL.Special.Trig( | |||
36 | ) where | 36 | ) where |
37 | 37 | ||
38 | import Foreign(Ptr) | 38 | import Foreign(Ptr) |
39 | import GSL.Special.Internal | 39 | import Numeric.GSL.Special.Internal |
40 | 40 | ||
41 | -- | wrapper for int gsl_sf_sin_e(double x,gsl_sf_result* result); | 41 | -- | wrapper for int gsl_sf_sin_e(double x,gsl_sf_result* result); |
42 | sin_e :: Double -> (Double,Double) | 42 | sin_e :: Double -> (Double,Double) |
diff --git a/lib/GSL/Special/Zeta.hs b/lib/Numeric/GSL/Special/Zeta.hs index 01cfdac..48c8ff1 100644 --- a/lib/GSL/Special/Zeta.hs +++ b/lib/Numeric/GSL/Special/Zeta.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | {- | |
3 | Module : GSL.Special.Zeta | 3 | Module : Numeric.GSL.Special.Zeta |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | Maintainer : Alberto Ruiz (aruiz at um dot es) |
@@ -14,7 +14,7 @@ Wrappers for selected functions described at: | |||
14 | -} | 14 | -} |
15 | ------------------------------------------------------------ | 15 | ------------------------------------------------------------ |
16 | 16 | ||
17 | module GSL.Special.Zeta( | 17 | module Numeric.GSL.Special.Zeta( |
18 | zeta_int_e | 18 | zeta_int_e |
19 | , zeta_int | 19 | , zeta_int |
20 | , zeta_e | 20 | , zeta_e |
@@ -32,7 +32,7 @@ module GSL.Special.Zeta( | |||
32 | ) where | 32 | ) where |
33 | 33 | ||
34 | import Foreign(Ptr) | 34 | import Foreign(Ptr) |
35 | import GSL.Special.Internal | 35 | import Numeric.GSL.Special.Internal |
36 | 36 | ||
37 | -- | wrapper for int gsl_sf_zeta_int_e(int n,gsl_sf_result* result); | 37 | -- | wrapper for int gsl_sf_zeta_int_e(int n,gsl_sf_result* result); |
38 | -- | 38 | -- |
diff --git a/lib/GSL/Special/airy.h b/lib/Numeric/GSL/Special/airy.h index e34e012..e34e012 100644 --- a/lib/GSL/Special/airy.h +++ b/lib/Numeric/GSL/Special/airy.h | |||
diff --git a/lib/GSL/Special/auto.hs b/lib/Numeric/GSL/Special/auto.hs index 0ef7d0a..d2baff6 100644 --- a/lib/GSL/Special/auto.hs +++ b/lib/Numeric/GSL/Special/auto.hs | |||
@@ -60,8 +60,8 @@ main = do | |||
60 | --mapM_ (putStrLn.showFull (name ++".h")) parsed | 60 | --mapM_ (putStrLn.showFull (name ++".h")) parsed |
61 | let exports = rep (")",") where") $ rep ("(\n","(\n ") $ rep (",\n",", ") $ unlines $ ["("]++intersperse "," (map (\(Header _ n _) -> hName n) (filter safe parsed))++[")"] | 61 | let exports = rep (")",") where") $ rep ("(\n","(\n ") $ rep (",\n",", ") $ unlines $ ["("]++intersperse "," (map (\(Header _ n _) -> hName n) (filter safe parsed))++[")"] |
62 | let defs = unlines $ map (showFull (name ++".h")) parsed | 62 | let defs = unlines $ map (showFull (name ++".h")) parsed |
63 | let imports = "\nimport Foreign(Ptr)\nimport GSL.Special.Internal\n" | 63 | let imports = "\nimport Foreign(Ptr)\nimport Numeric.GSL.Special.Internal\n" |
64 | let mod = modhead name ++ "module GSL.Special."++ upperFirst name++exports++imports++defs | 64 | let mod = modhead name ++ "module Numeric.GSL.Special."++ upperFirst name++exports++imports++defs |
65 | writeFile (upperFirst name ++ ".hs") mod | 65 | writeFile (upperFirst name ++ ".hs") mod |
66 | 66 | ||
67 | 67 | ||
@@ -71,7 +71,7 @@ google name = "<http://www.google.com/search?q=" | |||
71 | 71 | ||
72 | modhead name = replicate 60 '-' ++ "\n" | 72 | modhead name = replicate 60 '-' ++ "\n" |
73 | ++"{- |\n" | 73 | ++"{- |\n" |
74 | ++"Module : GSL.Special."++upperFirst name++"\n" | 74 | ++"Module : Numeric.GSL.Special."++upperFirst name++"\n" |
75 | ++"Copyright : (c) Alberto Ruiz 2006\n" | 75 | ++"Copyright : (c) Alberto Ruiz 2006\n" |
76 | ++"License : GPL-style\n" | 76 | ++"License : GPL-style\n" |
77 | ++"Maintainer : Alberto Ruiz (aruiz at um dot es)\n" | 77 | ++"Maintainer : Alberto Ruiz (aruiz at um dot es)\n" |
diff --git a/lib/GSL/Special/autoall.sh b/lib/Numeric/GSL/Special/autoall.sh index cb45957..cb45957 100644 --- a/lib/GSL/Special/autoall.sh +++ b/lib/Numeric/GSL/Special/autoall.sh | |||
diff --git a/lib/GSL/Special/bessel.h b/lib/Numeric/GSL/Special/bessel.h index 5a2445d..5a2445d 100644 --- a/lib/GSL/Special/bessel.h +++ b/lib/Numeric/GSL/Special/bessel.h | |||
diff --git a/lib/GSL/Special/clausen.h b/lib/Numeric/GSL/Special/clausen.h index 9f0225b..9f0225b 100644 --- a/lib/GSL/Special/clausen.h +++ b/lib/Numeric/GSL/Special/clausen.h | |||
diff --git a/lib/GSL/Special/coulomb.h b/lib/Numeric/GSL/Special/coulomb.h index 2551081..2551081 100644 --- a/lib/GSL/Special/coulomb.h +++ b/lib/Numeric/GSL/Special/coulomb.h | |||
diff --git a/lib/GSL/Special/coupling.h b/lib/Numeric/GSL/Special/coupling.h index 17de964..17de964 100644 --- a/lib/GSL/Special/coupling.h +++ b/lib/Numeric/GSL/Special/coupling.h | |||
diff --git a/lib/GSL/Special/dawson.h b/lib/Numeric/GSL/Special/dawson.h index 5f878b5..5f878b5 100644 --- a/lib/GSL/Special/dawson.h +++ b/lib/Numeric/GSL/Special/dawson.h | |||
diff --git a/lib/GSL/Special/debye.h b/lib/Numeric/GSL/Special/debye.h index 2424b63..2424b63 100644 --- a/lib/GSL/Special/debye.h +++ b/lib/Numeric/GSL/Special/debye.h | |||
diff --git a/lib/GSL/Special/dilog.h b/lib/Numeric/GSL/Special/dilog.h index ce1599e..ce1599e 100644 --- a/lib/GSL/Special/dilog.h +++ b/lib/Numeric/GSL/Special/dilog.h | |||
diff --git a/lib/GSL/Special/elementary.h b/lib/Numeric/GSL/Special/elementary.h index bf5adf8..bf5adf8 100644 --- a/lib/GSL/Special/elementary.h +++ b/lib/Numeric/GSL/Special/elementary.h | |||
diff --git a/lib/GSL/Special/ellint.h b/lib/Numeric/GSL/Special/ellint.h index 5329c6c..5329c6c 100644 --- a/lib/GSL/Special/ellint.h +++ b/lib/Numeric/GSL/Special/ellint.h | |||
diff --git a/lib/GSL/Special/erf.h b/lib/Numeric/GSL/Special/erf.h index 17369cf..17369cf 100644 --- a/lib/GSL/Special/erf.h +++ b/lib/Numeric/GSL/Special/erf.h | |||
diff --git a/lib/GSL/Special/exp.h b/lib/Numeric/GSL/Special/exp.h index 20062f0..20062f0 100644 --- a/lib/GSL/Special/exp.h +++ b/lib/Numeric/GSL/Special/exp.h | |||
diff --git a/lib/GSL/Special/expint.h b/lib/Numeric/GSL/Special/expint.h index 1dd469f..1dd469f 100644 --- a/lib/GSL/Special/expint.h +++ b/lib/Numeric/GSL/Special/expint.h | |||
diff --git a/lib/GSL/Special/fermi_dirac.h b/lib/Numeric/GSL/Special/fermi_dirac.h index 7a4c757..7a4c757 100644 --- a/lib/GSL/Special/fermi_dirac.h +++ b/lib/Numeric/GSL/Special/fermi_dirac.h | |||
diff --git a/lib/GSL/Special/gamma.h b/lib/Numeric/GSL/Special/gamma.h index c5cc417..c5cc417 100644 --- a/lib/GSL/Special/gamma.h +++ b/lib/Numeric/GSL/Special/gamma.h | |||
diff --git a/lib/GSL/Special/gegenbauer.h b/lib/Numeric/GSL/Special/gegenbauer.h index 228cbd3..228cbd3 100644 --- a/lib/GSL/Special/gegenbauer.h +++ b/lib/Numeric/GSL/Special/gegenbauer.h | |||
diff --git a/lib/GSL/Special/gsl_sf_exp.h b/lib/Numeric/GSL/Special/gsl_sf_exp.h index b1f0d89..b1f0d89 100644 --- a/lib/GSL/Special/gsl_sf_exp.h +++ b/lib/Numeric/GSL/Special/gsl_sf_exp.h | |||
diff --git a/lib/GSL/Special/gsl_sf_log.h b/lib/Numeric/GSL/Special/gsl_sf_log.h index 5225d05..5225d05 100644 --- a/lib/GSL/Special/gsl_sf_log.h +++ b/lib/Numeric/GSL/Special/gsl_sf_log.h | |||
diff --git a/lib/GSL/Special/hyperg.h b/lib/Numeric/GSL/Special/hyperg.h index aa59106..aa59106 100644 --- a/lib/GSL/Special/hyperg.h +++ b/lib/Numeric/GSL/Special/hyperg.h | |||
diff --git a/lib/GSL/Special/laguerre.h b/lib/Numeric/GSL/Special/laguerre.h index 6275a05..6275a05 100644 --- a/lib/GSL/Special/laguerre.h +++ b/lib/Numeric/GSL/Special/laguerre.h | |||
diff --git a/lib/GSL/Special/lambert.h b/lib/Numeric/GSL/Special/lambert.h index df90d11..df90d11 100644 --- a/lib/GSL/Special/lambert.h +++ b/lib/Numeric/GSL/Special/lambert.h | |||
diff --git a/lib/GSL/Special/legendre.h b/lib/Numeric/GSL/Special/legendre.h index aebe84f..aebe84f 100644 --- a/lib/GSL/Special/legendre.h +++ b/lib/Numeric/GSL/Special/legendre.h | |||
diff --git a/lib/GSL/Special/log.h b/lib/Numeric/GSL/Special/log.h index 5713845..5713845 100644 --- a/lib/GSL/Special/log.h +++ b/lib/Numeric/GSL/Special/log.h | |||
diff --git a/lib/GSL/Special/pow_int.h b/lib/Numeric/GSL/Special/pow_int.h index aba8bc9..aba8bc9 100644 --- a/lib/GSL/Special/pow_int.h +++ b/lib/Numeric/GSL/Special/pow_int.h | |||
diff --git a/lib/GSL/Special/psi.h b/lib/Numeric/GSL/Special/psi.h index 589eb34..589eb34 100644 --- a/lib/GSL/Special/psi.h +++ b/lib/Numeric/GSL/Special/psi.h | |||
diff --git a/lib/GSL/Special/synchrotron.h b/lib/Numeric/GSL/Special/synchrotron.h index 786401c..786401c 100644 --- a/lib/GSL/Special/synchrotron.h +++ b/lib/Numeric/GSL/Special/synchrotron.h | |||
diff --git a/lib/GSL/Special/trig.h b/lib/Numeric/GSL/Special/trig.h index 50677f2..50677f2 100644 --- a/lib/GSL/Special/trig.h +++ b/lib/Numeric/GSL/Special/trig.h | |||
diff --git a/lib/GSL/Special/zeta.h b/lib/Numeric/GSL/Special/zeta.h index b961ece..b961ece 100644 --- a/lib/GSL/Special/zeta.h +++ b/lib/Numeric/GSL/Special/zeta.h | |||
diff --git a/lib/GSL/Vector.hs b/lib/Numeric/GSL/Vector.hs index b405ff8..ef3d5e8 100644 --- a/lib/GSL/Vector.hs +++ b/lib/Numeric/GSL/Vector.hs | |||
@@ -1,7 +1,7 @@ | |||
1 | {-# OPTIONS_GHC -fglasgow-exts #-} | 1 | {-# OPTIONS_GHC -fglasgow-exts #-} |
2 | ----------------------------------------------------------------------------- | 2 | ----------------------------------------------------------------------------- |
3 | -- | | 3 | -- | |
4 | -- Module : GSL.Vector | 4 | -- Module : Numeric.GSL.Vector |
5 | -- Copyright : (c) Alberto Ruiz 2007 | 5 | -- Copyright : (c) Alberto Ruiz 2007 |
6 | -- License : GPL-style | 6 | -- License : GPL-style |
7 | -- | 7 | -- |
@@ -12,8 +12,9 @@ | |||
12 | -- Vector operations | 12 | -- Vector operations |
13 | -- | 13 | -- |
14 | ----------------------------------------------------------------------------- | 14 | ----------------------------------------------------------------------------- |
15 | -- #hide | ||
15 | 16 | ||
16 | module GSL.Vector ( | 17 | module Numeric.GSL.Vector ( |
17 | FunCodeS(..), toScalarR, | 18 | FunCodeS(..), toScalarR, |
18 | FunCodeV(..), vectorMapR, vectorMapC, | 19 | FunCodeV(..), vectorMapR, vectorMapC, |
19 | FunCodeSV(..), vectorMapValR, vectorMapValC, | 20 | FunCodeSV(..), vectorMapValR, vectorMapValC, |
diff --git a/lib/GSL/gsl-aux.c b/lib/Numeric/GSL/gsl-aux.c index c602d5e..c602d5e 100644 --- a/lib/GSL/gsl-aux.c +++ b/lib/Numeric/GSL/gsl-aux.c | |||
diff --git a/lib/GSL/gsl-aux.h b/lib/Numeric/GSL/gsl-aux.h index 3ccac25..3ccac25 100644 --- a/lib/GSL/gsl-aux.h +++ b/lib/Numeric/GSL/gsl-aux.h | |||
diff --git a/lib/LinearAlgebra.hs b/lib/Numeric/LinearAlgebra.hs index d6ef647..f3190a2 100644 --- a/lib/LinearAlgebra.hs +++ b/lib/Numeric/LinearAlgebra.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | ----------------------------------------------------------------------------- | 1 | ----------------------------------------------------------------------------- |
2 | {- | | 2 | {- | |
3 | Module : LinearAlgebra | 3 | Module : Numeric.LinearAlgebra |
4 | Copyright : (c) Alberto Ruiz 2006-7 | 4 | Copyright : (c) Alberto Ruiz 2006-7 |
5 | License : GPL-style | 5 | License : GPL-style |
6 | 6 | ||
@@ -12,16 +12,16 @@ Basic matrix computations implemented by BLAS, LAPACK and GSL. | |||
12 | 12 | ||
13 | -} | 13 | -} |
14 | ----------------------------------------------------------------------------- | 14 | ----------------------------------------------------------------------------- |
15 | module LinearAlgebra ( | 15 | module Numeric.LinearAlgebra ( |
16 | module Data.Packed, | 16 | module Data.Packed, |
17 | module LinearAlgebra.Linear, | 17 | module Numeric.LinearAlgebra.Linear, |
18 | module LinearAlgebra.Algorithms, | 18 | module Numeric.LinearAlgebra.Algorithms, |
19 | module LinearAlgebra.Instances, | 19 | module Numeric.LinearAlgebra.Instances, |
20 | module LinearAlgebra.Interface | 20 | module Numeric.LinearAlgebra.Interface |
21 | ) where | 21 | ) where |
22 | 22 | ||
23 | import Data.Packed | 23 | import Data.Packed |
24 | import LinearAlgebra.Linear | 24 | import Numeric.LinearAlgebra.Linear |
25 | import LinearAlgebra.Algorithms | 25 | import Numeric.LinearAlgebra.Algorithms |
26 | import LinearAlgebra.Instances | 26 | import Numeric.LinearAlgebra.Instances |
27 | import LinearAlgebra.Interface | 27 | import Numeric.LinearAlgebra.Interface |
diff --git a/lib/LinearAlgebra/Algorithms.hs b/lib/Numeric/LinearAlgebra/Algorithms.hs index 682b17f..3513b18 100644 --- a/lib/LinearAlgebra/Algorithms.hs +++ b/lib/Numeric/LinearAlgebra/Algorithms.hs | |||
@@ -1,7 +1,7 @@ | |||
1 | {-# OPTIONS_GHC -fglasgow-exts #-} | 1 | {-# OPTIONS_GHC -fglasgow-exts #-} |
2 | ----------------------------------------------------------------------------- | 2 | ----------------------------------------------------------------------------- |
3 | {- | | 3 | {- | |
4 | Module : LinearAlgebra.Algorithms | 4 | Module : Numeric.LinearAlgebra.Algorithms |
5 | Copyright : (c) Alberto Ruiz 2006-7 | 5 | Copyright : (c) Alberto Ruiz 2006-7 |
6 | License : GPL-style | 6 | License : GPL-style |
7 | 7 | ||
@@ -18,7 +18,7 @@ imported from the LAPACK and GSL.Matrix modules. | |||
18 | -} | 18 | -} |
19 | ----------------------------------------------------------------------------- | 19 | ----------------------------------------------------------------------------- |
20 | 20 | ||
21 | module LinearAlgebra.Algorithms ( | 21 | module Numeric.LinearAlgebra.Algorithms ( |
22 | -- * Linear Systems | 22 | -- * Linear Systems |
23 | linearSolve, | 23 | linearSolve, |
24 | inv, pinv, | 24 | inv, pinv, |
@@ -30,7 +30,7 @@ module LinearAlgebra.Algorithms ( | |||
30 | -- ** Eigensystems | 30 | -- ** Eigensystems |
31 | eig, eigSH, | 31 | eig, eigSH, |
32 | -- ** Other | 32 | -- ** Other |
33 | LinearAlgebra.Algorithms.qr, chol, | 33 | Numeric.LinearAlgebra.Algorithms.qr, chol, |
34 | -- * Nullspace | 34 | -- * Nullspace |
35 | nullspacePrec, | 35 | nullspacePrec, |
36 | nullVector, | 36 | nullVector, |
@@ -44,11 +44,11 @@ module LinearAlgebra.Algorithms ( | |||
44 | 44 | ||
45 | import Data.Packed.Internal hiding (fromComplex, toComplex, comp, conj) | 45 | import Data.Packed.Internal hiding (fromComplex, toComplex, comp, conj) |
46 | import Data.Packed | 46 | import Data.Packed |
47 | import GSL.Matrix(luR,luC,qr) | 47 | import Numeric.GSL.Matrix(luR,luC,qr) |
48 | import GSL.Vector | 48 | import Numeric.GSL.Vector |
49 | import LinearAlgebra.LAPACK as LAPACK | 49 | import Numeric.LinearAlgebra.LAPACK as LAPACK |
50 | import Complex | 50 | import Complex |
51 | import LinearAlgebra.Linear | 51 | import Numeric.LinearAlgebra.Linear |
52 | 52 | ||
53 | -- | Auxiliary typeclass used to define generic computations for both real and complex matrices. | 53 | -- | Auxiliary typeclass used to define generic computations for both real and complex matrices. |
54 | class (Linear Matrix t) => GenMat t where | 54 | class (Linear Matrix t) => GenMat t where |
@@ -93,7 +93,7 @@ chol m | m `equal` ctrans m = cholSH m | |||
93 | | otherwise = error "chol requires positive definite complex hermitian or real symmetric matrix" | 93 | | otherwise = error "chol requires positive definite complex hermitian or real symmetric matrix" |
94 | 94 | ||
95 | qr :: Matrix Double -> (Matrix Double, Matrix Double) | 95 | qr :: Matrix Double -> (Matrix Double, Matrix Double) |
96 | qr = GSL.Matrix.qr | 96 | qr = Numeric.GSL.Matrix.qr |
97 | 97 | ||
98 | square m = rows m == cols m | 98 | square m = rows m == cols m |
99 | 99 | ||
diff --git a/lib/LinearAlgebra/Instances.hs b/lib/Numeric/LinearAlgebra/Instances.hs index 3dbe5a7..388f3da 100644 --- a/lib/LinearAlgebra/Instances.hs +++ b/lib/Numeric/LinearAlgebra/Instances.hs | |||
@@ -1,7 +1,7 @@ | |||
1 | {-# OPTIONS_GHC -fglasgow-exts -fallow-undecidable-instances #-} | 1 | {-# OPTIONS_GHC -fglasgow-exts -fallow-undecidable-instances #-} |
2 | ----------------------------------------------------------------------------- | 2 | ----------------------------------------------------------------------------- |
3 | {- | | 3 | {- | |
4 | Module : LinearAlgebra.Instances | 4 | Module : Numeric.LinearAlgebra.Instances |
5 | Copyright : (c) Alberto Ruiz 2006 | 5 | Copyright : (c) Alberto Ruiz 2006 |
6 | License : GPL-style | 6 | License : GPL-style |
7 | 7 | ||
@@ -16,11 +16,11 @@ In the context of the standard numeric operators, one-component vectors and matr | |||
16 | -} | 16 | -} |
17 | ----------------------------------------------------------------------------- | 17 | ----------------------------------------------------------------------------- |
18 | 18 | ||
19 | module LinearAlgebra.Instances( | 19 | module Numeric.LinearAlgebra.Instances( |
20 | ) where | 20 | ) where |
21 | 21 | ||
22 | import LinearAlgebra.Linear | 22 | import Numeric.LinearAlgebra.Linear |
23 | import GSL.Vector | 23 | import Numeric.GSL.Vector |
24 | import Data.Packed.Matrix | 24 | import Data.Packed.Matrix |
25 | import Data.Packed.Vector | 25 | import Data.Packed.Vector |
26 | import Complex | 26 | import Complex |
diff --git a/lib/LinearAlgebra/Interface.hs b/lib/Numeric/LinearAlgebra/Interface.hs index 0c65a8b..5bd207a 100644 --- a/lib/LinearAlgebra/Interface.hs +++ b/lib/Numeric/LinearAlgebra/Interface.hs | |||
@@ -1,7 +1,7 @@ | |||
1 | {-# OPTIONS_GHC -fglasgow-exts #-} | 1 | {-# OPTIONS_GHC -fglasgow-exts #-} |
2 | ----------------------------------------------------------------------------- | 2 | ----------------------------------------------------------------------------- |
3 | {- | | 3 | {- | |
4 | Module : LinearAlgebra.Interface | 4 | Module : Numeric.LinearAlgebra.Interface |
5 | Copyright : (c) Alberto Ruiz 2006 | 5 | Copyright : (c) Alberto Ruiz 2006 |
6 | License : GPL-style | 6 | License : GPL-style |
7 | 7 | ||
@@ -14,17 +14,17 @@ Operators for frequent operations. | |||
14 | -} | 14 | -} |
15 | ----------------------------------------------------------------------------- | 15 | ----------------------------------------------------------------------------- |
16 | 16 | ||
17 | module LinearAlgebra.Interface( | 17 | module Numeric.LinearAlgebra.Interface( |
18 | (<>),(<.>), | 18 | (<>),(<.>), |
19 | (<\>), | 19 | (<\>), |
20 | (.*),(*/), | 20 | (.*),(*/), |
21 | (<|>),(<->), | 21 | (<|>),(<->), |
22 | ) where | 22 | ) where |
23 | 23 | ||
24 | import LinearAlgebra.Linear | 24 | import Numeric.LinearAlgebra.Linear |
25 | import Data.Packed.Vector | 25 | import Data.Packed.Vector |
26 | import Data.Packed.Matrix | 26 | import Data.Packed.Matrix |
27 | import LinearAlgebra.Algorithms | 27 | import Numeric.LinearAlgebra.Algorithms |
28 | 28 | ||
29 | class Mul a b c | a b -> c where | 29 | class Mul a b c | a b -> c where |
30 | infixl 7 <> | 30 | infixl 7 <> |
diff --git a/lib/LinearAlgebra/LAPACK.hs b/lib/Numeric/LinearAlgebra/LAPACK.hs index c6908e3..648e59f 100644 --- a/lib/LinearAlgebra/LAPACK.hs +++ b/lib/Numeric/LinearAlgebra/LAPACK.hs | |||
@@ -1,7 +1,7 @@ | |||
1 | {-# OPTIONS_GHC -fglasgow-exts #-} | 1 | {-# OPTIONS_GHC -fglasgow-exts #-} |
2 | ----------------------------------------------------------------------------- | 2 | ----------------------------------------------------------------------------- |
3 | -- | | 3 | -- | |
4 | -- Module : LinearAlgebra.LAPACK | 4 | -- Module : Numeric.LinearAlgebra.LAPACK |
5 | -- Copyright : (c) Alberto Ruiz 2006-7 | 5 | -- Copyright : (c) Alberto Ruiz 2006-7 |
6 | -- License : GPL-style | 6 | -- License : GPL-style |
7 | -- | 7 | -- |
@@ -13,7 +13,7 @@ | |||
13 | -- | 13 | -- |
14 | ----------------------------------------------------------------------------- | 14 | ----------------------------------------------------------------------------- |
15 | 15 | ||
16 | module LinearAlgebra.LAPACK ( | 16 | module Numeric.LinearAlgebra.LAPACK ( |
17 | svdR, svdRdd, svdC, | 17 | svdR, svdRdd, svdC, |
18 | eigC, eigR, eigS, eigH, eigS', eigH', | 18 | eigC, eigR, eigS, eigH, eigS', eigH', |
19 | linearSolveR, linearSolveC, | 19 | linearSolveR, linearSolveC, |
@@ -28,7 +28,7 @@ import Data.Packed.Internal.Vector | |||
28 | import Data.Packed.Internal.Matrix | 28 | import Data.Packed.Internal.Matrix |
29 | import Data.Packed.Vector | 29 | import Data.Packed.Vector |
30 | import Data.Packed.Matrix | 30 | import Data.Packed.Matrix |
31 | import GSL.Vector(vectorMapValR, FunCodeSV(Scale)) | 31 | import Numeric.GSL.Vector(vectorMapValR, FunCodeSV(Scale)) |
32 | import Complex | 32 | import Complex |
33 | import Foreign | 33 | import Foreign |
34 | 34 | ||
diff --git a/lib/LinearAlgebra/LAPACK/clapack.h b/lib/Numeric/LinearAlgebra/LAPACK/clapack.h index cad9a4c..cad9a4c 100644 --- a/lib/LinearAlgebra/LAPACK/clapack.h +++ b/lib/Numeric/LinearAlgebra/LAPACK/clapack.h | |||
diff --git a/lib/LinearAlgebra/LAPACK/f2c.h b/lib/Numeric/LinearAlgebra/LAPACK/f2c.h index b94ee7c..b94ee7c 100644 --- a/lib/LinearAlgebra/LAPACK/f2c.h +++ b/lib/Numeric/LinearAlgebra/LAPACK/f2c.h | |||
diff --git a/lib/LinearAlgebra/LAPACK/lapack-aux.c b/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c index 4ef9a6e..4ef9a6e 100644 --- a/lib/LinearAlgebra/LAPACK/lapack-aux.c +++ b/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c | |||
diff --git a/lib/LinearAlgebra/LAPACK/lapack-aux.h b/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h index ea71847..ea71847 100644 --- a/lib/LinearAlgebra/LAPACK/lapack-aux.h +++ b/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h | |||
diff --git a/lib/LinearAlgebra/Linear.hs b/lib/Numeric/LinearAlgebra/Linear.hs index 7cd1a52..a3a0183 100644 --- a/lib/LinearAlgebra/Linear.hs +++ b/lib/Numeric/LinearAlgebra/Linear.hs | |||
@@ -1,7 +1,7 @@ | |||
1 | {-# OPTIONS_GHC -fglasgow-exts #-} | 1 | {-# OPTIONS_GHC -fglasgow-exts #-} |
2 | ----------------------------------------------------------------------------- | 2 | ----------------------------------------------------------------------------- |
3 | {- | | 3 | {- | |
4 | Module : LinearAlgebra.Linear | 4 | Module : Numeric.LinearAlgebra.Linear |
5 | Copyright : (c) Alberto Ruiz 2006-7 | 5 | Copyright : (c) Alberto Ruiz 2006-7 |
6 | License : GPL-style | 6 | License : GPL-style |
7 | 7 | ||
@@ -14,7 +14,7 @@ Basic optimized operations on vectors and matrices. | |||
14 | -} | 14 | -} |
15 | ----------------------------------------------------------------------------- | 15 | ----------------------------------------------------------------------------- |
16 | 16 | ||
17 | module LinearAlgebra.Linear ( | 17 | module Numeric.LinearAlgebra.Linear ( |
18 | Linear(..), | 18 | Linear(..), |
19 | multiply, dot, outer | 19 | multiply, dot, outer |
20 | ) where | 20 | ) where |
@@ -22,7 +22,7 @@ module LinearAlgebra.Linear ( | |||
22 | 22 | ||
23 | import Data.Packed.Internal | 23 | import Data.Packed.Internal |
24 | import Data.Packed | 24 | import Data.Packed |
25 | import GSL.Vector | 25 | import Numeric.GSL.Vector |
26 | import Complex | 26 | import Complex |
27 | 27 | ||
28 | -- | basic optimized operations | 28 | -- | basic optimized operations |