diff options
author | Sidharth Kapur <sidharthkapur1@gmail.com> | 2016-02-01 17:40:40 -0600 |
---|---|---|
committer | Sidharth Kapur <sidharthkapur1@gmail.com> | 2016-02-01 17:40:40 -0600 |
commit | 8bdb87764762ef43b186bcc04caa404928df22fa (patch) | |
tree | 861ca45cf23cc3316ca3d6ada3bd0d0152fc177c /packages/gsl/src/Numeric | |
parent | 95c7cc6303fdb0af3ca0e1fc08cfe3ebf2674814 (diff) |
some work (will probably undo this commit later)
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 | ||