1 #ifndef STAN_MATH_PRIM_MAT_FUN_MULTIPLY_LOWER_TRI_SELF_TRANSPOSE_HPP
2 #define STAN_MATH_PRIM_MAT_FUN_MULTIPLY_LOWER_TRI_SELF_TRANSPOSE_HPP
29 result(0, 0) = L(0, 0) * L(0, 0);
33 for (
int m = 0; m < K; ++m) {
34 k = (J < m + 1) ? J : m + 1;
35 LLt(m, m) = Lt.col(m).head(k).squaredNorm();
36 for (
int n = (m + 1); n < K; ++n) {
37 LLt(n, m) = LLt(m, n) = Lt.col(m).head(k).dot(Lt.col(n).head(k));
Eigen::Matrix< fvar< T >, R, R > multiply_lower_tri_self_transpose(const Eigen::Matrix< fvar< T >, R, C > &m)
Eigen::Matrix< double, Eigen::Dynamic, Eigen::Dynamic > matrix_d
Type for matrix of double values.