(11C) Solve for [i] given [n] [PMT] [FV]

[Gamo]

This update solve for [i] with either group of three known variables.
[n] [PMT] [PV]
[n] [PMT] [FV]

LBL A [n]
LBL B Reset
LBL C [PMT]
LBL D [PV]
LBL E [FV]

Procedure: To solve [i]
input [n] [PMT] [PV] > GSB 1 (answer [i])
input [n] [PMT] [FV] > GSB 2 (answer [i])

Example:
36 > A > 36 ( input [n] )
360 > C > 360 ( input [PMT] )
360000 > E > 360000 ( input *[FV] )
*GSB > 2 > 14.94 ( Answer [i] )

36 > A > 36 ( input [n] )
360 > C > 360 ( input [PMT] )
1000 > D > 1000 ( input *[PV] )
*GSB > 1 > 36 ( Answer [i] )


Program:

Code:


*LBL A    // [n]
 STO 1
 RTN
 *LBL C    // [PMT]
 STO 3
 RTN
*LBL D    // [PV]
STO 4
RTN
 *LBL E    // [FV]
 STO 5
 RTN
*LBL 1
RCL 3
RCL 4
÷
ENTER
1/x
RCL 1
x²
÷
-
STO 2
0
X=Y
RTN
CLx
*LBL 3
RCL 2
1
+
STO 6
RCL 1
Y^X
STO 7
RCL 4
RCL 3
÷
RCL 2
x
1
-
x
1
+
RCL 2
x
LSTx
RCL 1
x
RCL 6
÷
RCL 7
-
1
+
÷
FIX 9
STO+2
PSE
ABS
EEX
CHS
6
X≤Y
GTO 3
RCL 2
FIX 2
EEX
2
x
RTN
*LBL 2
 RCL 5
 RCL 3
 ÷
 STO 6
 RCL 1
 -
 LSTx
 1
 -
 x²
RCL 6
 +
 ÷
 2
 x
 0
 X=Y
 RTN
 CLx
 Rv
 STO 2
 *LBL 4
 RCL 2
 1
 +
 STO 6
 RCL 1
 Y^X
 STO 7
 1
 -
 RCL 2
 ÷
 RCL 3
 x
 RCL 5
 -
 RCL 1
 RCL 2
 x
 RCL 7
 RCL 6
 ÷
 x
 1
 +
 RCL 7
 -
 RCL 2
 x²
÷
 RCL 3
 x
 ÷
 FIX 9
 STO - 2
 PSE
 ABS
 EEX
 6
 CHS
 X≤Y
 GTO 4
 RCL 2
 FIX 2
 EEX
 2
 x
 RTN
 *LBL B    //  Reset
 CLx
 REG
 RTN