T23
RCLX
T24
xOy
T25
RCLx
T26
+
Calculates
Px(l-(l+Z)~N)+Z.
Swaps
duplicate
copy
of
(1+Z)~N
(from
line T18)
into
the
X-register.
Calculates
Fx(l+Z)_N.
Calculates
Fx(l+Z)~N
+
Px(l-(1+Z)~N)+Z.
T27
RCL+
B Calculates
Fx(l+Z)_N
+
Px(l-(1+Z)-N)^-Z+B.
T28
RTN
Returns to calling routine.
Bytes
and
Checksum: 050.0, 429C
K01
LBL
K
This
routine
is
called
if
I =
0.
K02
RCL
P
K03
RCLx
N
K84
RCL+
F
K05
RCL+
B
Calculates
P X N + F + B.
K06
RTN
Returns to calling routine.
Bytes
and
Checksum: 009.0, F2E0
Flags
Used:
None.
Memory Required: 145 bytes: 89 for program, 56 for variables.
Remarks:
Since all of the computation for the program is done in
routines T and K, it is possible to shorten the program by eliminating
the other user-interface routines. To
run
the program in this shortened
form, select the function defined by
LBL
T (Bl
solve//
1{FN=} T).
and then solve for the variable you need (Bl solve/jI
{SOLVE}
variable).
Program
Instructions:
1. Key in the program routines; press [c] when done.
2.
Select the appropriate routine:
• Ixeq IN to calculate
the
number of compounding periods;
Ixeq 11 to calculate the periodic interest;
Ixeq I B to calculate
the
initial balance of a loan or savings
account;
14:
Miscellaneous
Programs
225