diff --git a/bindings-gsl.cabal b/bindings-gsl.cabal --- a/bindings-gsl.cabal +++ b/bindings-gsl.cabal @@ -3,7 +3,7 @@ homepage: http://bitbucket.org/mauricio/bindings-gsl synopsis: Low level bindings to GNU GSL. -version: 0.0.1 +version: 0.0.2 license: BSD3 license-file: LICENSE maintainer: Maurício C. Antunes @@ -20,7 +20,9 @@ bindings-common >= 1.3 && < 1.4 exposed-modules: Bindings.Gsl.Eigensystems + Bindings.Gsl.LeastSquaresFitting Bindings.Gsl.Mode + Bindings.Gsl.NonlinearLeastSquaresFitting Bindings.Gsl.SpecialFunctions Bindings.Gsl.VectorsAndMatrices Bindings.Gsl.Version diff --git a/src/Bindings/Gsl/LeastSquaresFitting.hsc b/src/Bindings/Gsl/LeastSquaresFitting.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/Gsl/LeastSquaresFitting.hsc @@ -0,0 +1,29 @@ +#include +#include + +-- | + +module Bindings.Gsl.LeastSquaresFitting where +#strict_import + +#ccall gsl_fit_linear , Ptr CDouble -> CSize -> \ + Ptr CDouble -> CSize -> CSize -> Ptr CDouble -> \ + Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> \ + Ptr CDouble -> Ptr CDouble -> IO CInt +#ccall gsl_fit_wlinear , Ptr CDouble -> CSize -> \ + Ptr CDouble -> CSize -> Ptr CDouble -> CSize -> \ + CSize -> Ptr CDouble -> Ptr CDouble -> \ + Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> \ + Ptr CDouble -> IO CInt +#ccall gsl_fit_linear_est , CDouble -> CDouble -> \ + CDouble -> CDouble -> CDouble -> CDouble -> \ + Ptr CDouble -> Ptr CDouble -> IO CInt +#ccall gsl_fit_mul , Ptr CDouble -> CSize -> \ + Ptr CDouble -> CSize -> CSize -> Ptr CDouble -> \ + Ptr CDouble -> Ptr CDouble -> IO CInt +#ccall gsl_fit_wmul , Ptr CDouble -> CSize -> \ + Ptr CDouble -> CSize -> Ptr CDouble -> CSize -> \ + CSize -> Ptr CDouble -> Ptr CDouble -> \ + Ptr CDouble -> IO CInt +#ccall gsl_fit_mul_est , CDouble -> CDouble -> \ + CDouble -> Ptr CDouble -> Ptr CDouble -> IO CInt diff --git a/src/Bindings/Gsl/NonlinearLeastSquaresFitting.hsc b/src/Bindings/Gsl/NonlinearLeastSquaresFitting.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/Gsl/NonlinearLeastSquaresFitting.hsc @@ -0,0 +1,114 @@ +#include +#include + +-- | + +module Bindings.Gsl.NonlinearLeastSquaresFitting where +#strict_import +import Bindings.Gsl.VectorsAndMatrices + +#ccall gsl_multifit_gradient , Ptr -> \ + Ptr -> Ptr -> IO CInt +#ccall gsl_multifit_covar , Ptr -> CDouble -> \ + Ptr -> IO CInt + +#starttype gsl_multifit_function +#field f , FunPtr (Ptr -> Ptr () -> Ptr -> IO ()) +#field n , CSize +#field p , CSize +#field params , Ptr () +#stoptype + +#cinline GSL_MULTIFIT_FN_EVAL , Ptr -> \ + Ptr -> Ptr -> IO () + +#starttype gsl_multifit_fsolver_type +#field name , CString +#field size , CSize +#field alloc , FunPtr (Ptr () -> CSize -> CSize -> IO CInt) +#field set , FunPtr (Ptr () -> Ptr -> \ + Ptr -> Ptr -> Ptr -> IO CInt) +#field iterate , FunPtr (Ptr () -> Ptr -> \ + Ptr -> Ptr -> Ptr -> IO CInt) +#field free , FunPtr (Ptr () -> IO ()) +#stoptype + +#starttype gsl_multifit_fsolver +#field type , Ptr +#field function , Ptr +#field x , Ptr +#field f , Ptr +#field dx , Ptr +#field state , Ptr () +#stoptype + +#ccall gsl_multifit_fsolver_alloc , Ptr -> \ + CSize -> CSize -> IO (Ptr ) +#ccall gsl_multifit_fsolver_free , Ptr -> IO () +#ccall gsl_multifit_fsolver_set , Ptr -> \ + Ptr -> Ptr -> IO CInt +#ccall gsl_multifit_fsolver_iterate , Ptr -> IO CInt +#ccall gsl_multifit_fsolver_name , Ptr -> IO CString +#ccall gsl_multifit_fsolver_position , Ptr -> \ + IO (Ptr ) + +#starttype gsl_multifit_function_fdf +#field f , FunPtr (Ptr -> Ptr () -> \ + Ptr -> IO CInt) +#field df , FunPtr (Ptr -> Ptr () -> \ + Ptr -> IO CInt) +#field fdf , FunPtr (Ptr -> Ptr () -> Ptr -> \ + Ptr -> IO CInt) +#field n , CSize +#field p , CSize +#field params , Ptr () +#stoptype + +#cinline GSL_MULTIFIT_FN_EVAL_F , Ptr -> \ + Ptr -> Ptr -> IO CInt +#cinline GSL_MULTIFIT_FN_EVAL_DF , Ptr -> \ + Ptr -> Ptr -> IO CInt +#cinline GSL_MULTIFIT_FN_EVAL_F_DF , Ptr -> \ + Ptr -> Ptr -> Ptr -> IO CInt + +#starttype gsl_multifit_fdfsolver_type +#field name , CString +#field size , CSize +#field alloc , FunPtr (Ptr () -> CSize -> CSize -> IO CInt) +#field set , FunPtr (Ptr () -> Ptr -> \ + Ptr -> Ptr -> Ptr -> \ + Ptr -> IO CInt) +#field iterate , FunPtr (Ptr () -> Ptr -> \ + Ptr -> Ptr -> Ptr -> \ + Ptr -> IO CInt) +#field free , FunPtr (Ptr () -> IO ()) +#stoptype + +#starttype gsl_multifit_fdfsolver +#field type , Ptr +#field fdf , Ptr +#field x , Ptr +#field f , Ptr +#field J , Ptr +#field dx , Ptr +#field state , Ptr () +#stoptype + +#ccall gsl_multifit_fdfsolver_alloc , Ptr -> \ + CSize -> CSize -> IO (Ptr ) +#ccall gsl_multifit_fdfsolver_set , Ptr -> \ + Ptr -> Ptr -> IO CInt +#ccall gsl_multifit_fdfsolver_iterate , Ptr -> \ + IO CInt +#ccall gsl_multifit_fdfsolver_free , Ptr -> IO () +#ccall gsl_multifit_fdfsolver_name , Ptr -> \ + IO CString +#ccall gsl_multifit_fdfsolver_position , Ptr -> \ + IO (Ptr ) +#ccall gsl_multifit_test_delta , Ptr -> \ + Ptr -> CDouble -> CDouble -> IO CInt +#ccall gsl_multifit_test_gradient , Ptr -> CDouble -> IO CInt + +#globalvar gsl_multifit_fdfsolver_lmder , Ptr +#globalvar gsl_multifit_fdfsolver_lmsder , Ptr + diff --git a/src/Bindings/Gsl/SpecialFunctions.hsc b/src/Bindings/Gsl/SpecialFunctions.hsc --- a/src/Bindings/Gsl/SpecialFunctions.hsc +++ b/src/Bindings/Gsl/SpecialFunctions.hsc @@ -1,6 +1,8 @@ #include #include +-- | + module Bindings.Gsl.SpecialFunctions where #strict_import import Bindings.Gsl.Eigensystems diff --git a/src/inlines.c b/src/inlines.c --- a/src/inlines.c +++ b/src/inlines.c @@ -12,3 +12,29 @@ return GSL_MODE_PREC(mt); } +#include + +void inline_GSL_MULTIFIT_FN_EVAL (gsl_multifit_function *f, + gsl_vector *x, gsl_vector *y) +{ + return GSL_MULTIFIT_FN_EVAL (f,x,y); +} + +int inline_GSL_MULTIFIT_FN_EVAL_F (gsl_multifit_function_fdf *f, + gsl_vector *x, gsl_vector *y) +{ + return GSL_MULTIFIT_FN_EVAL_F (f,x,y); +} + +int inline_GSL_MULTIFIT_FN_EVAL_DF (gsl_multifit_function_fdf *f, + gsl_vector *x, gsl_matrix *dy) +{ + return GSL_MULTIFIT_FN_EVAL_DF (f,x,dy); +} + +int inline_GSL_MULTIFIT_FN_EVAL_F_DF (gsl_multifit_function_fdf *f, + gsl_vector *x, gsl_vector *y, gsl_matrix *dy) +{ + return GSL_MULTIFIT_FN_EVAL_F_DF (f,x,y,dy); +} +