diff options
Diffstat (limited to 'packages/gsl')
-rw-r--r-- | packages/gsl/hmatrix-gsl.cabal | 3 | ||||
-rw-r--r-- | packages/gsl/src/Numeric/GSL/Polynomials.hs | 5 |
2 files changed, 4 insertions, 4 deletions
diff --git a/packages/gsl/hmatrix-gsl.cabal b/packages/gsl/hmatrix-gsl.cabal index d009994..bfd1abf 100644 --- a/packages/gsl/hmatrix-gsl.cabal +++ b/packages/gsl/hmatrix-gsl.cabal | |||
@@ -29,8 +29,7 @@ library | |||
29 | process, random | 29 | process, random |
30 | 30 | ||
31 | 31 | ||
32 | Extensions: ForeignFunctionInterface, | 32 | Extensions: ForeignFunctionInterface |
33 | CPP | ||
34 | 33 | ||
35 | hs-source-dirs: src | 34 | hs-source-dirs: src |
36 | Exposed-modules: Numeric.GSL.Differentiation, | 35 | Exposed-modules: Numeric.GSL.Differentiation, |
diff --git a/packages/gsl/src/Numeric/GSL/Polynomials.hs b/packages/gsl/src/Numeric/GSL/Polynomials.hs index 8890f8f..46a31f3 100644 --- a/packages/gsl/src/Numeric/GSL/Polynomials.hs +++ b/packages/gsl/src/Numeric/GSL/Polynomials.hs | |||
@@ -1,3 +1,4 @@ | |||
1 | {-# LANGUAGE CPP #-} | ||
1 | {- | | 2 | {- | |
2 | Module : Numeric.GSL.Polynomials | 3 | Module : Numeric.GSL.Polynomials |
3 | Copyright : (c) Alberto Ruiz 2006 | 4 | Copyright : (c) Alberto Ruiz 2006 |
@@ -24,7 +25,7 @@ import System.IO.Unsafe (unsafePerformIO) | |||
24 | import Foreign.C.Types (CInt(..)) | 25 | import Foreign.C.Types (CInt(..)) |
25 | #endif | 26 | #endif |
26 | 27 | ||
27 | {- | Solution of general polynomial equations, using /gsl_poly_complex_solve/. | 28 | {- | Solution of general polynomial equations, using /gsl_poly_complex_solve/. |
28 | 29 | ||
29 | For example, the three solutions of x^3 + 8 = 0 | 30 | For example, the three solutions of x^3 + 8 = 0 |
30 | 31 | ||
@@ -41,7 +42,7 @@ The example in the GSL manual: To find the roots of x^5 -1 = 0: | |||
41 | 0.30901699437494756 :+ (-0.9510565162951535), | 42 | 0.30901699437494756 :+ (-0.9510565162951535), |
42 | 1.0000000000000002 :+ 0.0] | 43 | 1.0000000000000002 :+ 0.0] |
43 | 44 | ||
44 | -} | 45 | -} |
45 | polySolve :: [Double] -> [Complex Double] | 46 | polySolve :: [Double] -> [Complex Double] |
46 | polySolve = toList . polySolve' . fromList | 47 | polySolve = toList . polySolve' . fromList |
47 | 48 | ||