| Author |
Comment/Response |
tom
|
 01/26/12 5:34pm
In mathematica 7.0 i found a function:
The function digitCycleLength gives the digit period for any rational number r in base b:
digitCycleLength[r_Rational, b_Integer?Positive] :=
MultiplicativeOrder[b,
FixedPoint[Quotient[#, GCD[#, b]] &, Denominator[r]]]
digitCycleLength[1/3,10]=1 because 1/3=0.(3)
but why
digitCycleLength[1/2,10]=1 ? because 1/2=0.5=0.4(9)? IMO the result should be 0
URL: , |
|
