devtools/eigen
1
0
Fork 0
mirror of https://gitlab.com/libeigen/eigen.git synced 2026-04-10 11:34:33 +08:00
Code Issues Packages Projects Releases Wiki Activity

misc cleaning / eigenization

Browse Source
This commit is contained in:
Thomas Capricelli
2010-01-28 04:19:39 +01:00
parent fcd074c928
commit 40eac2d8a0
8 changed files with 44 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
unsupported/Eigen/src/NonLinearOptimization/fdjac1.h
View File

@@ -10,10 +10,11 @@ int ei_fdjac1(
{
/* Local variables */
Scalar h;
int i, j, k;
int j, k;
Scalar eps, temp;
int msum;
int iflag;
int start, length;
/* Function Body */
const Scalar epsmch = epsilon<Scalar>();
@@ -55,11 +56,10 @@ int ei_fdjac1(
x[j] = wa2[j];
h = eps * ei_abs(wa2[j]);
if (h == 0.) h = eps;
for (i = 0; i < n; ++i) {
fjac(i,j) = 0.;
if (i >= j - mu && i <= j + ml)
fjac(i,j) = (wa1[i] - fvec[i]) / h;
}
fjac.col(j).setZero();
start = std::max(0,j-mu);
length = std::min(n-1, j+ml) - start + 1;
fjac.col(j).segment(start, length) = ( wa1.segment(start, length)-fvec.segment(start, length))/h;
}
}
}