
(FPCore (x) :precision binary64 (/ x (+ (* x x) 1.0)))
double code(double x) {
return x / ((x * x) + 1.0);
}
real(8) function code(x)
real(8), intent (in) :: x
code = x / ((x * x) + 1.0d0)
end function
public static double code(double x) {
return x / ((x * x) + 1.0);
}
def code(x): return x / ((x * x) + 1.0)
function code(x) return Float64(x / Float64(Float64(x * x) + 1.0)) end
function tmp = code(x) tmp = x / ((x * x) + 1.0); end
code[x_] := N[(x / N[(N[(x * x), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x}{x \cdot x + 1}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 2 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x) :precision binary64 (/ x (+ (* x x) 1.0)))
double code(double x) {
return x / ((x * x) + 1.0);
}
real(8) function code(x)
real(8), intent (in) :: x
code = x / ((x * x) + 1.0d0)
end function
public static double code(double x) {
return x / ((x * x) + 1.0);
}
def code(x): return x / ((x * x) + 1.0)
function code(x) return Float64(x / Float64(Float64(x * x) + 1.0)) end
function tmp = code(x) tmp = x / ((x * x) + 1.0); end
code[x_] := N[(x / N[(N[(x * x), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x}{x \cdot x + 1}
\end{array}
(FPCore (x) :precision binary64 (/ x (+ (* x x) 1.0)))
double code(double x) {
return x / ((x * x) + 1.0);
}
real(8) function code(x)
real(8), intent (in) :: x
code = x / ((x * x) + 1.0d0)
end function
public static double code(double x) {
return x / ((x * x) + 1.0);
}
def code(x): return x / ((x * x) + 1.0)
function code(x) return Float64(x / Float64(Float64(x * x) + 1.0)) end
function tmp = code(x) tmp = x / ((x * x) + 1.0); end
code[x_] := N[(x / N[(N[(x * x), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x}{x \cdot x + 1}
\end{array}
Initial program 78.5%
(FPCore (x) :precision binary64 (* x x))
double code(double x) {
return x * x;
}
real(8) function code(x)
real(8), intent (in) :: x
code = x * x
end function
public static double code(double x) {
return x * x;
}
def code(x): return x * x
function code(x) return Float64(x * x) end
function tmp = code(x) tmp = x * x; end
code[x_] := N[(x * x), $MachinePrecision]
\begin{array}{l}
\\
x \cdot x
\end{array}
Initial program 78.5%
Taylor expanded in x around 0
Applied rewrites4.3%
(FPCore (x) :precision binary64 (/ 1.0 (+ x (/ 1.0 x))))
double code(double x) {
return 1.0 / (x + (1.0 / x));
}
real(8) function code(x)
real(8), intent (in) :: x
code = 1.0d0 / (x + (1.0d0 / x))
end function
public static double code(double x) {
return 1.0 / (x + (1.0 / x));
}
def code(x): return 1.0 / (x + (1.0 / x))
function code(x) return Float64(1.0 / Float64(x + Float64(1.0 / x))) end
function tmp = code(x) tmp = 1.0 / (x + (1.0 / x)); end
code[x_] := N[(1.0 / N[(x + N[(1.0 / x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{x + \frac{1}{x}}
\end{array}
herbie shell --seed 2024321
(FPCore (x)
:name "x / (x^2 + 1)"
:precision binary64
:pre (TRUE)
:alt
(! :herbie-platform default (/ 1 (+ x (/ 1 x))))
(/ x (+ (* x x) 1.0)))