Expressing a decimal as a fraction in lowest terms

Question

How can I express a decimal such as 0.1845095405274387 as a fraction in its lowest terms?

Rationalize[0.1845095405274387, 10^-50] ? – Dr. belisarius Jun 20 '12 at 01:07 — Dr. belisarius, Jun 20 '12 at 01:07

score 9 · Answer 1 · answered Jun 21 '12 at 21:21

9

Another option:

RootApproximant[0.1845095405274387, 1]

answered Jun 21 '12 at 21:21

Simon Woods

score 8 · Answer 2 · answered Jun 21 '12 at 23:05

8

Still another possibility:

Last[Convergents[0.1845095405274387]]

answered Jun 21 '12 at 23:05

1

+1 for referencing a non-esoteric function I cannot recall using. – Mr.Wizard Jun 22 '12 at 02:02
I deal with continued fractions somewhat frequently, you see... – J. M.'s missing motivation Jun 22 '12 at 02:04

score 7 · Answer 3 · answered Jun 20 '12 at 01:25

7

A couple of bits of code for your consideration:

FromDigits@#/10^(Length@# - #2) & @@ RealDigits[0.1845095405274387]

Rationalize[0.1845095405274387, $MachineEpsilon]

answered Jun 20 '12 at 01:25

Mr.Wizard

3 Answers3