
(FPCore (a b) :precision binary64 (* (+ a b) (+ a b)))
double code(double a, double b) {
return (a + b) * (a + b);
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
code = (a + b) * (a + b)
end function
public static double code(double a, double b) {
return (a + b) * (a + b);
}
def code(a, b): return (a + b) * (a + b)
function code(a, b) return Float64(Float64(a + b) * Float64(a + b)) end
function tmp = code(a, b) tmp = (a + b) * (a + b); end
code[a_, b_] := N[(N[(a + b), $MachinePrecision] * N[(a + b), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(a + b\right) \cdot \left(a + b\right)
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 2 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (a b) :precision binary64 (* (+ a b) (+ a b)))
double code(double a, double b) {
return (a + b) * (a + b);
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
code = (a + b) * (a + b)
end function
public static double code(double a, double b) {
return (a + b) * (a + b);
}
def code(a, b): return (a + b) * (a + b)
function code(a, b) return Float64(Float64(a + b) * Float64(a + b)) end
function tmp = code(a, b) tmp = (a + b) * (a + b); end
code[a_, b_] := N[(N[(a + b), $MachinePrecision] * N[(a + b), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(a + b\right) \cdot \left(a + b\right)
\end{array}
(FPCore (a b) :precision binary64 (* (+ a b) (+ a b)))
double code(double a, double b) {
return (a + b) * (a + b);
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
code = (a + b) * (a + b)
end function
public static double code(double a, double b) {
return (a + b) * (a + b);
}
def code(a, b): return (a + b) * (a + b)
function code(a, b) return Float64(Float64(a + b) * Float64(a + b)) end
function tmp = code(a, b) tmp = (a + b) * (a + b); end
code[a_, b_] := N[(N[(a + b), $MachinePrecision] * N[(a + b), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(a + b\right) \cdot \left(a + b\right)
\end{array}
Initial program 100.0%
(FPCore (a b) :precision binary64 (* b (+ b (* a 2.0))))
double code(double a, double b) {
return b * (b + (a * 2.0));
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
code = b * (b + (a * 2.0d0))
end function
public static double code(double a, double b) {
return b * (b + (a * 2.0));
}
def code(a, b): return b * (b + (a * 2.0))
function code(a, b) return Float64(b * Float64(b + Float64(a * 2.0))) end
function tmp = code(a, b) tmp = b * (b + (a * 2.0)); end
code[a_, b_] := N[(b * N[(b + N[(a * 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
b \cdot \left(b + a \cdot 2\right)
\end{array}
Initial program 100.0%
Taylor expanded in a around 0 5.2%
+-commutative5.2%
unpow25.2%
associate-*r*5.2%
distribute-rgt-in5.2%
Simplified5.2%
Final simplification5.2%
(FPCore (a b) :precision binary64 (+ (+ (+ (* b a) (* b b)) (* b a)) (* a a)))
double code(double a, double b) {
return (((b * a) + (b * b)) + (b * a)) + (a * a);
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
code = (((b * a) + (b * b)) + (b * a)) + (a * a)
end function
public static double code(double a, double b) {
return (((b * a) + (b * b)) + (b * a)) + (a * a);
}
def code(a, b): return (((b * a) + (b * b)) + (b * a)) + (a * a)
function code(a, b) return Float64(Float64(Float64(Float64(b * a) + Float64(b * b)) + Float64(b * a)) + Float64(a * a)) end
function tmp = code(a, b) tmp = (((b * a) + (b * b)) + (b * a)) + (a * a); end
code[a_, b_] := N[(N[(N[(N[(b * a), $MachinePrecision] + N[(b * b), $MachinePrecision]), $MachinePrecision] + N[(b * a), $MachinePrecision]), $MachinePrecision] + N[(a * a), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(\left(b \cdot a + b \cdot b\right) + b \cdot a\right) + a \cdot a
\end{array}
herbie shell --seed 2024101
(FPCore (a b)
:name "Expression 4, p15"
:precision binary64
:pre (and (and (<= 5.0 a) (<= a 10.0)) (and (<= 0.0 b) (<= b 0.001)))
:alt
(+ (+ (+ (* b a) (* b b)) (* b a)) (* a a))
(* (+ a b) (+ a b)))