GitHub-Proxy/eigen
1
0
Fork 0
mirror of https://gitlab.com/libeigen/eigen.git synced 2025-04-28 23:04:18 +08:00
Code Issues Packages Projects Releases Wiki Activity

cleaning covar

Browse Source
This commit is contained in:
Thomas Capricelli 2009-08-24 17:49:37 +02:00
parent 17905c7399
commit 4e62e29869
2 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
unsupported/Eigen/src/NonLinear/covar.h
View File

@ -25,9 +25,8 @@ void ei_covar(
for (j = 0; j <= k-1; ++j) {
temp = r(k,k) * r(j,k);
r(j,k) = 0.;
for (i = 0; i <= j; ++i) {
for (i = 0; i <= j; ++i)
r(i,k) -= temp * r(i,j);
}
}
l = k;
}
@ -50,12 +49,12 @@ void ei_covar(
/* in the strict lower triangle of r and in wa. */
for (j = 0; j < n; ++j) {
jj = ipvt[j]-1;
jj = ipvt[j];
sing = j > l;
for (i = 0; i <= j; ++i) {
if (sing)
r(i,j) = 0.;
ii = ipvt[i]-1;
ii = ipvt[i];
if (ii > jj)
r(ii,jj) = r(i,j);
if (ii < jj)

2
unsupported/test/NonLinear.cpp
View File

@ -193,7 +193,6 @@ void testLmder()
// check covariance
covfac = fnorm*fnorm/(m-n);
ipvt.cwise()+=1; // covar() expects the fortran convention (as qrfac provides)
ei_covar<double>(fjac, ipvt);
MatrixXd cov_ref(n,n);
@ -567,7 +566,6 @@ void testLmdif()
// check covariance
covfac = fnorm*fnorm/(m-n);
ipvt.cwise()+=1; // covar() expects the fortran convention (as qrfac provides)
ei_covar<double>(fjac, ipvt);
MatrixXd cov_ref(n,n);