程式設計學習進度

 第十週


呈現

第十一週


躉繳第1期第2期第3期第4期

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

報酬率:

淨現值:

迴圈次數:

第十二週

躉繳第1期第2期第3期第4期

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

報酬率:

淨現值:

迴圈次數:

陳姿穎程式設計

陳姿穎程式設計

<style>
.Takming {
border: 20px outset yellow;
background-color: green;
color: white;
text-align: center; }  
.pmt {
  width:80pt;   
  height:20pt;
  background-color: coral;
  color: black;
  font-weight:bold;
  text-align:right;}
.pig {
  width:80pt;   
  height:20pt;
  background-color: pink;
  color: white;
  font-weight:bold;
  text-align:center;}
</style><!--寬度width，高度height，背景顏色珊瑚色，顏色，文字排列text-align-->
<table border=1>
  <tr align=center><td>躉繳</td><td>第1期</td><td>第2期</td><td>第3期</td><td>第4期</td></tr>
  <tr><td><input type="number" class="pig"></td>
  <td><input type="number" class="pig"></td>
  <td><input type="number" class="pig"></td>
  <td><input type="number" class="pig"></td>  
  <td><input type="number" class="pig"></td></tr>
  </table><br>
注意，包含首期躉繳的現金流量都大於0。
<p><input type="button" value="計算內部報酬率" onclick="IRR()"></p> <!-- 按下 button 去執行 JavaScript IRR( )-->
<b>報酬率: <p id="irr"></p></b>
<b>淨現值: <p id="npv"></p></b>
<b>迴圈次數: <p id="loopNumber"></p></b>   
<script>
const period=5;
const maxerror = 0.000001;
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>

第十三週


 


Const period As Integer = 4
Const maxerror As Double = 0.0000001
Dim payment(period) As Double '廣域變數 4 維度的陣列
Private Sub CommandButton1_Click()
  Dim a, b, c, f, gap As Double
  Dim loopNumber As Integer
  a = 0
  b = 1
  gap = 10
  loopNumber = 10
  payment(0) = TextBox1.Value
  payment(1) = TextBox2.Value
  payment(2) = TextBox3.Value
  payment(3) = TextBox4.Value
  f = npv(a)
  If f = 0 Then
     Label9.Caption = 0
  ElseIf f < 0 Then
     Label9.Caption = "內部報酬率小於 0."
  Else
     Do While gap > mexerror And Abs(f) > maxerror And loopNumber < 100
       loopNumber = loopNumber + 1
       c = (a + b) / 2
       f = npv(c)
       If Abs(f) > maxerror And gap > maxerror Then
          If f > 0 Then
            a = c
          Else
            b = c
            gap = b - a
          End If
        Else
          Label9.Caption = c * 100
       End If
     Loop
  End If
  Label10.Caption = f
  Label11.Caption = loopNumber
  '以下是將結果輸出到 WORD 文件
  Selection.TypeText ("躉繳:" & TextBox1.Value & ", 第1期:" & TextBox2.Value & ", 第2期:" & TextBox3.Value & ", 第3期:" & TextBox4.Value)
  Selection.TypeParagraph
  Selection.TypeText ("內部報酬率%:" & c * 100)
  Selection.TypeParagraph
  Selection.TypeText ("淨現值:" & f)
  Selection.TypeParagraph
  Selection.TypeText ("迴圈次數:" & loopNumber)
  Selection.TypeParagraph
End Sub
Private Sub CommandButton2_Click()
  End
End Sub
Function npv(rate) '計算特定折現率rate的淨現值
  Dim y As Double
  Dim j As Integer
  y = -payment(0)
  For j = 1 To period
      y = y + payment(j) / (1 + rate) ^ j
  Next
  npv = y
End Function
第十四週




 



Dim n As Integer
Dim spec As String
Const period As Integer = 4
Const maxerror As Double = 0.0000001
Dim payment(period) As Double '廣域變數 4 維度的陣列
Private Sub CommandButton1_Click()
  Dim a, b, c, f, gap As Double
  Dim loopNumber As Integer
  n = n + 1 '第幾次計算+1
  a = 0     '報酬率0
  b = 1     '報酬率1
  gap = 10
  loopNumber = 10
  payment(0) = TextBox1.Value
  payment(1) = TextBox2.Value
  payment(2) = TextBox3.Value
  payment(3) = TextBox4.Value
  f = npv(a)
  If f = 0 Then
     Label9.Caption = 0
  ElseIf f < 0 Then
     Label9.Caption = "內部報酬率小於 0."
  Else
     Do While gap > mexerror And Abs(f) > maxerror And loopNumber < 100
       loopNumber = loopNumber + 1
       c = (a + b) / 2
       f = npv(c)
       If Abs(f) > maxerror And gap > maxerror Then
          If f > 0 Then
            a = c
          Else
            b = c
            gap = b - a
          End If
        Else
          Label9.Caption = c
       End If
     Loop
  End If
  Label10.Caption = f
  Label11.Caption = loopNumber
  ' spec = "躉繳$" & payment(0) & ", 第1期$" & payment(1) & ",第2期$" & payment(2) & ",第3期$" & payment(3)
  Cells(n, 1).Value = "第" & n & "次執行"
  Cells(n, 2).Value = "內部報酬率:" & c
  Cells(n, 3).Value = "淨現值:" & f
  Cells(n, 4).Value = "迴圈次數:" & loopNumber
  End Sub
Private Sub CommandButton2_Click()
  End
End Sub
Function npv(rate) '計算特定折現率rate的淨現值
  Dim y As Double
  Dim j As Integer
  y = -payment(0)
  For j = 1 To period
      y = y + payment(j) / (1 + rate) ^ j
  Next
  npv = y
End Function
Private Sub CommandButton3_Click()
  Selection.WholeStory
  Selection.Delete
End Sub

留言

張貼留言

這個網誌中的熱門文章

程式設計學習進度

第八週 第九週 第一週九月七日 在記事本上編輯html 第二週九月十四日 嵌入embed同學的網頁 林育芳 第三週九月二十一日 學習 input 還有表單 form 位元組與變數 第四週九月二十八日 迴圈從0開始到達 speed 下拉式選單的結構{ 0,  10,  20,  40,  100,  500 } 下拉式選單的第j個數字 當作數度 0, 1, 2,3,.......... 讓i從21變成 money.length 陣列的長度，避免SetIntetrval在執行 第五週十月五日 聯絡人職稱: 董事長 總經理 副總經理 財務長 第六週上課 網頁指令 VBA指令 聯絡人職稱: 董事長 總經理 副總經理 財務長 人資長 UserForm_Initialize()'起始表單事件設定 聯絡人職稱:<select id="ComboBox1"> <option>董事長</option> <option>總經理</option> <option>副總經理</option> <option>財務長</option> <option>人資長</option> </select> With ComboBox1 .Additem("董事長") .Additem("總經理") .Additem("副總經理") .Additem("財務長") .Additem("人資長") End With text textbox button commandbutton 第七週2020/10/19 網頁 VBA 輸入金額: textbox 輸入金額:<input id="a" type="text" /> VBA VBA <input type="
閱讀完整內容

陳姿穎 EXCEL資料 -> Web讀取外部資料-> 自動更新

圖片
讀入表格 自動更新 道瓊30 維基百科 網路爬蟲的開始 鉅亨網 道瓊30 EXCEL讀入Web 金融研訓院 網路爬蟲 網路爬蟲（英語：web crawler），也叫網路蜘蛛（spider），是一種用來自動瀏覽全球資訊網的網路機器人。其目的一般為編纂網路索引。 網路搜尋引擎等站點通過爬蟲軟體更新自身的網站內容或其對其他網站的索引。網路爬蟲可以將自己所存取的頁面儲存下來，以便搜尋引擎事後生成索引供使用者搜尋。 爬蟲存取網站的過程會消耗目標系統資源。不少網路系統並不默許爬蟲工作。因此在存取大量頁面時，爬蟲需要考慮到規劃、負載，還需要講「禮貌」。 不願意被爬蟲存取、被爬蟲主人知曉的公開站點可以使用robots.txt檔案之類的方法避免存取。這個檔案可以要求機器人只對網站的一部分進行索引，或完全不作處理。 網際網路上的頁面極多，即使是最大的爬蟲系統也無法做出完整的索引。因此在公元2000年之前的全球資訊網出現初期，搜尋引擎經常找不到多少相關結果。現在的搜尋引擎在這方面已經進步很多，能夠即刻給出高品質結果。 爬蟲還可以驗證超連結和HTML代碼，用於網路抓取（參見資料驅動編程）。 left right lea 漢字 第一個字:一 最後一個字:龘
閱讀完整內容

陳姿穎地15週 HTML+CSS+JavaScript+Word轉pdf方程式編輯器

圖片
利率y(rate) 期數n(nper) 金流m(pmt) 終值f(fv) 參考劉任昌 金融市場講義 劉任昌學習HTML+CSS+JavaScript程式碼 <style> h1{border: 30px outset green;     background-color: green;     color: white;   text-align: center;} </style> <script> function computePV(){   var r = document.getElementById("rate").value;   var n = document.getElementById("nper").value;   var m = document.getElementById("pmt").value;   var f = document.getElementById("fv").value;   pvif =r;   pvif++;   pvif =1/pvif**n;   var pv = (1-pvif)*m/r + f * pvif;   document.getElementById("pv").innerHTML = pv; } </script> <body> <table border="1"> <tr><td>利率y(rate)</td><td>期數n(nper)</td><td>金流m(pmt)</td><td>終值f(fv)</td></tr>    <td><input id="rate" type="number" /></td>    <td><input id="nper" type="number" />&l
閱讀完整內容