Lines Matching refs:pMatA

1863 double lcl_GetSumProduct( ScMatrixRef pMatA, ScMatrixRef pMatB, SCSIZE nM )  in lcl_GetSumProduct()  argument
1867 fSum += pMatA->GetDouble(i) * pMatB->GetDouble(i); in lcl_GetSumProduct()
1874 double lcl_GetColumnEuclideanNorm( ScMatrixRef pMatA, SCSIZE nC, SCSIZE nR, SCSIZE nN ) in lcl_GetColumnEuclideanNorm() argument
1878 fNorm += (pMatA->GetDouble(nC,row)) * (pMatA->GetDouble(nC,row)); in lcl_GetColumnEuclideanNorm()
1884 double lcl_TGetColumnEuclideanNorm( ScMatrixRef pMatA, SCSIZE nR, SCSIZE nC, SCSIZE nN ) in lcl_TGetColumnEuclideanNorm() argument
1888 fNorm += (pMatA->GetDouble(col,nR)) * (pMatA->GetDouble(col,nR)); in lcl_TGetColumnEuclideanNorm()
1895 double lcl_GetColumnMaximumNorm( ScMatrixRef pMatA, SCSIZE nC, SCSIZE nR, SCSIZE nN ) in lcl_GetColumnMaximumNorm() argument
1899 if (fNorm < fabs(pMatA->GetDouble(nC,row))) in lcl_GetColumnMaximumNorm()
1900 fNorm = fabs(pMatA->GetDouble(nC,row)); in lcl_GetColumnMaximumNorm()
1906 double lcl_TGetColumnMaximumNorm( ScMatrixRef pMatA, SCSIZE nR, SCSIZE nC, SCSIZE nN ) in lcl_TGetColumnMaximumNorm() argument
1910 if (fNorm < fabs(pMatA->GetDouble(col,nR))) in lcl_TGetColumnMaximumNorm()
1911 fNorm = fabs(pMatA->GetDouble(col,nR)); in lcl_TGetColumnMaximumNorm()
1918 double lcl_GetColumnSumProduct( ScMatrixRef pMatA, SCSIZE nCa, ScMatrixRef pMatB, in lcl_GetColumnSumProduct() argument
1923 fResult += pMatA->GetDouble(nCa,row) * pMatB->GetDouble(nCb,row); in lcl_GetColumnSumProduct()
1929 double lcl_TGetColumnSumProduct( ScMatrixRef pMatA, SCSIZE nRa, in lcl_TGetColumnSumProduct() argument
1934 fResult += pMatA->GetDouble(col,nRa) * pMatB->GetDouble(col,nRb); in lcl_TGetColumnSumProduct()
1957 bool lcl_CalculateQRdecomposition(ScMatrixRef pMatA, in lcl_CalculateQRdecomposition() argument
1969 fScale = lcl_GetColumnMaximumNorm(pMatA, col, col, nN); in lcl_CalculateQRdecomposition()
1975 pMatA->PutDouble( pMatA->GetDouble(col,row)/fScale, col, row); in lcl_CalculateQRdecomposition()
1977 fEuclid = lcl_GetColumnEuclideanNorm(pMatA, col, col, nN); in lcl_CalculateQRdecomposition()
1978 fFactor = 1.0/fEuclid/(fEuclid + fabs(pMatA->GetDouble(col,col))); in lcl_CalculateQRdecomposition()
1979 fSignum = lcl_GetSign(pMatA->GetDouble(col,col)); in lcl_CalculateQRdecomposition()
1980 pMatA->PutDouble( pMatA->GetDouble(col,col) + fSignum*fEuclid, col,col); in lcl_CalculateQRdecomposition()
1986 fSum =lcl_GetColumnSumProduct(pMatA, col, pMatA, c, col, nN); in lcl_CalculateQRdecomposition()
1988 pMatA->PutDouble( pMatA->GetDouble(c,row) in lcl_CalculateQRdecomposition()
1989 - fSum * fFactor * pMatA->GetDouble(col,row), c, row); in lcl_CalculateQRdecomposition()
1996 bool lcl_TCalculateQRdecomposition(ScMatrixRef pMatA, in lcl_TCalculateQRdecomposition() argument
2008 fScale = lcl_TGetColumnMaximumNorm(pMatA, row, row, nN); in lcl_TCalculateQRdecomposition()
2014 pMatA->PutDouble( pMatA->GetDouble(col,row)/fScale, col, row); in lcl_TCalculateQRdecomposition()
2016 fEuclid = lcl_TGetColumnEuclideanNorm(pMatA, row, row, nN); in lcl_TCalculateQRdecomposition()
2017 fFactor = 1.0/fEuclid/(fEuclid + fabs(pMatA->GetDouble(row,row))); in lcl_TCalculateQRdecomposition()
2018 fSignum = lcl_GetSign(pMatA->GetDouble(row,row)); in lcl_TCalculateQRdecomposition()
2019 pMatA->PutDouble( pMatA->GetDouble(row,row) + fSignum*fEuclid, row,row); in lcl_TCalculateQRdecomposition()
2025 fSum =lcl_TGetColumnSumProduct(pMatA, row, pMatA, r, row, nN); in lcl_TCalculateQRdecomposition()
2027 pMatA->PutDouble( pMatA->GetDouble(col,r) in lcl_TCalculateQRdecomposition()
2028 - fSum * fFactor * pMatA->GetDouble(col,row), col, r); in lcl_TCalculateQRdecomposition()
2041 void lcl_ApplyHouseholderTransformation(ScMatrixRef pMatA, SCSIZE nC, in lcl_ApplyHouseholderTransformation() argument
2045 double fDenominator = lcl_GetColumnSumProduct(pMatA, nC, pMatA, nC, nC, nN); in lcl_ApplyHouseholderTransformation()
2046 double fNumerator = lcl_GetColumnSumProduct(pMatA, nC, pMatY, 0, nC, nN); in lcl_ApplyHouseholderTransformation()
2050 pMatY->GetDouble(row) - fFactor * pMatA->GetDouble(nC,row), row); in lcl_ApplyHouseholderTransformation()
2054 void lcl_TApplyHouseholderTransformation(ScMatrixRef pMatA, SCSIZE nR, in lcl_TApplyHouseholderTransformation() argument
2058 double fDenominator = lcl_TGetColumnSumProduct(pMatA, nR, pMatA, nR, nR, nN); in lcl_TApplyHouseholderTransformation()
2059 double fNumerator = lcl_TGetColumnSumProduct(pMatA, nR, pMatY, 0, nR, nN); in lcl_TApplyHouseholderTransformation()
2063 pMatY->GetDouble(col) - fFactor * pMatA->GetDouble(col,nR), col); in lcl_TApplyHouseholderTransformation()
2072 void lcl_SolveWithUpperRightTriangle(ScMatrixRef pMatA, in lcl_SolveWithUpperRightTriangle() argument
2086 fSum -= pMatA->GetDouble(row,col) * pMatS->GetDouble(col); in lcl_SolveWithUpperRightTriangle()
2088 fSum -= pMatA->GetDouble(col,row) * pMatS->GetDouble(col); in lcl_SolveWithUpperRightTriangle()
2099 void lcl_SolveWithLowerLeftTriangle(ScMatrixRef pMatA, in lcl_SolveWithLowerLeftTriangle() argument
2111 fSum -= pMatA->GetDouble(col,row) * pMatT->GetDouble(col); in lcl_SolveWithLowerLeftTriangle()
2113 fSum -= pMatA->GetDouble(row,col) * pMatT->GetDouble(col); in lcl_SolveWithLowerLeftTriangle()
2125 void lcl_ApplyUpperRightTriangle(ScMatrixRef pMatA, in lcl_ApplyUpperRightTriangle() argument
2136 fSum += pMatA->GetDouble(row,col) * pMatB->GetDouble(col); in lcl_ApplyUpperRightTriangle()
2138 fSum += pMatA->GetDouble(col,row) * pMatB->GetDouble(col); in lcl_ApplyUpperRightTriangle()