債券計算
更新日期: 2014年8月1日
注意: E是按 EXP 。
程式 (208 bytes)
ClrMemory: ?→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( 1 + D , (B - Ans) ÷ (AM - Ans◢
. 06→M: While Ans: 1+ M: (AB-1Ans^( X ) - 1 - C(Ans^( X ) - 1) ÷ M)
M2Ans ÷ (X + CX + Ans(CAns^( X ) - C+ X(Ans - 2 - CM-: WhileEnd:
E2YM
註1: 計算債券年收益率，程式使用牛頓法計算答案，由於可能需要較多計算，計算時間可能會較長。
註2: 每年付息頻率必需輸入數值，否則計算不成立。
註3: 如果是使用fx-3650P II或fx-50FH II，上述程式(第二行)中的 D ÷ ( E2Y→D: 可以簡化為 D ÷ E2Y→D:，可節省1 byte。
例題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)
返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集