劉任昌期末考Javascript與Python計算內部報酬率IRR

躉繳	第1期	第2期	第3期

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

輸出:

報酬率:

淨現值:

迴圈次數:

劉任昌向項柏綱學習程式設計程式碼如下

<STYLE>

H1{margin: 0; padding: 20px 0; color: #000000; text-shadow: 2PX 2PX yellow;}

.Takming{border: 20px outset red;background-color: green;color: white;}

.pmt{width: 60pt; height: 20pt;background-color: GRAY;color: white;}

</STYLE>

<SCRIPT>//註解分享過程重點，貢獻，註解給人看，註解維護MAINTAIN程式碼

const period=4;//給定期數四期

const maxerror = 0.000000001; //要求的精確度

var payment = new Array(period);

function IRR()

{

  var a = 0;//TRY報酬率是否=0

  var b = 1;//TRY報酬率是否=1

  var c;//如果不是上面的a,b,就測試c=(a+b)/2

  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 )//如果淨現值f>0使用c取代下限a

        a = c;

       else

        b = c;//else否怎，淨現值f<0使用c取代上限b

       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>

<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> 

維基百科數值分析二分法

數值分析NUMERICAL ANALYSIS應用數學系，資訊工程或資訊科學數值方法NUMERICAL METHOD必修課，學程式設計求解。

P=PARAGRAPH, B=BOLD, H=HEADER, SRC=SOURCE