summaryrefslogtreecommitdiff
path: root/packages/gsl/src/Numeric
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2016-02-02 19:39:55 +0100
committerAlberto Ruiz <aruiz@um.es>2016-02-02 19:39:55 +0100
commitfed0dfb842f2424b0b198fe7c04b337abd3fe5c2 (patch)
tree5ca021cde15c6add46919718bf52613caeec3c3e /packages/gsl/src/Numeric
parent95c7cc6303fdb0af3ca0e1fc08cfe3ebf2674814 (diff)
parent858121cdcc6c24cb15e28e1c4c2b3050ef53fe00 (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.hs5
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{- |
2Module : Numeric.GSL.Polynomials 3Module : Numeric.GSL.Polynomials
3Copyright : (c) Alberto Ruiz 2006 4Copyright : (c) Alberto Ruiz 2006
@@ -24,7 +25,7 @@ import System.IO.Unsafe (unsafePerformIO)
24import Foreign.C.Types (CInt(..)) 25import 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
29For example, the three solutions of x^3 + 8 = 0 30For 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:
410.30901699437494756 :+ (-0.9510565162951535), 420.30901699437494756 :+ (-0.9510565162951535),
421.0000000000000002 :+ 0.0] 431.0000000000000002 :+ 0.0]
43 44
44-} 45-}
45polySolve :: [Double] -> [Complex Double] 46polySolve :: [Double] -> [Complex Double]
46polySolve = toList . polySolve' . fromList 47polySolve = toList . polySolve' . fromList
47 48