diff options
author | Alberto Ruiz <aruiz@um.es> | 2016-02-02 19:39:55 +0100 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2016-02-02 19:39:55 +0100 |
commit | fed0dfb842f2424b0b198fe7c04b337abd3fe5c2 (patch) | |
tree | 5ca021cde15c6add46919718bf52613caeec3c3e /packages/gsl/src/Numeric | |
parent | 95c7cc6303fdb0af3ca0e1fc08cfe3ebf2674814 (diff) | |
parent | 858121cdcc6c24cb15e28e1c4c2b3050ef53fe00 (diff) |
Merge pull request #175 from sid-kap/fix_cpp
Remove CPP option from cabal files
Diffstat (limited to 'packages/gsl/src/Numeric')
-rw-r--r-- | packages/gsl/src/Numeric/GSL/Polynomials.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 | ||