Recreate Excel RATE function - who can make it work?

[nitro29]

Hi,

 

Who can make this work (return $rate), and make me very happy!?

define('FINANCIAL_MAX_ITERATIONS', 128);
define('FINANCIAL_PRECISION', 1.0e-08);


function RATE($nper, $pmt, $pv, $fv = 0.0, $type = 0, $guess = 0.1) {

$rate = $guess;
if (abs($rate) < FINANCIAL_PRECISION) {
$y = $pv * (1 + $nper * $rate) + $pmt * (1 + $rate * $type) * $nper + $fv;
} else {
$f = exp($nper * log(1 + $rate));
$y = $pv * $f + $pmt * (1 / $rate + $type) * ($f - 1) + $fv;
}
$y0 = $pv + $pmt * $nper + $fv;
$y1 = $pv * $f + $pmt * (1 / $rate + $type) * ($f - 1) + $fv;

// find root by secant method
$i = $x0 = 0.0;
$x1 = $rate;
while ((abs($y0 - $y1) > FINANCIAL_PRECISION) && ($i < FINANCIAL_MAX_ITERATIONS)) {
$rate = ($y1 * $x0 - $y0 * $x1) / ($y1 - $y0);
$x0 = $x1;
$x1 = $rate;

if (abs($rate) < FINANCIAL_PRECISION) {
$y = $pv * (1 + $nper * $rate) + $pmt * (1 + $rate * $type) * $nper + $fv;
} else {
$f = exp($nper * log(1 + $rate));
$y = $pv * $f + $pmt * (1 / $rate + $type) * ($f - 1) + $fv;
}

$y0 = $y1;
$y1 = $y;
++$i;
}
return $rate;
} // function RATE()

Could be with following values:

$nper=120
$pmt=1009.06
$pv=100,000

This is originally from StackOverflow .

 

Thanks a million.

 

Edited April 15, 2014 by nitro29

[Ch0cu3r]

Umm.. You call that function with those values...

// constants required by the function
define('FINANCIAL_MAX_ITERATIONS', 128);
define('FINANCIAL_PRECISION', 1.0e-08);

$nper=120;
$pmt=1009.06;
$pv=100000;

// pass the above values as arguments
echo RATE($nper, $pmt, $pv); // output the returned rate

Dont forget to define the constants

Edited April 15, 2014 by Ch0cu3r

[nitro29]

Uhm. Ok. I can see that it is a very silly question if the answer is that easy. 

 

I will try this again.

 

Thanks

 

 

EDIT: This was the worst question ever. Sorry.

Edited April 15, 2014 by nitro29