28 - ZINS - Financial Calculations

Post Reply
Peet
Posts: 257
Joined: Tue Sep 29, 2020 12:01 am
Location: Germany

28 - ZINS - Financial Calculations

Post by Peet »

Code: Select all

LBL "ZINS"
SF 27
FIX 02
GTO a
LBL A
STO 01
FS?C 22
RTN
RCL 04
RCL 09
/
STO 10
RCL 05
-
RCL 03
RCL 10
+
/
LN
RCL 09
LN1+X
/
STO 01
"N="
ARCL X
AVIEW
RTN
LBL B
STO 02
100
/
STO 09
1
+
STO 07
RCL 02
FS?C 22
RTN
RCL 04
X#0?
GTO 01
RCL 05
RCL 03
/
CHS
RCL 01
1/X
Y^X
1
-
STO 09
GTO 00
LBL 01
RCL 05
ABS
RCL 04
RCL 01
*
RCL 03
+
ABS
-
RCL 04
RCL 01
*
RCL 05
+
ABS
RCL 03
ABS
-
*
ENTER
ABS
/
1 E-9
*
STO 09
LBL 06
XEQ 08
RCL 04
*
RCL 03
+
RCL 05
RCL 08
*
+
RCL 08
RCL 07
/
RCL 01
*
STO 06
1
RCL 08
-
RCL 09
/
-
RCL 04
RCL 09
/
*
RCL 05
RCL 06
*
-
/
ST- 09
ABS
1 E-7
X<=Y?
GTO 06
RCL 09
LBL 00
1 E2
*
STO 02
"I="
ARCL X
"|-%"
AVIEW
RTN
LBL C
STO 03
FS?C 22
RTN
RCL 04
XEQ 08
*
RCL 05
RCL 08
*
+
CHS
STO 03
"PV="
ARCL X
AVIEW
RTN
LBL D
STO 04
FS?C 22
RTN
XEQ 08
1/X
RCL 03
RCL 05
RCL 08
*
+
*
CHS
STO 04
"PM="
ARCL X
AVIEW
RTN
LBL E
STO 05
FS?C 22
RTN
XEQ 08
RCL 04
*
RCL 03
+
RCL 08
/
CHS
STO 05
"FV="
ARCL X
AVIEW
RTN
LBL 08
1
XEQ 09
RCL 01
CHS
Y^X
STO 08
-
RCL 09
/
RTN
LBL 09
RCL 09
1
+
STO 07
RTN
LBL a
CLX
STO 01
STO 02
STO 03
STO 04
STO 05
STO 09
"N-I-PV-PM-FV"
AVIEW
END
HP41 Standard Applications (modified version)
Changes: User mode, FIX 2, output-text, R00->R10 (reserve R00 for ZZ)

Usage:

a: (re)start - a new calculation (neue Berechnung)
A: N - Number of periods (Zins-/Zahlungsperioden)
B: I - Interest (Zinsen)
C: PV - Present Value (Anfangsbetrag - Kapital/Kredit)
D: PM (PMT) - Payment (Ratenbetrag)
E: FV - Future Value (Endbetrag)
Attachments
28_ZINS_Finanzen.raw
(284 Bytes) Downloaded 229 times
My programmable calculators - former: CBM PR100, HP41CV, HP28S, HP11C - current: HP48G(256kB), HP35S, Prime, DM41X, DM42
Post Reply