Threaded Mode | Linear Mode

Dieter · (This post was last modified: 07-15-2016 07:00 PM by Dieter.)

(07-15-2016 02:37 AM)Eddie W. Shore Wrote: This program takes the modulus of two numbers:
Y MOD X = X * FRAC(Y/X)

That's not a good idea: roundoff errors will spoil the results.
Consider your two examples:

124 mod 77 does not return 47 but 46,99999997
3862 mod 108 does not return 82 but 82,00000008

That's why you better use the relation y mod x = y – x * INT(y/x) instead.

Code:

01-       34  x<>y

02-     44 0  STO 0

03-       34  x<>y

04-       10  ÷

05-    43 36  LSTX

06-       34  x<>y

07-    43 25  INTG

08-       20  x

09-  44 30 0  STO- 0

10-       33  R↓

11-     45 0  RCL 0

12- 44,33 00  GTO 00

That's a bit longer and requires one data register, but it works.
The R↓ in line 11 was included to preserve the initiial values in T and Z.

Dieter