
(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 (fma (+ 3.0 d2) d1 (* d1 d3)))
double code(double d1, double d2, double d3) {
return fma((3.0 + d2), d1, (d1 * d3));
}
function code(d1, d2, d3) return fma(Float64(3.0 + d2), d1, Float64(d1 * d3)) end
code[d1_, d2_, d3_] := N[(N[(3.0 + d2), $MachinePrecision] * d1 + N[(d1 * d3), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(3 + d2, d1, d1 \cdot d3\right)
\end{array}
Initial program 99.1%
distribute-lft-out99.1%
distribute-lft-out99.9%
Simplified99.9%
distribute-rgt-in99.1%
*-commutative99.1%
fma-define100.0%
Applied egg-rr100.0%
Final simplification100.0%
(FPCore (d1 d2 d3) :precision binary64 (if (<= d2 -3.0) (* d2 d1) (if (<= d2 1.9e-272) (* 3.0 d1) (* d1 d3))))
double code(double d1, double d2, double d3) {
double tmp;
if (d2 <= -3.0) {
tmp = d2 * d1;
} else if (d2 <= 1.9e-272) {
tmp = 3.0 * d1;
} else {
tmp = d1 * 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 (d2 <= (-3.0d0)) then
tmp = d2 * d1
else if (d2 <= 1.9d-272) then
tmp = 3.0d0 * d1
else
tmp = d1 * d3
end if
code = tmp
end function
public static double code(double d1, double d2, double d3) {
double tmp;
if (d2 <= -3.0) {
tmp = d2 * d1;
} else if (d2 <= 1.9e-272) {
tmp = 3.0 * d1;
} else {
tmp = d1 * d3;
}
return tmp;
}
def code(d1, d2, d3): tmp = 0 if d2 <= -3.0: tmp = d2 * d1 elif d2 <= 1.9e-272: tmp = 3.0 * d1 else: tmp = d1 * d3 return tmp
function code(d1, d2, d3) tmp = 0.0 if (d2 <= -3.0) tmp = Float64(d2 * d1); elseif (d2 <= 1.9e-272) tmp = Float64(3.0 * d1); else tmp = Float64(d1 * d3); end return tmp end
function tmp_2 = code(d1, d2, d3) tmp = 0.0; if (d2 <= -3.0) tmp = d2 * d1; elseif (d2 <= 1.9e-272) tmp = 3.0 * d1; else tmp = d1 * d3; end tmp_2 = tmp; end
code[d1_, d2_, d3_] := If[LessEqual[d2, -3.0], N[(d2 * d1), $MachinePrecision], If[LessEqual[d2, 1.9e-272], N[(3.0 * d1), $MachinePrecision], N[(d1 * d3), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;d2 \leq -3:\\
\;\;\;\;d2 \cdot d1\\
\mathbf{elif}\;d2 \leq 1.9 \cdot 10^{-272}:\\
\;\;\;\;3 \cdot d1\\
\mathbf{else}:\\
\;\;\;\;d1 \cdot d3\\
\end{array}
\end{array}
if d2 < -3Initial program 97.4%
distribute-lft-out97.4%
distribute-lft-out100.0%
Simplified100.0%
Taylor expanded in d2 around inf 74.8%
if -3 < d2 < 1.89999999999999985e-272Initial program 99.8%
distribute-lft-out99.8%
distribute-lft-out99.8%
Simplified99.8%
Taylor expanded in d3 around 0 58.2%
Taylor expanded in d2 around 0 57.7%
*-commutative57.7%
Simplified57.7%
if 1.89999999999999985e-272 < d2 Initial program 99.9%
distribute-lft-out99.9%
distribute-lft-out99.9%
Simplified99.9%
Taylor expanded in d3 around inf 40.4%
Final simplification55.9%
(FPCore (d1 d2 d3) :precision binary64 (if (<= d3 3800000.0) (* (+ 3.0 d2) d1) (* d1 d3)))
double code(double d1, double d2, double d3) {
double tmp;
if (d3 <= 3800000.0) {
tmp = (3.0 + d2) * d1;
} else {
tmp = d1 * 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 <= 3800000.0d0) then
tmp = (3.0d0 + d2) * d1
else
tmp = d1 * d3
end if
code = tmp
end function
public static double code(double d1, double d2, double d3) {
double tmp;
if (d3 <= 3800000.0) {
tmp = (3.0 + d2) * d1;
} else {
tmp = d1 * d3;
}
return tmp;
}
def code(d1, d2, d3): tmp = 0 if d3 <= 3800000.0: tmp = (3.0 + d2) * d1 else: tmp = d1 * d3 return tmp
function code(d1, d2, d3) tmp = 0.0 if (d3 <= 3800000.0) tmp = Float64(Float64(3.0 + d2) * d1); else tmp = Float64(d1 * d3); end return tmp end
function tmp_2 = code(d1, d2, d3) tmp = 0.0; if (d3 <= 3800000.0) tmp = (3.0 + d2) * d1; else tmp = d1 * d3; end tmp_2 = tmp; end
code[d1_, d2_, d3_] := If[LessEqual[d3, 3800000.0], N[(N[(3.0 + d2), $MachinePrecision] * d1), $MachinePrecision], N[(d1 * d3), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;d3 \leq 3800000:\\
\;\;\;\;\left(3 + d2\right) \cdot d1\\
\mathbf{else}:\\
\;\;\;\;d1 \cdot d3\\
\end{array}
\end{array}
if d3 < 3.8e6Initial program 99.9%
distribute-lft-out99.9%
distribute-lft-out99.9%
Simplified99.9%
Taylor expanded in d3 around 0 77.0%
if 3.8e6 < d3 Initial program 96.9%
distribute-lft-out96.9%
distribute-lft-out100.0%
Simplified100.0%
Taylor expanded in d3 around inf 71.8%
Final simplification75.7%
(FPCore (d1 d2 d3) :precision binary64 (if (<= d2 -0.78) (* (+ 3.0 d2) d1) (* d1 (+ 3.0 d3))))
double code(double d1, double d2, double d3) {
double tmp;
if (d2 <= -0.78) {
tmp = (3.0 + d2) * d1;
} 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 (d2 <= (-0.78d0)) then
tmp = (3.0d0 + d2) * d1
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 (d2 <= -0.78) {
tmp = (3.0 + d2) * d1;
} else {
tmp = d1 * (3.0 + d3);
}
return tmp;
}
def code(d1, d2, d3): tmp = 0 if d2 <= -0.78: tmp = (3.0 + d2) * d1 else: tmp = d1 * (3.0 + d3) return tmp
function code(d1, d2, d3) tmp = 0.0 if (d2 <= -0.78) tmp = Float64(Float64(3.0 + d2) * d1); else tmp = Float64(d1 * Float64(3.0 + d3)); end return tmp end
function tmp_2 = code(d1, d2, d3) tmp = 0.0; if (d2 <= -0.78) tmp = (3.0 + d2) * d1; else tmp = d1 * (3.0 + d3); end tmp_2 = tmp; end
code[d1_, d2_, d3_] := If[LessEqual[d2, -0.78], N[(N[(3.0 + d2), $MachinePrecision] * d1), $MachinePrecision], N[(d1 * N[(3.0 + d3), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;d2 \leq -0.78:\\
\;\;\;\;\left(3 + d2\right) \cdot d1\\
\mathbf{else}:\\
\;\;\;\;d1 \cdot \left(3 + d3\right)\\
\end{array}
\end{array}
if d2 < -0.78000000000000003Initial program 97.4%
distribute-lft-out97.4%
distribute-lft-out100.0%
Simplified100.0%
Taylor expanded in d3 around 0 75.7%
if -0.78000000000000003 < d2 Initial program 99.9%
distribute-lft-out99.9%
distribute-lft-out99.9%
Simplified99.9%
Taylor expanded in d2 around 0 76.9%
Final simplification76.5%
(FPCore (d1 d2 d3) :precision binary64 (if (<= d2 -3.0) (* d2 d1) (* 3.0 d1)))
double code(double d1, double d2, double d3) {
double tmp;
if (d2 <= -3.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 <= (-3.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 <= -3.0) {
tmp = d2 * d1;
} else {
tmp = 3.0 * d1;
}
return tmp;
}
def code(d1, d2, d3): tmp = 0 if d2 <= -3.0: tmp = d2 * d1 else: tmp = 3.0 * d1 return tmp
function code(d1, d2, d3) tmp = 0.0 if (d2 <= -3.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 <= -3.0) tmp = d2 * d1; else tmp = 3.0 * d1; end tmp_2 = tmp; end
code[d1_, d2_, d3_] := If[LessEqual[d2, -3.0], N[(d2 * d1), $MachinePrecision], N[(3.0 * d1), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;d2 \leq -3:\\
\;\;\;\;d2 \cdot d1\\
\mathbf{else}:\\
\;\;\;\;3 \cdot d1\\
\end{array}
\end{array}
if d2 < -3Initial program 97.4%
distribute-lft-out97.4%
distribute-lft-out100.0%
Simplified100.0%
Taylor expanded in d2 around inf 74.8%
if -3 < d2 Initial program 99.9%
distribute-lft-out99.9%
distribute-lft-out99.9%
Simplified99.9%
Taylor expanded in d3 around 0 60.6%
Taylor expanded in d2 around 0 38.1%
*-commutative38.1%
Simplified38.1%
Final simplification49.3%
(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}
Initial program 99.1%
distribute-lft-out99.1%
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 99.1%
distribute-lft-out99.1%
distribute-lft-out99.9%
Simplified99.9%
Taylor expanded in d3 around 0 65.2%
Taylor expanded in d2 around 0 27.0%
*-commutative27.0%
Simplified27.0%
Final simplification27.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 2024084
(FPCore (d1 d2 d3)
:name "FastMath test3"
:precision binary64
:alt
(* d1 (+ (+ 3.0 d2) d3))
(+ (+ (* d1 3.0) (* d1 d2)) (* d1 d3)))