
(FPCore (d1 d2 d3) :precision binary64 (+ (+ (* d1 3.0) (* d1 d2)) (* d1 d3)))
double code(double d1, double d2, double d3) {
return ((d1 * 3.0) + (d1 * d2)) + (d1 * d3);
}
real(8) function code(d1, d2, d3)
real(8), intent (in) :: d1
real(8), intent (in) :: d2
real(8), intent (in) :: d3
code = ((d1 * 3.0d0) + (d1 * d2)) + (d1 * d3)
end function
public static double code(double d1, double d2, double d3) {
return ((d1 * 3.0) + (d1 * d2)) + (d1 * d3);
}
def code(d1, d2, d3): return ((d1 * 3.0) + (d1 * d2)) + (d1 * d3)
function code(d1, d2, d3) return Float64(Float64(Float64(d1 * 3.0) + Float64(d1 * d2)) + Float64(d1 * d3)) end
function tmp = code(d1, d2, d3) tmp = ((d1 * 3.0) + (d1 * d2)) + (d1 * d3); end
code[d1_, d2_, d3_] := N[(N[(N[(d1 * 3.0), $MachinePrecision] + N[(d1 * d2), $MachinePrecision]), $MachinePrecision] + N[(d1 * d3), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(d1 \cdot 3 + d1 \cdot d2\right) + d1 \cdot d3
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 7 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (d1 d2 d3) :precision binary64 (+ (+ (* d1 3.0) (* d1 d2)) (* d1 d3)))
double code(double d1, double d2, double d3) {
return ((d1 * 3.0) + (d1 * d2)) + (d1 * d3);
}
real(8) function code(d1, d2, d3)
real(8), intent (in) :: d1
real(8), intent (in) :: d2
real(8), intent (in) :: d3
code = ((d1 * 3.0d0) + (d1 * d2)) + (d1 * d3)
end function
public static double code(double d1, double d2, double d3) {
return ((d1 * 3.0) + (d1 * d2)) + (d1 * d3);
}
def code(d1, d2, d3): return ((d1 * 3.0) + (d1 * d2)) + (d1 * d3)
function code(d1, d2, d3) return Float64(Float64(Float64(d1 * 3.0) + Float64(d1 * d2)) + Float64(d1 * d3)) end
function tmp = code(d1, d2, d3) tmp = ((d1 * 3.0) + (d1 * d2)) + (d1 * d3); end
code[d1_, d2_, d3_] := N[(N[(N[(d1 * 3.0), $MachinePrecision] + N[(d1 * d2), $MachinePrecision]), $MachinePrecision] + N[(d1 * d3), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(d1 \cdot 3 + d1 \cdot d2\right) + d1 \cdot d3
\end{array}
(FPCore (d1 d2 d3) :precision binary64 (* (+ 3.0 (+ d2 d3)) d1))
double code(double d1, double d2, double d3) {
return (3.0 + (d2 + d3)) * d1;
}
real(8) function code(d1, d2, d3)
real(8), intent (in) :: d1
real(8), intent (in) :: d2
real(8), intent (in) :: d3
code = (3.0d0 + (d2 + d3)) * d1
end function
public static double code(double d1, double d2, double d3) {
return (3.0 + (d2 + d3)) * d1;
}
def code(d1, d2, d3): return (3.0 + (d2 + d3)) * d1
function code(d1, d2, d3) return Float64(Float64(3.0 + Float64(d2 + d3)) * d1) end
function tmp = code(d1, d2, d3) tmp = (3.0 + (d2 + d3)) * d1; end
code[d1_, d2_, d3_] := N[(N[(3.0 + N[(d2 + d3), $MachinePrecision]), $MachinePrecision] * d1), $MachinePrecision]
\begin{array}{l}
\\
\left(3 + \left(d2 + d3\right)\right) \cdot d1
\end{array}
Initial program 98.0%
distribute-lft-out98.0%
Simplified98.0%
distribute-lft-in99.9%
*-commutative99.9%
associate-+l+99.9%
Applied egg-rr99.9%
Final simplification99.9%
(FPCore (d1 d2 d3) :precision binary64 (if (<= d2 -1.6e+37) (* d2 d1) (if (or (<= d2 -1.62e-9) (not (<= d2 -2.8e-206))) (* d3 d1) (* 3.0 d1))))
double code(double d1, double d2, double d3) {
double tmp;
if (d2 <= -1.6e+37) {
tmp = d2 * d1;
} else if ((d2 <= -1.62e-9) || !(d2 <= -2.8e-206)) {
tmp = d3 * d1;
} else {
tmp = 3.0 * d1;
}
return tmp;
}
real(8) function code(d1, d2, d3)
real(8), intent (in) :: d1
real(8), intent (in) :: d2
real(8), intent (in) :: d3
real(8) :: tmp
if (d2 <= (-1.6d+37)) then
tmp = d2 * d1
else if ((d2 <= (-1.62d-9)) .or. (.not. (d2 <= (-2.8d-206)))) then
tmp = d3 * d1
else
tmp = 3.0d0 * d1
end if
code = tmp
end function
public static double code(double d1, double d2, double d3) {
double tmp;
if (d2 <= -1.6e+37) {
tmp = d2 * d1;
} else if ((d2 <= -1.62e-9) || !(d2 <= -2.8e-206)) {
tmp = d3 * d1;
} else {
tmp = 3.0 * d1;
}
return tmp;
}
def code(d1, d2, d3): tmp = 0 if d2 <= -1.6e+37: tmp = d2 * d1 elif (d2 <= -1.62e-9) or not (d2 <= -2.8e-206): tmp = d3 * d1 else: tmp = 3.0 * d1 return tmp
function code(d1, d2, d3) tmp = 0.0 if (d2 <= -1.6e+37) tmp = Float64(d2 * d1); elseif ((d2 <= -1.62e-9) || !(d2 <= -2.8e-206)) tmp = Float64(d3 * d1); else tmp = Float64(3.0 * d1); end return tmp end
function tmp_2 = code(d1, d2, d3) tmp = 0.0; if (d2 <= -1.6e+37) tmp = d2 * d1; elseif ((d2 <= -1.62e-9) || ~((d2 <= -2.8e-206))) tmp = d3 * d1; else tmp = 3.0 * d1; end tmp_2 = tmp; end
code[d1_, d2_, d3_] := If[LessEqual[d2, -1.6e+37], N[(d2 * d1), $MachinePrecision], If[Or[LessEqual[d2, -1.62e-9], N[Not[LessEqual[d2, -2.8e-206]], $MachinePrecision]], N[(d3 * d1), $MachinePrecision], N[(3.0 * d1), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;d2 \leq -1.6 \cdot 10^{+37}:\\
\;\;\;\;d2 \cdot d1\\
\mathbf{elif}\;d2 \leq -1.62 \cdot 10^{-9} \lor \neg \left(d2 \leq -2.8 \cdot 10^{-206}\right):\\
\;\;\;\;d3 \cdot d1\\
\mathbf{else}:\\
\;\;\;\;3 \cdot d1\\
\end{array}
\end{array}
if d2 < -1.60000000000000007e37Initial program 94.0%
distribute-lft-out94.0%
distribute-lft-out100.0%
Simplified100.0%
Taylor expanded in d2 around inf 88.0%
if -1.60000000000000007e37 < d2 < -1.61999999999999999e-9 or -2.8000000000000001e-206 < d2 Initial program 98.7%
distribute-lft-out98.7%
distribute-lft-out99.9%
Simplified99.9%
Taylor expanded in d3 around inf 42.0%
if -1.61999999999999999e-9 < d2 < -2.8000000000000001e-206Initial program 99.8%
distribute-lft-out99.8%
Simplified99.8%
Taylor expanded in d2 around 0 99.1%
*-commutative99.1%
Simplified99.1%
Taylor expanded in d3 around 0 61.3%
*-commutative61.3%
Simplified61.3%
Final simplification53.8%
(FPCore (d1 d2 d3) :precision binary64 (if (<= d3 1650000.0) (* d1 (+ 3.0 d2)) (* d3 d1)))
double code(double d1, double d2, double d3) {
double tmp;
if (d3 <= 1650000.0) {
tmp = d1 * (3.0 + d2);
} else {
tmp = d3 * d1;
}
return tmp;
}
real(8) function code(d1, d2, d3)
real(8), intent (in) :: d1
real(8), intent (in) :: d2
real(8), intent (in) :: d3
real(8) :: tmp
if (d3 <= 1650000.0d0) then
tmp = d1 * (3.0d0 + d2)
else
tmp = d3 * d1
end if
code = tmp
end function
public static double code(double d1, double d2, double d3) {
double tmp;
if (d3 <= 1650000.0) {
tmp = d1 * (3.0 + d2);
} else {
tmp = d3 * d1;
}
return tmp;
}
def code(d1, d2, d3): tmp = 0 if d3 <= 1650000.0: tmp = d1 * (3.0 + d2) else: tmp = d3 * d1 return tmp
function code(d1, d2, d3) tmp = 0.0 if (d3 <= 1650000.0) tmp = Float64(d1 * Float64(3.0 + d2)); else tmp = Float64(d3 * d1); end return tmp end
function tmp_2 = code(d1, d2, d3) tmp = 0.0; if (d3 <= 1650000.0) tmp = d1 * (3.0 + d2); else tmp = d3 * d1; end tmp_2 = tmp; end
code[d1_, d2_, d3_] := If[LessEqual[d3, 1650000.0], N[(d1 * N[(3.0 + d2), $MachinePrecision]), $MachinePrecision], N[(d3 * d1), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;d3 \leq 1650000:\\
\;\;\;\;d1 \cdot \left(3 + d2\right)\\
\mathbf{else}:\\
\;\;\;\;d3 \cdot d1\\
\end{array}
\end{array}
if d3 < 1.65e6Initial program 98.9%
distribute-lft-out98.9%
distribute-lft-out99.9%
Simplified99.9%
Taylor expanded in d3 around 0 75.1%
if 1.65e6 < d3 Initial program 95.1%
distribute-lft-out95.1%
distribute-lft-out100.0%
Simplified100.0%
Taylor expanded in d3 around inf 71.1%
Final simplification74.1%
(FPCore (d1 d2 d3) :precision binary64 (if (<= d3 1650000.0) (* d1 (+ 3.0 d2)) (* d1 (+ 3.0 d3))))
double code(double d1, double d2, double d3) {
double tmp;
if (d3 <= 1650000.0) {
tmp = d1 * (3.0 + d2);
} else {
tmp = d1 * (3.0 + d3);
}
return tmp;
}
real(8) function code(d1, d2, d3)
real(8), intent (in) :: d1
real(8), intent (in) :: d2
real(8), intent (in) :: d3
real(8) :: tmp
if (d3 <= 1650000.0d0) then
tmp = d1 * (3.0d0 + d2)
else
tmp = d1 * (3.0d0 + d3)
end if
code = tmp
end function
public static double code(double d1, double d2, double d3) {
double tmp;
if (d3 <= 1650000.0) {
tmp = d1 * (3.0 + d2);
} else {
tmp = d1 * (3.0 + d3);
}
return tmp;
}
def code(d1, d2, d3): tmp = 0 if d3 <= 1650000.0: tmp = d1 * (3.0 + d2) else: tmp = d1 * (3.0 + d3) return tmp
function code(d1, d2, d3) tmp = 0.0 if (d3 <= 1650000.0) tmp = Float64(d1 * Float64(3.0 + d2)); else tmp = Float64(d1 * Float64(3.0 + d3)); end return tmp end
function tmp_2 = code(d1, d2, d3) tmp = 0.0; if (d3 <= 1650000.0) tmp = d1 * (3.0 + d2); else tmp = d1 * (3.0 + d3); end tmp_2 = tmp; end
code[d1_, d2_, d3_] := If[LessEqual[d3, 1650000.0], N[(d1 * N[(3.0 + d2), $MachinePrecision]), $MachinePrecision], N[(d1 * N[(3.0 + d3), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;d3 \leq 1650000:\\
\;\;\;\;d1 \cdot \left(3 + d2\right)\\
\mathbf{else}:\\
\;\;\;\;d1 \cdot \left(3 + d3\right)\\
\end{array}
\end{array}
if d3 < 1.65e6Initial program 98.9%
distribute-lft-out98.9%
distribute-lft-out99.9%
Simplified99.9%
Taylor expanded in d3 around 0 75.1%
if 1.65e6 < d3 Initial program 95.1%
distribute-lft-out95.1%
distribute-lft-out100.0%
Simplified100.0%
Taylor expanded in d2 around 0 71.6%
Final simplification74.3%
(FPCore (d1 d2 d3) :precision binary64 (if (<= d2 -11.0) (* d2 d1) (* 3.0 d1)))
double code(double d1, double d2, double d3) {
double tmp;
if (d2 <= -11.0) {
tmp = d2 * d1;
} else {
tmp = 3.0 * d1;
}
return tmp;
}
real(8) function code(d1, d2, d3)
real(8), intent (in) :: d1
real(8), intent (in) :: d2
real(8), intent (in) :: d3
real(8) :: tmp
if (d2 <= (-11.0d0)) then
tmp = d2 * d1
else
tmp = 3.0d0 * d1
end if
code = tmp
end function
public static double code(double d1, double d2, double d3) {
double tmp;
if (d2 <= -11.0) {
tmp = d2 * d1;
} else {
tmp = 3.0 * d1;
}
return tmp;
}
def code(d1, d2, d3): tmp = 0 if d2 <= -11.0: tmp = d2 * d1 else: tmp = 3.0 * d1 return tmp
function code(d1, d2, d3) tmp = 0.0 if (d2 <= -11.0) tmp = Float64(d2 * d1); else tmp = Float64(3.0 * d1); end return tmp end
function tmp_2 = code(d1, d2, d3) tmp = 0.0; if (d2 <= -11.0) tmp = d2 * d1; else tmp = 3.0 * d1; end tmp_2 = tmp; end
code[d1_, d2_, d3_] := If[LessEqual[d2, -11.0], N[(d2 * d1), $MachinePrecision], N[(3.0 * d1), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;d2 \leq -11:\\
\;\;\;\;d2 \cdot d1\\
\mathbf{else}:\\
\;\;\;\;3 \cdot d1\\
\end{array}
\end{array}
if d2 < -11Initial program 94.7%
distribute-lft-out94.7%
distribute-lft-out100.0%
Simplified100.0%
Taylor expanded in d2 around inf 79.5%
if -11 < d2 Initial program 98.9%
distribute-lft-out98.9%
Simplified98.9%
Taylor expanded in d2 around 0 73.7%
*-commutative73.7%
Simplified73.7%
Taylor expanded in d3 around 0 35.5%
*-commutative35.5%
Simplified35.5%
Final simplification45.3%
(FPCore (d1 d2 d3) :precision binary64 (* d1 (+ d3 (+ 3.0 d2))))
double code(double d1, double d2, double d3) {
return d1 * (d3 + (3.0 + d2));
}
real(8) function code(d1, d2, d3)
real(8), intent (in) :: d1
real(8), intent (in) :: d2
real(8), intent (in) :: d3
code = d1 * (d3 + (3.0d0 + d2))
end function
public static double code(double d1, double d2, double d3) {
return d1 * (d3 + (3.0 + d2));
}
def code(d1, d2, d3): return d1 * (d3 + (3.0 + d2))
function code(d1, d2, d3) return Float64(d1 * Float64(d3 + Float64(3.0 + d2))) end
function tmp = code(d1, d2, d3) tmp = d1 * (d3 + (3.0 + d2)); end
code[d1_, d2_, d3_] := N[(d1 * N[(d3 + N[(3.0 + d2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
d1 \cdot \left(d3 + \left(3 + d2\right)\right)
\end{array}
Initial program 98.0%
distribute-lft-out98.0%
distribute-lft-out99.9%
Simplified99.9%
Final simplification99.9%
(FPCore (d1 d2 d3) :precision binary64 (* 3.0 d1))
double code(double d1, double d2, double d3) {
return 3.0 * d1;
}
real(8) function code(d1, d2, d3)
real(8), intent (in) :: d1
real(8), intent (in) :: d2
real(8), intent (in) :: d3
code = 3.0d0 * d1
end function
public static double code(double d1, double d2, double d3) {
return 3.0 * d1;
}
def code(d1, d2, d3): return 3.0 * d1
function code(d1, d2, d3) return Float64(3.0 * d1) end
function tmp = code(d1, d2, d3) tmp = 3.0 * d1; end
code[d1_, d2_, d3_] := N[(3.0 * d1), $MachinePrecision]
\begin{array}{l}
\\
3 \cdot d1
\end{array}
Initial program 98.0%
distribute-lft-out98.0%
Simplified98.0%
Taylor expanded in d2 around 0 62.7%
*-commutative62.7%
Simplified62.7%
Taylor expanded in d3 around 0 28.0%
*-commutative28.0%
Simplified28.0%
Final simplification28.0%
(FPCore (d1 d2 d3) :precision binary64 (* d1 (+ (+ 3.0 d2) d3)))
double code(double d1, double d2, double d3) {
return d1 * ((3.0 + d2) + d3);
}
real(8) function code(d1, d2, d3)
real(8), intent (in) :: d1
real(8), intent (in) :: d2
real(8), intent (in) :: d3
code = d1 * ((3.0d0 + d2) + d3)
end function
public static double code(double d1, double d2, double d3) {
return d1 * ((3.0 + d2) + d3);
}
def code(d1, d2, d3): return d1 * ((3.0 + d2) + d3)
function code(d1, d2, d3) return Float64(d1 * Float64(Float64(3.0 + d2) + d3)) end
function tmp = code(d1, d2, d3) tmp = d1 * ((3.0 + d2) + d3); end
code[d1_, d2_, d3_] := N[(d1 * N[(N[(3.0 + d2), $MachinePrecision] + d3), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
d1 \cdot \left(\left(3 + d2\right) + d3\right)
\end{array}
herbie shell --seed 2024076
(FPCore (d1 d2 d3)
:name "FastMath test3"
:precision binary64
:alt
(* d1 (+ (+ 3.0 d2) d3))
(+ (+ (* d1 3.0) (* d1 d2)) (* d1 d3)))