
(FPCore (x) :precision binary64 (- 1.0 (* x (+ 0.253 (* x 0.12)))))
double code(double x) {
return 1.0 - (x * (0.253 + (x * 0.12)));
}
real(8) function code(x)
real(8), intent (in) :: x
code = 1.0d0 - (x * (0.253d0 + (x * 0.12d0)))
end function
public static double code(double x) {
return 1.0 - (x * (0.253 + (x * 0.12)));
}
def code(x): return 1.0 - (x * (0.253 + (x * 0.12)))
function code(x) return Float64(1.0 - Float64(x * Float64(0.253 + Float64(x * 0.12)))) end
function tmp = code(x) tmp = 1.0 - (x * (0.253 + (x * 0.12))); end
code[x_] := N[(1.0 - N[(x * N[(0.253 + N[(x * 0.12), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
1 - x \cdot \left(0.253 + x \cdot 0.12\right)
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 5 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x) :precision binary64 (- 1.0 (* x (+ 0.253 (* x 0.12)))))
double code(double x) {
return 1.0 - (x * (0.253 + (x * 0.12)));
}
real(8) function code(x)
real(8), intent (in) :: x
code = 1.0d0 - (x * (0.253d0 + (x * 0.12d0)))
end function
public static double code(double x) {
return 1.0 - (x * (0.253 + (x * 0.12)));
}
def code(x): return 1.0 - (x * (0.253 + (x * 0.12)))
function code(x) return Float64(1.0 - Float64(x * Float64(0.253 + Float64(x * 0.12)))) end
function tmp = code(x) tmp = 1.0 - (x * (0.253 + (x * 0.12))); end
code[x_] := N[(1.0 - N[(x * N[(0.253 + N[(x * 0.12), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
1 - x \cdot \left(0.253 + x \cdot 0.12\right)
\end{array}
(FPCore (x) :precision binary64 (fma (fma -0.12 x -0.253) x 1.0))
double code(double x) {
return fma(fma(-0.12, x, -0.253), x, 1.0);
}
function code(x) return fma(fma(-0.12, x, -0.253), x, 1.0) end
code[x_] := N[(N[(-0.12 * x + -0.253), $MachinePrecision] * x + 1.0), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\mathsf{fma}\left(-0.12, x, -0.253\right), x, 1\right)
\end{array}
Initial program 99.9%
lift--.f64N/A
lift-*.f64N/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
distribute-lft-neg-outN/A
distribute-rgt-neg-inN/A
*-commutativeN/A
lower-fma.f64N/A
lift-+.f64N/A
+-commutativeN/A
distribute-neg-inN/A
lift-*.f64N/A
*-commutativeN/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
metadata-evalN/A
metadata-eval99.9
Applied rewrites99.9%
(FPCore (x) :precision binary64 (if (<= (* x (+ 0.253 (* x 0.12))) 5e-13) (fma -0.253 x 1.0) (* (fma -0.12 x -0.253) x)))
double code(double x) {
double tmp;
if ((x * (0.253 + (x * 0.12))) <= 5e-13) {
tmp = fma(-0.253, x, 1.0);
} else {
tmp = fma(-0.12, x, -0.253) * x;
}
return tmp;
}
function code(x) tmp = 0.0 if (Float64(x * Float64(0.253 + Float64(x * 0.12))) <= 5e-13) tmp = fma(-0.253, x, 1.0); else tmp = Float64(fma(-0.12, x, -0.253) * x); end return tmp end
code[x_] := If[LessEqual[N[(x * N[(0.253 + N[(x * 0.12), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 5e-13], N[(-0.253 * x + 1.0), $MachinePrecision], N[(N[(-0.12 * x + -0.253), $MachinePrecision] * x), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \cdot \left(0.253 + x \cdot 0.12\right) \leq 5 \cdot 10^{-13}:\\
\;\;\;\;\mathsf{fma}\left(-0.253, x, 1\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(-0.12, x, -0.253\right) \cdot x\\
\end{array}
\end{array}
if (*.f64 x (+.f64 #s(literal 253/1000 binary64) (*.f64 x #s(literal 3/25 binary64)))) < 4.9999999999999999e-13Initial program 100.0%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f6499.1
Applied rewrites99.1%
if 4.9999999999999999e-13 < (*.f64 x (+.f64 #s(literal 253/1000 binary64) (*.f64 x #s(literal 3/25 binary64)))) Initial program 99.8%
Taylor expanded in x around inf
mul-1-negN/A
unpow2N/A
associate-*l*N/A
distribute-rgt-neg-inN/A
*-commutativeN/A
lower-*.f64N/A
distribute-rgt-neg-inN/A
distribute-neg-inN/A
metadata-evalN/A
distribute-rgt-inN/A
distribute-lft-neg-outN/A
associate-*l*N/A
lft-mult-inverseN/A
metadata-evalN/A
metadata-evalN/A
lower-fma.f6499.2
Applied rewrites99.2%
(FPCore (x) :precision binary64 (if (<= (* x (+ 0.253 (* x 0.12))) 5e-13) (fma -0.253 x 1.0) (* (* -0.12 x) x)))
double code(double x) {
double tmp;
if ((x * (0.253 + (x * 0.12))) <= 5e-13) {
tmp = fma(-0.253, x, 1.0);
} else {
tmp = (-0.12 * x) * x;
}
return tmp;
}
function code(x) tmp = 0.0 if (Float64(x * Float64(0.253 + Float64(x * 0.12))) <= 5e-13) tmp = fma(-0.253, x, 1.0); else tmp = Float64(Float64(-0.12 * x) * x); end return tmp end
code[x_] := If[LessEqual[N[(x * N[(0.253 + N[(x * 0.12), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 5e-13], N[(-0.253 * x + 1.0), $MachinePrecision], N[(N[(-0.12 * x), $MachinePrecision] * x), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \cdot \left(0.253 + x \cdot 0.12\right) \leq 5 \cdot 10^{-13}:\\
\;\;\;\;\mathsf{fma}\left(-0.253, x, 1\right)\\
\mathbf{else}:\\
\;\;\;\;\left(-0.12 \cdot x\right) \cdot x\\
\end{array}
\end{array}
if (*.f64 x (+.f64 #s(literal 253/1000 binary64) (*.f64 x #s(literal 3/25 binary64)))) < 4.9999999999999999e-13Initial program 100.0%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f6499.1
Applied rewrites99.1%
if 4.9999999999999999e-13 < (*.f64 x (+.f64 #s(literal 253/1000 binary64) (*.f64 x #s(literal 3/25 binary64)))) Initial program 99.8%
Taylor expanded in x around inf
mul-1-negN/A
unpow2N/A
associate-*l*N/A
distribute-rgt-neg-inN/A
*-commutativeN/A
lower-*.f64N/A
distribute-rgt-neg-inN/A
distribute-neg-inN/A
metadata-evalN/A
distribute-rgt-inN/A
distribute-lft-neg-outN/A
associate-*l*N/A
lft-mult-inverseN/A
metadata-evalN/A
metadata-evalN/A
lower-fma.f6499.2
Applied rewrites99.2%
Taylor expanded in x around inf
Applied rewrites98.4%
(FPCore (x) :precision binary64 (fma -0.253 x 1.0))
double code(double x) {
return fma(-0.253, x, 1.0);
}
function code(x) return fma(-0.253, x, 1.0) end
code[x_] := N[(-0.253 * x + 1.0), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(-0.253, x, 1\right)
\end{array}
Initial program 99.9%
Taylor expanded in x around 0
+-commutativeN/A
lower-fma.f6456.3
Applied rewrites56.3%
(FPCore (x) :precision binary64 1.0)
double code(double x) {
return 1.0;
}
real(8) function code(x)
real(8), intent (in) :: x
code = 1.0d0
end function
public static double code(double x) {
return 1.0;
}
def code(x): return 1.0
function code(x) return 1.0 end
function tmp = code(x) tmp = 1.0; end
code[x_] := 1.0
\begin{array}{l}
\\
1
\end{array}
Initial program 99.9%
Taylor expanded in x around 0
Applied rewrites54.4%
herbie shell --seed 2024329
(FPCore (x)
:name "Numeric.SpecFunctions:invIncompleteGamma from math-functions-0.1.5.2, A"
:precision binary64
(- 1.0 (* x (+ 0.253 (* x 0.12)))))