mirror of
https://gitlab.com/libeigen/eigen.git
synced 2026-04-10 11:34:33 +08:00
cleaning defines from f2c (use std::min and such instead of own ones)
This commit is contained in:
@@ -224,7 +224,7 @@ L190:
|
|||||||
|
|
||||||
/* determine the direction p. */
|
/* determine the direction p. */
|
||||||
|
|
||||||
ei_dogleg<Scalar>(n, R.data(), lr, diag.data(), qtf.data(), delta, wa1.data(), wa2.data(), wa3.data());
|
dogleg(n, R.data(), lr, diag.data(), qtf.data(), delta, wa1.data(), wa2.data(), wa3.data());
|
||||||
|
|
||||||
/* store the direction p and x + p. calculate the norm of p. */
|
/* store the direction p and x + p. calculate the norm of p. */
|
||||||
|
|
||||||
|
|||||||
@@ -212,7 +212,7 @@ L190:
|
|||||||
|
|
||||||
/* determine the direction p. */
|
/* determine the direction p. */
|
||||||
|
|
||||||
ei_dogleg<Scalar>(n, R.data(), lr, diag.data(), qtf.data(), delta, wa1.data(), wa2.data(), wa3.data());
|
dogleg(n, R.data(), lr, diag.data(), qtf.data(), delta, wa1.data(), wa2.data(), wa3.data());
|
||||||
|
|
||||||
/* store the direction p and x + p. calculate the norm of p. */
|
/* store the direction p and x + p. calculate the norm of p. */
|
||||||
|
|
||||||
|
|||||||
@@ -215,7 +215,7 @@ L200:
|
|||||||
/* determine the levenberg-marquardt parameter. */
|
/* determine the levenberg-marquardt parameter. */
|
||||||
|
|
||||||
ipvt.cwise()+=1; // lmpar() expects the fortran convention (as qrfac provides)
|
ipvt.cwise()+=1; // lmpar() expects the fortran convention (as qrfac provides)
|
||||||
ei_lmpar<Scalar>(n, fjac.data(), ldfjac, ipvt.data(), diag.data(), qtf.data(), delta,
|
lmpar(n, fjac.data(), ldfjac, ipvt.data(), diag.data(), qtf.data(), delta,
|
||||||
&par, wa1.data(), wa2.data(), wa3.data(), wa4.data());
|
&par, wa1.data(), wa2.data(), wa3.data(), wa4.data());
|
||||||
ipvt.cwise()-=1;
|
ipvt.cwise()-=1;
|
||||||
|
|
||||||
|
|||||||
@@ -218,7 +218,7 @@ L200:
|
|||||||
/* determine the levenberg-marquardt parameter. */
|
/* determine the levenberg-marquardt parameter. */
|
||||||
|
|
||||||
ipvt.cwise()+=1; // lmpar() expects the fortran convention (as qrfac provides)
|
ipvt.cwise()+=1; // lmpar() expects the fortran convention (as qrfac provides)
|
||||||
ei_lmpar<Scalar>(n, fjac.data(), ldfjac, ipvt.data(), diag.data(), qtf.data(), delta,
|
lmpar(n, fjac.data(), ldfjac, ipvt.data(), diag.data(), qtf.data(), delta,
|
||||||
&par, wa1.data(), wa2.data(), wa3.data(), wa4.data());
|
&par, wa1.data(), wa2.data(), wa3.data(), wa4.data());
|
||||||
ipvt.cwise()-=1;
|
ipvt.cwise()-=1;
|
||||||
|
|
||||||
|
|||||||
@@ -242,7 +242,7 @@ L240:
|
|||||||
/* determine the levenberg-marquardt parameter. */
|
/* determine the levenberg-marquardt parameter. */
|
||||||
|
|
||||||
ipvt.cwise()+=1; // lmpar() expects the fortran convention (as qrfac provides)
|
ipvt.cwise()+=1; // lmpar() expects the fortran convention (as qrfac provides)
|
||||||
ei_lmpar<Scalar>(n, fjac.data(), ldfjac, ipvt.data(), diag.data(), qtf.data(), delta, &par,
|
lmpar(n, fjac.data(), ldfjac, ipvt.data(), diag.data(), qtf.data(), delta, &par,
|
||||||
wa1.data(), wa2.data(), wa3.data(), wa4.data());
|
wa1.data(), wa2.data(), wa3.data(), wa4.data());
|
||||||
ipvt.cwise()-=1;
|
ipvt.cwise()-=1;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user