躉繳第1期第2期第3期

注意,包含首期躉繳的現金流量都大於0。

輸出:

報酬率:

淨現值:

迴圈次數:

林宏哲向劉任昌學習的程式碼

<head>
<style>
.Takming {
  border: 20px outset red;
  background-color: green;
  color: white;
  text-align: center;
}
  .pmt {
  width: 60pt;
  height: 20pt;
  background-color: coral;
  color: white;
  text-align: right;}
</style>
</head>
<body>
<table border="1">
<tr align="center"><td>躉繳</td><td>第1期</td><td>第2期</td><td>第3期</td></tr>
<tr><td><input class="pmt" type="number" /></td>
   <td><input class="pmt" type="number" /></td>
   <td><input class="pmt" type="number" /></td>
   <td><input class="pmt" type="number" /></td></tr>
</table><br />
注意,包含首期躉繳的現金流量都大於0。
<p><input onclick="IRR()" type="button" value="計算內部報酬率" />輸出:</p> <!-- 按下 button 去執行 JavaScript IRR( )-->
<p>報酬率:<b id="irr"></b></p> 
<p>淨現值:<b id="npv"></b></p> 
<p>迴圈次數:<b id="loopNumber"></b></p> 
</body>
  <script>
const period=4;
const maxerror = 0.0000001; //要求的精確度
var payment = new Array(period);
function IRR()
{
  var a = 0;
  var b = 1;
  var c;
  var f;
  var gap=10;
  var loopNumber = 0;
  for (var i=0; i<period; i++)
    payment[i]=document.getElementsByClassName("pmt")[i].value;
  f = npv(a);
  if ( f==0 )
      document.getElementById("irr").innerHTML = "內部報酬率等於0.";
  else if ( f<0 )
    document.getElementById("irr").innerHTML = "內部報酬率小於0.";
  else
   { while ( gap > maxerror && Math.abs(f) > maxerror && loopNumber < 100)
     { 
      loopNumber++;
      c = (a+b)/2;
      f = npv(c);
      if ( Math.abs(f) > maxerror && gap > maxerror)
     { if ( f>0 )
        a = c;
       else
        b = c;
       gap = b-a;
      }
    }  //迴圈while結束
   }
  document.getElementById("irr").innerHTML= c;
  document.getElementById("npv").innerHTML= f;
  document.getElementById("loopNumber").innerHTML = loopNumber;
var npv=function(rate)
  {   
    var y= -payment[0]; 
    for (var j=1; j<period; j++)
      y = y + payment[j]/(1+rate)**j;
    return y;
  }
</script>
<h1 class="Takming">許蘊如項劉任昌學習的程式碼</h1>

留言

  1. https://ashomefucklife.blogspot.com/
    你應該是要說 ashole... 吧!
    努力做自己,當一個有實力的人,財富與女人自然來。
    努力學習,讓自己對自己的生活狂熱!

    回覆刪除

張貼留言

這個網誌中的熱門文章

林宏哲損益表芬表percentrank營籲業額eps樞紐分析