
(FPCore (x y) :precision binary64 (exp (* (* x y) y)))
double code(double x, double y) {
return exp(((x * y) * y));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = exp(((x * y) * y))
end function
public static double code(double x, double y) {
return Math.exp(((x * y) * y));
}
def code(x, y): return math.exp(((x * y) * y))
function code(x, y) return exp(Float64(Float64(x * y) * y)) end
function tmp = code(x, y) tmp = exp(((x * y) * y)); end
code[x_, y_] := N[Exp[N[(N[(x * y), $MachinePrecision] * y), $MachinePrecision]], $MachinePrecision]
\begin{array}{l}
\\
e^{\left(x \cdot y\right) \cdot y}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 14 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y) :precision binary64 (exp (* (* x y) y)))
double code(double x, double y) {
return exp(((x * y) * y));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = exp(((x * y) * y))
end function
public static double code(double x, double y) {
return Math.exp(((x * y) * y));
}
def code(x, y): return math.exp(((x * y) * y))
function code(x, y) return exp(Float64(Float64(x * y) * y)) end
function tmp = code(x, y) tmp = exp(((x * y) * y)); end
code[x_, y_] := N[Exp[N[(N[(x * y), $MachinePrecision] * y), $MachinePrecision]], $MachinePrecision]
\begin{array}{l}
\\
e^{\left(x \cdot y\right) \cdot y}
\end{array}
(FPCore (x y) :precision binary64 (exp (* (* y x) y)))
double code(double x, double y) {
return exp(((y * x) * y));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = exp(((y * x) * y))
end function
public static double code(double x, double y) {
return Math.exp(((y * x) * y));
}
def code(x, y): return math.exp(((y * x) * y))
function code(x, y) return exp(Float64(Float64(y * x) * y)) end
function tmp = code(x, y) tmp = exp(((y * x) * y)); end
code[x_, y_] := N[Exp[N[(N[(y * x), $MachinePrecision] * y), $MachinePrecision]], $MachinePrecision]
\begin{array}{l}
\\
e^{\left(y \cdot x\right) \cdot y}
\end{array}
Initial program 100.0%
Final simplification100.0%
(FPCore (x y)
:precision binary64
(if (<= (exp (* (* y x) y)) 0.0)
(exp x)
(fma
(fma (* (* y y) x) (* (fma (* 0.16666666666666666 x) (* y y) 0.5) x) x)
(* y y)
1.0)))
double code(double x, double y) {
double tmp;
if (exp(((y * x) * y)) <= 0.0) {
tmp = exp(x);
} else {
tmp = fma(fma(((y * y) * x), (fma((0.16666666666666666 * x), (y * y), 0.5) * x), x), (y * y), 1.0);
}
return tmp;
}
function code(x, y) tmp = 0.0 if (exp(Float64(Float64(y * x) * y)) <= 0.0) tmp = exp(x); else tmp = fma(fma(Float64(Float64(y * y) * x), Float64(fma(Float64(0.16666666666666666 * x), Float64(y * y), 0.5) * x), x), Float64(y * y), 1.0); end return tmp end
code[x_, y_] := If[LessEqual[N[Exp[N[(N[(y * x), $MachinePrecision] * y), $MachinePrecision]], $MachinePrecision], 0.0], N[Exp[x], $MachinePrecision], N[(N[(N[(N[(y * y), $MachinePrecision] * x), $MachinePrecision] * N[(N[(N[(0.16666666666666666 * x), $MachinePrecision] * N[(y * y), $MachinePrecision] + 0.5), $MachinePrecision] * x), $MachinePrecision] + x), $MachinePrecision] * N[(y * y), $MachinePrecision] + 1.0), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;e^{\left(y \cdot x\right) \cdot y} \leq 0:\\
\;\;\;\;e^{x}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\left(y \cdot y\right) \cdot x, \mathsf{fma}\left(0.16666666666666666 \cdot x, y \cdot y, 0.5\right) \cdot x, x\right), y \cdot y, 1\right)\\
\end{array}
\end{array}
if (exp.f64 (*.f64 (*.f64 x y) y)) < 0.0Initial program 100.0%
Applied rewrites61.5%
if 0.0 < (exp.f64 (*.f64 (*.f64 x y) y)) Initial program 100.0%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f6484.0
Applied rewrites84.0%
Taylor expanded in x around inf
Applied rewrites21.2%
Taylor expanded in y around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
Applied rewrites85.3%
Applied rewrites95.4%
Final simplification86.4%
(FPCore (x y)
:precision binary64
(let* ((t_0 (* (* y x) y)))
(if (<= t_0 -5e+39)
(* (* x x) 0.5)
(if (<= t_0 2e-32)
1.0
(fma
(fma (* (fma (* y y) (* 0.16666666666666666 x) 0.5) (* x x)) (* y y) x)
(* y y)
1.0)))))
double code(double x, double y) {
double t_0 = (y * x) * y;
double tmp;
if (t_0 <= -5e+39) {
tmp = (x * x) * 0.5;
} else if (t_0 <= 2e-32) {
tmp = 1.0;
} else {
tmp = fma(fma((fma((y * y), (0.16666666666666666 * x), 0.5) * (x * x)), (y * y), x), (y * y), 1.0);
}
return tmp;
}
function code(x, y) t_0 = Float64(Float64(y * x) * y) tmp = 0.0 if (t_0 <= -5e+39) tmp = Float64(Float64(x * x) * 0.5); elseif (t_0 <= 2e-32) tmp = 1.0; else tmp = fma(fma(Float64(fma(Float64(y * y), Float64(0.16666666666666666 * x), 0.5) * Float64(x * x)), Float64(y * y), x), Float64(y * y), 1.0); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[(y * x), $MachinePrecision] * y), $MachinePrecision]}, If[LessEqual[t$95$0, -5e+39], N[(N[(x * x), $MachinePrecision] * 0.5), $MachinePrecision], If[LessEqual[t$95$0, 2e-32], 1.0, N[(N[(N[(N[(N[(y * y), $MachinePrecision] * N[(0.16666666666666666 * x), $MachinePrecision] + 0.5), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(y * y), $MachinePrecision] + x), $MachinePrecision] * N[(y * y), $MachinePrecision] + 1.0), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(y \cdot x\right) \cdot y\\
\mathbf{if}\;t\_0 \leq -5 \cdot 10^{+39}:\\
\;\;\;\;\left(x \cdot x\right) \cdot 0.5\\
\mathbf{elif}\;t\_0 \leq 2 \cdot 10^{-32}:\\
\;\;\;\;1\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(y \cdot y, 0.16666666666666666 \cdot x, 0.5\right) \cdot \left(x \cdot x\right), y \cdot y, x\right), y \cdot y, 1\right)\\
\end{array}
\end{array}
if (*.f64 (*.f64 x y) y) < -5.00000000000000015e39Initial program 100.0%
Applied rewrites60.4%
Taylor expanded in x around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f642.3
Applied rewrites2.3%
Taylor expanded in x around inf
Applied rewrites20.4%
if -5.00000000000000015e39 < (*.f64 (*.f64 x y) y) < 2.00000000000000011e-32Initial program 100.0%
Taylor expanded in x around 0
Applied rewrites98.5%
if 2.00000000000000011e-32 < (*.f64 (*.f64 x y) y) Initial program 100.0%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f6452.4
Applied rewrites52.4%
Taylor expanded in x around inf
Applied rewrites56.5%
Taylor expanded in y around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
Applied rewrites78.3%
Final simplification73.4%
(FPCore (x y)
:precision binary64
(let* ((t_0 (* (* y x) y)))
(if (<= t_0 -5e+39)
(* (* x x) 0.5)
(if (<= t_0 2e-32)
1.0
(fma
(fma (* (* 0.16666666666666666 (* (* y y) x)) (* x x)) (* y y) x)
(* y y)
1.0)))))
double code(double x, double y) {
double t_0 = (y * x) * y;
double tmp;
if (t_0 <= -5e+39) {
tmp = (x * x) * 0.5;
} else if (t_0 <= 2e-32) {
tmp = 1.0;
} else {
tmp = fma(fma(((0.16666666666666666 * ((y * y) * x)) * (x * x)), (y * y), x), (y * y), 1.0);
}
return tmp;
}
function code(x, y) t_0 = Float64(Float64(y * x) * y) tmp = 0.0 if (t_0 <= -5e+39) tmp = Float64(Float64(x * x) * 0.5); elseif (t_0 <= 2e-32) tmp = 1.0; else tmp = fma(fma(Float64(Float64(0.16666666666666666 * Float64(Float64(y * y) * x)) * Float64(x * x)), Float64(y * y), x), Float64(y * y), 1.0); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[(y * x), $MachinePrecision] * y), $MachinePrecision]}, If[LessEqual[t$95$0, -5e+39], N[(N[(x * x), $MachinePrecision] * 0.5), $MachinePrecision], If[LessEqual[t$95$0, 2e-32], 1.0, N[(N[(N[(N[(0.16666666666666666 * N[(N[(y * y), $MachinePrecision] * x), $MachinePrecision]), $MachinePrecision] * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(y * y), $MachinePrecision] + x), $MachinePrecision] * N[(y * y), $MachinePrecision] + 1.0), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(y \cdot x\right) \cdot y\\
\mathbf{if}\;t\_0 \leq -5 \cdot 10^{+39}:\\
\;\;\;\;\left(x \cdot x\right) \cdot 0.5\\
\mathbf{elif}\;t\_0 \leq 2 \cdot 10^{-32}:\\
\;\;\;\;1\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\left(0.16666666666666666 \cdot \left(\left(y \cdot y\right) \cdot x\right)\right) \cdot \left(x \cdot x\right), y \cdot y, x\right), y \cdot y, 1\right)\\
\end{array}
\end{array}
if (*.f64 (*.f64 x y) y) < -5.00000000000000015e39Initial program 100.0%
Applied rewrites60.4%
Taylor expanded in x around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f642.3
Applied rewrites2.3%
Taylor expanded in x around inf
Applied rewrites20.4%
if -5.00000000000000015e39 < (*.f64 (*.f64 x y) y) < 2.00000000000000011e-32Initial program 100.0%
Taylor expanded in x around 0
Applied rewrites98.5%
if 2.00000000000000011e-32 < (*.f64 (*.f64 x y) y) Initial program 100.0%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f6452.4
Applied rewrites52.4%
Taylor expanded in x around inf
Applied rewrites56.5%
Taylor expanded in y around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
Applied rewrites78.3%
Taylor expanded in x around inf
Applied rewrites77.7%
Final simplification73.2%
(FPCore (x y)
:precision binary64
(let* ((t_0 (* (* y x) y)))
(if (<= t_0 -5e+39)
(* (* x x) 0.5)
(if (<= t_0 2e+17)
(fma (* y x) y 1.0)
(if (<= t_0 5e+172)
(fma (fma (fma 0.16666666666666666 x 0.5) x 1.0) x 1.0)
(* (* (fma 0.16666666666666666 y 0.5) y) y))))))
double code(double x, double y) {
double t_0 = (y * x) * y;
double tmp;
if (t_0 <= -5e+39) {
tmp = (x * x) * 0.5;
} else if (t_0 <= 2e+17) {
tmp = fma((y * x), y, 1.0);
} else if (t_0 <= 5e+172) {
tmp = fma(fma(fma(0.16666666666666666, x, 0.5), x, 1.0), x, 1.0);
} else {
tmp = (fma(0.16666666666666666, y, 0.5) * y) * y;
}
return tmp;
}
function code(x, y) t_0 = Float64(Float64(y * x) * y) tmp = 0.0 if (t_0 <= -5e+39) tmp = Float64(Float64(x * x) * 0.5); elseif (t_0 <= 2e+17) tmp = fma(Float64(y * x), y, 1.0); elseif (t_0 <= 5e+172) tmp = fma(fma(fma(0.16666666666666666, x, 0.5), x, 1.0), x, 1.0); else tmp = Float64(Float64(fma(0.16666666666666666, y, 0.5) * y) * y); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[(y * x), $MachinePrecision] * y), $MachinePrecision]}, If[LessEqual[t$95$0, -5e+39], N[(N[(x * x), $MachinePrecision] * 0.5), $MachinePrecision], If[LessEqual[t$95$0, 2e+17], N[(N[(y * x), $MachinePrecision] * y + 1.0), $MachinePrecision], If[LessEqual[t$95$0, 5e+172], N[(N[(N[(0.16666666666666666 * x + 0.5), $MachinePrecision] * x + 1.0), $MachinePrecision] * x + 1.0), $MachinePrecision], N[(N[(N[(0.16666666666666666 * y + 0.5), $MachinePrecision] * y), $MachinePrecision] * y), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(y \cdot x\right) \cdot y\\
\mathbf{if}\;t\_0 \leq -5 \cdot 10^{+39}:\\
\;\;\;\;\left(x \cdot x\right) \cdot 0.5\\
\mathbf{elif}\;t\_0 \leq 2 \cdot 10^{+17}:\\
\;\;\;\;\mathsf{fma}\left(y \cdot x, y, 1\right)\\
\mathbf{elif}\;t\_0 \leq 5 \cdot 10^{+172}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, x, 0.5\right), x, 1\right), x, 1\right)\\
\mathbf{else}:\\
\;\;\;\;\left(\mathsf{fma}\left(0.16666666666666666, y, 0.5\right) \cdot y\right) \cdot y\\
\end{array}
\end{array}
if (*.f64 (*.f64 x y) y) < -5.00000000000000015e39Initial program 100.0%
Applied rewrites60.4%
Taylor expanded in x around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f642.3
Applied rewrites2.3%
Taylor expanded in x around inf
Applied rewrites20.4%
if -5.00000000000000015e39 < (*.f64 (*.f64 x y) y) < 2e17Initial program 100.0%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f6497.5
Applied rewrites97.5%
if 2e17 < (*.f64 (*.f64 x y) y) < 5.0000000000000001e172Initial program 100.0%
Applied rewrites70.9%
Taylor expanded in x around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6442.9
Applied rewrites42.9%
if 5.0000000000000001e172 < (*.f64 (*.f64 x y) y) Initial program 100.0%
Applied rewrites52.2%
Taylor expanded in y around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6449.0
Applied rewrites49.0%
Taylor expanded in y around inf
Applied rewrites49.0%
Final simplification66.3%
(FPCore (x y)
:precision binary64
(let* ((t_0 (* (* y x) y)))
(if (<= t_0 -5e+39)
(* (* x x) 0.5)
(if (<= t_0 2e-32)
1.0
(fma (fma (* 0.5 (* x x)) (* y y) x) (* y y) 1.0)))))
double code(double x, double y) {
double t_0 = (y * x) * y;
double tmp;
if (t_0 <= -5e+39) {
tmp = (x * x) * 0.5;
} else if (t_0 <= 2e-32) {
tmp = 1.0;
} else {
tmp = fma(fma((0.5 * (x * x)), (y * y), x), (y * y), 1.0);
}
return tmp;
}
function code(x, y) t_0 = Float64(Float64(y * x) * y) tmp = 0.0 if (t_0 <= -5e+39) tmp = Float64(Float64(x * x) * 0.5); elseif (t_0 <= 2e-32) tmp = 1.0; else tmp = fma(fma(Float64(0.5 * Float64(x * x)), Float64(y * y), x), Float64(y * y), 1.0); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[(y * x), $MachinePrecision] * y), $MachinePrecision]}, If[LessEqual[t$95$0, -5e+39], N[(N[(x * x), $MachinePrecision] * 0.5), $MachinePrecision], If[LessEqual[t$95$0, 2e-32], 1.0, N[(N[(N[(0.5 * N[(x * x), $MachinePrecision]), $MachinePrecision] * N[(y * y), $MachinePrecision] + x), $MachinePrecision] * N[(y * y), $MachinePrecision] + 1.0), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(y \cdot x\right) \cdot y\\
\mathbf{if}\;t\_0 \leq -5 \cdot 10^{+39}:\\
\;\;\;\;\left(x \cdot x\right) \cdot 0.5\\
\mathbf{elif}\;t\_0 \leq 2 \cdot 10^{-32}:\\
\;\;\;\;1\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(0.5 \cdot \left(x \cdot x\right), y \cdot y, x\right), y \cdot y, 1\right)\\
\end{array}
\end{array}
if (*.f64 (*.f64 x y) y) < -5.00000000000000015e39Initial program 100.0%
Applied rewrites60.4%
Taylor expanded in x around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f642.3
Applied rewrites2.3%
Taylor expanded in x around inf
Applied rewrites20.4%
if -5.00000000000000015e39 < (*.f64 (*.f64 x y) y) < 2.00000000000000011e-32Initial program 100.0%
Taylor expanded in x around 0
Applied rewrites98.5%
if 2.00000000000000011e-32 < (*.f64 (*.f64 x y) y) Initial program 100.0%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f6452.4
Applied rewrites52.4%
Taylor expanded in x around inf
Applied rewrites56.5%
Taylor expanded in y around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
Applied rewrites78.3%
Taylor expanded in x around 0
Applied rewrites73.4%
Final simplification72.2%
(FPCore (x y)
:precision binary64
(if (<= (* (* y x) y) -5e+39)
(* (* x x) 0.5)
(fma
(fma (* (* y y) x) (* (fma (* 0.16666666666666666 x) (* y y) 0.5) x) x)
(* y y)
1.0)))
double code(double x, double y) {
double tmp;
if (((y * x) * y) <= -5e+39) {
tmp = (x * x) * 0.5;
} else {
tmp = fma(fma(((y * y) * x), (fma((0.16666666666666666 * x), (y * y), 0.5) * x), x), (y * y), 1.0);
}
return tmp;
}
function code(x, y) tmp = 0.0 if (Float64(Float64(y * x) * y) <= -5e+39) tmp = Float64(Float64(x * x) * 0.5); else tmp = fma(fma(Float64(Float64(y * y) * x), Float64(fma(Float64(0.16666666666666666 * x), Float64(y * y), 0.5) * x), x), Float64(y * y), 1.0); end return tmp end
code[x_, y_] := If[LessEqual[N[(N[(y * x), $MachinePrecision] * y), $MachinePrecision], -5e+39], N[(N[(x * x), $MachinePrecision] * 0.5), $MachinePrecision], N[(N[(N[(N[(y * y), $MachinePrecision] * x), $MachinePrecision] * N[(N[(N[(0.16666666666666666 * x), $MachinePrecision] * N[(y * y), $MachinePrecision] + 0.5), $MachinePrecision] * x), $MachinePrecision] + x), $MachinePrecision] * N[(y * y), $MachinePrecision] + 1.0), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\left(y \cdot x\right) \cdot y \leq -5 \cdot 10^{+39}:\\
\;\;\;\;\left(x \cdot x\right) \cdot 0.5\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\left(y \cdot y\right) \cdot x, \mathsf{fma}\left(0.16666666666666666 \cdot x, y \cdot y, 0.5\right) \cdot x, x\right), y \cdot y, 1\right)\\
\end{array}
\end{array}
if (*.f64 (*.f64 x y) y) < -5.00000000000000015e39Initial program 100.0%
Applied rewrites60.4%
Taylor expanded in x around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f642.3
Applied rewrites2.3%
Taylor expanded in x around inf
Applied rewrites20.4%
if -5.00000000000000015e39 < (*.f64 (*.f64 x y) y) Initial program 100.0%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f6483.2
Applied rewrites83.2%
Taylor expanded in x around inf
Applied rewrites21.0%
Taylor expanded in y around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
Applied rewrites84.4%
Applied rewrites94.4%
Final simplification75.3%
(FPCore (x y)
:precision binary64
(let* ((t_0 (* (* y x) y)))
(if (<= t_0 -5e+39)
(* (* x x) 0.5)
(if (<= t_0 0.001)
(fma (* y x) y 1.0)
(fma (fma (fma 0.16666666666666666 y 0.5) y 1.0) y 1.0)))))
double code(double x, double y) {
double t_0 = (y * x) * y;
double tmp;
if (t_0 <= -5e+39) {
tmp = (x * x) * 0.5;
} else if (t_0 <= 0.001) {
tmp = fma((y * x), y, 1.0);
} else {
tmp = fma(fma(fma(0.16666666666666666, y, 0.5), y, 1.0), y, 1.0);
}
return tmp;
}
function code(x, y) t_0 = Float64(Float64(y * x) * y) tmp = 0.0 if (t_0 <= -5e+39) tmp = Float64(Float64(x * x) * 0.5); elseif (t_0 <= 0.001) tmp = fma(Float64(y * x), y, 1.0); else tmp = fma(fma(fma(0.16666666666666666, y, 0.5), y, 1.0), y, 1.0); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[(y * x), $MachinePrecision] * y), $MachinePrecision]}, If[LessEqual[t$95$0, -5e+39], N[(N[(x * x), $MachinePrecision] * 0.5), $MachinePrecision], If[LessEqual[t$95$0, 0.001], N[(N[(y * x), $MachinePrecision] * y + 1.0), $MachinePrecision], N[(N[(N[(0.16666666666666666 * y + 0.5), $MachinePrecision] * y + 1.0), $MachinePrecision] * y + 1.0), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(y \cdot x\right) \cdot y\\
\mathbf{if}\;t\_0 \leq -5 \cdot 10^{+39}:\\
\;\;\;\;\left(x \cdot x\right) \cdot 0.5\\
\mathbf{elif}\;t\_0 \leq 0.001:\\
\;\;\;\;\mathsf{fma}\left(y \cdot x, y, 1\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, y, 0.5\right), y, 1\right), y, 1\right)\\
\end{array}
\end{array}
if (*.f64 (*.f64 x y) y) < -5.00000000000000015e39Initial program 100.0%
Applied rewrites60.4%
Taylor expanded in x around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f642.3
Applied rewrites2.3%
Taylor expanded in x around inf
Applied rewrites20.4%
if -5.00000000000000015e39 < (*.f64 (*.f64 x y) y) < 1e-3Initial program 100.0%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f6498.2
Applied rewrites98.2%
if 1e-3 < (*.f64 (*.f64 x y) y) Initial program 100.0%
Applied rewrites37.6%
Taylor expanded in y around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6433.6
Applied rewrites33.6%
Final simplification63.5%
(FPCore (x y)
:precision binary64
(let* ((t_0 (* (* y x) y)))
(if (<= t_0 -5e+39)
(* (* x x) 0.5)
(if (<= t_0 0.001)
(fma (* y x) y 1.0)
(* (* (fma 0.16666666666666666 y 0.5) y) y)))))
double code(double x, double y) {
double t_0 = (y * x) * y;
double tmp;
if (t_0 <= -5e+39) {
tmp = (x * x) * 0.5;
} else if (t_0 <= 0.001) {
tmp = fma((y * x), y, 1.0);
} else {
tmp = (fma(0.16666666666666666, y, 0.5) * y) * y;
}
return tmp;
}
function code(x, y) t_0 = Float64(Float64(y * x) * y) tmp = 0.0 if (t_0 <= -5e+39) tmp = Float64(Float64(x * x) * 0.5); elseif (t_0 <= 0.001) tmp = fma(Float64(y * x), y, 1.0); else tmp = Float64(Float64(fma(0.16666666666666666, y, 0.5) * y) * y); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[(y * x), $MachinePrecision] * y), $MachinePrecision]}, If[LessEqual[t$95$0, -5e+39], N[(N[(x * x), $MachinePrecision] * 0.5), $MachinePrecision], If[LessEqual[t$95$0, 0.001], N[(N[(y * x), $MachinePrecision] * y + 1.0), $MachinePrecision], N[(N[(N[(0.16666666666666666 * y + 0.5), $MachinePrecision] * y), $MachinePrecision] * y), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(y \cdot x\right) \cdot y\\
\mathbf{if}\;t\_0 \leq -5 \cdot 10^{+39}:\\
\;\;\;\;\left(x \cdot x\right) \cdot 0.5\\
\mathbf{elif}\;t\_0 \leq 0.001:\\
\;\;\;\;\mathsf{fma}\left(y \cdot x, y, 1\right)\\
\mathbf{else}:\\
\;\;\;\;\left(\mathsf{fma}\left(0.16666666666666666, y, 0.5\right) \cdot y\right) \cdot y\\
\end{array}
\end{array}
if (*.f64 (*.f64 x y) y) < -5.00000000000000015e39Initial program 100.0%
Applied rewrites60.4%
Taylor expanded in x around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f642.3
Applied rewrites2.3%
Taylor expanded in x around inf
Applied rewrites20.4%
if -5.00000000000000015e39 < (*.f64 (*.f64 x y) y) < 1e-3Initial program 100.0%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f6498.2
Applied rewrites98.2%
if 1e-3 < (*.f64 (*.f64 x y) y) Initial program 100.0%
Applied rewrites37.6%
Taylor expanded in y around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6433.6
Applied rewrites33.6%
Taylor expanded in y around inf
Applied rewrites33.5%
Final simplification63.5%
(FPCore (x y)
:precision binary64
(let* ((t_0 (* (* y x) y)))
(if (<= t_0 -5e+39)
(* (* x x) 0.5)
(if (<= t_0 2e+17) (fma (* y x) y 1.0) (* (* y y) x)))))
double code(double x, double y) {
double t_0 = (y * x) * y;
double tmp;
if (t_0 <= -5e+39) {
tmp = (x * x) * 0.5;
} else if (t_0 <= 2e+17) {
tmp = fma((y * x), y, 1.0);
} else {
tmp = (y * y) * x;
}
return tmp;
}
function code(x, y) t_0 = Float64(Float64(y * x) * y) tmp = 0.0 if (t_0 <= -5e+39) tmp = Float64(Float64(x * x) * 0.5); elseif (t_0 <= 2e+17) tmp = fma(Float64(y * x), y, 1.0); else tmp = Float64(Float64(y * y) * x); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[(y * x), $MachinePrecision] * y), $MachinePrecision]}, If[LessEqual[t$95$0, -5e+39], N[(N[(x * x), $MachinePrecision] * 0.5), $MachinePrecision], If[LessEqual[t$95$0, 2e+17], N[(N[(y * x), $MachinePrecision] * y + 1.0), $MachinePrecision], N[(N[(y * y), $MachinePrecision] * x), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(y \cdot x\right) \cdot y\\
\mathbf{if}\;t\_0 \leq -5 \cdot 10^{+39}:\\
\;\;\;\;\left(x \cdot x\right) \cdot 0.5\\
\mathbf{elif}\;t\_0 \leq 2 \cdot 10^{+17}:\\
\;\;\;\;\mathsf{fma}\left(y \cdot x, y, 1\right)\\
\mathbf{else}:\\
\;\;\;\;\left(y \cdot y\right) \cdot x\\
\end{array}
\end{array}
if (*.f64 (*.f64 x y) y) < -5.00000000000000015e39Initial program 100.0%
Applied rewrites60.4%
Taylor expanded in x around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f642.3
Applied rewrites2.3%
Taylor expanded in x around inf
Applied rewrites20.4%
if -5.00000000000000015e39 < (*.f64 (*.f64 x y) y) < 2e17Initial program 100.0%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f6497.5
Applied rewrites97.5%
if 2e17 < (*.f64 (*.f64 x y) y) Initial program 100.0%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f6449.9
Applied rewrites49.9%
Taylor expanded in x around inf
Applied rewrites61.5%
Final simplification69.6%
(FPCore (x y) :precision binary64 (let* ((t_0 (* (* y x) y))) (if (<= t_0 -5e+39) (* (* x x) 0.5) (if (<= t_0 0.001) 1.0 (* (* y y) x)))))
double code(double x, double y) {
double t_0 = (y * x) * y;
double tmp;
if (t_0 <= -5e+39) {
tmp = (x * x) * 0.5;
} else if (t_0 <= 0.001) {
tmp = 1.0;
} else {
tmp = (y * y) * x;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: tmp
t_0 = (y * x) * y
if (t_0 <= (-5d+39)) then
tmp = (x * x) * 0.5d0
else if (t_0 <= 0.001d0) then
tmp = 1.0d0
else
tmp = (y * y) * x
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = (y * x) * y;
double tmp;
if (t_0 <= -5e+39) {
tmp = (x * x) * 0.5;
} else if (t_0 <= 0.001) {
tmp = 1.0;
} else {
tmp = (y * y) * x;
}
return tmp;
}
def code(x, y): t_0 = (y * x) * y tmp = 0 if t_0 <= -5e+39: tmp = (x * x) * 0.5 elif t_0 <= 0.001: tmp = 1.0 else: tmp = (y * y) * x return tmp
function code(x, y) t_0 = Float64(Float64(y * x) * y) tmp = 0.0 if (t_0 <= -5e+39) tmp = Float64(Float64(x * x) * 0.5); elseif (t_0 <= 0.001) tmp = 1.0; else tmp = Float64(Float64(y * y) * x); end return tmp end
function tmp_2 = code(x, y) t_0 = (y * x) * y; tmp = 0.0; if (t_0 <= -5e+39) tmp = (x * x) * 0.5; elseif (t_0 <= 0.001) tmp = 1.0; else tmp = (y * y) * x; end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(N[(y * x), $MachinePrecision] * y), $MachinePrecision]}, If[LessEqual[t$95$0, -5e+39], N[(N[(x * x), $MachinePrecision] * 0.5), $MachinePrecision], If[LessEqual[t$95$0, 0.001], 1.0, N[(N[(y * y), $MachinePrecision] * x), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(y \cdot x\right) \cdot y\\
\mathbf{if}\;t\_0 \leq -5 \cdot 10^{+39}:\\
\;\;\;\;\left(x \cdot x\right) \cdot 0.5\\
\mathbf{elif}\;t\_0 \leq 0.001:\\
\;\;\;\;1\\
\mathbf{else}:\\
\;\;\;\;\left(y \cdot y\right) \cdot x\\
\end{array}
\end{array}
if (*.f64 (*.f64 x y) y) < -5.00000000000000015e39Initial program 100.0%
Applied rewrites60.4%
Taylor expanded in x around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f642.3
Applied rewrites2.3%
Taylor expanded in x around inf
Applied rewrites20.4%
if -5.00000000000000015e39 < (*.f64 (*.f64 x y) y) < 1e-3Initial program 100.0%
Taylor expanded in x around 0
Applied rewrites97.8%
if 1e-3 < (*.f64 (*.f64 x y) y) Initial program 100.0%
Taylor expanded in x around 0
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f6449.1
Applied rewrites49.1%
Taylor expanded in x around inf
Applied rewrites60.5%
Final simplification69.4%
(FPCore (x y)
:precision binary64
(let* ((t_0 (* (* y x) y)))
(if (<= t_0 -5e+39)
(* (* x x) 0.5)
(if (<= t_0 0.001) 1.0 (* (* 0.5 y) y)))))
double code(double x, double y) {
double t_0 = (y * x) * y;
double tmp;
if (t_0 <= -5e+39) {
tmp = (x * x) * 0.5;
} else if (t_0 <= 0.001) {
tmp = 1.0;
} else {
tmp = (0.5 * y) * y;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: tmp
t_0 = (y * x) * y
if (t_0 <= (-5d+39)) then
tmp = (x * x) * 0.5d0
else if (t_0 <= 0.001d0) then
tmp = 1.0d0
else
tmp = (0.5d0 * y) * y
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = (y * x) * y;
double tmp;
if (t_0 <= -5e+39) {
tmp = (x * x) * 0.5;
} else if (t_0 <= 0.001) {
tmp = 1.0;
} else {
tmp = (0.5 * y) * y;
}
return tmp;
}
def code(x, y): t_0 = (y * x) * y tmp = 0 if t_0 <= -5e+39: tmp = (x * x) * 0.5 elif t_0 <= 0.001: tmp = 1.0 else: tmp = (0.5 * y) * y return tmp
function code(x, y) t_0 = Float64(Float64(y * x) * y) tmp = 0.0 if (t_0 <= -5e+39) tmp = Float64(Float64(x * x) * 0.5); elseif (t_0 <= 0.001) tmp = 1.0; else tmp = Float64(Float64(0.5 * y) * y); end return tmp end
function tmp_2 = code(x, y) t_0 = (y * x) * y; tmp = 0.0; if (t_0 <= -5e+39) tmp = (x * x) * 0.5; elseif (t_0 <= 0.001) tmp = 1.0; else tmp = (0.5 * y) * y; end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(N[(y * x), $MachinePrecision] * y), $MachinePrecision]}, If[LessEqual[t$95$0, -5e+39], N[(N[(x * x), $MachinePrecision] * 0.5), $MachinePrecision], If[LessEqual[t$95$0, 0.001], 1.0, N[(N[(0.5 * y), $MachinePrecision] * y), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(y \cdot x\right) \cdot y\\
\mathbf{if}\;t\_0 \leq -5 \cdot 10^{+39}:\\
\;\;\;\;\left(x \cdot x\right) \cdot 0.5\\
\mathbf{elif}\;t\_0 \leq 0.001:\\
\;\;\;\;1\\
\mathbf{else}:\\
\;\;\;\;\left(0.5 \cdot y\right) \cdot y\\
\end{array}
\end{array}
if (*.f64 (*.f64 x y) y) < -5.00000000000000015e39Initial program 100.0%
Applied rewrites60.4%
Taylor expanded in x around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f642.3
Applied rewrites2.3%
Taylor expanded in x around inf
Applied rewrites20.4%
if -5.00000000000000015e39 < (*.f64 (*.f64 x y) y) < 1e-3Initial program 100.0%
Taylor expanded in x around 0
Applied rewrites97.8%
if 1e-3 < (*.f64 (*.f64 x y) y) Initial program 100.0%
Applied rewrites37.6%
Taylor expanded in y around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6433.6
Applied rewrites33.6%
Taylor expanded in y around inf
Applied rewrites33.5%
Taylor expanded in y around 0
Applied rewrites58.5%
Final simplification69.0%
(FPCore (x y) :precision binary64 (let* ((t_0 (* (* y x) y)) (t_1 (* (* x x) 0.5))) (if (<= t_0 -5e+39) t_1 (if (<= t_0 2e+17) 1.0 t_1))))
double code(double x, double y) {
double t_0 = (y * x) * y;
double t_1 = (x * x) * 0.5;
double tmp;
if (t_0 <= -5e+39) {
tmp = t_1;
} else if (t_0 <= 2e+17) {
tmp = 1.0;
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: tmp
t_0 = (y * x) * y
t_1 = (x * x) * 0.5d0
if (t_0 <= (-5d+39)) then
tmp = t_1
else if (t_0 <= 2d+17) then
tmp = 1.0d0
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = (y * x) * y;
double t_1 = (x * x) * 0.5;
double tmp;
if (t_0 <= -5e+39) {
tmp = t_1;
} else if (t_0 <= 2e+17) {
tmp = 1.0;
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y): t_0 = (y * x) * y t_1 = (x * x) * 0.5 tmp = 0 if t_0 <= -5e+39: tmp = t_1 elif t_0 <= 2e+17: tmp = 1.0 else: tmp = t_1 return tmp
function code(x, y) t_0 = Float64(Float64(y * x) * y) t_1 = Float64(Float64(x * x) * 0.5) tmp = 0.0 if (t_0 <= -5e+39) tmp = t_1; elseif (t_0 <= 2e+17) tmp = 1.0; else tmp = t_1; end return tmp end
function tmp_2 = code(x, y) t_0 = (y * x) * y; t_1 = (x * x) * 0.5; tmp = 0.0; if (t_0 <= -5e+39) tmp = t_1; elseif (t_0 <= 2e+17) tmp = 1.0; else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(N[(y * x), $MachinePrecision] * y), $MachinePrecision]}, Block[{t$95$1 = N[(N[(x * x), $MachinePrecision] * 0.5), $MachinePrecision]}, If[LessEqual[t$95$0, -5e+39], t$95$1, If[LessEqual[t$95$0, 2e+17], 1.0, t$95$1]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(y \cdot x\right) \cdot y\\
t_1 := \left(x \cdot x\right) \cdot 0.5\\
\mathbf{if}\;t\_0 \leq -5 \cdot 10^{+39}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t\_0 \leq 2 \cdot 10^{+17}:\\
\;\;\;\;1\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if (*.f64 (*.f64 x y) y) < -5.00000000000000015e39 or 2e17 < (*.f64 (*.f64 x y) y) Initial program 100.0%
Applied rewrites62.2%
Taylor expanded in x around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6417.9
Applied rewrites17.9%
Taylor expanded in x around inf
Applied rewrites27.4%
if -5.00000000000000015e39 < (*.f64 (*.f64 x y) y) < 2e17Initial program 100.0%
Taylor expanded in x around 0
Applied rewrites97.1%
Final simplification63.6%
(FPCore (x y) :precision binary64 1.0)
double code(double x, double y) {
return 1.0;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 1.0d0
end function
public static double code(double x, double y) {
return 1.0;
}
def code(x, y): return 1.0
function code(x, y) return 1.0 end
function tmp = code(x, y) tmp = 1.0; end
code[x_, y_] := 1.0
\begin{array}{l}
\\
1
\end{array}
Initial program 100.0%
Taylor expanded in x around 0
Applied rewrites52.0%
herbie shell --seed 2024331
(FPCore (x y)
:name "Data.Random.Distribution.Normal:normalF from random-fu-0.2.6.2"
:precision binary64
(exp (* (* x y) y)))