貼現現金流(II)

程式可以計算貼現現金流 (Discounted cash flow: DCF) 問題, 較第(I)改善之處是可以輸入連續相同現金流的頻數(可開啟頻數輸入),因此不需要重複輸入大量相同的現金流,頻數預設值為1,但要注意輸入的現金流必須依時間順序輸入, 而且不能刪除錯誤的現金流。

程式編寫日期: 2007年10月20日

程式 (76 bytes)

Mem clear: ?→A: ?→B:

1+B÷100√A2→B: ?→M: Lbl 0:

1→D: ?→C: 0>A => ?→D: X + D→X:

C(B^D - 1)÷B^X(B - 1M+: M→C: Goto 0

 

例題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 終止程式

 

返回 fx-3650P及SC185程式集

Free Web Hosting