summaryrefslogtreecommitdiff
path: root/packages/gsl/src
diff options
context:
space:
mode:
Diffstat (limited to 'packages/gsl/src')
-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