Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2000

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

Search the Archive

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




  • 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