From fc88b36a3067269aa0cd74d5aa56b46edb7bd129 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Wed, 2 Nov 2016 18:55:09 +0100 Subject: use new wrappers in gsl functions --- packages/gsl/src/Numeric/GSL/Fitting.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'packages/gsl/src/Numeric/GSL/Fitting.hs') diff --git a/packages/gsl/src/Numeric/GSL/Fitting.hs b/packages/gsl/src/Numeric/GSL/Fitting.hs index 8eb93a7..9a2f665 100644 --- a/packages/gsl/src/Numeric/GSL/Fitting.hs +++ b/packages/gsl/src/Numeric/GSL/Fitting.hs @@ -87,7 +87,7 @@ nlFitGen m f jac xiv epsabs epsrel maxit = unsafePerformIO $ do fp <- mkVecVecfun (aux_vTov (checkdim1 n p . f)) jp <- mkVecMatfun (aux_vTom (checkdim2 n p . jac)) rawpath <- createMatrix RowMajor maxit (2+p) - c_nlfit m fp jp epsabs epsrel (fi maxit) (fi n) # xiv # rawpath #|"c_nlfit" + (xiv `applyRaw` (rawpath `applyRaw` id)) (c_nlfit m fp jp epsabs epsrel (fi maxit) (fi n)) #|"c_nlfit" let it = round (rawpath `atIndex` (maxit-1,0)) path = takeRows it rawpath [sol] = toRows $ dropRows (it-1) path -- cgit v1.2.3