integrate_1d_double_exponential.hpp

Go to the documentation of this file.

#ifndef STAN_MATH_REV_FUNCTOR_INTEGRATE_1D_DOUBLE_EXPONENTIAL_HPP
#define STAN_MATH_REV_FUNCTOR_INTEGRATE_1D_DOUBLE_EXPONENTIAL_HPP
 
#include <stan/math/rev/meta.hpp>
#include <stan/math/rev/fun/value_of.hpp>
#include <stan/math/rev/functor/integrate_1d_adjoint.hpp>
#include <stan/math/prim/meta.hpp>
#include <stan/math/prim/err.hpp>
#include <stan/math/prim/fun/constants.hpp>
#include <stan/math/prim/functor/integrate_1d_double_exponential.hpp>
#include <cmath>
#include <ostream>
#include <vector>
 
namespace stan {
namespace math {
 
template <typename F, typename T_a, typename T_b, typename... Args,
          require_any_st_var<T_a, T_b, Args...> * = nullptr>
inline return_type_t<T_a, T_b, Args...> integrate_1d_double_exponential_tol(
    const F &f, const T_a &a, const T_b &b, double relative_tolerance,
    double absolute_tolerance, int max_refinements, std::ostream *msgs,
    const Args &... args) {
  static constexpr const char *function = "integrate_1d_double_exponential";
  check_less_or_equal(function, "lower limit", a, b);
  check_nonnegative(function, "max_refinements", max_refinements);
  check_nonnegative(function, "absolute_tolerance", absolute_tolerance);
  return internal::integrate_1d_adjoint(
      function, f, a, b,
      [&](auto &&integrand) {
        return integrate_de(std::forward<decltype(integrand)>(integrand),
                            value_of(a), value_of(b), relative_tolerance,
                            absolute_tolerance, max_refinements);
      },
      msgs, args...);
}
 
template <typename F, typename T_a, typename T_b, typename... Args,
          require_any_st_var<T_a, T_b, Args...> * = nullptr>
inline return_type_t<T_a, T_b, Args...> integrate_1d_double_exponential(
    const F &f, const T_a &a, const T_b &b, std::ostream *msgs,
    const Args &... args) {
  return integrate_1d_double_exponential_tol(
      f, a, b, std::sqrt(EPSILON), 0.0,
      INTEGRATE_1D_DOUBLE_EXPONENTIAL_MAX_REFINEMENTS, msgs, args...);
}
 
}  // namespace math
}  // namespace stan
 
#endif