Anonymous user
Convert decimal number to rational: Difference between revisions
Convert decimal number to rational (view source)
Revision as of 15:43, 25 October 2019
, 4 years ago→{{header|NetRexx}}
m (→{{header|NetRexx}}: Fixed typo (fro → for)) |
|||
Line 1,521:
Else Return nom'/'den /* otherwise a fraction */</lang>
Output is the same as for Rexx Version 2.
=={{header|Nim}}==
Similar to the Rust and Julia implementations.
<lang nim>import math
import fenv
type
Rational = object
numerator: int
denominator: int
proc `$`(self: Rational): string =
$self.numerator & "//" & $self.denominator
func rationalize(x: float, tol: float = epsilon(float)): Rational =
var xx = x
let flagNeg = xx < 0.0
if flagNeg:
xx = -xx
if xx < minimumPositiveValue(float):
return Rational(numerator: 0, denominator: 1)
if abs(xx - round(xx)) < tol:
return Rational(numerator: int(round(xx)), denominator: 1)
var a = 0
var b = 1
var c = int(ceil(xx))
var d = 1
var aux1 = high(int) div 2
while c < aux1 and d < aux1:
var aux2 = (float(a) + float(c)) / (float(b) + float(d))
if abs(xx - aux2) < tol:
break
if xx > aux2:
inc a, c
inc b, d
else:
inc c, a
inc d, b
var gcd = gcd(a + c, b + d)
if flagNeg:
Rational(numerator: -(a + c) div gcd, denominator: (b + d) div gcd)
else:
Rational(numerator: (a + c) div gcd, denominator: (b + d) div gcd)
echo rationalize(0.9054054054)
echo rationalize(0.9054054054, 0.0001)
echo rationalize(0.5185185185)
echo rationalize(0.5185185185, 0.0001)
echo rationalize(0.75)
echo rationalize(0.1428571428, 0.001)
echo rationalize(35.000)
echo rationalize(35.001)
echo rationalize(0.9)
echo rationalize(0.99)
echo rationalize(0.909)
echo rationalize(0.909, 0.001)</lang>
{{out}}
<pre>
2263456195//2499936693
67//74
1037026019//1999978751
14//27
3//4
1//7
35//1
35001//1000
9//10
99//100
909//1000
10//11
</pre>
=={{header|PARI/GP}}==
| |||