
(FPCore (x y) :precision binary64 (- (pow x 4.0) (pow y 4.0)))
double code(double x, double y) {
return pow(x, 4.0) - pow(y, 4.0);
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (x ** 4.0d0) - (y ** 4.0d0)
end function
public static double code(double x, double y) {
return Math.pow(x, 4.0) - Math.pow(y, 4.0);
}
def code(x, y): return math.pow(x, 4.0) - math.pow(y, 4.0)
function code(x, y) return Float64((x ^ 4.0) - (y ^ 4.0)) end
function tmp = code(x, y) tmp = (x ^ 4.0) - (y ^ 4.0); end
code[x_, y_] := N[(N[Power[x, 4.0], $MachinePrecision] - N[Power[y, 4.0], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
{x}^{4} - {y}^{4}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 3 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y) :precision binary64 (- (pow x 4.0) (pow y 4.0)))
double code(double x, double y) {
return pow(x, 4.0) - pow(y, 4.0);
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (x ** 4.0d0) - (y ** 4.0d0)
end function
public static double code(double x, double y) {
return Math.pow(x, 4.0) - Math.pow(y, 4.0);
}
def code(x, y): return math.pow(x, 4.0) - math.pow(y, 4.0)
function code(x, y) return Float64((x ^ 4.0) - (y ^ 4.0)) end
function tmp = code(x, y) tmp = (x ^ 4.0) - (y ^ 4.0); end
code[x_, y_] := N[(N[Power[x, 4.0], $MachinePrecision] - N[Power[y, 4.0], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
{x}^{4} - {y}^{4}
\end{array}
(FPCore (x y)
:precision binary64
(if (or (<= (pow y 4.0) 4.9e-256)
(and (not (<= (pow y 4.0) 4.8e-158)) (<= (pow y 4.0) 7.4e+199)))
(pow x 4.0)
(- (pow y 4.0))))
double code(double x, double y) {
double tmp;
if ((pow(y, 4.0) <= 4.9e-256) || (!(pow(y, 4.0) <= 4.8e-158) && (pow(y, 4.0) <= 7.4e+199))) {
tmp = pow(x, 4.0);
} else {
tmp = -pow(y, 4.0);
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if (((y ** 4.0d0) <= 4.9d-256) .or. (.not. ((y ** 4.0d0) <= 4.8d-158)) .and. ((y ** 4.0d0) <= 7.4d+199)) then
tmp = x ** 4.0d0
else
tmp = -(y ** 4.0d0)
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if ((Math.pow(y, 4.0) <= 4.9e-256) || (!(Math.pow(y, 4.0) <= 4.8e-158) && (Math.pow(y, 4.0) <= 7.4e+199))) {
tmp = Math.pow(x, 4.0);
} else {
tmp = -Math.pow(y, 4.0);
}
return tmp;
}
def code(x, y): tmp = 0 if (math.pow(y, 4.0) <= 4.9e-256) or (not (math.pow(y, 4.0) <= 4.8e-158) and (math.pow(y, 4.0) <= 7.4e+199)): tmp = math.pow(x, 4.0) else: tmp = -math.pow(y, 4.0) return tmp
function code(x, y) tmp = 0.0 if (((y ^ 4.0) <= 4.9e-256) || (!((y ^ 4.0) <= 4.8e-158) && ((y ^ 4.0) <= 7.4e+199))) tmp = x ^ 4.0; else tmp = Float64(-(y ^ 4.0)); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (((y ^ 4.0) <= 4.9e-256) || (~(((y ^ 4.0) <= 4.8e-158)) && ((y ^ 4.0) <= 7.4e+199))) tmp = x ^ 4.0; else tmp = -(y ^ 4.0); end tmp_2 = tmp; end
code[x_, y_] := If[Or[LessEqual[N[Power[y, 4.0], $MachinePrecision], 4.9e-256], And[N[Not[LessEqual[N[Power[y, 4.0], $MachinePrecision], 4.8e-158]], $MachinePrecision], LessEqual[N[Power[y, 4.0], $MachinePrecision], 7.4e+199]]], N[Power[x, 4.0], $MachinePrecision], (-N[Power[y, 4.0], $MachinePrecision])]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;{y}^{4} \leq 4.9 \cdot 10^{-256} \lor \neg \left({y}^{4} \leq 4.8 \cdot 10^{-158}\right) \land {y}^{4} \leq 7.4 \cdot 10^{+199}:\\
\;\;\;\;{x}^{4}\\
\mathbf{else}:\\
\;\;\;\;-{y}^{4}\\
\end{array}
\end{array}
if (pow.f64 y 4) < 4.89999999999999996e-256 or 4.80000000000000015e-158 < (pow.f64 y 4) < 7.40000000000000042e199Initial program 100.0%
Taylor expanded in x around inf 90.7%
if 4.89999999999999996e-256 < (pow.f64 y 4) < 4.80000000000000015e-158 or 7.40000000000000042e199 < (pow.f64 y 4) Initial program 72.2%
Taylor expanded in x around 0 87.1%
neg-mul-187.1%
Simplified87.1%
Final simplification89.2%
(FPCore (x y) :precision binary64 (if (<= (pow y 4.0) INFINITY) (- (pow x 4.0) (pow y 4.0)) (- (pow y 4.0))))
double code(double x, double y) {
double tmp;
if (pow(y, 4.0) <= ((double) INFINITY)) {
tmp = pow(x, 4.0) - pow(y, 4.0);
} else {
tmp = -pow(y, 4.0);
}
return tmp;
}
public static double code(double x, double y) {
double tmp;
if (Math.pow(y, 4.0) <= Double.POSITIVE_INFINITY) {
tmp = Math.pow(x, 4.0) - Math.pow(y, 4.0);
} else {
tmp = -Math.pow(y, 4.0);
}
return tmp;
}
def code(x, y): tmp = 0 if math.pow(y, 4.0) <= math.inf: tmp = math.pow(x, 4.0) - math.pow(y, 4.0) else: tmp = -math.pow(y, 4.0) return tmp
function code(x, y) tmp = 0.0 if ((y ^ 4.0) <= Inf) tmp = Float64((x ^ 4.0) - (y ^ 4.0)); else tmp = Float64(-(y ^ 4.0)); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if ((y ^ 4.0) <= Inf) tmp = (x ^ 4.0) - (y ^ 4.0); else tmp = -(y ^ 4.0); end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[N[Power[y, 4.0], $MachinePrecision], Infinity], N[(N[Power[x, 4.0], $MachinePrecision] - N[Power[y, 4.0], $MachinePrecision]), $MachinePrecision], (-N[Power[y, 4.0], $MachinePrecision])]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;{y}^{4} \leq \infty:\\
\;\;\;\;{x}^{4} - {y}^{4}\\
\mathbf{else}:\\
\;\;\;\;-{y}^{4}\\
\end{array}
\end{array}
if (pow.f64 y 4) < +inf.0Initial program 88.3%
if +inf.0 < (pow.f64 y 4) Initial program 88.3%
Taylor expanded in x around 0 60.4%
neg-mul-160.4%
Simplified60.4%
Final simplification88.3%
(FPCore (x y) :precision binary64 (pow x 4.0))
double code(double x, double y) {
return pow(x, 4.0);
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = x ** 4.0d0
end function
public static double code(double x, double y) {
return Math.pow(x, 4.0);
}
def code(x, y): return math.pow(x, 4.0)
function code(x, y) return x ^ 4.0 end
function tmp = code(x, y) tmp = x ^ 4.0; end
code[x_, y_] := N[Power[x, 4.0], $MachinePrecision]
\begin{array}{l}
\\
{x}^{4}
\end{array}
Initial program 88.3%
Taylor expanded in x around inf 58.5%
Final simplification58.5%
herbie shell --seed 2024014
(FPCore (x y)
:name "Radioactive exchange between two surfaces"
:precision binary64
(- (pow x 4.0) (pow y 4.0)))