
(FPCore (x y z) :precision binary64 (sqrt (/ (+ (+ (* x x) (* y y)) (* z z)) 3.0)))
double code(double x, double y, double z) {
return sqrt(((((x * x) + (y * y)) + (z * z)) / 3.0));
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = sqrt(((((x * x) + (y * y)) + (z * z)) / 3.0d0))
end function
public static double code(double x, double y, double z) {
return Math.sqrt(((((x * x) + (y * y)) + (z * z)) / 3.0));
}
def code(x, y, z): return math.sqrt(((((x * x) + (y * y)) + (z * z)) / 3.0))
function code(x, y, z) return sqrt(Float64(Float64(Float64(Float64(x * x) + Float64(y * y)) + Float64(z * z)) / 3.0)) end
function tmp = code(x, y, z) tmp = sqrt(((((x * x) + (y * y)) + (z * z)) / 3.0)); end
code[x_, y_, z_] := N[Sqrt[N[(N[(N[(N[(x * x), $MachinePrecision] + N[(y * y), $MachinePrecision]), $MachinePrecision] + N[(z * z), $MachinePrecision]), $MachinePrecision] / 3.0), $MachinePrecision]], $MachinePrecision]
\begin{array}{l}
\\
\sqrt{\frac{\left(x \cdot x + y \cdot y\right) + z \cdot z}{3}}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 6 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z) :precision binary64 (sqrt (/ (+ (+ (* x x) (* y y)) (* z z)) 3.0)))
double code(double x, double y, double z) {
return sqrt(((((x * x) + (y * y)) + (z * z)) / 3.0));
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = sqrt(((((x * x) + (y * y)) + (z * z)) / 3.0d0))
end function
public static double code(double x, double y, double z) {
return Math.sqrt(((((x * x) + (y * y)) + (z * z)) / 3.0));
}
def code(x, y, z): return math.sqrt(((((x * x) + (y * y)) + (z * z)) / 3.0))
function code(x, y, z) return sqrt(Float64(Float64(Float64(Float64(x * x) + Float64(y * y)) + Float64(z * z)) / 3.0)) end
function tmp = code(x, y, z) tmp = sqrt(((((x * x) + (y * y)) + (z * z)) / 3.0)); end
code[x_, y_, z_] := N[Sqrt[N[(N[(N[(N[(x * x), $MachinePrecision] + N[(y * y), $MachinePrecision]), $MachinePrecision] + N[(z * z), $MachinePrecision]), $MachinePrecision] / 3.0), $MachinePrecision]], $MachinePrecision]
\begin{array}{l}
\\
\sqrt{\frac{\left(x \cdot x + y \cdot y\right) + z \cdot z}{3}}
\end{array}
(FPCore (x y z) :precision binary64 (/ 1.0 (/ (sqrt 3.0) (hypot y (hypot x z)))))
double code(double x, double y, double z) {
return 1.0 / (sqrt(3.0) / hypot(y, hypot(x, z)));
}
public static double code(double x, double y, double z) {
return 1.0 / (Math.sqrt(3.0) / Math.hypot(y, Math.hypot(x, z)));
}
def code(x, y, z): return 1.0 / (math.sqrt(3.0) / math.hypot(y, math.hypot(x, z)))
function code(x, y, z) return Float64(1.0 / Float64(sqrt(3.0) / hypot(y, hypot(x, z)))) end
function tmp = code(x, y, z) tmp = 1.0 / (sqrt(3.0) / hypot(y, hypot(x, z))); end
code[x_, y_, z_] := N[(1.0 / N[(N[Sqrt[3.0], $MachinePrecision] / N[Sqrt[y ^ 2 + N[Sqrt[x ^ 2 + z ^ 2], $MachinePrecision] ^ 2], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{\frac{\sqrt{3}}{\mathsf{hypot}\left(y, \mathsf{hypot}\left(x, z\right)\right)}}
\end{array}
Initial program 46.2%
sqr-neg46.2%
sqr-neg46.2%
sqr-neg46.2%
sqr-neg46.2%
sqr-neg46.2%
Simplified46.0%
sqrt-prod45.9%
fma-undefine45.9%
+-commutative45.9%
fma-undefine45.9%
associate-+r+45.9%
fma-undefine45.9%
sqrt-prod46.0%
metadata-eval46.0%
div-inv46.2%
sqrt-div46.1%
clear-num46.0%
+-commutative46.0%
fma-undefine46.0%
associate-+r+46.0%
+-commutative46.0%
Applied egg-rr99.5%
(FPCore (x y z) :precision binary64 (/ (hypot z y) (sqrt 3.0)))
double code(double x, double y, double z) {
return hypot(z, y) / sqrt(3.0);
}
public static double code(double x, double y, double z) {
return Math.hypot(z, y) / Math.sqrt(3.0);
}
def code(x, y, z): return math.hypot(z, y) / math.sqrt(3.0)
function code(x, y, z) return Float64(hypot(z, y) / sqrt(3.0)) end
function tmp = code(x, y, z) tmp = hypot(z, y) / sqrt(3.0); end
code[x_, y_, z_] := N[(N[Sqrt[z ^ 2 + y ^ 2], $MachinePrecision] / N[Sqrt[3.0], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\mathsf{hypot}\left(z, y\right)}{\sqrt{3}}
\end{array}
Initial program 46.2%
sqr-neg46.2%
sqr-neg46.2%
sqr-neg46.2%
sqr-neg46.2%
sqr-neg46.2%
Simplified46.0%
sqrt-prod45.9%
fma-undefine45.9%
+-commutative45.9%
fma-undefine45.9%
associate-+r+45.9%
fma-undefine45.9%
sqrt-prod46.0%
metadata-eval46.0%
div-inv46.2%
sqrt-div46.1%
clear-num46.0%
+-commutative46.0%
fma-undefine46.0%
associate-+r+46.0%
+-commutative46.0%
Applied egg-rr99.5%
Taylor expanded in x around 0 31.5%
associate-*l/31.8%
+-commutative31.8%
unpow231.8%
unpow231.8%
hypot-undefine63.9%
*-lft-identity63.9%
Simplified63.9%
(FPCore (x y z) :precision binary64 (* (hypot z y) (sqrt 0.3333333333333333)))
double code(double x, double y, double z) {
return hypot(z, y) * sqrt(0.3333333333333333);
}
public static double code(double x, double y, double z) {
return Math.hypot(z, y) * Math.sqrt(0.3333333333333333);
}
def code(x, y, z): return math.hypot(z, y) * math.sqrt(0.3333333333333333)
function code(x, y, z) return Float64(hypot(z, y) * sqrt(0.3333333333333333)) end
function tmp = code(x, y, z) tmp = hypot(z, y) * sqrt(0.3333333333333333); end
code[x_, y_, z_] := N[(N[Sqrt[z ^ 2 + y ^ 2], $MachinePrecision] * N[Sqrt[0.3333333333333333], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{hypot}\left(z, y\right) \cdot \sqrt{0.3333333333333333}
\end{array}
Initial program 46.2%
sqr-neg46.2%
sqr-neg46.2%
sqr-neg46.2%
sqr-neg46.2%
sqr-neg46.2%
Simplified46.0%
Taylor expanded in x around 0 31.6%
+-commutative31.6%
unpow231.6%
unpow231.6%
hypot-undefine63.8%
Simplified63.8%
Final simplification63.8%
(FPCore (x y z) :precision binary64 (/ 1.0 (/ (sqrt 3.0) z)))
double code(double x, double y, double z) {
return 1.0 / (sqrt(3.0) / 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 / (sqrt(3.0d0) / z)
end function
public static double code(double x, double y, double z) {
return 1.0 / (Math.sqrt(3.0) / z);
}
def code(x, y, z): return 1.0 / (math.sqrt(3.0) / z)
function code(x, y, z) return Float64(1.0 / Float64(sqrt(3.0) / z)) end
function tmp = code(x, y, z) tmp = 1.0 / (sqrt(3.0) / z); end
code[x_, y_, z_] := N[(1.0 / N[(N[Sqrt[3.0], $MachinePrecision] / z), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{\frac{\sqrt{3}}{z}}
\end{array}
Initial program 46.2%
sqr-neg46.2%
sqr-neg46.2%
sqr-neg46.2%
sqr-neg46.2%
sqr-neg46.2%
Simplified46.0%
sqrt-prod45.9%
fma-undefine45.9%
+-commutative45.9%
fma-undefine45.9%
associate-+r+45.9%
fma-undefine45.9%
sqrt-prod46.0%
metadata-eval46.0%
div-inv46.2%
sqrt-div46.1%
clear-num46.0%
+-commutative46.0%
fma-undefine46.0%
associate-+r+46.0%
+-commutative46.0%
Applied egg-rr99.5%
Taylor expanded in z around inf 16.0%
(FPCore (x y z) :precision binary64 (/ z (sqrt 3.0)))
double code(double x, double y, double z) {
return z / sqrt(3.0);
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = z / sqrt(3.0d0)
end function
public static double code(double x, double y, double z) {
return z / Math.sqrt(3.0);
}
def code(x, y, z): return z / math.sqrt(3.0)
function code(x, y, z) return Float64(z / sqrt(3.0)) end
function tmp = code(x, y, z) tmp = z / sqrt(3.0); end
code[x_, y_, z_] := N[(z / N[Sqrt[3.0], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{z}{\sqrt{3}}
\end{array}
Initial program 46.2%
sqr-neg46.2%
sqr-neg46.2%
sqr-neg46.2%
sqr-neg46.2%
sqr-neg46.2%
Simplified46.0%
sqrt-prod45.9%
fma-undefine45.9%
+-commutative45.9%
fma-undefine45.9%
associate-+r+45.9%
fma-undefine45.9%
sqrt-prod46.0%
metadata-eval46.0%
div-inv46.2%
sqrt-div46.1%
clear-num46.0%
+-commutative46.0%
fma-undefine46.0%
associate-+r+46.0%
+-commutative46.0%
Applied egg-rr99.5%
Taylor expanded in z around inf 16.0%
(FPCore (x y z) :precision binary64 (* z (sqrt 0.3333333333333333)))
double code(double x, double y, double z) {
return z * sqrt(0.3333333333333333);
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = z * sqrt(0.3333333333333333d0)
end function
public static double code(double x, double y, double z) {
return z * Math.sqrt(0.3333333333333333);
}
def code(x, y, z): return z * math.sqrt(0.3333333333333333)
function code(x, y, z) return Float64(z * sqrt(0.3333333333333333)) end
function tmp = code(x, y, z) tmp = z * sqrt(0.3333333333333333); end
code[x_, y_, z_] := N[(z * N[Sqrt[0.3333333333333333], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
z \cdot \sqrt{0.3333333333333333}
\end{array}
Initial program 46.2%
sqr-neg46.2%
sqr-neg46.2%
sqr-neg46.2%
sqr-neg46.2%
sqr-neg46.2%
Simplified46.0%
Taylor expanded in z around inf 16.0%
*-commutative16.0%
Simplified16.0%
Final simplification16.0%
(FPCore (x y z)
:precision binary64
(if (< z -6.396479394109776e+136)
(/ (- z) (sqrt 3.0))
(if (< z 7.320293694404182e+117)
(/ (sqrt (+ (+ (* z z) (* x x)) (* y y))) (sqrt 3.0))
(* (sqrt 0.3333333333333333) z))))
double code(double x, double y, double z) {
double tmp;
if (z < -6.396479394109776e+136) {
tmp = -z / sqrt(3.0);
} else if (z < 7.320293694404182e+117) {
tmp = sqrt((((z * z) + (x * x)) + (y * y))) / sqrt(3.0);
} else {
tmp = sqrt(0.3333333333333333) * z;
}
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 (z < (-6.396479394109776d+136)) then
tmp = -z / sqrt(3.0d0)
else if (z < 7.320293694404182d+117) then
tmp = sqrt((((z * z) + (x * x)) + (y * y))) / sqrt(3.0d0)
else
tmp = sqrt(0.3333333333333333d0) * z
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double tmp;
if (z < -6.396479394109776e+136) {
tmp = -z / Math.sqrt(3.0);
} else if (z < 7.320293694404182e+117) {
tmp = Math.sqrt((((z * z) + (x * x)) + (y * y))) / Math.sqrt(3.0);
} else {
tmp = Math.sqrt(0.3333333333333333) * z;
}
return tmp;
}
def code(x, y, z): tmp = 0 if z < -6.396479394109776e+136: tmp = -z / math.sqrt(3.0) elif z < 7.320293694404182e+117: tmp = math.sqrt((((z * z) + (x * x)) + (y * y))) / math.sqrt(3.0) else: tmp = math.sqrt(0.3333333333333333) * z return tmp
function code(x, y, z) tmp = 0.0 if (z < -6.396479394109776e+136) tmp = Float64(Float64(-z) / sqrt(3.0)); elseif (z < 7.320293694404182e+117) tmp = Float64(sqrt(Float64(Float64(Float64(z * z) + Float64(x * x)) + Float64(y * y))) / sqrt(3.0)); else tmp = Float64(sqrt(0.3333333333333333) * z); end return tmp end
function tmp_2 = code(x, y, z) tmp = 0.0; if (z < -6.396479394109776e+136) tmp = -z / sqrt(3.0); elseif (z < 7.320293694404182e+117) tmp = sqrt((((z * z) + (x * x)) + (y * y))) / sqrt(3.0); else tmp = sqrt(0.3333333333333333) * z; end tmp_2 = tmp; end
code[x_, y_, z_] := If[Less[z, -6.396479394109776e+136], N[((-z) / N[Sqrt[3.0], $MachinePrecision]), $MachinePrecision], If[Less[z, 7.320293694404182e+117], N[(N[Sqrt[N[(N[(N[(z * z), $MachinePrecision] + N[(x * x), $MachinePrecision]), $MachinePrecision] + N[(y * y), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / N[Sqrt[3.0], $MachinePrecision]), $MachinePrecision], N[(N[Sqrt[0.3333333333333333], $MachinePrecision] * z), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z < -6.396479394109776 \cdot 10^{+136}:\\
\;\;\;\;\frac{-z}{\sqrt{3}}\\
\mathbf{elif}\;z < 7.320293694404182 \cdot 10^{+117}:\\
\;\;\;\;\frac{\sqrt{\left(z \cdot z + x \cdot x\right) + y \cdot y}}{\sqrt{3}}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{0.3333333333333333} \cdot z\\
\end{array}
\end{array}
herbie shell --seed 2024158
(FPCore (x y z)
:name "Data.Array.Repa.Algorithms.Pixel:doubleRmsOfRGB8 from repa-algorithms-3.4.0.1"
:precision binary64
:alt
(! :herbie-platform default (if (< z -63964793941097760000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) (/ (- z) (sqrt 3)) (if (< z 7320293694404182000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) (/ (sqrt (+ (+ (* z z) (* x x)) (* y y))) (sqrt 3)) (* (sqrt 3333333333333333/10000000000000000) z))))
(sqrt (/ (+ (+ (* x x) (* y y)) (* z z)) 3.0)))