MathGroup Archive 2000

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Cyclic decimal periods.


"Alan W.Hopper" wrote:

> I would like to contribute my Mathematica notebook,
> PeriodicDecimalCycles.nb , (located in the attachment file, I hope), and I
> would like to offer the

> use of this notebook or the code from it, to be a part of the
> mathworld.wolfram.com/notebooks/
> site, if you want it.
>
> I used Mathematica 3.0  ;

RealDigits has been modified in Version 4, e.g.,

In[1]:= RealDigits[1/127]
Out[1]= {{{7, 8, 7, 4, 0, 1, 5, 7, 4, 8, 0, 3, 1, 4, 9, 6, 0, 6, 2, 9, 9, 2, 1,
2, 5, 9, 8, 4, 2, 5, 1,
    9, 6, 8, 5, 0, 3, 9, 3, 7, 0, 0}}, -2}

This should simplify your code for finding the decimal cycles.

Cheers,
    Paul




  • Prev by Date: Fantastic Mathematica Book goes out of print
  • Next by Date: Re: Bessel J0 zeros
  • Previous by thread: Cyclic decimal periods.
  • Next by thread: Mathematica Visiting Scholar Grant Program