1 #ifndef STAN_MATH_MIX_MAT_FUNCTOR_FINITE_DIFF_GRAD_HESSIAN_HPP
2 #define STAN_MATH_MIX_MAT_FUNCTOR_FINITE_DIFF_GRAD_HESSIAN_HPP
44 const Eigen::Matrix<double, -1, 1>& x,
46 Eigen::Matrix<double, -1, -1>& hess,
47 std::vector<Eigen::Matrix<double, -1, -1> >&
49 const double epsilon = 1
e-04) {
56 Matrix<double, Dynamic, 1> x_temp(x);
57 Matrix<double, Dynamic, 1> grad_auto(d);
58 Matrix<double, Dynamic, Dynamic> hess_auto(d, d);
59 Matrix<double, Dynamic, Dynamic> hess_diff(d, d);
61 hessian(f, x, fx, grad_auto, hess);
62 for (
int i = 0; i < d; ++i) {
65 x_temp(i) = x(i) + 2.0 * epsilon;
66 hessian(f, x_temp, dummy_fx_eval, grad_auto, hess_auto);
67 hess_diff = -hess_auto;
69 x_temp(i) = x(i) + -2.0 * epsilon;
70 hessian(f, x_temp, dummy_fx_eval, grad_auto, hess_auto);
71 hess_diff += hess_auto;
73 x_temp(i) = x(i) + epsilon;
74 hessian(f, x_temp, dummy_fx_eval, grad_auto, hess_auto);
75 hess_diff += 8.0 * hess_auto;
77 x_temp(i) = x(i) + -epsilon;
78 hessian(f, x_temp, dummy_fx_eval, grad_auto, hess_auto);
79 hess_diff -= 8.0 * hess_auto;
82 hess_diff /= 12.0 * epsilon;
84 grad_hess_fx.push_back(hess_diff);
void finite_diff_grad_hessian(const F &f, const Eigen::Matrix< double,-1, 1 > &x, double &fx, Eigen::Matrix< double,-1,-1 > &hess, std::vector< Eigen::Matrix< double,-1,-1 > > &grad_hess_fx, const double epsilon=1e-04)
Calculate the value and the gradient of the hessian of the specified function at the specified argume...
double e()
Return the base of the natural logarithm.
void hessian(const F &f, const Eigen::Matrix< double, Dynamic, 1 > &x, double &fx, Eigen::Matrix< double, Dynamic, 1 > &grad, Eigen::Matrix< double, Dynamic, Dynamic > &H)
Calculate the value, the gradient, and the Hessian, of the specified function at the specified argume...