diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-11-22 17:03:41 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-11-22 17:03:41 +0000 |
| commit | 01a14ad32e0fd8586498ead61a426f20b724652b (patch) | |
| tree | b894c4d09700c2cf1f6abf2c89e6df81eebddb71 /lib/Numeric/GSL/Polynomials.hs | |
| parent | 2f45fdd97f80c0ffd0e10cce68d1cd24a43696c0 (diff) | |
app1, app2, ...
Diffstat (limited to 'lib/Numeric/GSL/Polynomials.hs')
| -rw-r--r-- | lib/Numeric/GSL/Polynomials.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Numeric/GSL/Polynomials.hs b/lib/Numeric/GSL/Polynomials.hs index e663711..3e0cf81 100644 --- a/lib/Numeric/GSL/Polynomials.hs +++ b/lib/Numeric/GSL/Polynomials.hs | |||
| @@ -47,8 +47,7 @@ polySolve = toList . polySolve' . fromList | |||
| 47 | polySolve' :: Vector Double -> Vector (Complex Double) | 47 | polySolve' :: Vector Double -> Vector (Complex Double) |
| 48 | polySolve' v | dim v > 1 = unsafePerformIO $ do | 48 | polySolve' v | dim v > 1 = unsafePerformIO $ do |
| 49 | r <- createVector (dim v-1) | 49 | r <- createVector (dim v-1) |
| 50 | ww2 withVector v withVector r $ \ v r -> | 50 | app2 c_polySolve vec v vec r "polySolve" |
| 51 | c_polySolve // v // r // check "polySolve" | ||
| 52 | return r | 51 | return r |
| 53 | | otherwise = error "polySolve on a polynomial of degree zero" | 52 | | otherwise = error "polySolve on a polynomial of degree zero" |
| 54 | 53 | ||