1248     double fX, fXnew, fTerm, fTermDerivation;  in RateIteration()  local
1258         fX = fGuess;  in RateIteration()
1262             fPowNminus1 = pow( 1.0+fX, fNper-1.0);  in RateIteration()
1263             fPowN = fPowNminus1 * (1.0+fX);  in RateIteration()
1264             if (rtl::math::approxEqual( fabs(fX), 0.0))  in RateIteration()
1271                 fGeoSeries = (fPowN-1.0)/fX;  in RateIteration()
1272                 fGeoSeriesDerivation = fNper * fPowNminus1 / fX - fGeoSeries / fX;  in RateIteration()
1281                     fXnew = fX + 1.1 * SCdEpsilon;  // move away from zero slope  in RateIteration()
1283                     fXnew = fX - fTerm / fTermDerivation;  in RateIteration()
1286             bFound = (fabs(fXnew - fX) < SCdEpsilon);  in RateIteration()
1287             fX = fXnew;  in RateIteration()
1297         fX = (fGuess < -1.0) ? -1.0 : fGuess;   // start with a valid fX  in RateIteration()
1300             if (rtl::math::approxEqual( fabs(fX), 0.0))  in RateIteration()
1307                 fGeoSeries = (pow( 1.0+fX, fNper) - 1.0) / fX;  in RateIteration()
1308                 fGeoSeriesDerivation = fNper * pow( 1.0+fX, fNper-1.0) / fX - fGeoSeries / fX;  in RateIteration()
1310             fTerm = fFv + fPv *pow(1.0 + fX,fNper)+ fPayment * fGeoSeries;  in RateIteration()
1311 …         fTermDerivation = fPv * fNper * pow( 1.0+fX, fNper-1.0) + fPayment * fGeoSeriesDerivation;  in RateIteration()
1317                     fXnew = fX + 1.1 * SCdEpsilon;  // move away from zero slope  in RateIteration()
1319                     fXnew = fX - fTerm / fTermDerivation;  in RateIteration()
1322             bFound = (fabs(fXnew - fX) < SCdEpsilon);  in RateIteration()
1323             fX = fXnew;  in RateIteration()
1324             bValid = (fX >= -1.0);  // otherwise pow(1.0+fX,fNper) will fail  in RateIteration()
1328     fGuess = fX;    // return approximate root  in RateIteration()
1651                 double fX = fXPrev + fEps;  in ScBackSolver()  local
1661                     pValue->SetValue( fX );  in ScBackSolver()
1691                                     fHorX = fX + fabs(fF)*fHorTangent;  in ScBackSolver()
1693                                     fHorX = fX - fabs(fF)*fHorTangent;  in ScBackSolver()
1705                                     fX = fHorX;  in ScBackSolver()
1717                         double fDiff = ( fXPrev - fX ) / 2;  in ScBackSolver()
1720                         fX += fDiff;  in ScBackSolver()
1727                         fBestX = fX;  in ScBackSolver()
1734                             fBestX = fX;  in ScBackSolver()
1738                         if ( ( fXPrev - fX ) != 0 )  in ScBackSolver()
1740                             fSlope = ( fFPrev - fF ) / ( fXPrev - fX );  in ScBackSolver()
1747                         fXPrev = fX;  in ScBackSolver()
1749                         fX = fX - ( fF / fSlope );  in ScBackSolver()