Re: Cyclic decimal periods.
- To: mathgroup at smc.vnet.net
- Subject: [mg21781] Re: Cyclic decimal periods.
- From: Paul Abbott <paul at physics.uwa.edu.au>
- Date: Thu, 27 Jan 2000 22:57:04 -0500 (EST)
- Organization: University of Western Australia
- References: <85euu1$phn@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
"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