
(FPCore (x y z) :precision binary64 (* (/ 1.0 2.0) (+ x (* y (sqrt z)))))
double code(double x, double y, double z) {
return (1.0 / 2.0) * (x + (y * sqrt(z)));
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = (1.0d0 / 2.0d0) * (x + (y * sqrt(z)))
end function
public static double code(double x, double y, double z) {
return (1.0 / 2.0) * (x + (y * Math.sqrt(z)));
}
def code(x, y, z): return (1.0 / 2.0) * (x + (y * math.sqrt(z)))
function code(x, y, z) return Float64(Float64(1.0 / 2.0) * Float64(x + Float64(y * sqrt(z)))) end
function tmp = code(x, y, z) tmp = (1.0 / 2.0) * (x + (y * sqrt(z))); end
code[x_, y_, z_] := N[(N[(1.0 / 2.0), $MachinePrecision] * N[(x + N[(y * N[Sqrt[z], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{2} \cdot \left(x + y \cdot \sqrt{z}\right)
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 5 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z) :precision binary64 (* (/ 1.0 2.0) (+ x (* y (sqrt z)))))
double code(double x, double y, double z) {
return (1.0 / 2.0) * (x + (y * sqrt(z)));
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = (1.0d0 / 2.0d0) * (x + (y * sqrt(z)))
end function
public static double code(double x, double y, double z) {
return (1.0 / 2.0) * (x + (y * Math.sqrt(z)));
}
def code(x, y, z): return (1.0 / 2.0) * (x + (y * math.sqrt(z)))
function code(x, y, z) return Float64(Float64(1.0 / 2.0) * Float64(x + Float64(y * sqrt(z)))) end
function tmp = code(x, y, z) tmp = (1.0 / 2.0) * (x + (y * sqrt(z))); end
code[x_, y_, z_] := N[(N[(1.0 / 2.0), $MachinePrecision] * N[(x + N[(y * N[Sqrt[z], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{2} \cdot \left(x + y \cdot \sqrt{z}\right)
\end{array}
(FPCore (x y z) :precision binary64 (* 0.5 (+ x (* y (sqrt z)))))
double code(double x, double y, double z) {
return 0.5 * (x + (y * sqrt(z)));
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = 0.5d0 * (x + (y * sqrt(z)))
end function
public static double code(double x, double y, double z) {
return 0.5 * (x + (y * Math.sqrt(z)));
}
def code(x, y, z): return 0.5 * (x + (y * math.sqrt(z)))
function code(x, y, z) return Float64(0.5 * Float64(x + Float64(y * sqrt(z)))) end
function tmp = code(x, y, z) tmp = 0.5 * (x + (y * sqrt(z))); end
code[x_, y_, z_] := N[(0.5 * N[(x + N[(y * N[Sqrt[z], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
0.5 \cdot \left(x + y \cdot \sqrt{z}\right)
\end{array}
Initial program 99.8%
*-lowering-*.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f6499.8%
Simplified99.8%
(FPCore (x y z) :precision binary64 (let* ((t_0 (/ (* 0.5 y) (pow z -0.5)))) (if (<= y -4.7e-86) t_0 (if (<= y 1.62e+95) (* 0.5 x) t_0))))
double code(double x, double y, double z) {
double t_0 = (0.5 * y) / pow(z, -0.5);
double tmp;
if (y <= -4.7e-86) {
tmp = t_0;
} else if (y <= 1.62e+95) {
tmp = 0.5 * x;
} else {
tmp = t_0;
}
return tmp;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: t_0
real(8) :: tmp
t_0 = (0.5d0 * y) / (z ** (-0.5d0))
if (y <= (-4.7d-86)) then
tmp = t_0
else if (y <= 1.62d+95) then
tmp = 0.5d0 * x
else
tmp = t_0
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double t_0 = (0.5 * y) / Math.pow(z, -0.5);
double tmp;
if (y <= -4.7e-86) {
tmp = t_0;
} else if (y <= 1.62e+95) {
tmp = 0.5 * x;
} else {
tmp = t_0;
}
return tmp;
}
def code(x, y, z): t_0 = (0.5 * y) / math.pow(z, -0.5) tmp = 0 if y <= -4.7e-86: tmp = t_0 elif y <= 1.62e+95: tmp = 0.5 * x else: tmp = t_0 return tmp
function code(x, y, z) t_0 = Float64(Float64(0.5 * y) / (z ^ -0.5)) tmp = 0.0 if (y <= -4.7e-86) tmp = t_0; elseif (y <= 1.62e+95) tmp = Float64(0.5 * x); else tmp = t_0; end return tmp end
function tmp_2 = code(x, y, z) t_0 = (0.5 * y) / (z ^ -0.5); tmp = 0.0; if (y <= -4.7e-86) tmp = t_0; elseif (y <= 1.62e+95) tmp = 0.5 * x; else tmp = t_0; end tmp_2 = tmp; end
code[x_, y_, z_] := Block[{t$95$0 = N[(N[(0.5 * y), $MachinePrecision] / N[Power[z, -0.5], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -4.7e-86], t$95$0, If[LessEqual[y, 1.62e+95], N[(0.5 * x), $MachinePrecision], t$95$0]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{0.5 \cdot y}{{z}^{-0.5}}\\
\mathbf{if}\;y \leq -4.7 \cdot 10^{-86}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y \leq 1.62 \cdot 10^{+95}:\\
\;\;\;\;0.5 \cdot x\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if y < -4.7000000000000001e-86 or 1.61999999999999993e95 < y Initial program 99.7%
*-lowering-*.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f6499.7%
Simplified99.7%
flip-+N/A
clear-numN/A
un-div-invN/A
/-lowering-/.f64N/A
clear-numN/A
flip-+N/A
/-lowering-/.f64N/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
rem-square-sqrtN/A
sqrt-lowering-sqrt.f64N/A
rem-square-sqrt99.6%
Applied egg-rr99.6%
Taylor expanded in x around 0
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f6478.0%
Simplified78.0%
associate-/r/N/A
metadata-evalN/A
associate-*r*N/A
remove-double-divN/A
un-div-invN/A
/-lowering-/.f64N/A
*-lowering-*.f64N/A
pow1/2N/A
pow-flipN/A
metadata-evalN/A
pow-lowering-pow.f6478.1%
Applied egg-rr78.1%
if -4.7000000000000001e-86 < y < 1.61999999999999993e95Initial program 99.9%
*-lowering-*.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f6499.9%
Simplified99.9%
Taylor expanded in x around inf
*-lowering-*.f6475.7%
Simplified75.7%
(FPCore (x y z) :precision binary64 (if (<= y -2.65e-87) (* y (* 0.5 (sqrt z))) (if (<= y 3.5e+95) (* 0.5 x) (/ 0.5 (/ (pow z -0.5) y)))))
double code(double x, double y, double z) {
double tmp;
if (y <= -2.65e-87) {
tmp = y * (0.5 * sqrt(z));
} else if (y <= 3.5e+95) {
tmp = 0.5 * x;
} else {
tmp = 0.5 / (pow(z, -0.5) / y);
}
return tmp;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: tmp
if (y <= (-2.65d-87)) then
tmp = y * (0.5d0 * sqrt(z))
else if (y <= 3.5d+95) then
tmp = 0.5d0 * x
else
tmp = 0.5d0 / ((z ** (-0.5d0)) / y)
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double tmp;
if (y <= -2.65e-87) {
tmp = y * (0.5 * Math.sqrt(z));
} else if (y <= 3.5e+95) {
tmp = 0.5 * x;
} else {
tmp = 0.5 / (Math.pow(z, -0.5) / y);
}
return tmp;
}
def code(x, y, z): tmp = 0 if y <= -2.65e-87: tmp = y * (0.5 * math.sqrt(z)) elif y <= 3.5e+95: tmp = 0.5 * x else: tmp = 0.5 / (math.pow(z, -0.5) / y) return tmp
function code(x, y, z) tmp = 0.0 if (y <= -2.65e-87) tmp = Float64(y * Float64(0.5 * sqrt(z))); elseif (y <= 3.5e+95) tmp = Float64(0.5 * x); else tmp = Float64(0.5 / Float64((z ^ -0.5) / y)); end return tmp end
function tmp_2 = code(x, y, z) tmp = 0.0; if (y <= -2.65e-87) tmp = y * (0.5 * sqrt(z)); elseif (y <= 3.5e+95) tmp = 0.5 * x; else tmp = 0.5 / ((z ^ -0.5) / y); end tmp_2 = tmp; end
code[x_, y_, z_] := If[LessEqual[y, -2.65e-87], N[(y * N[(0.5 * N[Sqrt[z], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 3.5e+95], N[(0.5 * x), $MachinePrecision], N[(0.5 / N[(N[Power[z, -0.5], $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -2.65 \cdot 10^{-87}:\\
\;\;\;\;y \cdot \left(0.5 \cdot \sqrt{z}\right)\\
\mathbf{elif}\;y \leq 3.5 \cdot 10^{+95}:\\
\;\;\;\;0.5 \cdot x\\
\mathbf{else}:\\
\;\;\;\;\frac{0.5}{\frac{{z}^{-0.5}}{y}}\\
\end{array}
\end{array}
if y < -2.64999999999999993e-87Initial program 99.7%
*-lowering-*.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f6499.7%
Simplified99.7%
Taylor expanded in x around 0
*-commutativeN/A
associate-*r*N/A
*-commutativeN/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f6471.6%
Simplified71.6%
if -2.64999999999999993e-87 < y < 3.5e95Initial program 99.9%
*-lowering-*.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f6499.9%
Simplified99.9%
Taylor expanded in x around inf
*-lowering-*.f6475.7%
Simplified75.7%
if 3.5e95 < y Initial program 99.7%
*-lowering-*.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f6499.7%
Simplified99.7%
flip-+N/A
clear-numN/A
un-div-invN/A
/-lowering-/.f64N/A
clear-numN/A
flip-+N/A
/-lowering-/.f64N/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
rem-square-sqrtN/A
sqrt-lowering-sqrt.f64N/A
rem-square-sqrt99.5%
Applied egg-rr99.5%
Taylor expanded in x around 0
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f6487.1%
Simplified87.1%
associate-/r/N/A
metadata-evalN/A
pow1/2N/A
metadata-evalN/A
pow-plusN/A
metadata-evalN/A
pow-flipN/A
pow1/2N/A
associate-*r*N/A
*-commutativeN/A
associate-*l*N/A
associate-/r/N/A
un-div-invN/A
/-lowering-/.f64N/A
*-commutativeN/A
associate-/r*N/A
Applied egg-rr87.1%
(FPCore (x y z) :precision binary64 (let* ((t_0 (* y (* 0.5 (sqrt z))))) (if (<= y -4.7e-86) t_0 (if (<= y 1.42e+103) (* 0.5 x) t_0))))
double code(double x, double y, double z) {
double t_0 = y * (0.5 * sqrt(z));
double tmp;
if (y <= -4.7e-86) {
tmp = t_0;
} else if (y <= 1.42e+103) {
tmp = 0.5 * x;
} else {
tmp = t_0;
}
return tmp;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: t_0
real(8) :: tmp
t_0 = y * (0.5d0 * sqrt(z))
if (y <= (-4.7d-86)) then
tmp = t_0
else if (y <= 1.42d+103) then
tmp = 0.5d0 * x
else
tmp = t_0
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double t_0 = y * (0.5 * Math.sqrt(z));
double tmp;
if (y <= -4.7e-86) {
tmp = t_0;
} else if (y <= 1.42e+103) {
tmp = 0.5 * x;
} else {
tmp = t_0;
}
return tmp;
}
def code(x, y, z): t_0 = y * (0.5 * math.sqrt(z)) tmp = 0 if y <= -4.7e-86: tmp = t_0 elif y <= 1.42e+103: tmp = 0.5 * x else: tmp = t_0 return tmp
function code(x, y, z) t_0 = Float64(y * Float64(0.5 * sqrt(z))) tmp = 0.0 if (y <= -4.7e-86) tmp = t_0; elseif (y <= 1.42e+103) tmp = Float64(0.5 * x); else tmp = t_0; end return tmp end
function tmp_2 = code(x, y, z) t_0 = y * (0.5 * sqrt(z)); tmp = 0.0; if (y <= -4.7e-86) tmp = t_0; elseif (y <= 1.42e+103) tmp = 0.5 * x; else tmp = t_0; end tmp_2 = tmp; end
code[x_, y_, z_] := Block[{t$95$0 = N[(y * N[(0.5 * N[Sqrt[z], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -4.7e-86], t$95$0, If[LessEqual[y, 1.42e+103], N[(0.5 * x), $MachinePrecision], t$95$0]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := y \cdot \left(0.5 \cdot \sqrt{z}\right)\\
\mathbf{if}\;y \leq -4.7 \cdot 10^{-86}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y \leq 1.42 \cdot 10^{+103}:\\
\;\;\;\;0.5 \cdot x\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if y < -4.7000000000000001e-86 or 1.42e103 < y Initial program 99.7%
*-lowering-*.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f6499.7%
Simplified99.7%
Taylor expanded in x around 0
*-commutativeN/A
associate-*r*N/A
*-commutativeN/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f6478.0%
Simplified78.0%
if -4.7000000000000001e-86 < y < 1.42e103Initial program 99.9%
*-lowering-*.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f6499.9%
Simplified99.9%
Taylor expanded in x around inf
*-lowering-*.f6475.7%
Simplified75.7%
(FPCore (x y z) :precision binary64 (* 0.5 x))
double code(double x, double y, double z) {
return 0.5 * x;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = 0.5d0 * x
end function
public static double code(double x, double y, double z) {
return 0.5 * x;
}
def code(x, y, z): return 0.5 * x
function code(x, y, z) return Float64(0.5 * x) end
function tmp = code(x, y, z) tmp = 0.5 * x; end
code[x_, y_, z_] := N[(0.5 * x), $MachinePrecision]
\begin{array}{l}
\\
0.5 \cdot x
\end{array}
Initial program 99.8%
*-lowering-*.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f6499.8%
Simplified99.8%
Taylor expanded in x around inf
*-lowering-*.f6448.9%
Simplified48.9%
herbie shell --seed 2024138
(FPCore (x y z)
:name "Diagrams.Solve.Polynomial:quadForm from diagrams-solve-0.1, B"
:precision binary64
(* (/ 1.0 2.0) (+ x (* y (sqrt z)))))