(12C) Annualised Equivalent Rate & Continuously Compounded Rate

[Joe_H]

I have completed this program. Thinking about it further and to avoid confusion everything is in one program now with a selection option as there are effectively 3 options:

{using APR(nominal rate)=i, AER(effective rate)=i* and CCR(continuous comp. rate)=i**}

0 - i -> i* & i**
1 - i* -> i & i**
2 - i** -> i & i*

Option 2 is unlikely as I don't think it is often given that way but it completes the conversions there could be.

To use it put values into n and i and type 0, 1 or 2 followed by R/S. The output convention is that X will have the lowest * and Y the higher. Output is in percent form for convenience. It stores i in decimal form in R0 which also can be useful. R1 is also used.

Code:


01 1                                /////// Interest Rate Conversion Program   uses n, i & X and 2 R registers //////
02 RCL i                            // Convention APR=i, AER=i* & CCR=i** hence X=0,1 or 2 for selection referring to the *'s
03 %                                // Start by saving decimal i and 1 + decimal i as well as 100 (for percent conversion)
04 STO R0                            // store decimal i 
05 +
06 STO R1                            // Store 1+decimal i
07 Rv                                // restore option to top of stack
08 x=0?                                // Start of select conversion option
09 g GTO 27            
10 1
11 -
12 x=0?
13 g GTO 43                        
14 RCL R1                            // Start CCR conversions: CCR -> APR & AER
15 LN()
16 ENTER
17 ENTER
18 RCL n
19 /
20 1
21 +
22 RCL n
23 y^x
24 1
25 -
26 g GTO 57                    
27 RCL R0                        // Start APR conversions: APR -> CCR
28 ENTER
29 e^x
30 1
31 -
32 X/Y                            // APR -> AER
33 RCL n
34 /
35 1
36 +
37 RCL n
38 y^x
39 1                            
40 -                            
41 X/Y
42 g GTO 57                    // go to change format        
43 RCL R1                        // Start AER Conversions AER -> APR & CCR
44 RCL n
45 1/x
46 y^x
47 1
48 -
49 RCL n
50 *
51 ENTER
52 ENTER
53 X/Y
54 e^x
55 1
56 -
57 EEX                    // routine to change to percent form - i* or i** is on top but will switch around as converts
58 2
59 *
60 X/Y
61 EEX
62 2
63 *