diff options
Diffstat (limited to 'lib/Numeric/GSL/Minimization.hs')
-rw-r--r-- | lib/Numeric/GSL/Minimization.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Numeric/GSL/Minimization.hs b/lib/Numeric/GSL/Minimization.hs index 3240ddf..3bbb2b3 100644 --- a/lib/Numeric/GSL/Minimization.hs +++ b/lib/Numeric/GSL/Minimization.hs | |||
@@ -109,7 +109,7 @@ ww2 w1 o1 w2 o2 f = w1 o1 $ \a1 -> w2 o2 $ \a2 -> f a1 a2 | |||
109 | minimizeV method eps maxit szv f xiv = unsafePerformIO $ do | 109 | minimizeV method eps maxit szv f xiv = unsafePerformIO $ do |
110 | let n = dim xiv | 110 | let n = dim xiv |
111 | fp <- mkVecfun (iv f) | 111 | fp <- mkVecfun (iv f) |
112 | rawpath <- ww2 withVector xiv withVector szv $ \xiv' szv' -> | 112 | rawpath <- ww2 vec xiv vec szv $ \xiv' szv' -> |
113 | createMIO maxit (n+3) | 113 | createMIO maxit (n+3) |
114 | (c_minimize (fi (fromEnum method)) fp eps (fi maxit) // xiv' // szv') | 114 | (c_minimize (fi (fromEnum method)) fp eps (fi maxit) // xiv' // szv') |
115 | "minimize" | 115 | "minimize" |
@@ -166,7 +166,7 @@ minimizeVD method eps maxit istep tol f df xiv = unsafePerformIO $ do | |||
166 | df' = (checkdim1 n . df) | 166 | df' = (checkdim1 n . df) |
167 | fp <- mkVecfun (iv f') | 167 | fp <- mkVecfun (iv f') |
168 | dfp <- mkVecVecfun (aux_vTov df') | 168 | dfp <- mkVecVecfun (aux_vTov df') |
169 | rawpath <- withVector xiv $ \xiv' -> | 169 | rawpath <- vec xiv $ \xiv' -> |
170 | createMIO maxit (n+2) | 170 | createMIO maxit (n+2) |
171 | (c_minimizeD (fi (fromEnum method)) fp dfp istep tol eps (fi maxit) // xiv') | 171 | (c_minimizeD (fi (fromEnum method)) fp dfp istep tol eps (fi maxit) // xiv') |
172 | "minimizeD" | 172 | "minimizeD" |