Calculator benchmark

[C.Ret]

(08-19-2021 11:31 PM)Valentin Albillo Wrote:  See if you can find it (I'm sure you will).

Yes, but too late, I found same ways to spare a few strokes but not the 4 strokes you were waiting for !

Werner propose a much economic solution, but I think we reach a limit in clarity. Especially when he changes the order of results not following at the original table order.

I try to optimize a bit more his code trying to include all the process into a unique code run. But I am not satisfy with the solution I come to. It is far too much confusing and the user certainly will be completely lost.

That why I was looking for a much more secure way to do this job

Quote: I think this is a fairly representative calculator problem- perhaps you have collected some data from an experiment, and need to transform this data before presenting it.

Imagine you have to present the results to your boss or an examination committee; any confusing results, mistake or erroneous transcription would certainly bring you in big troubles !

Fortunately, I found a device that will be a easy and secure to use:

HP-19C PROGRAM

Code:

(3)    [.PRGM.]  f Clear PRGM
(27)   2.56  STO 2  3.12  GSB 0  GSB 2  GSB 2  GSB 1  GSB 1  STO*1  GSB 2  GSB 2                             # Main program: build up table
(29)   g 1/x  ST+2  GSB 2  18.56  GSB 0  17.63  GSB 0  g 1/x  GSB 2  g 1/x  GTO 2                            

(6)    g LBL 0  STO 1  1                                                                                     # Subprograms
(7)    g LBL 1  STO*1  1                                                                                     ;  0:sto A   1:sto 2A  2:sto B/2
(6)    g LBL 2  STO/2
(30)   g LBL 9  RCL 1  STO 0  STO*0  STO+0  RCL 2  ENTER^  f LN  STO-0  ENTER^  +  RCL 0  f PRSTK  2  g RTN  ; Compute X and Y then print A B Y X 
(2)    [..RUN]  R/S                                                                                          # Switch back to RUN mode and run code

This PRINT the complete and unambiguous listing where labels X Y Z & T indicate respectively X Y B & A values:

R/S

3.1200 T
2.5600 Z
1.8800 Y
11.9144 X

3.1200 T
1.2800 Z
0.4937 Y
12.6075 X

3.1200 T
0.6400 Z
-0.8926 Y
13.3007 X

6.2400 T
0.6400 Z
-0.8926 Y
45.6239 X

12.4800 T
0.6400 Z
-0.8926 Y
168.6767 X

24.9600 T
0.3200 Z
-2.2789 Y
649.1010 X

24.9600 T
0.1600 Z
-3.6652 Y
649.7942 X

24.9600 T
1.3200 Z
0.5553 Y
647.6840 X

18.5600 T
1.3200 Z
0.5553 Y
362.7560 X

17.6300 T
1.3200 Z
0.5553 Y
328.1693 X

17.6300 T
2.6400 Z
1.9416 Y
327.4761 X

17.6300 T
5.2800 Z
3.3279 Y
326.7838 X

SCORE 110 for the honorable and practical HP-19C pocket printing calculator.