summaryrefslogtreecommitdiff
path: root/packages/gsl
diff options
context:
space:
mode:
authorSidharth Kapur <sidharthkapur1@gmail.com>2016-02-01 17:40:40 -0600
committerSidharth Kapur <sidharthkapur1@gmail.com>2016-02-01 17:40:40 -0600
commit8bdb87764762ef43b186bcc04caa404928df22fa (patch)
tree861ca45cf23cc3316ca3d6ada3bd0d0152fc177c /packages/gsl
parent95c7cc6303fdb0af3ca0e1fc08cfe3ebf2674814 (diff)
some work (will probably undo this commit later)
Diffstat (limited to 'packages/gsl')
-rw-r--r--packages/gsl/hmatrix-gsl.cabal3
-rw-r--r--packages/gsl/src/Numeric/GSL/Polynomials.hs5
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{- |
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