From d9120345659fabbb14342cd2a4ced0e541d1076e Mon Sep 17 00:00:00 2001 From: Thomas Capricelli Date: Mon, 28 Sep 2009 03:49:23 +0200 Subject: fdjac2 is not needed anymore --- unsupported/Eigen/src/NonLinear/fdjac2.h | 35 -------------------------------- 1 file changed, 35 deletions(-) delete mode 100644 unsupported/Eigen/src/NonLinear/fdjac2.h (limited to 'unsupported/Eigen/src') diff --git a/unsupported/Eigen/src/NonLinear/fdjac2.h b/unsupported/Eigen/src/NonLinear/fdjac2.h deleted file mode 100644 index cb360d84c..000000000 --- a/unsupported/Eigen/src/NonLinear/fdjac2.h +++ /dev/null @@ -1,35 +0,0 @@ - -template -int ei_fdjac2( - const FunctorType &Functor, - Matrix< Scalar, Dynamic, 1 > &x, - Matrix< Scalar, Dynamic, 1 > &fvec, - Matrix< Scalar, Dynamic, Dynamic > &fjac, - Scalar epsfcn) -{ - /* Local variables */ - Scalar h, temp; - int iflag; - - /* Function Body */ - const Scalar epsmch = epsilon(); - const int n = x.size(); - const Scalar eps = ei_sqrt((std::max(epsfcn,epsmch))); - Matrix< Scalar, Dynamic, 1 > wa(fvec.size()); - - for (int j = 0; j < n; ++j) { - temp = x[j]; - h = eps * ei_abs(temp); - if (h == 0.) { - h = eps; - } - x[j] = temp + h; - iflag = Functor(x, wa); - if (iflag < 0) - return iflag; - x[j] = temp; - fjac.col(j) = (wa-fvec)/h; - } - return iflag; -} - -- cgit v1.2.3