quad_form.hpp

Go to the documentation of this file.

#ifndef STAN_MATH_REV_FUN_QUAD_FORM_HPP
#define STAN_MATH_REV_FUN_QUAD_FORM_HPP
 
#include <stan/math/rev/meta.hpp>
#include <stan/math/rev/core.hpp>
#include <stan/math/rev/fun/to_var_value.hpp>
#include <stan/math/prim/err.hpp>
#include <stan/math/prim/fun/Eigen.hpp>
#include <stan/math/prim/fun/quad_form.hpp>
#include <stan/math/prim/fun/typedefs.hpp>
#include <stan/math/prim/fun/value_of.hpp>
#include <type_traits>
 
namespace stan {
namespace math {
 
namespace internal {
template <typename Ta, int Ra, int Ca, typename Tb, int Rb, int Cb>
class quad_form_vari_alloc : public chainable_alloc {
 private:
  inline void compute(const Eigen::Matrix<double, Ra, Ca>& A,
                      const Eigen::Matrix<double, Rb, Cb>& B) {
    matrix_d Cd = B.transpose() * A * B;
    if (sym_) {
      matrix_d M = 0.5 * (Cd + Cd.transpose());
      Cd = M;
    }
    for (int j = 0; j < C_.cols(); j++) {
      for (int i = 0; i < C_.rows(); i++) {
        C_(i, j) = var(new vari(Cd(i, j), false));
      }
    }
  }
 
 public:
  quad_form_vari_alloc(const Eigen::Matrix<Ta, Ra, Ca>& A,
                       const Eigen::Matrix<Tb, Rb, Cb>& B,
                       bool symmetric = false)
      : A_(A), B_(B), C_(B_.cols(), B_.cols()), sym_(symmetric) {
    compute(value_of(A), value_of(B));
  }
 
  Eigen::Matrix<Ta, Ra, Ca> A_;
  Eigen::Matrix<Tb, Rb, Cb> B_;
  Eigen::Matrix<var, Cb, Cb> C_;
  bool sym_;
};
 
template <typename Ta, int Ra, int Ca, typename Tb, int Rb, int Cb>
class quad_form_vari : public vari {
 protected:
  inline void chainA(Eigen::Matrix<double, Ra, Ca>& A,
                     const Eigen::Matrix<double, Rb, Cb>& Bd,
                     const Eigen::Matrix<double, Cb, Cb>& adjC) {}
  inline void chainB(Eigen::Matrix<double, Rb, Cb>& B,
                     const Eigen::Matrix<double, Ra, Ca>& Ad,
                     const Eigen::Matrix<double, Rb, Cb>& Bd,
                     const Eigen::Matrix<double, Cb, Cb>& adjC) {}
 
  inline void chainA(Eigen::Matrix<var, Ra, Ca>& A,
                     const Eigen::Matrix<double, Rb, Cb>& Bd,
                     const Eigen::Matrix<double, Cb, Cb>& adjC) {
    A.adj() += Bd * adjC * Bd.transpose();
  }
  inline void chainB(Eigen::Matrix<var, Rb, Cb>& B,
                     const Eigen::Matrix<double, Ra, Ca>& Ad,
                     const Eigen::Matrix<double, Rb, Cb>& Bd,
                     const Eigen::Matrix<double, Cb, Cb>& adjC) {
    B.adj() += Ad * Bd * adjC.transpose() + Ad.transpose() * Bd * adjC;
  }
 
  inline void chainAB(Eigen::Matrix<Ta, Ra, Ca>& A,
                      Eigen::Matrix<Tb, Rb, Cb>& B,
                      const Eigen::Matrix<double, Ra, Ca>& Ad,
                      const Eigen::Matrix<double, Rb, Cb>& Bd,
                      const Eigen::Matrix<double, Cb, Cb>& adjC) {
    chainA(A, Bd, adjC);
    chainB(B, Ad, Bd, adjC);
  }
 
 public:
  quad_form_vari(const Eigen::Matrix<Ta, Ra, Ca>& A,
                 const Eigen::Matrix<Tb, Rb, Cb>& B, bool symmetric = false)
      : vari(0.0) {
    impl_ = new quad_form_vari_alloc<Ta, Ra, Ca, Tb, Rb, Cb>(A, B, symmetric);
  }
 
  virtual void chain() {
    matrix_d adjC = impl_->C_.adj();
 
    chainAB(impl_->A_, impl_->B_, value_of(impl_->A_), value_of(impl_->B_),
            adjC);
  }
 
  quad_form_vari_alloc<Ta, Ra, Ca, Tb, Rb, Cb>* impl_;
};
 
template <typename Mat1, typename Mat2,
          require_all_matrix_t<Mat1, Mat2>* = nullptr,
          require_any_var_matrix_t<Mat1, Mat2>* = nullptr>
inline auto quad_form_impl(const Mat1& A, const Mat2& B, bool symmetric) {
  check_square("quad_form", "A", A);
  check_multiplicable("quad_form", "A", A, "B", B);
 
  using return_t
      = return_var_matrix_t<decltype(value_of(B).transpose().eval()
                                     * value_of(A) * value_of(B).eval()),
                            Mat1, Mat2>;
 
  if (!is_constant<Mat1>::value && !is_constant<Mat2>::value) {
    arena_t<promote_scalar_t<var, Mat1>> arena_A = A;
    arena_t<promote_scalar_t<var, Mat2>> arena_B = B;
 
    check_not_nan("multiply", "A", value_of(arena_A));
    check_not_nan("multiply", "B", value_of(arena_B));
 
    auto arena_res = to_arena(value_of(arena_B).transpose() * value_of(arena_A)
                              * value_of(arena_B));
 
    if (symmetric) {
      arena_res += arena_res.transpose().eval();
    }
 
    return_t res = arena_res;
 
    reverse_pass_callback([arena_A, arena_B, res]() mutable {
      auto C_adj_B_t = (res.adj() * value_of(arena_B).transpose()).eval();
 
      if (is_var_matrix<Mat1>::value) {
        arena_A.adj().noalias() += value_of(arena_B) * C_adj_B_t;
      } else {
        arena_A.adj() += value_of(arena_B) * C_adj_B_t;
      }
 
      if (is_var_matrix<Mat2>::value) {
        arena_B.adj().noalias()
            += value_of(arena_A) * C_adj_B_t.transpose()
               + value_of(arena_A).transpose() * value_of(arena_B) * res.adj();
      } else {
        arena_B.adj()
            += value_of(arena_A) * C_adj_B_t.transpose()
               + value_of(arena_A).transpose() * value_of(arena_B) * res.adj();
      }
    });
 
    return res;
  } else if (!is_constant<Mat2>::value) {
    arena_t<promote_scalar_t<double, Mat1>> arena_A = value_of(A);
    arena_t<promote_scalar_t<var, Mat2>> arena_B = B;
 
    check_not_nan("multiply", "A", arena_A);
    check_not_nan("multiply", "B", arena_B.val());
 
    auto arena_res
        = to_arena(value_of(arena_B).transpose() * arena_A * value_of(arena_B));
 
    if (symmetric) {
      arena_res += arena_res.transpose().eval();
    }
 
    return_t res = arena_res;
 
    reverse_pass_callback([arena_A, arena_B, res]() mutable {
      auto C_adj_B_t = (res.adj() * value_of(arena_B).transpose());
 
      if (is_var_matrix<Mat2>::value) {
        arena_B.adj().noalias()
            += arena_A * C_adj_B_t.transpose()
               + arena_A.transpose() * value_of(arena_B) * res.adj();
      } else {
        arena_B.adj() += arena_A * C_adj_B_t.transpose()
                         + arena_A.transpose() * value_of(arena_B) * res.adj();
      }
    });
 
    return res;
  } else {
    arena_t<promote_scalar_t<var, Mat1>> arena_A = A;
    arena_t<promote_scalar_t<double, Mat2>> arena_B = value_of(B);
 
    check_not_nan("multiply", "A", value_of(arena_A));
    check_not_nan("multiply", "B", arena_B);
 
    auto arena_res
        = to_arena(arena_B.transpose() * value_of(arena_A) * arena_B);
 
    if (symmetric) {
      arena_res += arena_res.transpose().eval();
    }
 
    return_t res = arena_res;
 
    reverse_pass_callback([arena_A, arena_B, res]() mutable {
      auto C_adj_B_t = (res.adj() * arena_B.transpose());
 
      if (is_var_matrix<Mat1>::value) {
        arena_A.adj().noalias() += arena_B * C_adj_B_t;
      } else {
        arena_A.adj() += arena_B * C_adj_B_t;
      }
    });
 
    return res;
  }
}
}  // namespace internal
 
template <typename EigMat1, typename EigMat2,
          require_all_eigen_t<EigMat1, EigMat2>* = nullptr,
          require_not_eigen_col_vector_t<EigMat2>* = nullptr,
          require_any_vt_var<EigMat1, EigMat2>* = nullptr>
inline promote_scalar_t<var, EigMat2> quad_form(const EigMat1& A,
                                                const EigMat2& B,
                                                bool symmetric = false) {
  check_square("quad_form", "A", A);
  check_multiplicable("quad_form", "A", A, "B", B);
 
  auto* baseVari = new internal::quad_form_vari<
      value_type_t<EigMat1>, EigMat1::RowsAtCompileTime,
      EigMat1::ColsAtCompileTime, value_type_t<EigMat2>,
      EigMat2::RowsAtCompileTime, EigMat2::ColsAtCompileTime>(A, B, symmetric);
 
  return baseVari->impl_->C_;
}
 
template <typename EigMat, typename ColVec, require_eigen_t<EigMat>* = nullptr,
          require_eigen_col_vector_t<ColVec>* = nullptr,
          require_any_vt_var<EigMat, ColVec>* = nullptr>
inline var quad_form(const EigMat& A, const ColVec& B, bool symmetric = false) {
  check_square("quad_form", "A", A);
  check_multiplicable("quad_form", "A", A, "B", B);
 
  auto* baseVari = new internal::quad_form_vari<
      value_type_t<EigMat>, EigMat::RowsAtCompileTime,
      EigMat::ColsAtCompileTime, value_type_t<ColVec>,
      ColVec::RowsAtCompileTime, 1>(A, B, symmetric);
 
  return baseVari->impl_->C_(0, 0);
}
 
template <typename Mat1, typename Mat2,
          require_all_matrix_t<Mat1, Mat2>* = nullptr,
          require_not_col_vector_t<Mat2>* = nullptr,
          require_any_var_matrix_t<Mat1, Mat2>* = nullptr>
inline auto quad_form(const Mat1& A, const Mat2& B, bool symmetric = false) {
  return internal::quad_form_impl(A, B, symmetric);
}
 
template <typename Mat, typename Vec, require_matrix_t<Mat>* = nullptr,
          require_col_vector_t<Vec>* = nullptr,
          require_any_var_matrix_t<Mat, Vec>* = nullptr>
inline var quad_form(const Mat& A, const Vec& B, bool symmetric = false) {
  return internal::quad_form_impl(A, B, symmetric)(0, 0);
}
 
}  // namespace math
}  // namespace stan
#endif