貼現現金流(I)

更新日期: 2011年3月27日

程式可以計算貼現現金流 (Discounted cash flow: DCF) 問題,輸入的現金流可以不依時間順序,輸入錯誤現金流 ,只要輸入相反正負號的現金流即可刪除。

程式 (42 bytes)

ClrMemory: ?→A: ?→B:

1+B%÷A→B: While 1: ?→C:

?→A: C÷B^( AM+: M→C: WhileEnd

 

註: 若果想保留一些記憶用作儲存臨時數據,可將程式中"Mem clear"改為"MM-",而程式所使用的記憶為A,B,C及M。

 

例題: 一公司以$20000購買一機器,以下為每年年結時可以節省的金額:

1 2 3 4
金額 $5000 $7500 $9000 $11000

假設年折現率 (Discount rate)為10%,試計算凈現值。

按 Prog 1 再按 1 EXE (每年複利計算期數) 10 EXE (年折現率)

- 20000 EXE (負數代表支出) 0 EXE (期數0代表現時)

5000 EXE (正數代表收入) 1 EXE (期數)

7500 EXE 2 EXE 9000 EXE 3 EXE 11000 EXE 4 EXE (顯示凈現值為 $5018.78)

計算完結後按 AC 終止程式

 

返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集

Free Web Hosting