債券計算

更新日期: 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 程式集

Free Web Hosting