債券計算
程式編寫日期: 2009年4月22日
注意若果不用記存答案，綠色的程式碼可以不輸入，E是按 EXP 。
程式 (209 bytes)
Mem clear: ?→A: ?→B: ?→C: ?→D: ?→X: ?→Y:
C ÷ E2Y→C: D ÷ E2Y→D: (1 + D)^X→M:
A=0 => BM-1(1 + D-1C(M - 1◢
B=0 => AM ÷ (1 + D-1C(M - 1◢
C=0 => E2(AM ÷ B - 1)D ÷ (M - 1◢
X=0 => BC ÷ D => log( (B - Ans) ÷ (AM - Ans) ) ÷ log (1 + D◢
. 06→M: Lbl 0: 1+ M: (AB-1Ans^X - 1 - C(Ans^X - 1) ÷ M)M2Ans
÷ (X + CX + Ans(CAns^X - C+ X(Ans - 2 - CM- => Goto 0:
E2YM
註1: 計算債券年收益率，程式使用牛頓法計算答案，由於可能需要較多計算，計算時間可能會較長。
註2: 每年付息頻率必需輸入數值，否則計算不成立。
例題1: 2000年1月1日，XYZ公司購買一4年期債券，票面價值為 $100000，息票利率為 8%，債券每年支付息票一次，年收益為10%，求債券現值。
按 Prog 1 再按 EXE (不輸入第一個數值代表計算現值)
100000 EXE (票面值)
8 EXE (息票利率)
10 EXE (年收益率)
4 EXE (付息總次數)
1 EXE (每年支付利息頻率，顯示債券現值 $93660)
例題2: 2000年1月1日，XYZ公司購買一4年期債券，債券現值為$93660，息票利率為 8%，債券每年支付息票一次，年收益為10%，求債券票面值。
按 Prog 1 再按 93660EXE (債券現值)
EXE (不輸入第二個數值代表計算票面值)
8 EXE (息票利率)
10 EXE (年收益率)
4 EXE (付息總次數)
1 EXE (每年支付利息頻率，顯示債券票面值 $100000)
例題3: 2000年1月1日，XYZ公司購買一4年期債券，債券現值為$93660，票面價值為 $100000，債券每年支付息票一次，年收益為10%，求息票利率。
按 Prog 1 再按 93660EXE (債券現值)
100000 EXE (票面值)
EXE (不輸入第三個數值代表計算息票利率)
10 EXE (年收益率)
4 EXE (付息總次數)
1 EXE (每年支付利息頻率，顯示息票利率為 8%)
例題4: 2000年1月1日，XYZ公司購買一4年期債券，債券現值為$93660，票面價值為 $100000，息票利率為 8%，債券每年支付息票一次，求息票利率。
按 Prog 1 再按 93660EXE (債券現值)
100000 EXE (票面值)
8 EXE (息票利率)
EXE (不輸入第四個數值代表計算年收益率)
4 EXE (付息總次數)
1 EXE (每年支付利息頻率，顯示收益率為 10%)
例題5: 2000年1月1日，XYZ公司購買一債券，債券現值為$93660，票面價值為 $100000，息票利率為 8%，債券每年支付息票一次，年收益為10%，求付息總次數。
按 Prog 1 再按 93660EXE (債券現值)
100000 EXE (票面值)
8 EXE (息票利率)
10 EXE (年收益率)
EXE (不輸入第五個數值代表計算付息總次數)
1 EXE (每年支付利息頻率，顯示付息總次數 4)