scale_matrix_exp_multiply.hpp

Go to the documentation of this file.

#ifndef STAN_MATH_PRIM_FUN_SCALE_MATRIX_EXP_MULTIPLY_HPP
#define STAN_MATH_PRIM_FUN_SCALE_MATRIX_EXP_MULTIPLY_HPP
 
#include <stan/math/prim/meta.hpp>
#include <stan/math/prim/err.hpp>
#include <stan/math/prim/fun/matrix_exp.hpp>
#include <stan/math/prim/fun/matrix_exp_action_handler.hpp>
#include <stan/math/prim/fun/multiply.hpp>
 
namespace stan {
namespace math {
 
template <typename EigMat1, typename EigMat2,
          require_all_eigen_vt<std::is_arithmetic, EigMat1, EigMat2>* = nullptr>
inline Eigen::Matrix<double, Eigen::Dynamic,
                     std::decay_t<EigMat2>::ColsAtCompileTime>
scale_matrix_exp_multiply(const double t, EigMat1&& A, EigMat2&& B) {
  check_square("scale_matrix_exp_multiply", "input matrix", A);
  check_multiplicable("scale_matrix_exp_multiply", "A", A, "B", B);
  if (A.size() == 0) {
    return {0, B.cols()};
  }
  return matrix_exp_action_handler().action(
      to_ref(std::forward<EigMat1>(A)), to_ref(std::forward<EigMat2>(B)), t);
}
 
template <typename Tt, typename EigMat1, typename EigMat2,
          require_all_eigen_t<EigMat1, EigMat2>* = nullptr,
          require_any_autodiff_scalar_t<Tt, value_type_t<EigMat1>,
                                        value_type_t<EigMat2>>* = nullptr>
inline Eigen::Matrix<return_type_t<Tt, EigMat1, EigMat2>, Eigen::Dynamic,
                     std::decay_t<EigMat2>::ColsAtCompileTime>
scale_matrix_exp_multiply(const Tt t, EigMat1&& A, EigMat2&& B) {
  check_square("scale_matrix_exp_multiply", "input matrix", A);
  check_multiplicable("scale_matrix_exp_multiply", "A", A, "B", B);
  if (A.size() == 0) {
    return {0, B.cols()};
  }
  return multiply(matrix_exp(multiply(to_ref(std::forward<EigMat1>(A)), t)),
                  to_ref(std::forward<EigMat2>(B)));
}
 
}  // namespace math
}  // namespace stan
#endif