diff options
Diffstat (limited to 'lib/Numeric/GSL/Minimization.hs')
-rw-r--r-- | lib/Numeric/GSL/Minimization.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/lib/Numeric/GSL/Minimization.hs b/lib/Numeric/GSL/Minimization.hs index 23ca51b..e93f8cb 100644 --- a/lib/Numeric/GSL/Minimization.hs +++ b/lib/Numeric/GSL/Minimization.hs | |||
@@ -150,11 +150,9 @@ minimizeConjugateGradient istep minimpar tol maxit f df xi = unsafePerformIO $ d | |||
150 | df' = (fromList . df . toList) | 150 | df' = (fromList . df . toList) |
151 | fp <- mkVecfun (iv f') | 151 | fp <- mkVecfun (iv f') |
152 | dfp <- mkVecVecfun (aux_vTov df') | 152 | dfp <- mkVecVecfun (aux_vTov df') |
153 | print "entro" | ||
154 | rawpath <- createMIO maxit (n+2) | 153 | rawpath <- createMIO maxit (n+2) |
155 | (c_minimizeConjugateGradient fp dfp istep minimpar tol maxit // vec xiv) | 154 | (c_minimizeConjugateGradient fp dfp istep minimpar tol maxit // vec xiv) |
156 | "minimizeDerivV" [xiv] | 155 | "minimizeDerivV" [xiv] |
157 | print "salgo" | ||
158 | let it = round (rawpath @@> (maxit-1,0)) | 156 | let it = round (rawpath @@> (maxit-1,0)) |
159 | path = takeRows it rawpath | 157 | path = takeRows it rawpath |
160 | sol = toList $ cdat $ dropColumns 2 $ dropRows (it-1) path | 158 | sol = toList $ cdat $ dropColumns 2 $ dropRows (it-1) path |