HMS-> & ->HMS Prog. for 12C

[Dieter]

(01-11-2018 06:08 AM)Pekis Wrote:  ... and this thread for mathematical proof of my formulas,

Ah, so it was you who started that thread.

(01-11-2018 06:08 AM)Pekis Wrote:  but beware of rounding ...

Definitely. Calculating with base-60-numbers in the decimal world can be tricky. This reminds me of a 2016 thread where such problems were discussed in detail. Here even in such a powerful language as Fortran. But with binary floating point operations... #-)

Pekis: take a look at post #28 in the linked thread. ;-)

Carsen: here is an improved version that adapts the formulas in that thread. It also preserves the Y-register so that simple hh.mmss arithmetics can be done without storing intermediate results. And it's even one step shorter. ;-)

Code:

01 ENTER
02 CLX
03 x<>y
04 x<=y?
05 GTO 24
06 +
07 ENTER
08 FRAC
09 ,
10 4
11 x
12 -
13 EEX
14 4
15 %
16 FRAC
17 2
18 5
19 0
20 /
21 -
22 CHS
23 GTO 00
24 -
25 EEX
26 4
28 %
29 FRAC
20 1
30 5
31 0
32 /
33 +
34 ENTER
35 FRAC
36 1
37 ,
38 5
39 /
40 +
41 GTO 00

Re. your example:

Code:

-0,5553 [R/S] =>  0,913888889
-0,5300 [R/S] =>  0,883333333
         [+]  =>  1,814722222
        [R/S] => -1,4853

Dieter