";
printf("|
\n", $amt,$int,$trm);
$mi = $int/1200; $tt = $trm * 12; $m2 = $apr/1200;
$temp = (1.0 / (1 + $mi) ** $tt);
$temp2 = (1.0 / (1 + $m2) ** $tt);
if ($temp < 1) { $paymt = $amt * $mi / (1 - $temp); }
else { $paymt = $amt / $trm; }
printf("| Principal & Interest Monthly Payment : | \$ %9.2f |
\n",$paymt);
printf("| Loan Amount before closing costs: | \$ %12.2f |
\n",$amt);
$pta = $amt * $pts / 100; $costs = $pta + $clc;
printf("| Points at %6.3f %% | \$ %7.2f |
",$pts,$pta);
printf("| Other Costs | \$ %7.2f |
\n",$clc);
printf("| Total up-front costs: | \$ %12.2f |
\n",$costs);
$eamt = $amt + $costs;
printf("| So the effective amount of your loan is: | \$ %12.2f |
\n",$eamt);
$epaymt = $eamt * $mi / (1 - $temp);
printf("| The Monthly Payment for this amount would be: | \$%9.2f |
\n",$epaymt);
$m1 = $mi; $m2 = 2 * $mi;
for ($j=0; $j<25; $j++)
{
$mnew = ($m1 + $m2)/2;
$temp = (1.0 / (1 + $mnew) ** $tt);
$epaymt2 = $amt * $mnew / (1 - $temp);
if ($epaymt2 < $epaymt) { $m1 = $mnew; } else { $m2 = $mnew; }
#printf("%12.7f %12.7f\n",$m1,$m2);
}
$apr = ($m1 + $m2)*600;
printf("|
\n",$apr);
}
print<