
(FPCore (a b) :precision binary64 (- (+ (pow (+ (* a a) (* b b)) 2.0) (* 4.0 (+ (* (* a a) (- 1.0 a)) (* (* b b) (+ 3.0 a))))) 1.0))
double code(double a, double b) {
return (pow(((a * a) + (b * b)), 2.0) + (4.0 * (((a * a) * (1.0 - a)) + ((b * b) * (3.0 + a))))) - 1.0;
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
code = ((((a * a) + (b * b)) ** 2.0d0) + (4.0d0 * (((a * a) * (1.0d0 - a)) + ((b * b) * (3.0d0 + a))))) - 1.0d0
end function
public static double code(double a, double b) {
return (Math.pow(((a * a) + (b * b)), 2.0) + (4.0 * (((a * a) * (1.0 - a)) + ((b * b) * (3.0 + a))))) - 1.0;
}
def code(a, b): return (math.pow(((a * a) + (b * b)), 2.0) + (4.0 * (((a * a) * (1.0 - a)) + ((b * b) * (3.0 + a))))) - 1.0
function code(a, b) return Float64(Float64((Float64(Float64(a * a) + Float64(b * b)) ^ 2.0) + Float64(4.0 * Float64(Float64(Float64(a * a) * Float64(1.0 - a)) + Float64(Float64(b * b) * Float64(3.0 + a))))) - 1.0) end
function tmp = code(a, b) tmp = ((((a * a) + (b * b)) ^ 2.0) + (4.0 * (((a * a) * (1.0 - a)) + ((b * b) * (3.0 + a))))) - 1.0; end
code[a_, b_] := N[(N[(N[Power[N[(N[(a * a), $MachinePrecision] + N[(b * b), $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision] + N[(4.0 * N[(N[(N[(a * a), $MachinePrecision] * N[(1.0 - a), $MachinePrecision]), $MachinePrecision] + N[(N[(b * b), $MachinePrecision] * N[(3.0 + a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - 1.0), $MachinePrecision]
\begin{array}{l}
\\
\left({\left(a \cdot a + b \cdot b\right)}^{2} + 4 \cdot \left(\left(a \cdot a\right) \cdot \left(1 - a\right) + \left(b \cdot b\right) \cdot \left(3 + a\right)\right)\right) - 1
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 11 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (a b) :precision binary64 (- (+ (pow (+ (* a a) (* b b)) 2.0) (* 4.0 (+ (* (* a a) (- 1.0 a)) (* (* b b) (+ 3.0 a))))) 1.0))
double code(double a, double b) {
return (pow(((a * a) + (b * b)), 2.0) + (4.0 * (((a * a) * (1.0 - a)) + ((b * b) * (3.0 + a))))) - 1.0;
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
code = ((((a * a) + (b * b)) ** 2.0d0) + (4.0d0 * (((a * a) * (1.0d0 - a)) + ((b * b) * (3.0d0 + a))))) - 1.0d0
end function
public static double code(double a, double b) {
return (Math.pow(((a * a) + (b * b)), 2.0) + (4.0 * (((a * a) * (1.0 - a)) + ((b * b) * (3.0 + a))))) - 1.0;
}
def code(a, b): return (math.pow(((a * a) + (b * b)), 2.0) + (4.0 * (((a * a) * (1.0 - a)) + ((b * b) * (3.0 + a))))) - 1.0
function code(a, b) return Float64(Float64((Float64(Float64(a * a) + Float64(b * b)) ^ 2.0) + Float64(4.0 * Float64(Float64(Float64(a * a) * Float64(1.0 - a)) + Float64(Float64(b * b) * Float64(3.0 + a))))) - 1.0) end
function tmp = code(a, b) tmp = ((((a * a) + (b * b)) ^ 2.0) + (4.0 * (((a * a) * (1.0 - a)) + ((b * b) * (3.0 + a))))) - 1.0; end
code[a_, b_] := N[(N[(N[Power[N[(N[(a * a), $MachinePrecision] + N[(b * b), $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision] + N[(4.0 * N[(N[(N[(a * a), $MachinePrecision] * N[(1.0 - a), $MachinePrecision]), $MachinePrecision] + N[(N[(b * b), $MachinePrecision] * N[(3.0 + a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - 1.0), $MachinePrecision]
\begin{array}{l}
\\
\left({\left(a \cdot a + b \cdot b\right)}^{2} + 4 \cdot \left(\left(a \cdot a\right) \cdot \left(1 - a\right) + \left(b \cdot b\right) \cdot \left(3 + a\right)\right)\right) - 1
\end{array}
(FPCore (a b)
:precision binary64
(if (<=
(+
(pow (+ (* a a) (* b b)) 2.0)
(* 4.0 (+ (* (* a a) (- 1.0 a)) (* (* b b) (+ a 3.0)))))
INFINITY)
(+
(pow (hypot a b) 4.0)
(fma 4.0 (- (fma (* b b) (+ a 3.0) (* a a)) (pow a 3.0)) -1.0))
(* (* a a) (+ (* a a) 1.0))))
double code(double a, double b) {
double tmp;
if ((pow(((a * a) + (b * b)), 2.0) + (4.0 * (((a * a) * (1.0 - a)) + ((b * b) * (a + 3.0))))) <= ((double) INFINITY)) {
tmp = pow(hypot(a, b), 4.0) + fma(4.0, (fma((b * b), (a + 3.0), (a * a)) - pow(a, 3.0)), -1.0);
} else {
tmp = (a * a) * ((a * a) + 1.0);
}
return tmp;
}
function code(a, b) tmp = 0.0 if (Float64((Float64(Float64(a * a) + Float64(b * b)) ^ 2.0) + Float64(4.0 * Float64(Float64(Float64(a * a) * Float64(1.0 - a)) + Float64(Float64(b * b) * Float64(a + 3.0))))) <= Inf) tmp = Float64((hypot(a, b) ^ 4.0) + fma(4.0, Float64(fma(Float64(b * b), Float64(a + 3.0), Float64(a * a)) - (a ^ 3.0)), -1.0)); else tmp = Float64(Float64(a * a) * Float64(Float64(a * a) + 1.0)); end return tmp end
code[a_, b_] := If[LessEqual[N[(N[Power[N[(N[(a * a), $MachinePrecision] + N[(b * b), $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision] + N[(4.0 * N[(N[(N[(a * a), $MachinePrecision] * N[(1.0 - a), $MachinePrecision]), $MachinePrecision] + N[(N[(b * b), $MachinePrecision] * N[(a + 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], Infinity], N[(N[Power[N[Sqrt[a ^ 2 + b ^ 2], $MachinePrecision], 4.0], $MachinePrecision] + N[(4.0 * N[(N[(N[(b * b), $MachinePrecision] * N[(a + 3.0), $MachinePrecision] + N[(a * a), $MachinePrecision]), $MachinePrecision] - N[Power[a, 3.0], $MachinePrecision]), $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision], N[(N[(a * a), $MachinePrecision] * N[(N[(a * a), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;{\left(a \cdot a + b \cdot b\right)}^{2} + 4 \cdot \left(\left(a \cdot a\right) \cdot \left(1 - a\right) + \left(b \cdot b\right) \cdot \left(a + 3\right)\right) \leq \infty:\\
\;\;\;\;{\left(\mathsf{hypot}\left(a, b\right)\right)}^{4} + \mathsf{fma}\left(4, \mathsf{fma}\left(b \cdot b, a + 3, a \cdot a\right) - {a}^{3}, -1\right)\\
\mathbf{else}:\\
\;\;\;\;\left(a \cdot a\right) \cdot \left(a \cdot a + 1\right)\\
\end{array}
\end{array}
if (+.f64 (pow.f64 (+.f64 (*.f64 a a) (*.f64 b b)) 2) (*.f64 4 (+.f64 (*.f64 (*.f64 a a) (-.f64 1 a)) (*.f64 (*.f64 b b) (+.f64 3 a))))) < +inf.0Initial program 99.9%
associate--l+99.9%
Simplified100.0%
if +inf.0 < (+.f64 (pow.f64 (+.f64 (*.f64 a a) (*.f64 b b)) 2) (*.f64 4 (+.f64 (*.f64 (*.f64 a a) (-.f64 1 a)) (*.f64 (*.f64 b b) (+.f64 3 a))))) Initial program 0.0%
sub-neg0.0%
fma-def0.0%
fma-def6.3%
+-commutative6.3%
metadata-eval6.3%
Simplified6.3%
Taylor expanded in a around inf 92.6%
sqr-pow92.6%
metadata-eval92.6%
pow292.6%
metadata-eval92.6%
pow292.6%
difference-of-sqr--192.6%
Applied egg-rr92.6%
Taylor expanded in a around inf 92.6%
unpow292.6%
Simplified92.6%
Final simplification98.2%
(FPCore (a b)
:precision binary64
(let* ((t_0
(+
(pow (+ (* a a) (* b b)) 2.0)
(* 4.0 (+ (* (* a a) (- 1.0 a)) (* (* b b) (+ a 3.0)))))))
(if (<= t_0 INFINITY) (+ t_0 -1.0) (* (* a a) (+ (* a a) 1.0)))))
double code(double a, double b) {
double t_0 = pow(((a * a) + (b * b)), 2.0) + (4.0 * (((a * a) * (1.0 - a)) + ((b * b) * (a + 3.0))));
double tmp;
if (t_0 <= ((double) INFINITY)) {
tmp = t_0 + -1.0;
} else {
tmp = (a * a) * ((a * a) + 1.0);
}
return tmp;
}
public static double code(double a, double b) {
double t_0 = Math.pow(((a * a) + (b * b)), 2.0) + (4.0 * (((a * a) * (1.0 - a)) + ((b * b) * (a + 3.0))));
double tmp;
if (t_0 <= Double.POSITIVE_INFINITY) {
tmp = t_0 + -1.0;
} else {
tmp = (a * a) * ((a * a) + 1.0);
}
return tmp;
}
def code(a, b): t_0 = math.pow(((a * a) + (b * b)), 2.0) + (4.0 * (((a * a) * (1.0 - a)) + ((b * b) * (a + 3.0)))) tmp = 0 if t_0 <= math.inf: tmp = t_0 + -1.0 else: tmp = (a * a) * ((a * a) + 1.0) return tmp
function code(a, b) t_0 = Float64((Float64(Float64(a * a) + Float64(b * b)) ^ 2.0) + Float64(4.0 * Float64(Float64(Float64(a * a) * Float64(1.0 - a)) + Float64(Float64(b * b) * Float64(a + 3.0))))) tmp = 0.0 if (t_0 <= Inf) tmp = Float64(t_0 + -1.0); else tmp = Float64(Float64(a * a) * Float64(Float64(a * a) + 1.0)); end return tmp end
function tmp_2 = code(a, b) t_0 = (((a * a) + (b * b)) ^ 2.0) + (4.0 * (((a * a) * (1.0 - a)) + ((b * b) * (a + 3.0)))); tmp = 0.0; if (t_0 <= Inf) tmp = t_0 + -1.0; else tmp = (a * a) * ((a * a) + 1.0); end tmp_2 = tmp; end
code[a_, b_] := Block[{t$95$0 = N[(N[Power[N[(N[(a * a), $MachinePrecision] + N[(b * b), $MachinePrecision]), $MachinePrecision], 2.0], $MachinePrecision] + N[(4.0 * N[(N[(N[(a * a), $MachinePrecision] * N[(1.0 - a), $MachinePrecision]), $MachinePrecision] + N[(N[(b * b), $MachinePrecision] * N[(a + 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, Infinity], N[(t$95$0 + -1.0), $MachinePrecision], N[(N[(a * a), $MachinePrecision] * N[(N[(a * a), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := {\left(a \cdot a + b \cdot b\right)}^{2} + 4 \cdot \left(\left(a \cdot a\right) \cdot \left(1 - a\right) + \left(b \cdot b\right) \cdot \left(a + 3\right)\right)\\
\mathbf{if}\;t_0 \leq \infty:\\
\;\;\;\;t_0 + -1\\
\mathbf{else}:\\
\;\;\;\;\left(a \cdot a\right) \cdot \left(a \cdot a + 1\right)\\
\end{array}
\end{array}
if (+.f64 (pow.f64 (+.f64 (*.f64 a a) (*.f64 b b)) 2) (*.f64 4 (+.f64 (*.f64 (*.f64 a a) (-.f64 1 a)) (*.f64 (*.f64 b b) (+.f64 3 a))))) < +inf.0Initial program 99.9%
if +inf.0 < (+.f64 (pow.f64 (+.f64 (*.f64 a a) (*.f64 b b)) 2) (*.f64 4 (+.f64 (*.f64 (*.f64 a a) (-.f64 1 a)) (*.f64 (*.f64 b b) (+.f64 3 a))))) Initial program 0.0%
sub-neg0.0%
fma-def0.0%
fma-def6.3%
+-commutative6.3%
metadata-eval6.3%
Simplified6.3%
Taylor expanded in a around inf 92.6%
sqr-pow92.6%
metadata-eval92.6%
pow292.6%
metadata-eval92.6%
pow292.6%
difference-of-sqr--192.6%
Applied egg-rr92.6%
Taylor expanded in a around inf 92.6%
unpow292.6%
Simplified92.6%
Final simplification98.1%
(FPCore (a b) :precision binary64 (if (<= (* b b) 5e+57) (+ -1.0 (pow a 4.0)) (pow b 4.0)))
double code(double a, double b) {
double tmp;
if ((b * b) <= 5e+57) {
tmp = -1.0 + pow(a, 4.0);
} else {
tmp = pow(b, 4.0);
}
return tmp;
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8) :: tmp
if ((b * b) <= 5d+57) then
tmp = (-1.0d0) + (a ** 4.0d0)
else
tmp = b ** 4.0d0
end if
code = tmp
end function
public static double code(double a, double b) {
double tmp;
if ((b * b) <= 5e+57) {
tmp = -1.0 + Math.pow(a, 4.0);
} else {
tmp = Math.pow(b, 4.0);
}
return tmp;
}
def code(a, b): tmp = 0 if (b * b) <= 5e+57: tmp = -1.0 + math.pow(a, 4.0) else: tmp = math.pow(b, 4.0) return tmp
function code(a, b) tmp = 0.0 if (Float64(b * b) <= 5e+57) tmp = Float64(-1.0 + (a ^ 4.0)); else tmp = b ^ 4.0; end return tmp end
function tmp_2 = code(a, b) tmp = 0.0; if ((b * b) <= 5e+57) tmp = -1.0 + (a ^ 4.0); else tmp = b ^ 4.0; end tmp_2 = tmp; end
code[a_, b_] := If[LessEqual[N[(b * b), $MachinePrecision], 5e+57], N[(-1.0 + N[Power[a, 4.0], $MachinePrecision]), $MachinePrecision], N[Power[b, 4.0], $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \cdot b \leq 5 \cdot 10^{+57}:\\
\;\;\;\;-1 + {a}^{4}\\
\mathbf{else}:\\
\;\;\;\;{b}^{4}\\
\end{array}
\end{array}
if (*.f64 b b) < 4.99999999999999972e57Initial program 84.1%
sub-neg84.1%
fma-def84.1%
fma-def84.1%
+-commutative84.1%
metadata-eval84.1%
Simplified84.1%
Taylor expanded in a around inf 95.4%
if 4.99999999999999972e57 < (*.f64 b b) Initial program 60.1%
sub-neg60.1%
fma-def60.1%
fma-def64.2%
+-commutative64.2%
metadata-eval64.2%
Simplified64.2%
Taylor expanded in b around inf 96.1%
sqr-pow96.1%
metadata-eval96.1%
pow296.1%
metadata-eval96.1%
pow296.1%
difference-of-sqr--196.1%
Applied egg-rr96.1%
Taylor expanded in b around inf 96.1%
Final simplification95.7%
(FPCore (a b) :precision binary64 (if (<= (* b b) 5e+57) (* (+ (* a a) 1.0) (+ (* a a) -1.0)) (pow b 4.0)))
double code(double a, double b) {
double tmp;
if ((b * b) <= 5e+57) {
tmp = ((a * a) + 1.0) * ((a * a) + -1.0);
} else {
tmp = pow(b, 4.0);
}
return tmp;
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8) :: tmp
if ((b * b) <= 5d+57) then
tmp = ((a * a) + 1.0d0) * ((a * a) + (-1.0d0))
else
tmp = b ** 4.0d0
end if
code = tmp
end function
public static double code(double a, double b) {
double tmp;
if ((b * b) <= 5e+57) {
tmp = ((a * a) + 1.0) * ((a * a) + -1.0);
} else {
tmp = Math.pow(b, 4.0);
}
return tmp;
}
def code(a, b): tmp = 0 if (b * b) <= 5e+57: tmp = ((a * a) + 1.0) * ((a * a) + -1.0) else: tmp = math.pow(b, 4.0) return tmp
function code(a, b) tmp = 0.0 if (Float64(b * b) <= 5e+57) tmp = Float64(Float64(Float64(a * a) + 1.0) * Float64(Float64(a * a) + -1.0)); else tmp = b ^ 4.0; end return tmp end
function tmp_2 = code(a, b) tmp = 0.0; if ((b * b) <= 5e+57) tmp = ((a * a) + 1.0) * ((a * a) + -1.0); else tmp = b ^ 4.0; end tmp_2 = tmp; end
code[a_, b_] := If[LessEqual[N[(b * b), $MachinePrecision], 5e+57], N[(N[(N[(a * a), $MachinePrecision] + 1.0), $MachinePrecision] * N[(N[(a * a), $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision], N[Power[b, 4.0], $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \cdot b \leq 5 \cdot 10^{+57}:\\
\;\;\;\;\left(a \cdot a + 1\right) \cdot \left(a \cdot a + -1\right)\\
\mathbf{else}:\\
\;\;\;\;{b}^{4}\\
\end{array}
\end{array}
if (*.f64 b b) < 4.99999999999999972e57Initial program 84.1%
sub-neg84.1%
fma-def84.1%
fma-def84.1%
+-commutative84.1%
metadata-eval84.1%
Simplified84.1%
Taylor expanded in a around inf 95.4%
sqr-pow95.3%
metadata-eval95.3%
pow295.3%
metadata-eval95.3%
pow295.3%
difference-of-sqr--195.3%
Applied egg-rr95.3%
if 4.99999999999999972e57 < (*.f64 b b) Initial program 60.1%
sub-neg60.1%
fma-def60.1%
fma-def64.2%
+-commutative64.2%
metadata-eval64.2%
Simplified64.2%
Taylor expanded in b around inf 96.1%
sqr-pow96.1%
metadata-eval96.1%
pow296.1%
metadata-eval96.1%
pow296.1%
difference-of-sqr--196.1%
Applied egg-rr96.1%
Taylor expanded in b around inf 96.1%
Final simplification95.7%
(FPCore (a b) :precision binary64 (if (<= (* b b) 4.4e+64) (* (+ (* a a) 1.0) (+ (* a a) -1.0)) (* (* b b) (+ (* b b) 1.0))))
double code(double a, double b) {
double tmp;
if ((b * b) <= 4.4e+64) {
tmp = ((a * a) + 1.0) * ((a * a) + -1.0);
} else {
tmp = (b * b) * ((b * b) + 1.0);
}
return tmp;
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8) :: tmp
if ((b * b) <= 4.4d+64) then
tmp = ((a * a) + 1.0d0) * ((a * a) + (-1.0d0))
else
tmp = (b * b) * ((b * b) + 1.0d0)
end if
code = tmp
end function
public static double code(double a, double b) {
double tmp;
if ((b * b) <= 4.4e+64) {
tmp = ((a * a) + 1.0) * ((a * a) + -1.0);
} else {
tmp = (b * b) * ((b * b) + 1.0);
}
return tmp;
}
def code(a, b): tmp = 0 if (b * b) <= 4.4e+64: tmp = ((a * a) + 1.0) * ((a * a) + -1.0) else: tmp = (b * b) * ((b * b) + 1.0) return tmp
function code(a, b) tmp = 0.0 if (Float64(b * b) <= 4.4e+64) tmp = Float64(Float64(Float64(a * a) + 1.0) * Float64(Float64(a * a) + -1.0)); else tmp = Float64(Float64(b * b) * Float64(Float64(b * b) + 1.0)); end return tmp end
function tmp_2 = code(a, b) tmp = 0.0; if ((b * b) <= 4.4e+64) tmp = ((a * a) + 1.0) * ((a * a) + -1.0); else tmp = (b * b) * ((b * b) + 1.0); end tmp_2 = tmp; end
code[a_, b_] := If[LessEqual[N[(b * b), $MachinePrecision], 4.4e+64], N[(N[(N[(a * a), $MachinePrecision] + 1.0), $MachinePrecision] * N[(N[(a * a), $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision], N[(N[(b * b), $MachinePrecision] * N[(N[(b * b), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \cdot b \leq 4.4 \cdot 10^{+64}:\\
\;\;\;\;\left(a \cdot a + 1\right) \cdot \left(a \cdot a + -1\right)\\
\mathbf{else}:\\
\;\;\;\;\left(b \cdot b\right) \cdot \left(b \cdot b + 1\right)\\
\end{array}
\end{array}
if (*.f64 b b) < 4.40000000000000004e64Initial program 84.1%
sub-neg84.1%
fma-def84.1%
fma-def84.1%
+-commutative84.1%
metadata-eval84.1%
Simplified84.1%
Taylor expanded in a around inf 95.4%
sqr-pow95.3%
metadata-eval95.3%
pow295.3%
metadata-eval95.3%
pow295.3%
difference-of-sqr--195.3%
Applied egg-rr95.3%
if 4.40000000000000004e64 < (*.f64 b b) Initial program 60.1%
sub-neg60.1%
fma-def60.1%
fma-def64.2%
+-commutative64.2%
metadata-eval64.2%
Simplified64.2%
Taylor expanded in b around inf 96.1%
sqr-pow96.1%
metadata-eval96.1%
pow296.1%
metadata-eval96.1%
pow296.1%
difference-of-sqr--196.1%
Applied egg-rr96.1%
Taylor expanded in b around inf 96.1%
unpow296.1%
Simplified96.1%
Final simplification95.6%
(FPCore (a b)
:precision binary64
(let* ((t_0 (* a (* a 4.0))))
(if (<= a -8.8e+152)
t_0
(if (<= a -1.52e-12)
(* b b)
(if (<= a 1.7e-8) -1.0 (if (<= a 1.75e+149) (* b b) t_0))))))
double code(double a, double b) {
double t_0 = a * (a * 4.0);
double tmp;
if (a <= -8.8e+152) {
tmp = t_0;
} else if (a <= -1.52e-12) {
tmp = b * b;
} else if (a <= 1.7e-8) {
tmp = -1.0;
} else if (a <= 1.75e+149) {
tmp = b * b;
} else {
tmp = t_0;
}
return tmp;
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8) :: t_0
real(8) :: tmp
t_0 = a * (a * 4.0d0)
if (a <= (-8.8d+152)) then
tmp = t_0
else if (a <= (-1.52d-12)) then
tmp = b * b
else if (a <= 1.7d-8) then
tmp = -1.0d0
else if (a <= 1.75d+149) then
tmp = b * b
else
tmp = t_0
end if
code = tmp
end function
public static double code(double a, double b) {
double t_0 = a * (a * 4.0);
double tmp;
if (a <= -8.8e+152) {
tmp = t_0;
} else if (a <= -1.52e-12) {
tmp = b * b;
} else if (a <= 1.7e-8) {
tmp = -1.0;
} else if (a <= 1.75e+149) {
tmp = b * b;
} else {
tmp = t_0;
}
return tmp;
}
def code(a, b): t_0 = a * (a * 4.0) tmp = 0 if a <= -8.8e+152: tmp = t_0 elif a <= -1.52e-12: tmp = b * b elif a <= 1.7e-8: tmp = -1.0 elif a <= 1.75e+149: tmp = b * b else: tmp = t_0 return tmp
function code(a, b) t_0 = Float64(a * Float64(a * 4.0)) tmp = 0.0 if (a <= -8.8e+152) tmp = t_0; elseif (a <= -1.52e-12) tmp = Float64(b * b); elseif (a <= 1.7e-8) tmp = -1.0; elseif (a <= 1.75e+149) tmp = Float64(b * b); else tmp = t_0; end return tmp end
function tmp_2 = code(a, b) t_0 = a * (a * 4.0); tmp = 0.0; if (a <= -8.8e+152) tmp = t_0; elseif (a <= -1.52e-12) tmp = b * b; elseif (a <= 1.7e-8) tmp = -1.0; elseif (a <= 1.75e+149) tmp = b * b; else tmp = t_0; end tmp_2 = tmp; end
code[a_, b_] := Block[{t$95$0 = N[(a * N[(a * 4.0), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[a, -8.8e+152], t$95$0, If[LessEqual[a, -1.52e-12], N[(b * b), $MachinePrecision], If[LessEqual[a, 1.7e-8], -1.0, If[LessEqual[a, 1.75e+149], N[(b * b), $MachinePrecision], t$95$0]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := a \cdot \left(a \cdot 4\right)\\
\mathbf{if}\;a \leq -8.8 \cdot 10^{+152}:\\
\;\;\;\;t_0\\
\mathbf{elif}\;a \leq -1.52 \cdot 10^{-12}:\\
\;\;\;\;b \cdot b\\
\mathbf{elif}\;a \leq 1.7 \cdot 10^{-8}:\\
\;\;\;\;-1\\
\mathbf{elif}\;a \leq 1.75 \cdot 10^{+149}:\\
\;\;\;\;b \cdot b\\
\mathbf{else}:\\
\;\;\;\;t_0\\
\end{array}
\end{array}
if a < -8.7999999999999991e152 or 1.75000000000000006e149 < a Initial program 30.9%
sub-neg30.9%
fma-def30.9%
fma-def32.4%
+-commutative32.4%
metadata-eval32.4%
Simplified32.4%
Taylor expanded in b around 0 50.0%
associate-*r*50.0%
unpow250.0%
Simplified50.0%
Taylor expanded in a around 0 97.5%
unpow297.5%
Simplified97.5%
Taylor expanded in a around inf 97.5%
unpow297.5%
*-commutative97.5%
associate-*r*97.5%
Simplified97.5%
if -8.7999999999999991e152 < a < -1.52e-12 or 1.7e-8 < a < 1.75000000000000006e149Initial program 77.2%
sub-neg77.2%
fma-def77.2%
fma-def81.2%
+-commutative81.2%
metadata-eval81.2%
Simplified81.2%
Taylor expanded in b around inf 43.3%
sqr-pow43.3%
metadata-eval43.3%
pow243.3%
metadata-eval43.3%
pow243.3%
difference-of-sqr--143.3%
Applied egg-rr43.3%
Taylor expanded in b around inf 42.9%
unpow242.9%
Simplified42.9%
Taylor expanded in b around 0 25.4%
unpow225.4%
Simplified25.4%
if -1.52e-12 < a < 1.7e-8Initial program 99.9%
sub-neg99.9%
fma-def99.9%
fma-def99.9%
+-commutative99.9%
metadata-eval99.9%
Simplified99.9%
Taylor expanded in b around 0 60.2%
associate-*r*60.2%
unpow260.2%
Simplified60.2%
Taylor expanded in a around 0 60.2%
Final simplification59.9%
(FPCore (a b) :precision binary64 (if (or (<= a -2.6e+14) (not (<= a 3000000000000.0))) (* (* a a) (+ (* a a) 1.0)) (+ -1.0 (* (* b b) 12.0))))
double code(double a, double b) {
double tmp;
if ((a <= -2.6e+14) || !(a <= 3000000000000.0)) {
tmp = (a * a) * ((a * a) + 1.0);
} else {
tmp = -1.0 + ((b * b) * 12.0);
}
return tmp;
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8) :: tmp
if ((a <= (-2.6d+14)) .or. (.not. (a <= 3000000000000.0d0))) then
tmp = (a * a) * ((a * a) + 1.0d0)
else
tmp = (-1.0d0) + ((b * b) * 12.0d0)
end if
code = tmp
end function
public static double code(double a, double b) {
double tmp;
if ((a <= -2.6e+14) || !(a <= 3000000000000.0)) {
tmp = (a * a) * ((a * a) + 1.0);
} else {
tmp = -1.0 + ((b * b) * 12.0);
}
return tmp;
}
def code(a, b): tmp = 0 if (a <= -2.6e+14) or not (a <= 3000000000000.0): tmp = (a * a) * ((a * a) + 1.0) else: tmp = -1.0 + ((b * b) * 12.0) return tmp
function code(a, b) tmp = 0.0 if ((a <= -2.6e+14) || !(a <= 3000000000000.0)) tmp = Float64(Float64(a * a) * Float64(Float64(a * a) + 1.0)); else tmp = Float64(-1.0 + Float64(Float64(b * b) * 12.0)); end return tmp end
function tmp_2 = code(a, b) tmp = 0.0; if ((a <= -2.6e+14) || ~((a <= 3000000000000.0))) tmp = (a * a) * ((a * a) + 1.0); else tmp = -1.0 + ((b * b) * 12.0); end tmp_2 = tmp; end
code[a_, b_] := If[Or[LessEqual[a, -2.6e+14], N[Not[LessEqual[a, 3000000000000.0]], $MachinePrecision]], N[(N[(a * a), $MachinePrecision] * N[(N[(a * a), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], N[(-1.0 + N[(N[(b * b), $MachinePrecision] * 12.0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;a \leq -2.6 \cdot 10^{+14} \lor \neg \left(a \leq 3000000000000\right):\\
\;\;\;\;\left(a \cdot a\right) \cdot \left(a \cdot a + 1\right)\\
\mathbf{else}:\\
\;\;\;\;-1 + \left(b \cdot b\right) \cdot 12\\
\end{array}
\end{array}
if a < -2.6e14 or 3e12 < a Initial program 52.2%
sub-neg52.2%
fma-def52.2%
fma-def55.2%
+-commutative55.2%
metadata-eval55.2%
Simplified55.2%
Taylor expanded in a around inf 91.5%
sqr-pow91.5%
metadata-eval91.5%
pow291.5%
metadata-eval91.5%
pow291.5%
difference-of-sqr--191.5%
Applied egg-rr91.5%
Taylor expanded in a around inf 91.5%
unpow291.5%
Simplified91.5%
if -2.6e14 < a < 3e12Initial program 99.1%
sub-neg99.1%
fma-def99.1%
fma-def99.1%
+-commutative99.1%
metadata-eval99.1%
Simplified99.1%
Taylor expanded in a around 0 91.0%
associate-+r+91.0%
associate-*r*91.0%
distribute-rgt-out99.0%
metadata-eval99.0%
distribute-lft-in99.0%
+-commutative99.0%
unpow299.0%
distribute-lft-in99.0%
metadata-eval99.0%
Simplified99.0%
Taylor expanded in a around 0 99.8%
unpow299.8%
Simplified99.8%
sqr-pow99.7%
metadata-eval99.7%
pow299.7%
metadata-eval99.7%
pow299.7%
distribute-rgt-out99.7%
Applied egg-rr99.7%
Taylor expanded in b around 0 78.2%
unpow278.2%
Simplified78.2%
Final simplification85.0%
(FPCore (a b)
:precision binary64
(if (<= a -1.95e+153)
(* a a)
(if (<= a -1.52e-12)
(* b b)
(if (<= a 2.7e-9) -1.0 (if (<= a 3e+149) (* b b) (* a a))))))
double code(double a, double b) {
double tmp;
if (a <= -1.95e+153) {
tmp = a * a;
} else if (a <= -1.52e-12) {
tmp = b * b;
} else if (a <= 2.7e-9) {
tmp = -1.0;
} else if (a <= 3e+149) {
tmp = b * b;
} else {
tmp = a * a;
}
return tmp;
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8) :: tmp
if (a <= (-1.95d+153)) then
tmp = a * a
else if (a <= (-1.52d-12)) then
tmp = b * b
else if (a <= 2.7d-9) then
tmp = -1.0d0
else if (a <= 3d+149) then
tmp = b * b
else
tmp = a * a
end if
code = tmp
end function
public static double code(double a, double b) {
double tmp;
if (a <= -1.95e+153) {
tmp = a * a;
} else if (a <= -1.52e-12) {
tmp = b * b;
} else if (a <= 2.7e-9) {
tmp = -1.0;
} else if (a <= 3e+149) {
tmp = b * b;
} else {
tmp = a * a;
}
return tmp;
}
def code(a, b): tmp = 0 if a <= -1.95e+153: tmp = a * a elif a <= -1.52e-12: tmp = b * b elif a <= 2.7e-9: tmp = -1.0 elif a <= 3e+149: tmp = b * b else: tmp = a * a return tmp
function code(a, b) tmp = 0.0 if (a <= -1.95e+153) tmp = Float64(a * a); elseif (a <= -1.52e-12) tmp = Float64(b * b); elseif (a <= 2.7e-9) tmp = -1.0; elseif (a <= 3e+149) tmp = Float64(b * b); else tmp = Float64(a * a); end return tmp end
function tmp_2 = code(a, b) tmp = 0.0; if (a <= -1.95e+153) tmp = a * a; elseif (a <= -1.52e-12) tmp = b * b; elseif (a <= 2.7e-9) tmp = -1.0; elseif (a <= 3e+149) tmp = b * b; else tmp = a * a; end tmp_2 = tmp; end
code[a_, b_] := If[LessEqual[a, -1.95e+153], N[(a * a), $MachinePrecision], If[LessEqual[a, -1.52e-12], N[(b * b), $MachinePrecision], If[LessEqual[a, 2.7e-9], -1.0, If[LessEqual[a, 3e+149], N[(b * b), $MachinePrecision], N[(a * a), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;a \leq -1.95 \cdot 10^{+153}:\\
\;\;\;\;a \cdot a\\
\mathbf{elif}\;a \leq -1.52 \cdot 10^{-12}:\\
\;\;\;\;b \cdot b\\
\mathbf{elif}\;a \leq 2.7 \cdot 10^{-9}:\\
\;\;\;\;-1\\
\mathbf{elif}\;a \leq 3 \cdot 10^{+149}:\\
\;\;\;\;b \cdot b\\
\mathbf{else}:\\
\;\;\;\;a \cdot a\\
\end{array}
\end{array}
if a < -1.94999999999999992e153 or 3.00000000000000003e149 < a Initial program 30.9%
sub-neg30.9%
fma-def30.9%
fma-def32.4%
+-commutative32.4%
metadata-eval32.4%
Simplified32.4%
Taylor expanded in a around inf 100.0%
sqr-pow100.0%
metadata-eval100.0%
pow2100.0%
metadata-eval100.0%
pow2100.0%
difference-of-sqr--1100.0%
Applied egg-rr100.0%
Taylor expanded in a around inf 100.0%
unpow2100.0%
Simplified100.0%
Taylor expanded in a around 0 97.4%
unpow297.4%
Simplified97.4%
if -1.94999999999999992e153 < a < -1.52e-12 or 2.7000000000000002e-9 < a < 3.00000000000000003e149Initial program 77.2%
sub-neg77.2%
fma-def77.2%
fma-def81.2%
+-commutative81.2%
metadata-eval81.2%
Simplified81.2%
Taylor expanded in b around inf 43.3%
sqr-pow43.3%
metadata-eval43.3%
pow243.3%
metadata-eval43.3%
pow243.3%
difference-of-sqr--143.3%
Applied egg-rr43.3%
Taylor expanded in b around inf 42.9%
unpow242.9%
Simplified42.9%
Taylor expanded in b around 0 25.4%
unpow225.4%
Simplified25.4%
if -1.52e-12 < a < 2.7000000000000002e-9Initial program 99.9%
sub-neg99.9%
fma-def99.9%
fma-def99.9%
+-commutative99.9%
metadata-eval99.9%
Simplified99.9%
Taylor expanded in b around 0 60.2%
associate-*r*60.2%
unpow260.2%
Simplified60.2%
Taylor expanded in a around 0 60.2%
Final simplification59.9%
(FPCore (a b) :precision binary64 (if (<= (* b b) 3.5e+306) (+ -1.0 (* (* a a) 4.0)) (* b b)))
double code(double a, double b) {
double tmp;
if ((b * b) <= 3.5e+306) {
tmp = -1.0 + ((a * a) * 4.0);
} else {
tmp = b * b;
}
return tmp;
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8) :: tmp
if ((b * b) <= 3.5d+306) then
tmp = (-1.0d0) + ((a * a) * 4.0d0)
else
tmp = b * b
end if
code = tmp
end function
public static double code(double a, double b) {
double tmp;
if ((b * b) <= 3.5e+306) {
tmp = -1.0 + ((a * a) * 4.0);
} else {
tmp = b * b;
}
return tmp;
}
def code(a, b): tmp = 0 if (b * b) <= 3.5e+306: tmp = -1.0 + ((a * a) * 4.0) else: tmp = b * b return tmp
function code(a, b) tmp = 0.0 if (Float64(b * b) <= 3.5e+306) tmp = Float64(-1.0 + Float64(Float64(a * a) * 4.0)); else tmp = Float64(b * b); end return tmp end
function tmp_2 = code(a, b) tmp = 0.0; if ((b * b) <= 3.5e+306) tmp = -1.0 + ((a * a) * 4.0); else tmp = b * b; end tmp_2 = tmp; end
code[a_, b_] := If[LessEqual[N[(b * b), $MachinePrecision], 3.5e+306], N[(-1.0 + N[(N[(a * a), $MachinePrecision] * 4.0), $MachinePrecision]), $MachinePrecision], N[(b * b), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \cdot b \leq 3.5 \cdot 10^{+306}:\\
\;\;\;\;-1 + \left(a \cdot a\right) \cdot 4\\
\mathbf{else}:\\
\;\;\;\;b \cdot b\\
\end{array}
\end{array}
if (*.f64 b b) < 3.5000000000000001e306Initial program 79.9%
sub-neg79.9%
fma-def79.9%
fma-def80.9%
+-commutative80.9%
metadata-eval80.9%
Simplified80.9%
Taylor expanded in b around 0 66.2%
associate-*r*66.2%
unpow266.2%
Simplified66.2%
Taylor expanded in a around 0 60.7%
unpow260.7%
Simplified60.7%
if 3.5000000000000001e306 < (*.f64 b b) Initial program 54.9%
sub-neg54.9%
fma-def54.9%
fma-def58.8%
+-commutative58.8%
metadata-eval58.8%
Simplified58.8%
Taylor expanded in b around inf 100.0%
sqr-pow100.0%
metadata-eval100.0%
pow2100.0%
metadata-eval100.0%
pow2100.0%
difference-of-sqr--1100.0%
Applied egg-rr100.0%
Taylor expanded in b around inf 100.0%
unpow2100.0%
Simplified100.0%
Taylor expanded in b around 0 100.0%
unpow2100.0%
Simplified100.0%
Final simplification68.5%
(FPCore (a b) :precision binary64 (if (<= a -0.41) (* a a) (if (<= a 1.7e-8) -1.0 (* a a))))
double code(double a, double b) {
double tmp;
if (a <= -0.41) {
tmp = a * a;
} else if (a <= 1.7e-8) {
tmp = -1.0;
} else {
tmp = a * a;
}
return tmp;
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8) :: tmp
if (a <= (-0.41d0)) then
tmp = a * a
else if (a <= 1.7d-8) then
tmp = -1.0d0
else
tmp = a * a
end if
code = tmp
end function
public static double code(double a, double b) {
double tmp;
if (a <= -0.41) {
tmp = a * a;
} else if (a <= 1.7e-8) {
tmp = -1.0;
} else {
tmp = a * a;
}
return tmp;
}
def code(a, b): tmp = 0 if a <= -0.41: tmp = a * a elif a <= 1.7e-8: tmp = -1.0 else: tmp = a * a return tmp
function code(a, b) tmp = 0.0 if (a <= -0.41) tmp = Float64(a * a); elseif (a <= 1.7e-8) tmp = -1.0; else tmp = Float64(a * a); end return tmp end
function tmp_2 = code(a, b) tmp = 0.0; if (a <= -0.41) tmp = a * a; elseif (a <= 1.7e-8) tmp = -1.0; else tmp = a * a; end tmp_2 = tmp; end
code[a_, b_] := If[LessEqual[a, -0.41], N[(a * a), $MachinePrecision], If[LessEqual[a, 1.7e-8], -1.0, N[(a * a), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;a \leq -0.41:\\
\;\;\;\;a \cdot a\\
\mathbf{elif}\;a \leq 1.7 \cdot 10^{-8}:\\
\;\;\;\;-1\\
\mathbf{else}:\\
\;\;\;\;a \cdot a\\
\end{array}
\end{array}
if a < -0.409999999999999976 or 1.7e-8 < a Initial program 53.6%
sub-neg53.6%
fma-def53.6%
fma-def56.5%
+-commutative56.5%
metadata-eval56.5%
Simplified56.5%
Taylor expanded in a around inf 87.7%
sqr-pow87.6%
metadata-eval87.6%
pow287.6%
metadata-eval87.6%
pow287.6%
difference-of-sqr--187.6%
Applied egg-rr87.6%
Taylor expanded in a around inf 87.7%
unpow287.7%
Simplified87.7%
Taylor expanded in a around 0 51.0%
unpow251.0%
Simplified51.0%
if -0.409999999999999976 < a < 1.7e-8Initial program 99.9%
sub-neg99.9%
fma-def99.9%
fma-def99.9%
+-commutative99.9%
metadata-eval99.9%
Simplified99.9%
Taylor expanded in b around 0 58.6%
associate-*r*58.6%
unpow258.6%
Simplified58.6%
Taylor expanded in a around 0 58.4%
Final simplification54.4%
(FPCore (a b) :precision binary64 -1.0)
double code(double a, double b) {
return -1.0;
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
code = -1.0d0
end function
public static double code(double a, double b) {
return -1.0;
}
def code(a, b): return -1.0
function code(a, b) return -1.0 end
function tmp = code(a, b) tmp = -1.0; end
code[a_, b_] := -1.0
\begin{array}{l}
\\
-1
\end{array}
Initial program 74.9%
sub-neg74.9%
fma-def74.9%
fma-def76.5%
+-commutative76.5%
metadata-eval76.5%
Simplified76.5%
Taylor expanded in b around 0 57.9%
associate-*r*57.9%
unpow257.9%
Simplified57.9%
Taylor expanded in a around 0 27.3%
Final simplification27.3%
herbie shell --seed 2023252
(FPCore (a b)
:name "Bouland and Aaronson, Equation (24)"
:precision binary64
(- (+ (pow (+ (* a a) (* b b)) 2.0) (* 4.0 (+ (* (* a a) (- 1.0 a)) (* (* b b) (+ 3.0 a))))) 1.0))