first test for a basic wrapper (and only wrapper!) for cminpack functions

This commit is contained in:
Thomas Capricelli
2009-08-09 03:07:34 +02:00
parent 2b9f110639
commit f19eda7cf6
2 changed files with 33 additions and 11 deletions

View File

@@ -27,4 +27,22 @@
#include <cminpack.h>
template<typename Functor, typename VectorType>
// TODO : fixe Scalar here
int ei_hybrd1(
VectorType &x,
VectorType &fvec,
// ei_traits<VectorType>::Scalar tol
double tol
// = ei::sqrt(machine_epsilon<VectorType::Scalar>())
)
{
typedef typename VectorType::Scalar Scalar;
int lwa = (x.size()*(3*x.size()+13))/2;
VectorType wa(lwa);
fvec.resize(x.size());
return hybrd1(Functor::f, 0, x.size(), x.data(), fvec.data(), tol, wa.data(), lwa);
}
#endif // EIGEN_NONLINEAR_MATHFUNCTIONS_H