
(FPCore (a b c d) :precision binary64 (* (+ a (+ b (+ c d))) 2.0))
double code(double a, double b, double c, double d) {
return (a + (b + (c + d))) * 2.0;
}
real(8) function code(a, b, c, d)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: d
code = (a + (b + (c + d))) * 2.0d0
end function
public static double code(double a, double b, double c, double d) {
return (a + (b + (c + d))) * 2.0;
}
def code(a, b, c, d): return (a + (b + (c + d))) * 2.0
function code(a, b, c, d) return Float64(Float64(a + Float64(b + Float64(c + d))) * 2.0) end
function tmp = code(a, b, c, d) tmp = (a + (b + (c + d))) * 2.0; end
code[a_, b_, c_, d_] := N[(N[(a + N[(b + N[(c + d), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * 2.0), $MachinePrecision]
\begin{array}{l}
\\
\left(a + \left(b + \left(c + d\right)\right)\right) \cdot 2
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 6 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (a b c d) :precision binary64 (* (+ a (+ b (+ c d))) 2.0))
double code(double a, double b, double c, double d) {
return (a + (b + (c + d))) * 2.0;
}
real(8) function code(a, b, c, d)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: d
code = (a + (b + (c + d))) * 2.0d0
end function
public static double code(double a, double b, double c, double d) {
return (a + (b + (c + d))) * 2.0;
}
def code(a, b, c, d): return (a + (b + (c + d))) * 2.0
function code(a, b, c, d) return Float64(Float64(a + Float64(b + Float64(c + d))) * 2.0) end
function tmp = code(a, b, c, d) tmp = (a + (b + (c + d))) * 2.0; end
code[a_, b_, c_, d_] := N[(N[(a + N[(b + N[(c + d), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * 2.0), $MachinePrecision]
\begin{array}{l}
\\
\left(a + \left(b + \left(c + d\right)\right)\right) \cdot 2
\end{array}
(FPCore (a b c d) :precision binary64 (* (+ (+ b c) (+ a d)) 2.0))
double code(double a, double b, double c, double d) {
return ((b + c) + (a + d)) * 2.0;
}
real(8) function code(a, b, c, d)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: d
code = ((b + c) + (a + d)) * 2.0d0
end function
public static double code(double a, double b, double c, double d) {
return ((b + c) + (a + d)) * 2.0;
}
def code(a, b, c, d): return ((b + c) + (a + d)) * 2.0
function code(a, b, c, d) return Float64(Float64(Float64(b + c) + Float64(a + d)) * 2.0) end
function tmp = code(a, b, c, d) tmp = ((b + c) + (a + d)) * 2.0; end
code[a_, b_, c_, d_] := N[(N[(N[(b + c), $MachinePrecision] + N[(a + d), $MachinePrecision]), $MachinePrecision] * 2.0), $MachinePrecision]
\begin{array}{l}
\\
\left(\left(b + c\right) + \left(a + d\right)\right) \cdot 2
\end{array}
Initial program 94.4%
associate-+r+N/A
+-commutativeN/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
lower-+.f64N/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64100.0
Applied egg-rr100.0%
(FPCore (a b c d) :precision binary64 (if (<= (+ a (+ b (+ c d))) -0.001) (* (+ a d) 2.0) (* 2.0 (+ a (+ c d)))))
double code(double a, double b, double c, double d) {
double tmp;
if ((a + (b + (c + d))) <= -0.001) {
tmp = (a + d) * 2.0;
} else {
tmp = 2.0 * (a + (c + d));
}
return tmp;
}
real(8) function code(a, b, c, d)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: d
real(8) :: tmp
if ((a + (b + (c + d))) <= (-0.001d0)) then
tmp = (a + d) * 2.0d0
else
tmp = 2.0d0 * (a + (c + d))
end if
code = tmp
end function
public static double code(double a, double b, double c, double d) {
double tmp;
if ((a + (b + (c + d))) <= -0.001) {
tmp = (a + d) * 2.0;
} else {
tmp = 2.0 * (a + (c + d));
}
return tmp;
}
def code(a, b, c, d): tmp = 0 if (a + (b + (c + d))) <= -0.001: tmp = (a + d) * 2.0 else: tmp = 2.0 * (a + (c + d)) return tmp
function code(a, b, c, d) tmp = 0.0 if (Float64(a + Float64(b + Float64(c + d))) <= -0.001) tmp = Float64(Float64(a + d) * 2.0); else tmp = Float64(2.0 * Float64(a + Float64(c + d))); end return tmp end
function tmp_2 = code(a, b, c, d) tmp = 0.0; if ((a + (b + (c + d))) <= -0.001) tmp = (a + d) * 2.0; else tmp = 2.0 * (a + (c + d)); end tmp_2 = tmp; end
code[a_, b_, c_, d_] := If[LessEqual[N[(a + N[(b + N[(c + d), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], -0.001], N[(N[(a + d), $MachinePrecision] * 2.0), $MachinePrecision], N[(2.0 * N[(a + N[(c + d), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;a + \left(b + \left(c + d\right)\right) \leq -0.001:\\
\;\;\;\;\left(a + d\right) \cdot 2\\
\mathbf{else}:\\
\;\;\;\;2 \cdot \left(a + \left(c + d\right)\right)\\
\end{array}
\end{array}
if (+.f64 a (+.f64 b (+.f64 c d))) < -1e-3Initial program 93.9%
Taylor expanded in b around 0
lower-+.f641.6
Simplified1.6%
Taylor expanded in c around 0
lower-+.f6417.8
Simplified17.8%
if -1e-3 < (+.f64 a (+.f64 b (+.f64 c d))) Initial program 94.6%
Taylor expanded in b around 0
lower-+.f6416.6
Simplified16.6%
Final simplification17.0%
(FPCore (a b c d) :precision binary64 (if (<= (+ a (+ b (+ c d))) -0.001) (* (+ a d) 2.0) (* c 2.0)))
double code(double a, double b, double c, double d) {
double tmp;
if ((a + (b + (c + d))) <= -0.001) {
tmp = (a + d) * 2.0;
} else {
tmp = c * 2.0;
}
return tmp;
}
real(8) function code(a, b, c, d)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: d
real(8) :: tmp
if ((a + (b + (c + d))) <= (-0.001d0)) then
tmp = (a + d) * 2.0d0
else
tmp = c * 2.0d0
end if
code = tmp
end function
public static double code(double a, double b, double c, double d) {
double tmp;
if ((a + (b + (c + d))) <= -0.001) {
tmp = (a + d) * 2.0;
} else {
tmp = c * 2.0;
}
return tmp;
}
def code(a, b, c, d): tmp = 0 if (a + (b + (c + d))) <= -0.001: tmp = (a + d) * 2.0 else: tmp = c * 2.0 return tmp
function code(a, b, c, d) tmp = 0.0 if (Float64(a + Float64(b + Float64(c + d))) <= -0.001) tmp = Float64(Float64(a + d) * 2.0); else tmp = Float64(c * 2.0); end return tmp end
function tmp_2 = code(a, b, c, d) tmp = 0.0; if ((a + (b + (c + d))) <= -0.001) tmp = (a + d) * 2.0; else tmp = c * 2.0; end tmp_2 = tmp; end
code[a_, b_, c_, d_] := If[LessEqual[N[(a + N[(b + N[(c + d), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], -0.001], N[(N[(a + d), $MachinePrecision] * 2.0), $MachinePrecision], N[(c * 2.0), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;a + \left(b + \left(c + d\right)\right) \leq -0.001:\\
\;\;\;\;\left(a + d\right) \cdot 2\\
\mathbf{else}:\\
\;\;\;\;c \cdot 2\\
\end{array}
\end{array}
if (+.f64 a (+.f64 b (+.f64 c d))) < -1e-3Initial program 93.9%
Taylor expanded in b around 0
lower-+.f641.6
Simplified1.6%
Taylor expanded in c around 0
lower-+.f6417.8
Simplified17.8%
if -1e-3 < (+.f64 a (+.f64 b (+.f64 c d))) Initial program 94.6%
Taylor expanded in c around inf
lower-*.f6416.6
Simplified16.6%
Final simplification17.0%
(FPCore (a b c d) :precision binary64 (if (<= (+ a (+ b (+ c d))) -0.001) (* b 2.0) (* c 2.0)))
double code(double a, double b, double c, double d) {
double tmp;
if ((a + (b + (c + d))) <= -0.001) {
tmp = b * 2.0;
} else {
tmp = c * 2.0;
}
return tmp;
}
real(8) function code(a, b, c, d)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: d
real(8) :: tmp
if ((a + (b + (c + d))) <= (-0.001d0)) then
tmp = b * 2.0d0
else
tmp = c * 2.0d0
end if
code = tmp
end function
public static double code(double a, double b, double c, double d) {
double tmp;
if ((a + (b + (c + d))) <= -0.001) {
tmp = b * 2.0;
} else {
tmp = c * 2.0;
}
return tmp;
}
def code(a, b, c, d): tmp = 0 if (a + (b + (c + d))) <= -0.001: tmp = b * 2.0 else: tmp = c * 2.0 return tmp
function code(a, b, c, d) tmp = 0.0 if (Float64(a + Float64(b + Float64(c + d))) <= -0.001) tmp = Float64(b * 2.0); else tmp = Float64(c * 2.0); end return tmp end
function tmp_2 = code(a, b, c, d) tmp = 0.0; if ((a + (b + (c + d))) <= -0.001) tmp = b * 2.0; else tmp = c * 2.0; end tmp_2 = tmp; end
code[a_, b_, c_, d_] := If[LessEqual[N[(a + N[(b + N[(c + d), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], -0.001], N[(b * 2.0), $MachinePrecision], N[(c * 2.0), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;a + \left(b + \left(c + d\right)\right) \leq -0.001:\\
\;\;\;\;b \cdot 2\\
\mathbf{else}:\\
\;\;\;\;c \cdot 2\\
\end{array}
\end{array}
if (+.f64 a (+.f64 b (+.f64 c d))) < -1e-3Initial program 93.9%
Taylor expanded in b around inf
lower-*.f6416.0
Simplified16.0%
if -1e-3 < (+.f64 a (+.f64 b (+.f64 c d))) Initial program 94.6%
Taylor expanded in c around inf
lower-*.f6416.6
Simplified16.6%
Final simplification16.4%
(FPCore (a b c d) :precision binary64 (* 2.0 (+ a (+ b (+ c d)))))
double code(double a, double b, double c, double d) {
return 2.0 * (a + (b + (c + d)));
}
real(8) function code(a, b, c, d)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: d
code = 2.0d0 * (a + (b + (c + d)))
end function
public static double code(double a, double b, double c, double d) {
return 2.0 * (a + (b + (c + d)));
}
def code(a, b, c, d): return 2.0 * (a + (b + (c + d)))
function code(a, b, c, d) return Float64(2.0 * Float64(a + Float64(b + Float64(c + d)))) end
function tmp = code(a, b, c, d) tmp = 2.0 * (a + (b + (c + d))); end
code[a_, b_, c_, d_] := N[(2.0 * N[(a + N[(b + N[(c + d), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
2 \cdot \left(a + \left(b + \left(c + d\right)\right)\right)
\end{array}
Initial program 94.4%
Final simplification94.4%
(FPCore (a b c d) :precision binary64 (* b 2.0))
double code(double a, double b, double c, double d) {
return b * 2.0;
}
real(8) function code(a, b, c, d)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: d
code = b * 2.0d0
end function
public static double code(double a, double b, double c, double d) {
return b * 2.0;
}
def code(a, b, c, d): return b * 2.0
function code(a, b, c, d) return Float64(b * 2.0) end
function tmp = code(a, b, c, d) tmp = b * 2.0; end
code[a_, b_, c_, d_] := N[(b * 2.0), $MachinePrecision]
\begin{array}{l}
\\
b \cdot 2
\end{array}
Initial program 94.4%
Taylor expanded in b around inf
lower-*.f646.3
Simplified6.3%
Final simplification6.3%
(FPCore (a b c d) :precision binary64 (+ (* (+ a b) 2.0) (* (+ c d) 2.0)))
double code(double a, double b, double c, double d) {
return ((a + b) * 2.0) + ((c + d) * 2.0);
}
real(8) function code(a, b, c, d)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: d
code = ((a + b) * 2.0d0) + ((c + d) * 2.0d0)
end function
public static double code(double a, double b, double c, double d) {
return ((a + b) * 2.0) + ((c + d) * 2.0);
}
def code(a, b, c, d): return ((a + b) * 2.0) + ((c + d) * 2.0)
function code(a, b, c, d) return Float64(Float64(Float64(a + b) * 2.0) + Float64(Float64(c + d) * 2.0)) end
function tmp = code(a, b, c, d) tmp = ((a + b) * 2.0) + ((c + d) * 2.0); end
code[a_, b_, c_, d_] := N[(N[(N[(a + b), $MachinePrecision] * 2.0), $MachinePrecision] + N[(N[(c + d), $MachinePrecision] * 2.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(a + b\right) \cdot 2 + \left(c + d\right) \cdot 2
\end{array}
herbie shell --seed 2024208
(FPCore (a b c d)
:name "Expression, p6"
:precision binary64
:pre (and (and (and (and (<= -14.0 a) (<= a -13.0)) (and (<= -3.0 b) (<= b -2.0))) (and (<= 3.0 c) (<= c 3.5))) (and (<= 12.5 d) (<= d 13.5)))
:alt
(! :herbie-platform default (let ((e 2)) (+ (* (+ a b) e) (* (+ c d) e))))
(* (+ a (+ b (+ c d))) 2.0))