循环这些迭代

Question

我正在尝试循环下面的迭代，代码在下面，我也会尝试将其分解。

<?php

    function intr($LoanRequired, $TermMonths, $MonthlyPayment, $rate) {
     $intr= $LoanRequired * pow((1 + $rate), $TermMonths) + $MonthlyPayment * ((pow((1 + $rate), $TermMonths) - 1) / $rate);
     return $intr;
    }
    $x0=0.008;
    $x1=0.025;
    $LoanRequired=20000;
    $TermMonths=120;
    $MonthlyPayment=-271.09;
    $x2=$x0-(((intr($LoanRequired,$TermMonths,$MonthlyPayment,$x0))*($x0-$x1))/(intr($LoanRequired,$TermMonths,$MonthlyPayment,$x0)-intr($LoanRequired,$TermMonths,$MonthlyPayment,$x1)));
    print_r($x2);
    $intr = $LoanRequired * pow((1 + $x2), $TermMonths) + $MonthlyPayment * ((pow((1 + $x2), $TermMonths) - 1) / $x2);
    while( $intr>=-1 || $intr<=1 ) {

    return ;
    }
    ?>

$x0=0.008; 这不会改变，$x0 是第一个猜测 $x1=0.025; 这不会改变 $x1 是第二个猜测

$LoanRequired=20000;
$TermMonths=120;
$MonthlyPayment=-271.09;

该函数中来自表单的所有变量（所有这些都将根据用户输入的内容而改变）

function intr($LoanRequired, $TermMonths, $MonthlyPayment, $rate) {
         $intr= $LoanRequired * pow((1 + $rate), $TermMonths) + $MonthlyPayment * ((pow((1 + $rate), $TermMonths) - 1) / $rate);
         return $intr;

$rate 变为首先是 $x0，然后是 $x1 和 $x2 等。

$intr = $LoanRequired * pow((1 + $x0), $TermMonths) + $MonthlyPayment * ((pow((1 + $x0), $TermMonths) - 1) / $x0);

首先需要输入上面的公式（首先是 $x0，然后是 $x1，因为它们是两个静态的）如果结果为 <1 或 >-1（

如果前两个静态） ，则整个过程停止猜测不符合执行此操作所需的标准

$x2=$x0-(((intr($LoanRequired,$TermMonths,$MonthlyPayment,$x0))*($x0-$x1))/( intr($LoanRequired,$TermMonths,$MonthlyPayment,$x0)-intr($LoanRequired,$TermMonths,$MonthlyPayment,$x1))); 在循环中。 在这种情况下 $x2 将 =0.0082002592938519 然后将其放入 $intr = $LoanRequired * pow((1 + $x0), $TermMonths) + $MonthlyPayment * ((pow((1 + $x0), $TermMonths) - 1) / $x0); 再次，如果不满足条件，则继续循环，直到满足 $x3、$x4 等条件，

之后需要输入此公式 $apr=((pow(($x0+1), 12))-1)*100; （$x0 显然会更改为 $x1、$x2、$x3 等，具体取决于哪个值是 <1 和 >-1。

我试图把这个进入 while 循环（或任何与此相关的循环），但有一些困难。

Answer 1

让我们从设置开始

$i0 = intr($LoanRequired,$TermMonths,$MonthlyPayment,$x0);
$i1 = intr($LoanRequired,$TermMonths,$MonthlyPayment,$x1);

然后 x2 变为

$x2=$x0-($i0*($x0-$x1)/($i0-$i1));

现在

$i2 = intr($LoanRequired,$TermMonths,$MonthlyPayment,$x2);

，如果有下一步，则不再需要当前的 $x0/$i0 。当前的 $x1/$i1 变成 $x0/$i0 ， $x2/$i2 变成 $x1/$i1

$x0 = $x1; $i0=$i1;
$x1 = $x2; $i1=$i2;

你这样做 while ($i2 <= -1 || $i2 >= 1) ，即while (abs($i2) >= 1)

<?php
function intr($LoanRequired, $TermMonths, $MonthlyPayment, $rate) {
  $intr= $LoanRequired * pow((1 + $rate), $TermMonths) + $MonthlyPayment * ((pow((1 + $rate), $TermMonths) - 1) / $rate);
  return $intr;
}

$LoanRequired=20000;
$TermMonths=120;
$MonthlyPayment=-271.09;
$x0=0.008;
$x1=0.025;
$i0 = intr($LoanRequired,$TermMonths,$MonthlyPayment,$x0);
$i1 = intr($LoanRequired,$TermMonths,$MonthlyPayment,$x1);

echo "f($x0)=", $i0, "\n";
echo "f($x1)=", $i1, "\n";

$dbgcnt = 0;
do {
  if ( 100 < ++$dbgcnt ) {
    die('bailout');
  }

  $x2=$x0-($i0*($x0-$x1)/($i0-$i1));
  $i2 = intr($LoanRequired,$TermMonths,$MonthlyPayment,$x2);
  echo "f($x2)=", $i2, "\n";

  $x0 = $x1; $i0=$i1;
  $x1 = $x2; $i1=$i2;
} while (abs($i2) > 1);

echo "----\nx=$x2";

打印

f(0.008)=-2242.1586767476
f(0.025)=188094.563138
f(0.0082002592938519)=-1736.2922063647
f(0.0083539185016984)=-1336.4282682791
f(0.0088674794645362)=76.76523796426
f(0.0088395826270916)=-3.1241157534314
f(0.0088406735477872)=-0.0068921130805393
----
x=0.0088406735477872

但是如果这有任何重要性，您应该在 https://mathoverflow.net/ 此方法是否可以安全地用于 IEEE 浮点数（我的猜测是不是）。