貼現現金流(II)
更新日期: 2014年8月20日
程式可以計算貼現現金流 (Discounted cash flow: DCF) 問題， 較第(I)改善之處是可以輸入連續相同現金流的頻數(可開啟頻數輸入)，因此不需要重複輸入大量相同的現金流，頻數預設值為1，但要注意輸入的現金流必須依時間順序輸入， 而且不能刪除錯誤的現金流。
程式 (75 bytes)
ClrMemory: ?→A: ?→B:
1+B%÷Abs( A→B: ?→M: While 1:
1→D: ?→C: 0>A => ?→D: X + D→X:
C(B^( D ) - 1)÷ ( B^( X )(B - 1M+: M→C: WhileEnd
註: 如果是使用fx-3650P II或fx-50FH II，上述程式中紫色的開括號 ( 可以省略，程式長度可減1 byte。
例題1: 一公司以$20000購買一機器，以下為每年年結時可以節省的金額:
| 年 | 1 | 2 | 3 | 4 |
| 金額 | $5000 | $7500 | $9000 | $11000 |
假設年折現率 (Discount rate)為10%，試計算凈現值。
按 Prog 1 再按 1 EXE (每年複利計算期數) 10 EXE (年折現率)
- 20000 EXE (輸入最初投資CFo，負數代表支出)
5000 EXE (正數代表收入) 7500 EXE 9000 EXE 11000 EXE (顯示凈現值為 $5018.78)
計算完結後按 AC 終止程式
例題2: 一租約為期36個月，按照以下按排月初付款。
| 付款月數 | 付款數量 |
| 4 | $ 0 |
| 8 | $ 5000 |
| 3 | $ 0 |
| 9 | $ 6000 |
| 2 | $ 0 |
| 10 | $ 7000 |
假設年折現率 (Discount rate)為10%，試計算凈現值。
注意: 由於題目指明是月初付款，因此第一個現金流要當作最初投資(CFo)輸入，餘下的三個現金流則為 $0 ，即是頻數為3)
按 Prog 1 再按 - 12 EXE (每年複利計算期數，12代表月結算，負數代表使用頻數輸入方法)
10 EXE (年折現率)
0 EXE (輸入最初投資CFo)
0 EXE 3 EXE 5000 EXE 8 EXE 0 EXE 3 EXE 6000 EXE 9 EXE 0 EXE 2 EXE
7000 EXE 10 EXE (顯示凈現值為 $138088.44)
計算完結後按 AC 終止程式
返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集