Searched refs:mat_pinv (Results 1 – 2 of 2) sorted by relevance
1256 …MatrixPseudoinverse(Ceed ceed, const CeedScalar *mat, CeedInt m, CeedInt n, CeedScalar *mat_pinv) { in CeedMatrixPseudoinverse() argument1272 mat_pinv[j + m * (n - 1)] = I[j + m * (n - 1)] / mat_copy[n * n - 1]; in CeedMatrixPseudoinverse()1274 mat_pinv[j + m * i] = I[j + m * i]; in CeedMatrixPseudoinverse()1275 …for (CeedInt k = i + 1; k < n; k++) mat_pinv[j + m * i] -= mat_copy[k + n * i] * mat_pinv[j + m * … in CeedMatrixPseudoinverse()1276 mat_pinv[j + m * i] /= mat_copy[i + n * i]; in CeedMatrixPseudoinverse()
485 …dMatrixPseudoinverse(Ceed ceed, const CeedScalar *mat, CeedInt m, CeedInt n, CeedScalar *mat_pinv);