
(FPCore (t) :precision binary64 (let* ((t_1 (/ (* 2.0 t) (+ 1.0 t))) (t_2 (* t_1 t_1))) (/ (+ 1.0 t_2) (+ 2.0 t_2))))
double code(double t) {
double t_1 = (2.0 * t) / (1.0 + t);
double t_2 = t_1 * t_1;
return (1.0 + t_2) / (2.0 + t_2);
}
real(8) function code(t)
real(8), intent (in) :: t
real(8) :: t_1
real(8) :: t_2
t_1 = (2.0d0 * t) / (1.0d0 + t)
t_2 = t_1 * t_1
code = (1.0d0 + t_2) / (2.0d0 + t_2)
end function
public static double code(double t) {
double t_1 = (2.0 * t) / (1.0 + t);
double t_2 = t_1 * t_1;
return (1.0 + t_2) / (2.0 + t_2);
}
def code(t): t_1 = (2.0 * t) / (1.0 + t) t_2 = t_1 * t_1 return (1.0 + t_2) / (2.0 + t_2)
function code(t) t_1 = Float64(Float64(2.0 * t) / Float64(1.0 + t)) t_2 = Float64(t_1 * t_1) return Float64(Float64(1.0 + t_2) / Float64(2.0 + t_2)) end
function tmp = code(t) t_1 = (2.0 * t) / (1.0 + t); t_2 = t_1 * t_1; tmp = (1.0 + t_2) / (2.0 + t_2); end
code[t_] := Block[{t$95$1 = N[(N[(2.0 * t), $MachinePrecision] / N[(1.0 + t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 * t$95$1), $MachinePrecision]}, N[(N[(1.0 + t$95$2), $MachinePrecision] / N[(2.0 + t$95$2), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{2 \cdot t}{1 + t}\\
t_2 := t\_1 \cdot t\_1\\
\frac{1 + t\_2}{2 + t\_2}
\end{array}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 13 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (t) :precision binary64 (let* ((t_1 (/ (* 2.0 t) (+ 1.0 t))) (t_2 (* t_1 t_1))) (/ (+ 1.0 t_2) (+ 2.0 t_2))))
double code(double t) {
double t_1 = (2.0 * t) / (1.0 + t);
double t_2 = t_1 * t_1;
return (1.0 + t_2) / (2.0 + t_2);
}
real(8) function code(t)
real(8), intent (in) :: t
real(8) :: t_1
real(8) :: t_2
t_1 = (2.0d0 * t) / (1.0d0 + t)
t_2 = t_1 * t_1
code = (1.0d0 + t_2) / (2.0d0 + t_2)
end function
public static double code(double t) {
double t_1 = (2.0 * t) / (1.0 + t);
double t_2 = t_1 * t_1;
return (1.0 + t_2) / (2.0 + t_2);
}
def code(t): t_1 = (2.0 * t) / (1.0 + t) t_2 = t_1 * t_1 return (1.0 + t_2) / (2.0 + t_2)
function code(t) t_1 = Float64(Float64(2.0 * t) / Float64(1.0 + t)) t_2 = Float64(t_1 * t_1) return Float64(Float64(1.0 + t_2) / Float64(2.0 + t_2)) end
function tmp = code(t) t_1 = (2.0 * t) / (1.0 + t); t_2 = t_1 * t_1; tmp = (1.0 + t_2) / (2.0 + t_2); end
code[t_] := Block[{t$95$1 = N[(N[(2.0 * t), $MachinePrecision] / N[(1.0 + t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 * t$95$1), $MachinePrecision]}, N[(N[(1.0 + t$95$2), $MachinePrecision] / N[(2.0 + t$95$2), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{2 \cdot t}{1 + t}\\
t_2 := t\_1 \cdot t\_1\\
\frac{1 + t\_2}{2 + t\_2}
\end{array}
\end{array}
(FPCore (t)
:precision binary64
(let* ((t_1 (/ (* 2.0 t) (+ 1.0 t))))
(/
(fma (/ (* (/ t (+ 1.0 t)) 2.0) (+ 1.0 t)) (* t 2.0) 1.0)
(+ 2.0 (* t_1 t_1)))))
double code(double t) {
double t_1 = (2.0 * t) / (1.0 + t);
return fma((((t / (1.0 + t)) * 2.0) / (1.0 + t)), (t * 2.0), 1.0) / (2.0 + (t_1 * t_1));
}
function code(t) t_1 = Float64(Float64(2.0 * t) / Float64(1.0 + t)) return Float64(fma(Float64(Float64(Float64(t / Float64(1.0 + t)) * 2.0) / Float64(1.0 + t)), Float64(t * 2.0), 1.0) / Float64(2.0 + Float64(t_1 * t_1))) end
code[t_] := Block[{t$95$1 = N[(N[(2.0 * t), $MachinePrecision] / N[(1.0 + t), $MachinePrecision]), $MachinePrecision]}, N[(N[(N[(N[(N[(t / N[(1.0 + t), $MachinePrecision]), $MachinePrecision] * 2.0), $MachinePrecision] / N[(1.0 + t), $MachinePrecision]), $MachinePrecision] * N[(t * 2.0), $MachinePrecision] + 1.0), $MachinePrecision] / N[(2.0 + N[(t$95$1 * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{2 \cdot t}{1 + t}\\
\frac{\mathsf{fma}\left(\frac{\frac{t}{1 + t} \cdot 2}{1 + t}, t \cdot 2, 1\right)}{2 + t\_1 \cdot t\_1}
\end{array}
\end{array}
Initial program 100.0%
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
clear-numN/A
associate-*r/N/A
div-invN/A
times-fracN/A
lift-*.f64N/A
count-2-revN/A
flip3-+N/A
clear-num-revN/A
clear-numN/A
flip3-+N/A
count-2-revN/A
lift-*.f64N/A
Applied rewrites100.0%
(FPCore (t)
:precision binary64
(if (<= (/ (* 2.0 t) (+ 1.0 t)) 1.9999999996177582)
(/
(fma (/ (* -2.0 t) (* (fma -1.0 t -1.0) (+ 1.0 t))) (* t 2.0) 1.0)
(+ 2.0 (/ (* t (* -4.0 t)) (* (- -1.0 t) (+ 1.0 t)))))
(- 0.8333333333333334 (/ 0.2222222222222222 t))))
double code(double t) {
double tmp;
if (((2.0 * t) / (1.0 + t)) <= 1.9999999996177582) {
tmp = fma(((-2.0 * t) / (fma(-1.0, t, -1.0) * (1.0 + t))), (t * 2.0), 1.0) / (2.0 + ((t * (-4.0 * t)) / ((-1.0 - t) * (1.0 + t))));
} else {
tmp = 0.8333333333333334 - (0.2222222222222222 / t);
}
return tmp;
}
function code(t) tmp = 0.0 if (Float64(Float64(2.0 * t) / Float64(1.0 + t)) <= 1.9999999996177582) tmp = Float64(fma(Float64(Float64(-2.0 * t) / Float64(fma(-1.0, t, -1.0) * Float64(1.0 + t))), Float64(t * 2.0), 1.0) / Float64(2.0 + Float64(Float64(t * Float64(-4.0 * t)) / Float64(Float64(-1.0 - t) * Float64(1.0 + t))))); else tmp = Float64(0.8333333333333334 - Float64(0.2222222222222222 / t)); end return tmp end
code[t_] := If[LessEqual[N[(N[(2.0 * t), $MachinePrecision] / N[(1.0 + t), $MachinePrecision]), $MachinePrecision], 1.9999999996177582], N[(N[(N[(N[(-2.0 * t), $MachinePrecision] / N[(N[(-1.0 * t + -1.0), $MachinePrecision] * N[(1.0 + t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(t * 2.0), $MachinePrecision] + 1.0), $MachinePrecision] / N[(2.0 + N[(N[(t * N[(-4.0 * t), $MachinePrecision]), $MachinePrecision] / N[(N[(-1.0 - t), $MachinePrecision] * N[(1.0 + t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(0.8333333333333334 - N[(0.2222222222222222 / t), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{2 \cdot t}{1 + t} \leq 1.9999999996177582:\\
\;\;\;\;\frac{\mathsf{fma}\left(\frac{-2 \cdot t}{\mathsf{fma}\left(-1, t, -1\right) \cdot \left(1 + t\right)}, t \cdot 2, 1\right)}{2 + \frac{t \cdot \left(-4 \cdot t\right)}{\left(-1 - t\right) \cdot \left(1 + t\right)}}\\
\mathbf{else}:\\
\;\;\;\;0.8333333333333334 - \frac{0.2222222222222222}{t}\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) < 1.9999999996177582Initial program 100.0%
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
clear-numN/A
associate-*r/N/A
div-invN/A
times-fracN/A
lift-*.f64N/A
count-2-revN/A
flip3-+N/A
clear-num-revN/A
clear-numN/A
flip3-+N/A
count-2-revN/A
lift-*.f64N/A
Applied rewrites100.0%
lift-*.f64N/A
lift-/.f64N/A
associate-*r/N/A
lower-/.f64N/A
lift-/.f64N/A
associate-*l/N/A
lift-*.f64N/A
lift-*.f64N/A
swap-sqrN/A
metadata-evalN/A
metadata-evalN/A
swap-sqrN/A
lower-/.f64N/A
swap-sqrN/A
metadata-evalN/A
metadata-evalN/A
lift-*.f64N/A
lower-*.f64N/A
metadata-eval100.0
Applied rewrites100.0%
lift-/.f64N/A
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
associate-/l*N/A
frac-2negN/A
associate-/l/N/A
lower-/.f64N/A
distribute-lft-neg-inN/A
lower-*.f64N/A
metadata-evalN/A
lower-*.f64N/A
lift-+.f64N/A
+-commutativeN/A
distribute-neg-inN/A
neg-mul-1N/A
metadata-evalN/A
lower-fma.f64100.0
Applied rewrites100.0%
lift-/.f64N/A
lift-/.f64N/A
associate-/l/N/A
lift-*.f64N/A
*-commutativeN/A
lift-*.f64N/A
associate-*l*N/A
*-commutativeN/A
lift-*.f64N/A
frac-timesN/A
frac-2negN/A
frac-timesN/A
lift-+.f64N/A
+-commutativeN/A
distribute-neg-inN/A
mul-1-negN/A
metadata-evalN/A
lift-fma.f64N/A
*-commutativeN/A
lift-*.f64N/A
Applied rewrites100.0%
if 1.9999999996177582 < (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) Initial program 100.0%
Taylor expanded in t around inf
lower--.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f64100.0
Applied rewrites100.0%
(FPCore (t)
:precision binary64
(if (<= (/ (* 2.0 t) (+ 1.0 t)) 1.999)
(/
(fma (/ (* 4.0 t) (+ 1.0 t)) (/ t (+ 1.0 t)) 1.0)
(+ 2.0 (/ (* t (* -4.0 t)) (* (- -1.0 t) (+ 1.0 t)))))
(/ (- 5.0 (/ 8.0 t)) (- 6.0 (/ 8.0 t)))))
double code(double t) {
double tmp;
if (((2.0 * t) / (1.0 + t)) <= 1.999) {
tmp = fma(((4.0 * t) / (1.0 + t)), (t / (1.0 + t)), 1.0) / (2.0 + ((t * (-4.0 * t)) / ((-1.0 - t) * (1.0 + t))));
} else {
tmp = (5.0 - (8.0 / t)) / (6.0 - (8.0 / t));
}
return tmp;
}
function code(t) tmp = 0.0 if (Float64(Float64(2.0 * t) / Float64(1.0 + t)) <= 1.999) tmp = Float64(fma(Float64(Float64(4.0 * t) / Float64(1.0 + t)), Float64(t / Float64(1.0 + t)), 1.0) / Float64(2.0 + Float64(Float64(t * Float64(-4.0 * t)) / Float64(Float64(-1.0 - t) * Float64(1.0 + t))))); else tmp = Float64(Float64(5.0 - Float64(8.0 / t)) / Float64(6.0 - Float64(8.0 / t))); end return tmp end
code[t_] := If[LessEqual[N[(N[(2.0 * t), $MachinePrecision] / N[(1.0 + t), $MachinePrecision]), $MachinePrecision], 1.999], N[(N[(N[(N[(4.0 * t), $MachinePrecision] / N[(1.0 + t), $MachinePrecision]), $MachinePrecision] * N[(t / N[(1.0 + t), $MachinePrecision]), $MachinePrecision] + 1.0), $MachinePrecision] / N[(2.0 + N[(N[(t * N[(-4.0 * t), $MachinePrecision]), $MachinePrecision] / N[(N[(-1.0 - t), $MachinePrecision] * N[(1.0 + t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(5.0 - N[(8.0 / t), $MachinePrecision]), $MachinePrecision] / N[(6.0 - N[(8.0 / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{2 \cdot t}{1 + t} \leq 1.999:\\
\;\;\;\;\frac{\mathsf{fma}\left(\frac{4 \cdot t}{1 + t}, \frac{t}{1 + t}, 1\right)}{2 + \frac{t \cdot \left(-4 \cdot t\right)}{\left(-1 - t\right) \cdot \left(1 + t\right)}}\\
\mathbf{else}:\\
\;\;\;\;\frac{5 - \frac{8}{t}}{6 - \frac{8}{t}}\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) < 1.9990000000000001Initial program 100.0%
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
clear-numN/A
associate-*r/N/A
div-invN/A
times-fracN/A
lift-*.f64N/A
count-2-revN/A
flip3-+N/A
clear-num-revN/A
clear-numN/A
flip3-+N/A
count-2-revN/A
lift-*.f64N/A
Applied rewrites100.0%
lift-*.f64N/A
lift-/.f64N/A
associate-*r/N/A
lower-/.f64N/A
lift-/.f64N/A
associate-*l/N/A
lift-*.f64N/A
lift-*.f64N/A
swap-sqrN/A
metadata-evalN/A
metadata-evalN/A
swap-sqrN/A
lower-/.f64N/A
swap-sqrN/A
metadata-evalN/A
metadata-evalN/A
lift-*.f64N/A
lower-*.f64N/A
metadata-eval100.0
Applied rewrites100.0%
lift-fma.f64N/A
lift-/.f64N/A
lift-*.f64N/A
lift-/.f64N/A
lift-+.f64N/A
lift-+.f64N/A
lift-*.f64N/A
Applied rewrites100.0%
lift-/.f64N/A
lift-/.f64N/A
associate-/l/N/A
lift-*.f64N/A
*-commutativeN/A
lift-*.f64N/A
associate-*l*N/A
*-commutativeN/A
lift-*.f64N/A
frac-timesN/A
frac-2negN/A
frac-timesN/A
lift-+.f64N/A
+-commutativeN/A
distribute-neg-inN/A
mul-1-negN/A
metadata-evalN/A
lift-fma.f64N/A
*-commutativeN/A
lift-*.f64N/A
Applied rewrites100.0%
if 1.9990000000000001 < (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) Initial program 100.0%
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
clear-numN/A
associate-*r/N/A
div-invN/A
times-fracN/A
lift-*.f64N/A
count-2-revN/A
flip3-+N/A
clear-num-revN/A
clear-numN/A
flip3-+N/A
count-2-revN/A
lift-*.f64N/A
Applied rewrites100.0%
lift-*.f64N/A
lift-/.f64N/A
associate-*r/N/A
lower-/.f64N/A
lift-/.f64N/A
associate-*l/N/A
lift-*.f64N/A
lift-*.f64N/A
swap-sqrN/A
metadata-evalN/A
metadata-evalN/A
swap-sqrN/A
lower-/.f64N/A
swap-sqrN/A
metadata-evalN/A
metadata-evalN/A
lift-*.f64N/A
lower-*.f64N/A
metadata-eval49.9
Applied rewrites49.9%
Taylor expanded in t around inf
lower--.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f6449.9
Applied rewrites49.9%
Taylor expanded in t around inf
lower--.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f64100.0
Applied rewrites100.0%
(FPCore (t)
:precision binary64
(if (<= (/ (* 2.0 t) (+ 1.0 t)) 0.01)
(/
(fma (* (fma (fma (fma -8.0 t 6.0) t -4.0) t 2.0) t) (* t 2.0) 1.0)
(+ 2.0 (* (* (fma (fma (fma -16.0 t 12.0) t -8.0) t 4.0) t) t)))
(+
(- 0.8333333333333334 (/ 0.2222222222222222 t))
(/ (/ (+ 0.037037037037037035 (/ 0.04938271604938271 t)) t) t))))
double code(double t) {
double tmp;
if (((2.0 * t) / (1.0 + t)) <= 0.01) {
tmp = fma((fma(fma(fma(-8.0, t, 6.0), t, -4.0), t, 2.0) * t), (t * 2.0), 1.0) / (2.0 + ((fma(fma(fma(-16.0, t, 12.0), t, -8.0), t, 4.0) * t) * t));
} else {
tmp = (0.8333333333333334 - (0.2222222222222222 / t)) + (((0.037037037037037035 + (0.04938271604938271 / t)) / t) / t);
}
return tmp;
}
function code(t) tmp = 0.0 if (Float64(Float64(2.0 * t) / Float64(1.0 + t)) <= 0.01) tmp = Float64(fma(Float64(fma(fma(fma(-8.0, t, 6.0), t, -4.0), t, 2.0) * t), Float64(t * 2.0), 1.0) / Float64(2.0 + Float64(Float64(fma(fma(fma(-16.0, t, 12.0), t, -8.0), t, 4.0) * t) * t))); else tmp = Float64(Float64(0.8333333333333334 - Float64(0.2222222222222222 / t)) + Float64(Float64(Float64(0.037037037037037035 + Float64(0.04938271604938271 / t)) / t) / t)); end return tmp end
code[t_] := If[LessEqual[N[(N[(2.0 * t), $MachinePrecision] / N[(1.0 + t), $MachinePrecision]), $MachinePrecision], 0.01], N[(N[(N[(N[(N[(N[(-8.0 * t + 6.0), $MachinePrecision] * t + -4.0), $MachinePrecision] * t + 2.0), $MachinePrecision] * t), $MachinePrecision] * N[(t * 2.0), $MachinePrecision] + 1.0), $MachinePrecision] / N[(2.0 + N[(N[(N[(N[(N[(-16.0 * t + 12.0), $MachinePrecision] * t + -8.0), $MachinePrecision] * t + 4.0), $MachinePrecision] * t), $MachinePrecision] * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(0.8333333333333334 - N[(0.2222222222222222 / t), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(0.037037037037037035 + N[(0.04938271604938271 / t), $MachinePrecision]), $MachinePrecision] / t), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{2 \cdot t}{1 + t} \leq 0.01:\\
\;\;\;\;\frac{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-8, t, 6\right), t, -4\right), t, 2\right) \cdot t, t \cdot 2, 1\right)}{2 + \left(\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-16, t, 12\right), t, -8\right), t, 4\right) \cdot t\right) \cdot t}\\
\mathbf{else}:\\
\;\;\;\;\left(0.8333333333333334 - \frac{0.2222222222222222}{t}\right) + \frac{\frac{0.037037037037037035 + \frac{0.04938271604938271}{t}}{t}}{t}\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) < 0.0100000000000000002Initial program 100.0%
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
clear-numN/A
associate-*r/N/A
div-invN/A
times-fracN/A
lift-*.f64N/A
count-2-revN/A
flip3-+N/A
clear-num-revN/A
clear-numN/A
flip3-+N/A
count-2-revN/A
lift-*.f64N/A
Applied rewrites100.0%
lift-*.f64N/A
lift-/.f64N/A
associate-*r/N/A
lower-/.f64N/A
lift-/.f64N/A
associate-*l/N/A
lift-*.f64N/A
lift-*.f64N/A
swap-sqrN/A
metadata-evalN/A
metadata-evalN/A
swap-sqrN/A
lower-/.f64N/A
swap-sqrN/A
metadata-evalN/A
metadata-evalN/A
lift-*.f64N/A
lower-*.f64N/A
metadata-eval100.0
Applied rewrites100.0%
Taylor expanded in t around 0
*-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
sub-negN/A
*-commutativeN/A
metadata-evalN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6499.9
Applied rewrites99.9%
Taylor expanded in t around 0
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
sub-negN/A
*-commutativeN/A
metadata-evalN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6499.9
Applied rewrites99.9%
if 0.0100000000000000002 < (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) Initial program 100.0%
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
clear-numN/A
associate-*r/N/A
div-invN/A
times-fracN/A
lift-*.f64N/A
count-2-revN/A
flip3-+N/A
clear-num-revN/A
clear-numN/A
flip3-+N/A
count-2-revN/A
lift-*.f64N/A
Applied rewrites100.0%
Taylor expanded in t around inf
+-commutativeN/A
associate--l+N/A
+-commutativeN/A
associate--r-N/A
associate-*r/N/A
metadata-evalN/A
cube-multN/A
unpow2N/A
associate-/r*N/A
associate-*r/N/A
div-add-revN/A
unpow2N/A
associate-/l/N/A
*-lft-identityN/A
metadata-evalN/A
Applied rewrites99.9%
Applied rewrites99.9%
Final simplification99.9%
(FPCore (t)
:precision binary64
(if (<= (/ (* 2.0 t) (+ 1.0 t)) 0.01)
(fma (fma (- t 2.0) t 1.0) (* t t) 0.5)
(+
(- 0.8333333333333334 (/ 0.2222222222222222 t))
(/ (/ (+ 0.037037037037037035 (/ 0.04938271604938271 t)) t) t))))
double code(double t) {
double tmp;
if (((2.0 * t) / (1.0 + t)) <= 0.01) {
tmp = fma(fma((t - 2.0), t, 1.0), (t * t), 0.5);
} else {
tmp = (0.8333333333333334 - (0.2222222222222222 / t)) + (((0.037037037037037035 + (0.04938271604938271 / t)) / t) / t);
}
return tmp;
}
function code(t) tmp = 0.0 if (Float64(Float64(2.0 * t) / Float64(1.0 + t)) <= 0.01) tmp = fma(fma(Float64(t - 2.0), t, 1.0), Float64(t * t), 0.5); else tmp = Float64(Float64(0.8333333333333334 - Float64(0.2222222222222222 / t)) + Float64(Float64(Float64(0.037037037037037035 + Float64(0.04938271604938271 / t)) / t) / t)); end return tmp end
code[t_] := If[LessEqual[N[(N[(2.0 * t), $MachinePrecision] / N[(1.0 + t), $MachinePrecision]), $MachinePrecision], 0.01], N[(N[(N[(t - 2.0), $MachinePrecision] * t + 1.0), $MachinePrecision] * N[(t * t), $MachinePrecision] + 0.5), $MachinePrecision], N[(N[(0.8333333333333334 - N[(0.2222222222222222 / t), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(0.037037037037037035 + N[(0.04938271604938271 / t), $MachinePrecision]), $MachinePrecision] / t), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{2 \cdot t}{1 + t} \leq 0.01:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(t - 2, t, 1\right), t \cdot t, 0.5\right)\\
\mathbf{else}:\\
\;\;\;\;\left(0.8333333333333334 - \frac{0.2222222222222222}{t}\right) + \frac{\frac{0.037037037037037035 + \frac{0.04938271604938271}{t}}{t}}{t}\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) < 0.0100000000000000002Initial program 100.0%
Taylor expanded in t around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower--.f64N/A
unpow2N/A
lower-*.f6499.8
Applied rewrites99.8%
if 0.0100000000000000002 < (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) Initial program 100.0%
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
clear-numN/A
associate-*r/N/A
div-invN/A
times-fracN/A
lift-*.f64N/A
count-2-revN/A
flip3-+N/A
clear-num-revN/A
clear-numN/A
flip3-+N/A
count-2-revN/A
lift-*.f64N/A
Applied rewrites100.0%
Taylor expanded in t around inf
+-commutativeN/A
associate--l+N/A
+-commutativeN/A
associate--r-N/A
associate-*r/N/A
metadata-evalN/A
cube-multN/A
unpow2N/A
associate-/r*N/A
associate-*r/N/A
div-add-revN/A
unpow2N/A
associate-/l/N/A
*-lft-identityN/A
metadata-evalN/A
Applied rewrites99.9%
Applied rewrites99.9%
Final simplification99.8%
(FPCore (t)
:precision binary64
(if (<= (/ (* 2.0 t) (+ 1.0 t)) 0.01)
(fma (fma (- t 2.0) t 1.0) (* t t) 0.5)
(-
0.8333333333333334
(/
(-
0.2222222222222222
(/ (+ (/ 0.04938271604938271 t) 0.037037037037037035) t))
t))))
double code(double t) {
double tmp;
if (((2.0 * t) / (1.0 + t)) <= 0.01) {
tmp = fma(fma((t - 2.0), t, 1.0), (t * t), 0.5);
} else {
tmp = 0.8333333333333334 - ((0.2222222222222222 - (((0.04938271604938271 / t) + 0.037037037037037035) / t)) / t);
}
return tmp;
}
function code(t) tmp = 0.0 if (Float64(Float64(2.0 * t) / Float64(1.0 + t)) <= 0.01) tmp = fma(fma(Float64(t - 2.0), t, 1.0), Float64(t * t), 0.5); else tmp = Float64(0.8333333333333334 - Float64(Float64(0.2222222222222222 - Float64(Float64(Float64(0.04938271604938271 / t) + 0.037037037037037035) / t)) / t)); end return tmp end
code[t_] := If[LessEqual[N[(N[(2.0 * t), $MachinePrecision] / N[(1.0 + t), $MachinePrecision]), $MachinePrecision], 0.01], N[(N[(N[(t - 2.0), $MachinePrecision] * t + 1.0), $MachinePrecision] * N[(t * t), $MachinePrecision] + 0.5), $MachinePrecision], N[(0.8333333333333334 - N[(N[(0.2222222222222222 - N[(N[(N[(0.04938271604938271 / t), $MachinePrecision] + 0.037037037037037035), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{2 \cdot t}{1 + t} \leq 0.01:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(t - 2, t, 1\right), t \cdot t, 0.5\right)\\
\mathbf{else}:\\
\;\;\;\;0.8333333333333334 - \frac{0.2222222222222222 - \frac{\frac{0.04938271604938271}{t} + 0.037037037037037035}{t}}{t}\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) < 0.0100000000000000002Initial program 100.0%
Taylor expanded in t around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower--.f64N/A
unpow2N/A
lower-*.f6499.8
Applied rewrites99.8%
if 0.0100000000000000002 < (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) Initial program 100.0%
Taylor expanded in t around inf
cube-multN/A
unpow2N/A
associate-/r*N/A
associate-*r/N/A
div-add-revN/A
remove-double-negN/A
mul-1-negN/A
distribute-neg-fracN/A
unpow2N/A
associate-/l/N/A
associate-*r/N/A
sub-negN/A
Applied rewrites99.9%
(FPCore (t)
:precision binary64
(if (<= (/ (* 2.0 t) (+ 1.0 t)) 0.01)
(fma (fma (- t 2.0) t 1.0) (* t t) 0.5)
(-
0.8333333333333334
(/ (- 0.2222222222222222 (/ 0.037037037037037035 t)) t))))
double code(double t) {
double tmp;
if (((2.0 * t) / (1.0 + t)) <= 0.01) {
tmp = fma(fma((t - 2.0), t, 1.0), (t * t), 0.5);
} else {
tmp = 0.8333333333333334 - ((0.2222222222222222 - (0.037037037037037035 / t)) / t);
}
return tmp;
}
function code(t) tmp = 0.0 if (Float64(Float64(2.0 * t) / Float64(1.0 + t)) <= 0.01) tmp = fma(fma(Float64(t - 2.0), t, 1.0), Float64(t * t), 0.5); else tmp = Float64(0.8333333333333334 - Float64(Float64(0.2222222222222222 - Float64(0.037037037037037035 / t)) / t)); end return tmp end
code[t_] := If[LessEqual[N[(N[(2.0 * t), $MachinePrecision] / N[(1.0 + t), $MachinePrecision]), $MachinePrecision], 0.01], N[(N[(N[(t - 2.0), $MachinePrecision] * t + 1.0), $MachinePrecision] * N[(t * t), $MachinePrecision] + 0.5), $MachinePrecision], N[(0.8333333333333334 - N[(N[(0.2222222222222222 - N[(0.037037037037037035 / t), $MachinePrecision]), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{2 \cdot t}{1 + t} \leq 0.01:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(t - 2, t, 1\right), t \cdot t, 0.5\right)\\
\mathbf{else}:\\
\;\;\;\;0.8333333333333334 - \frac{0.2222222222222222 - \frac{0.037037037037037035}{t}}{t}\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) < 0.0100000000000000002Initial program 100.0%
Taylor expanded in t around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower--.f64N/A
unpow2N/A
lower-*.f6499.8
Applied rewrites99.8%
if 0.0100000000000000002 < (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) Initial program 100.0%
Taylor expanded in t around inf
+-commutativeN/A
associate--l+N/A
+-commutativeN/A
associate--r-N/A
associate-*r/N/A
metadata-evalN/A
unpow2N/A
associate-/r*N/A
metadata-evalN/A
associate-*r/N/A
div-subN/A
lower--.f64N/A
lower-/.f64N/A
lower--.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f6499.8
Applied rewrites99.8%
(FPCore (t) :precision binary64 (if (<= (/ (* 2.0 t) (+ 1.0 t)) 0.01) (fma (fma (- t 2.0) t 1.0) (* t t) 0.5) (- 0.8333333333333334 (/ 0.2222222222222222 t))))
double code(double t) {
double tmp;
if (((2.0 * t) / (1.0 + t)) <= 0.01) {
tmp = fma(fma((t - 2.0), t, 1.0), (t * t), 0.5);
} else {
tmp = 0.8333333333333334 - (0.2222222222222222 / t);
}
return tmp;
}
function code(t) tmp = 0.0 if (Float64(Float64(2.0 * t) / Float64(1.0 + t)) <= 0.01) tmp = fma(fma(Float64(t - 2.0), t, 1.0), Float64(t * t), 0.5); else tmp = Float64(0.8333333333333334 - Float64(0.2222222222222222 / t)); end return tmp end
code[t_] := If[LessEqual[N[(N[(2.0 * t), $MachinePrecision] / N[(1.0 + t), $MachinePrecision]), $MachinePrecision], 0.01], N[(N[(N[(t - 2.0), $MachinePrecision] * t + 1.0), $MachinePrecision] * N[(t * t), $MachinePrecision] + 0.5), $MachinePrecision], N[(0.8333333333333334 - N[(0.2222222222222222 / t), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{2 \cdot t}{1 + t} \leq 0.01:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(t - 2, t, 1\right), t \cdot t, 0.5\right)\\
\mathbf{else}:\\
\;\;\;\;0.8333333333333334 - \frac{0.2222222222222222}{t}\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) < 0.0100000000000000002Initial program 100.0%
Taylor expanded in t around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower--.f64N/A
unpow2N/A
lower-*.f6499.8
Applied rewrites99.8%
if 0.0100000000000000002 < (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) Initial program 100.0%
Taylor expanded in t around inf
lower--.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f6499.6
Applied rewrites99.6%
(FPCore (t) :precision binary64 (if (<= (/ (* 2.0 t) (+ 1.0 t)) 0.01) (fma (fma -2.0 t 1.0) (* t t) 0.5) (- 0.8333333333333334 (/ 0.2222222222222222 t))))
double code(double t) {
double tmp;
if (((2.0 * t) / (1.0 + t)) <= 0.01) {
tmp = fma(fma(-2.0, t, 1.0), (t * t), 0.5);
} else {
tmp = 0.8333333333333334 - (0.2222222222222222 / t);
}
return tmp;
}
function code(t) tmp = 0.0 if (Float64(Float64(2.0 * t) / Float64(1.0 + t)) <= 0.01) tmp = fma(fma(-2.0, t, 1.0), Float64(t * t), 0.5); else tmp = Float64(0.8333333333333334 - Float64(0.2222222222222222 / t)); end return tmp end
code[t_] := If[LessEqual[N[(N[(2.0 * t), $MachinePrecision] / N[(1.0 + t), $MachinePrecision]), $MachinePrecision], 0.01], N[(N[(-2.0 * t + 1.0), $MachinePrecision] * N[(t * t), $MachinePrecision] + 0.5), $MachinePrecision], N[(0.8333333333333334 - N[(0.2222222222222222 / t), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{2 \cdot t}{1 + t} \leq 0.01:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(-2, t, 1\right), t \cdot t, 0.5\right)\\
\mathbf{else}:\\
\;\;\;\;0.8333333333333334 - \frac{0.2222222222222222}{t}\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) < 0.0100000000000000002Initial program 100.0%
Taylor expanded in t around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6499.7
Applied rewrites99.7%
if 0.0100000000000000002 < (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) Initial program 100.0%
Taylor expanded in t around inf
lower--.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f6499.6
Applied rewrites99.6%
(FPCore (t) :precision binary64 (if (<= (/ (* 2.0 t) (+ 1.0 t)) 0.01) (fma t t 0.5) (- 0.8333333333333334 (/ 0.2222222222222222 t))))
double code(double t) {
double tmp;
if (((2.0 * t) / (1.0 + t)) <= 0.01) {
tmp = fma(t, t, 0.5);
} else {
tmp = 0.8333333333333334 - (0.2222222222222222 / t);
}
return tmp;
}
function code(t) tmp = 0.0 if (Float64(Float64(2.0 * t) / Float64(1.0 + t)) <= 0.01) tmp = fma(t, t, 0.5); else tmp = Float64(0.8333333333333334 - Float64(0.2222222222222222 / t)); end return tmp end
code[t_] := If[LessEqual[N[(N[(2.0 * t), $MachinePrecision] / N[(1.0 + t), $MachinePrecision]), $MachinePrecision], 0.01], N[(t * t + 0.5), $MachinePrecision], N[(0.8333333333333334 - N[(0.2222222222222222 / t), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{2 \cdot t}{1 + t} \leq 0.01:\\
\;\;\;\;\mathsf{fma}\left(t, t, 0.5\right)\\
\mathbf{else}:\\
\;\;\;\;0.8333333333333334 - \frac{0.2222222222222222}{t}\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) < 0.0100000000000000002Initial program 100.0%
Taylor expanded in t around 0
+-commutativeN/A
unpow2N/A
lower-fma.f6499.6
Applied rewrites99.6%
if 0.0100000000000000002 < (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) Initial program 100.0%
Taylor expanded in t around inf
lower--.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f6499.6
Applied rewrites99.6%
(FPCore (t) :precision binary64 (if (<= (/ (* 2.0 t) (+ 1.0 t)) 0.01) (fma t t 0.5) 0.8333333333333334))
double code(double t) {
double tmp;
if (((2.0 * t) / (1.0 + t)) <= 0.01) {
tmp = fma(t, t, 0.5);
} else {
tmp = 0.8333333333333334;
}
return tmp;
}
function code(t) tmp = 0.0 if (Float64(Float64(2.0 * t) / Float64(1.0 + t)) <= 0.01) tmp = fma(t, t, 0.5); else tmp = 0.8333333333333334; end return tmp end
code[t_] := If[LessEqual[N[(N[(2.0 * t), $MachinePrecision] / N[(1.0 + t), $MachinePrecision]), $MachinePrecision], 0.01], N[(t * t + 0.5), $MachinePrecision], 0.8333333333333334]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{2 \cdot t}{1 + t} \leq 0.01:\\
\;\;\;\;\mathsf{fma}\left(t, t, 0.5\right)\\
\mathbf{else}:\\
\;\;\;\;0.8333333333333334\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) < 0.0100000000000000002Initial program 100.0%
Taylor expanded in t around 0
+-commutativeN/A
unpow2N/A
lower-fma.f6499.6
Applied rewrites99.6%
if 0.0100000000000000002 < (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) Initial program 100.0%
Taylor expanded in t around inf
Applied rewrites99.0%
(FPCore (t) :precision binary64 (if (<= (/ (* 2.0 t) (+ 1.0 t)) 1.0) 0.5 0.8333333333333334))
double code(double t) {
double tmp;
if (((2.0 * t) / (1.0 + t)) <= 1.0) {
tmp = 0.5;
} else {
tmp = 0.8333333333333334;
}
return tmp;
}
real(8) function code(t)
real(8), intent (in) :: t
real(8) :: tmp
if (((2.0d0 * t) / (1.0d0 + t)) <= 1.0d0) then
tmp = 0.5d0
else
tmp = 0.8333333333333334d0
end if
code = tmp
end function
public static double code(double t) {
double tmp;
if (((2.0 * t) / (1.0 + t)) <= 1.0) {
tmp = 0.5;
} else {
tmp = 0.8333333333333334;
}
return tmp;
}
def code(t): tmp = 0 if ((2.0 * t) / (1.0 + t)) <= 1.0: tmp = 0.5 else: tmp = 0.8333333333333334 return tmp
function code(t) tmp = 0.0 if (Float64(Float64(2.0 * t) / Float64(1.0 + t)) <= 1.0) tmp = 0.5; else tmp = 0.8333333333333334; end return tmp end
function tmp_2 = code(t) tmp = 0.0; if (((2.0 * t) / (1.0 + t)) <= 1.0) tmp = 0.5; else tmp = 0.8333333333333334; end tmp_2 = tmp; end
code[t_] := If[LessEqual[N[(N[(2.0 * t), $MachinePrecision] / N[(1.0 + t), $MachinePrecision]), $MachinePrecision], 1.0], 0.5, 0.8333333333333334]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{2 \cdot t}{1 + t} \leq 1:\\
\;\;\;\;0.5\\
\mathbf{else}:\\
\;\;\;\;0.8333333333333334\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) < 1Initial program 100.0%
Taylor expanded in t around 0
Applied rewrites99.5%
if 1 < (/.f64 (*.f64 #s(literal 2 binary64) t) (+.f64 #s(literal 1 binary64) t)) Initial program 100.0%
Taylor expanded in t around inf
Applied rewrites99.0%
(FPCore (t) :precision binary64 0.5)
double code(double t) {
return 0.5;
}
real(8) function code(t)
real(8), intent (in) :: t
code = 0.5d0
end function
public static double code(double t) {
return 0.5;
}
def code(t): return 0.5
function code(t) return 0.5 end
function tmp = code(t) tmp = 0.5; end
code[t_] := 0.5
\begin{array}{l}
\\
0.5
\end{array}
Initial program 100.0%
Taylor expanded in t around 0
Applied rewrites61.8%
herbie shell --seed 2024305
(FPCore (t)
:name "Kahan p13 Example 1"
:precision binary64
(/ (+ 1.0 (* (/ (* 2.0 t) (+ 1.0 t)) (/ (* 2.0 t) (+ 1.0 t)))) (+ 2.0 (* (/ (* 2.0 t) (+ 1.0 t)) (/ (* 2.0 t) (+ 1.0 t))))))