HP Forums
Super accurate Free42 - Printable Version

+- HP Forums (https://archived.hpcalc.org/museumforum)
+-- Forum: HP Museum Forums (https://archived.hpcalc.org/museumforum/forum-1.html)
+--- Forum: Old HP Forum Archives (https://archived.hpcalc.org/museumforum/forum-2.html)
+--- Thread: Super accurate Free42 (/thread-98975.html)



Super accurate Free42 - Tommi - 09-03-2006

I tried my old TVM equation in Thomas Okken's Free42 (decimal version) and was surprised it's now more accurate than my real HP42S.

Example 1:

n=63

i=0.00000161

PV=0

PMT=-1,000,000

END Mode (set B/E=0 in Solver)

Solving for FV:

HP 42S: 63,000,031.4434

Free42: 63,000,031.4433

(correct is 63,000,031.4433)

Example 2:

n=31536000

i=10/n

PV=0

PMT=-0.01

END Mode

Solving for FV:

HP 42S: 331,667.006689

Free42: 331,667.006691

(correct is 331,667.006691)

The TVM Solver can be found here:
TVM Solver for HP42S


Re: Super accurate Free42 - Paul Dale - 09-03-2006

Free42 carries 25 digits in its reals so it would be disappointing to not gain some accuracy.

- Pauli


Re: Super accurate Free42 - Miguel Toro - 09-03-2006

Hi Tommi,

I am new here and I wanted to thank you for this excellent version of the TVM. This is the one I will always use from now on. I made a modest contribution to the program, just because I do not have enough memory left in my beloved 42s. Here it is :

00 {78-Byte Prgm }
01 LBL "TVM"
02 MVAR "N"
03 MVAR "I%"
04 MVAR "PV"
05 MVAR "PMT"
06 MVAR "FV"
07 MVAR "B/E"
08 1
09 RCL "I%"
10 %
11 ENTER
12 ENTER
13 ENTER
14 LN1+X
15 RCL* "N"
16 E^X-1
17 RCL* "PMT"
18 RCL ST T
19 1/X
20 RCL+ "B/E"
21 *
22 RCL "PV"
23 RCL ST T
24 LN1+X
25 RCL* "N"
26 E^X
27 *
28 +
29 RCL+ "FV"
30 END

And this is another version if you want to take account of the payments per year (à la 10B):

00 {88-Byte Prgm }
01 LBL "TVM"
02 MVAR "N"
03 MVAR "I%"
04 MVAR "PV"
05 MVAR "PMT"
06 MVAR "FV"
07 MVAR "P/Y"
08 MVAR "B/E"
09 1
10 RCL "I%"
11 %
12 RCL÷ "P/Y"
13 ENTER
14 ENTER
15 ENTER
16 LN1+X
17 RCL* "N"
18 E^X-1
19 RCL* "PMT"
20 RCL ST T
21 1/X
22 RCL+ "B/E"
23 *
24 RCL "PV"
25 RCL ST T
26 LN1+X
27 RCL* "N"
28 E^X
29 *
30 +
31 RCL+ "FV"
32 END

Please try it and tell me if there are "bugs".

Miguel


Edited: 3 Sept 2006, 10:34 p.m.