債券價值計算

債券價值計算

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

程式使用 30/360 計日方法，計算債券的累計利息及購買價格。

程式需要在 SD 模式下執行，因此在選擇新程式位置後，按 4 選用SD模式。

注意 : 藍色的英文字為統計模式中的變數(n 按 shift 1 3 ，x為平均x 按 shift 2 1，而 E 是按 EXP)

程式 (286 bytes)

ClrStat: ?→Y: ?→M: ?→D: ?→X: ?→A: ?→B:

X - Y ; X DT: ?→X: Y - (A≧M→C: A≧M => X=2 => n→C:

Fix 0: C - 4Rnd( C÷4: Ans(B=28) + (B=29:

(B=31) + (A=2)Ans => 30→B: D=31 => B=30 => 30→D:

360→C: Cx + 30(A - M) + B - D→A: C÷X→D: A => A÷D - . 5:

Rnd( Ans→M: Norm 1: A - DM→B: Ans => M+1→M:

B=0 => D→B: ?→C: ?→A: ?→Y: C÷X→C: Y÷( E 2X→Y:

B÷D→B: C(1-B→X◢ 1≧M => - X + (A+C) ÷(1+BY◢

1 + Y→Y: - X + AY^(1-M-B) + C(Y^( -M ) - 1)÷( Y^( B )(Y^-1-1

例題: 一債券每半年支付息票一次，1債券購買日期為2006年6月12日，償還日期為2007年12月31日，息票利率為 7%，每$100票面價值的赎回價值為$100，年收益為8%，計算債券的累計利息及購買價格。

按 Prog 1 再按 2006 EXE 6 EXE 12 EXE (購買日期)

2007 EXE 12 EXE 31 EXE (償還日期)

2 EXE (每年息票支付數，即1代表1年一次，2代表半年一次)

7 EXE (息票利率)

100 EXE (每$100票面價值的赎回價值)

8 EXE (年收益，顯示累計利息為 $ 3.15)

EXE (顯示價格為 $ 98.56)

註: 程式計算範圍1901年至2099年