summaryrefslogtreecommitdiff
path: root/lib/Numeric/GSL/Minimization.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Numeric/GSL/Minimization.hs')
-rw-r--r--lib/Numeric/GSL/Minimization.hs2
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