
(FPCore (a b c) :precision binary64 (let* ((t_0 (sqrt (- (* b b) (* (* 4.0 a) c))))) (if (>= b 0.0) (/ (- (- b) t_0) (* 2.0 a)) (/ (* 2.0 c) (+ (- b) t_0)))))
double code(double a, double b, double c) {
double t_0 = sqrt(((b * b) - ((4.0 * a) * c)));
double tmp;
if (b >= 0.0) {
tmp = (-b - t_0) / (2.0 * a);
} else {
tmp = (2.0 * c) / (-b + t_0);
}
return tmp;
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8) :: t_0
real(8) :: tmp
t_0 = sqrt(((b * b) - ((4.0d0 * a) * c)))
if (b >= 0.0d0) then
tmp = (-b - t_0) / (2.0d0 * a)
else
tmp = (2.0d0 * c) / (-b + t_0)
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double t_0 = Math.sqrt(((b * b) - ((4.0 * a) * c)));
double tmp;
if (b >= 0.0) {
tmp = (-b - t_0) / (2.0 * a);
} else {
tmp = (2.0 * c) / (-b + t_0);
}
return tmp;
}
def code(a, b, c): t_0 = math.sqrt(((b * b) - ((4.0 * a) * c))) tmp = 0 if b >= 0.0: tmp = (-b - t_0) / (2.0 * a) else: tmp = (2.0 * c) / (-b + t_0) return tmp
function code(a, b, c) t_0 = sqrt(Float64(Float64(b * b) - Float64(Float64(4.0 * a) * c))) tmp = 0.0 if (b >= 0.0) tmp = Float64(Float64(Float64(-b) - t_0) / Float64(2.0 * a)); else tmp = Float64(Float64(2.0 * c) / Float64(Float64(-b) + t_0)); end return tmp end
function tmp_2 = code(a, b, c) t_0 = sqrt(((b * b) - ((4.0 * a) * c))); tmp = 0.0; if (b >= 0.0) tmp = (-b - t_0) / (2.0 * a); else tmp = (2.0 * c) / (-b + t_0); end tmp_2 = tmp; end
code[a_, b_, c_] := Block[{t$95$0 = N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(4.0 * a), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[GreaterEqual[b, 0.0], N[(N[((-b) - t$95$0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) + t$95$0), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\\
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{\left(-b\right) - t\_0}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) + t\_0}\\
\end{array}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 8 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (a b c) :precision binary64 (let* ((t_0 (sqrt (- (* b b) (* (* 4.0 a) c))))) (if (>= b 0.0) (/ (- (- b) t_0) (* 2.0 a)) (/ (* 2.0 c) (+ (- b) t_0)))))
double code(double a, double b, double c) {
double t_0 = sqrt(((b * b) - ((4.0 * a) * c)));
double tmp;
if (b >= 0.0) {
tmp = (-b - t_0) / (2.0 * a);
} else {
tmp = (2.0 * c) / (-b + t_0);
}
return tmp;
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8) :: t_0
real(8) :: tmp
t_0 = sqrt(((b * b) - ((4.0d0 * a) * c)))
if (b >= 0.0d0) then
tmp = (-b - t_0) / (2.0d0 * a)
else
tmp = (2.0d0 * c) / (-b + t_0)
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double t_0 = Math.sqrt(((b * b) - ((4.0 * a) * c)));
double tmp;
if (b >= 0.0) {
tmp = (-b - t_0) / (2.0 * a);
} else {
tmp = (2.0 * c) / (-b + t_0);
}
return tmp;
}
def code(a, b, c): t_0 = math.sqrt(((b * b) - ((4.0 * a) * c))) tmp = 0 if b >= 0.0: tmp = (-b - t_0) / (2.0 * a) else: tmp = (2.0 * c) / (-b + t_0) return tmp
function code(a, b, c) t_0 = sqrt(Float64(Float64(b * b) - Float64(Float64(4.0 * a) * c))) tmp = 0.0 if (b >= 0.0) tmp = Float64(Float64(Float64(-b) - t_0) / Float64(2.0 * a)); else tmp = Float64(Float64(2.0 * c) / Float64(Float64(-b) + t_0)); end return tmp end
function tmp_2 = code(a, b, c) t_0 = sqrt(((b * b) - ((4.0 * a) * c))); tmp = 0.0; if (b >= 0.0) tmp = (-b - t_0) / (2.0 * a); else tmp = (2.0 * c) / (-b + t_0); end tmp_2 = tmp; end
code[a_, b_, c_] := Block[{t$95$0 = N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(4.0 * a), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[GreaterEqual[b, 0.0], N[(N[((-b) - t$95$0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) + t$95$0), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\\
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{\left(-b\right) - t\_0}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) + t\_0}\\
\end{array}
\end{array}
(FPCore (a b c)
:precision binary64
(let* ((t_0 (sqrt (fma (* c a) -4.0 (* b b)))))
(if (<= b -8e+153)
(* (* (/ c b) 2.0) -0.5)
(if (<= b -6.5e-182)
(if (>= b 0.0)
(* (- (/ c (* b b)) (pow a -1.0)) b)
(/ (* 2.0 c) (- t_0 b)))
(if (<= b 1.75e+39)
(* (/ (+ t_0 b) a) -0.5)
(if (>= b 0.0)
(fma (/ b a) -1.0 (/ c b))
(/ (* 2.0 c) (- (- b) b))))))))
double code(double a, double b, double c) {
double t_0 = sqrt(fma((c * a), -4.0, (b * b)));
double tmp;
if (b <= -8e+153) {
tmp = ((c / b) * 2.0) * -0.5;
} else if (b <= -6.5e-182) {
double tmp_1;
if (b >= 0.0) {
tmp_1 = ((c / (b * b)) - pow(a, -1.0)) * b;
} else {
tmp_1 = (2.0 * c) / (t_0 - b);
}
tmp = tmp_1;
} else if (b <= 1.75e+39) {
tmp = ((t_0 + b) / a) * -0.5;
} else if (b >= 0.0) {
tmp = fma((b / a), -1.0, (c / b));
} else {
tmp = (2.0 * c) / (-b - b);
}
return tmp;
}
function code(a, b, c) t_0 = sqrt(fma(Float64(c * a), -4.0, Float64(b * b))) tmp = 0.0 if (b <= -8e+153) tmp = Float64(Float64(Float64(c / b) * 2.0) * -0.5); elseif (b <= -6.5e-182) tmp_1 = 0.0 if (b >= 0.0) tmp_1 = Float64(Float64(Float64(c / Float64(b * b)) - (a ^ -1.0)) * b); else tmp_1 = Float64(Float64(2.0 * c) / Float64(t_0 - b)); end tmp = tmp_1; elseif (b <= 1.75e+39) tmp = Float64(Float64(Float64(t_0 + b) / a) * -0.5); elseif (b >= 0.0) tmp = fma(Float64(b / a), -1.0, Float64(c / b)); else tmp = Float64(Float64(2.0 * c) / Float64(Float64(-b) - b)); end return tmp end
code[a_, b_, c_] := Block[{t$95$0 = N[Sqrt[N[(N[(c * a), $MachinePrecision] * -4.0 + N[(b * b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[b, -8e+153], N[(N[(N[(c / b), $MachinePrecision] * 2.0), $MachinePrecision] * -0.5), $MachinePrecision], If[LessEqual[b, -6.5e-182], If[GreaterEqual[b, 0.0], N[(N[(N[(c / N[(b * b), $MachinePrecision]), $MachinePrecision] - N[Power[a, -1.0], $MachinePrecision]), $MachinePrecision] * b), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[(t$95$0 - b), $MachinePrecision]), $MachinePrecision]], If[LessEqual[b, 1.75e+39], N[(N[(N[(t$95$0 + b), $MachinePrecision] / a), $MachinePrecision] * -0.5), $MachinePrecision], If[GreaterEqual[b, 0.0], N[(N[(b / a), $MachinePrecision] * -1.0 + N[(c / b), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) - b), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}\\
\mathbf{if}\;b \leq -8 \cdot 10^{+153}:\\
\;\;\;\;\left(\frac{c}{b} \cdot 2\right) \cdot -0.5\\
\mathbf{elif}\;b \leq -6.5 \cdot 10^{-182}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\left(\frac{c}{b \cdot b} - {a}^{-1}\right) \cdot b\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{t\_0 - b}\\
\end{array}\\
\mathbf{elif}\;b \leq 1.75 \cdot 10^{+39}:\\
\;\;\;\;\frac{t\_0 + b}{a} \cdot -0.5\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\mathsf{fma}\left(\frac{b}{a}, -1, \frac{c}{b}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) - b}\\
\end{array}
\end{array}
if b < -8e153Initial program 35.0%
Applied rewrites0.0%
Taylor expanded in a around inf
lower-/.f641.7
Applied rewrites1.7%
Taylor expanded in b around inf
+-commutativeN/A
metadata-evalN/A
fp-cancel-sub-sign-invN/A
if-sameN/A
*-commutativeN/A
Applied rewrites1.7%
Taylor expanded in b around -inf
Applied rewrites98.6%
if -8e153 < b < -6.49999999999999997e-182Initial program 90.8%
Taylor expanded in a around 0
Applied rewrites90.8%
Taylor expanded in b around inf
Applied rewrites90.8%
if -6.49999999999999997e-182 < b < 1.7500000000000001e39Initial program 85.9%
Applied rewrites85.9%
Taylor expanded in a around inf
lower-/.f6486.0
Applied rewrites86.0%
Taylor expanded in b around inf
+-commutativeN/A
metadata-evalN/A
fp-cancel-sub-sign-invN/A
if-sameN/A
*-commutativeN/A
Applied rewrites86.0%
if 1.7500000000000001e39 < b Initial program 63.1%
Taylor expanded in a around 0
Applied rewrites63.2%
Taylor expanded in a around 0
Applied rewrites97.5%
Taylor expanded in b around -inf
Applied rewrites97.5%
Taylor expanded in c around 0
Applied rewrites97.5%
Final simplification92.5%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (sqrt (fma (* c a) -4.0 (* b b)))))
(if (<= b -8e+153)
(* (* (/ c b) 2.0) -0.5)
(if (<= b 1.75e+39)
(if (>= b 0.0) (* (/ (+ t_0 b) a) -0.5) (/ (* 2.0 c) (- t_0 b)))
(if (>= b 0.0) (fma (/ b a) -1.0 (/ c b)) (/ (* 2.0 c) (- (- b) b)))))))
double code(double a, double b, double c) {
double t_0 = sqrt(fma((c * a), -4.0, (b * b)));
double tmp;
if (b <= -8e+153) {
tmp = ((c / b) * 2.0) * -0.5;
} else if (b <= 1.75e+39) {
double tmp_1;
if (b >= 0.0) {
tmp_1 = ((t_0 + b) / a) * -0.5;
} else {
tmp_1 = (2.0 * c) / (t_0 - b);
}
tmp = tmp_1;
} else if (b >= 0.0) {
tmp = fma((b / a), -1.0, (c / b));
} else {
tmp = (2.0 * c) / (-b - b);
}
return tmp;
}
function code(a, b, c) t_0 = sqrt(fma(Float64(c * a), -4.0, Float64(b * b))) tmp = 0.0 if (b <= -8e+153) tmp = Float64(Float64(Float64(c / b) * 2.0) * -0.5); elseif (b <= 1.75e+39) tmp_1 = 0.0 if (b >= 0.0) tmp_1 = Float64(Float64(Float64(t_0 + b) / a) * -0.5); else tmp_1 = Float64(Float64(2.0 * c) / Float64(t_0 - b)); end tmp = tmp_1; elseif (b >= 0.0) tmp = fma(Float64(b / a), -1.0, Float64(c / b)); else tmp = Float64(Float64(2.0 * c) / Float64(Float64(-b) - b)); end return tmp end
code[a_, b_, c_] := Block[{t$95$0 = N[Sqrt[N[(N[(c * a), $MachinePrecision] * -4.0 + N[(b * b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[b, -8e+153], N[(N[(N[(c / b), $MachinePrecision] * 2.0), $MachinePrecision] * -0.5), $MachinePrecision], If[LessEqual[b, 1.75e+39], If[GreaterEqual[b, 0.0], N[(N[(N[(t$95$0 + b), $MachinePrecision] / a), $MachinePrecision] * -0.5), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[(t$95$0 - b), $MachinePrecision]), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(N[(b / a), $MachinePrecision] * -1.0 + N[(c / b), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) - b), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}\\
\mathbf{if}\;b \leq -8 \cdot 10^{+153}:\\
\;\;\;\;\left(\frac{c}{b} \cdot 2\right) \cdot -0.5\\
\mathbf{elif}\;b \leq 1.75 \cdot 10^{+39}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{t\_0 + b}{a} \cdot -0.5\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{t\_0 - b}\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\mathsf{fma}\left(\frac{b}{a}, -1, \frac{c}{b}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) - b}\\
\end{array}
\end{array}
if b < -8e153Initial program 35.0%
Applied rewrites0.0%
Taylor expanded in a around inf
lower-/.f641.7
Applied rewrites1.7%
Taylor expanded in b around inf
+-commutativeN/A
metadata-evalN/A
fp-cancel-sub-sign-invN/A
if-sameN/A
*-commutativeN/A
Applied rewrites1.7%
Taylor expanded in b around -inf
Applied rewrites98.6%
if -8e153 < b < 1.7500000000000001e39Initial program 88.4%
Taylor expanded in a around 0
Applied rewrites88.4%
if 1.7500000000000001e39 < b Initial program 63.1%
Taylor expanded in a around 0
Applied rewrites63.2%
Taylor expanded in a around 0
Applied rewrites97.5%
Taylor expanded in b around -inf
Applied rewrites97.5%
Taylor expanded in c around 0
Applied rewrites97.5%
(FPCore (a b c)
:precision binary64
(if (<= b -6.8e-57)
(* (* (/ c b) 2.0) -0.5)
(if (<= b 1.75e+39)
(* (/ (+ (sqrt (fma (* c a) -4.0 (* b b))) b) a) -0.5)
(if (>= b 0.0) (fma (/ b a) -1.0 (/ c b)) (/ (* 2.0 c) (- (- b) b))))))
double code(double a, double b, double c) {
double tmp;
if (b <= -6.8e-57) {
tmp = ((c / b) * 2.0) * -0.5;
} else if (b <= 1.75e+39) {
tmp = ((sqrt(fma((c * a), -4.0, (b * b))) + b) / a) * -0.5;
} else if (b >= 0.0) {
tmp = fma((b / a), -1.0, (c / b));
} else {
tmp = (2.0 * c) / (-b - b);
}
return tmp;
}
function code(a, b, c) tmp = 0.0 if (b <= -6.8e-57) tmp = Float64(Float64(Float64(c / b) * 2.0) * -0.5); elseif (b <= 1.75e+39) tmp = Float64(Float64(Float64(sqrt(fma(Float64(c * a), -4.0, Float64(b * b))) + b) / a) * -0.5); elseif (b >= 0.0) tmp = fma(Float64(b / a), -1.0, Float64(c / b)); else tmp = Float64(Float64(2.0 * c) / Float64(Float64(-b) - b)); end return tmp end
code[a_, b_, c_] := If[LessEqual[b, -6.8e-57], N[(N[(N[(c / b), $MachinePrecision] * 2.0), $MachinePrecision] * -0.5), $MachinePrecision], If[LessEqual[b, 1.75e+39], N[(N[(N[(N[Sqrt[N[(N[(c * a), $MachinePrecision] * -4.0 + N[(b * b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] + b), $MachinePrecision] / a), $MachinePrecision] * -0.5), $MachinePrecision], If[GreaterEqual[b, 0.0], N[(N[(b / a), $MachinePrecision] * -1.0 + N[(c / b), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) - b), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq -6.8 \cdot 10^{-57}:\\
\;\;\;\;\left(\frac{c}{b} \cdot 2\right) \cdot -0.5\\
\mathbf{elif}\;b \leq 1.75 \cdot 10^{+39}:\\
\;\;\;\;\frac{\sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)} + b}{a} \cdot -0.5\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\mathsf{fma}\left(\frac{b}{a}, -1, \frac{c}{b}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) - b}\\
\end{array}
\end{array}
if b < -6.80000000000000032e-57Initial program 70.9%
Applied rewrites17.0%
Taylor expanded in a around inf
lower-/.f6417.8
Applied rewrites17.8%
Taylor expanded in b around inf
+-commutativeN/A
metadata-evalN/A
fp-cancel-sub-sign-invN/A
if-sameN/A
*-commutativeN/A
Applied rewrites17.8%
Taylor expanded in b around -inf
Applied rewrites90.7%
if -6.80000000000000032e-57 < b < 1.7500000000000001e39Initial program 83.5%
Applied rewrites79.2%
Taylor expanded in a around inf
lower-/.f6479.5
Applied rewrites79.5%
Taylor expanded in b around inf
+-commutativeN/A
metadata-evalN/A
fp-cancel-sub-sign-invN/A
if-sameN/A
*-commutativeN/A
Applied rewrites79.6%
if 1.7500000000000001e39 < b Initial program 63.1%
Taylor expanded in a around 0
Applied rewrites63.2%
Taylor expanded in a around 0
Applied rewrites97.5%
Taylor expanded in b around -inf
Applied rewrites97.5%
Taylor expanded in c around 0
Applied rewrites97.5%
(FPCore (a b c)
:precision binary64
(if (<= b -6.8e-57)
(* (* (/ c b) 2.0) -0.5)
(if (<= b 1.75e+39)
(* (+ (sqrt (fma (* -4.0 c) a (* b b))) b) (/ -0.5 a))
(if (>= b 0.0) (fma (/ b a) -1.0 (/ c b)) (/ (* 2.0 c) (- (- b) b))))))
double code(double a, double b, double c) {
double tmp;
if (b <= -6.8e-57) {
tmp = ((c / b) * 2.0) * -0.5;
} else if (b <= 1.75e+39) {
tmp = (sqrt(fma((-4.0 * c), a, (b * b))) + b) * (-0.5 / a);
} else if (b >= 0.0) {
tmp = fma((b / a), -1.0, (c / b));
} else {
tmp = (2.0 * c) / (-b - b);
}
return tmp;
}
function code(a, b, c) tmp = 0.0 if (b <= -6.8e-57) tmp = Float64(Float64(Float64(c / b) * 2.0) * -0.5); elseif (b <= 1.75e+39) tmp = Float64(Float64(sqrt(fma(Float64(-4.0 * c), a, Float64(b * b))) + b) * Float64(-0.5 / a)); elseif (b >= 0.0) tmp = fma(Float64(b / a), -1.0, Float64(c / b)); else tmp = Float64(Float64(2.0 * c) / Float64(Float64(-b) - b)); end return tmp end
code[a_, b_, c_] := If[LessEqual[b, -6.8e-57], N[(N[(N[(c / b), $MachinePrecision] * 2.0), $MachinePrecision] * -0.5), $MachinePrecision], If[LessEqual[b, 1.75e+39], N[(N[(N[Sqrt[N[(N[(-4.0 * c), $MachinePrecision] * a + N[(b * b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] + b), $MachinePrecision] * N[(-0.5 / a), $MachinePrecision]), $MachinePrecision], If[GreaterEqual[b, 0.0], N[(N[(b / a), $MachinePrecision] * -1.0 + N[(c / b), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) - b), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq -6.8 \cdot 10^{-57}:\\
\;\;\;\;\left(\frac{c}{b} \cdot 2\right) \cdot -0.5\\
\mathbf{elif}\;b \leq 1.75 \cdot 10^{+39}:\\
\;\;\;\;\left(\sqrt{\mathsf{fma}\left(-4 \cdot c, a, b \cdot b\right)} + b\right) \cdot \frac{-0.5}{a}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\mathsf{fma}\left(\frac{b}{a}, -1, \frac{c}{b}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) - b}\\
\end{array}
\end{array}
if b < -6.80000000000000032e-57Initial program 70.9%
Applied rewrites17.0%
Taylor expanded in a around inf
lower-/.f6417.8
Applied rewrites17.8%
Taylor expanded in b around inf
+-commutativeN/A
metadata-evalN/A
fp-cancel-sub-sign-invN/A
if-sameN/A
*-commutativeN/A
Applied rewrites17.8%
Taylor expanded in b around -inf
Applied rewrites90.7%
if -6.80000000000000032e-57 < b < 1.7500000000000001e39Initial program 83.5%
Applied rewrites79.2%
Taylor expanded in a around inf
lower-/.f6479.5
Applied rewrites79.5%
Taylor expanded in b around inf
+-commutativeN/A
metadata-evalN/A
fp-cancel-sub-sign-invN/A
if-sameN/A
*-commutativeN/A
Applied rewrites79.6%
Applied rewrites79.4%
if 1.7500000000000001e39 < b Initial program 63.1%
Taylor expanded in a around 0
Applied rewrites63.2%
Taylor expanded in a around 0
Applied rewrites97.5%
Taylor expanded in b around -inf
Applied rewrites97.5%
Taylor expanded in c around 0
Applied rewrites97.5%
(FPCore (a b c) :precision binary64 (if (>= b 0.0) (/ (- b) a) (/ (* 2.0 c) (- (- b) b))))
double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = -b / a;
} else {
tmp = (2.0 * c) / (-b - b);
}
return tmp;
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8) :: tmp
if (b >= 0.0d0) then
tmp = -b / a
else
tmp = (2.0d0 * c) / (-b - b)
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = -b / a;
} else {
tmp = (2.0 * c) / (-b - b);
}
return tmp;
}
def code(a, b, c): tmp = 0 if b >= 0.0: tmp = -b / a else: tmp = (2.0 * c) / (-b - b) return tmp
function code(a, b, c) tmp = 0.0 if (b >= 0.0) tmp = Float64(Float64(-b) / a); else tmp = Float64(Float64(2.0 * c) / Float64(Float64(-b) - b)); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b >= 0.0) tmp = -b / a; else tmp = (2.0 * c) / (-b - b); end tmp_2 = tmp; end
code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[((-b) / a), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) - b), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{-b}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) - b}\\
\end{array}
\end{array}
Initial program 73.5%
Taylor expanded in a around 0
Applied rewrites73.5%
Taylor expanded in a around 0
Applied rewrites72.7%
Taylor expanded in b around -inf
Applied rewrites67.2%
(FPCore (a b c) :precision binary64 (if (>= b 0.0) (/ (- b) a) (* c (/ 2.0 (- (- b) b)))))
double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = -b / a;
} else {
tmp = c * (2.0 / (-b - b));
}
return tmp;
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8) :: tmp
if (b >= 0.0d0) then
tmp = -b / a
else
tmp = c * (2.0d0 / (-b - b))
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = -b / a;
} else {
tmp = c * (2.0 / (-b - b));
}
return tmp;
}
def code(a, b, c): tmp = 0 if b >= 0.0: tmp = -b / a else: tmp = c * (2.0 / (-b - b)) return tmp
function code(a, b, c) tmp = 0.0 if (b >= 0.0) tmp = Float64(Float64(-b) / a); else tmp = Float64(c * Float64(2.0 / Float64(Float64(-b) - b))); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b >= 0.0) tmp = -b / a; else tmp = c * (2.0 / (-b - b)); end tmp_2 = tmp; end
code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[((-b) / a), $MachinePrecision], N[(c * N[(2.0 / N[((-b) - b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{-b}{a}\\
\mathbf{else}:\\
\;\;\;\;c \cdot \frac{2}{\left(-b\right) - b}\\
\end{array}
\end{array}
Initial program 73.5%
Taylor expanded in a around 0
Applied rewrites73.5%
Taylor expanded in a around 0
Applied rewrites72.7%
Taylor expanded in b around -inf
Applied rewrites67.2%
Applied rewrites67.1%
(FPCore (a b c) :precision binary64 (if (<= b -5e-310) (* (* (/ c b) 2.0) -0.5) (* (/ (* 2.0 b) a) -0.5)))
double code(double a, double b, double c) {
double tmp;
if (b <= -5e-310) {
tmp = ((c / b) * 2.0) * -0.5;
} else {
tmp = ((2.0 * b) / a) * -0.5;
}
return tmp;
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8) :: tmp
if (b <= (-5d-310)) then
tmp = ((c / b) * 2.0d0) * (-0.5d0)
else
tmp = ((2.0d0 * b) / a) * (-0.5d0)
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double tmp;
if (b <= -5e-310) {
tmp = ((c / b) * 2.0) * -0.5;
} else {
tmp = ((2.0 * b) / a) * -0.5;
}
return tmp;
}
def code(a, b, c): tmp = 0 if b <= -5e-310: tmp = ((c / b) * 2.0) * -0.5 else: tmp = ((2.0 * b) / a) * -0.5 return tmp
function code(a, b, c) tmp = 0.0 if (b <= -5e-310) tmp = Float64(Float64(Float64(c / b) * 2.0) * -0.5); else tmp = Float64(Float64(Float64(2.0 * b) / a) * -0.5); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b <= -5e-310) tmp = ((c / b) * 2.0) * -0.5; else tmp = ((2.0 * b) / a) * -0.5; end tmp_2 = tmp; end
code[a_, b_, c_] := If[LessEqual[b, -5e-310], N[(N[(N[(c / b), $MachinePrecision] * 2.0), $MachinePrecision] * -0.5), $MachinePrecision], N[(N[(N[(2.0 * b), $MachinePrecision] / a), $MachinePrecision] * -0.5), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq -5 \cdot 10^{-310}:\\
\;\;\;\;\left(\frac{c}{b} \cdot 2\right) \cdot -0.5\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot b}{a} \cdot -0.5\\
\end{array}
\end{array}
if b < -4.999999999999985e-310Initial program 75.4%
Applied rewrites36.6%
Taylor expanded in a around inf
lower-/.f6437.3
Applied rewrites37.3%
Taylor expanded in b around inf
+-commutativeN/A
metadata-evalN/A
fp-cancel-sub-sign-invN/A
if-sameN/A
*-commutativeN/A
Applied rewrites37.3%
Taylor expanded in b around -inf
Applied rewrites64.6%
if -4.999999999999985e-310 < b Initial program 71.5%
Applied rewrites71.5%
Taylor expanded in a around inf
lower-/.f6471.5
Applied rewrites71.5%
Taylor expanded in b around inf
+-commutativeN/A
metadata-evalN/A
fp-cancel-sub-sign-invN/A
if-sameN/A
*-commutativeN/A
Applied rewrites71.5%
Taylor expanded in a around 0
Applied rewrites69.8%
(FPCore (a b c) :precision binary64 (* (* (/ c b) 2.0) -0.5))
double code(double a, double b, double c) {
return ((c / b) * 2.0) * -0.5;
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
code = ((c / b) * 2.0d0) * (-0.5d0)
end function
public static double code(double a, double b, double c) {
return ((c / b) * 2.0) * -0.5;
}
def code(a, b, c): return ((c / b) * 2.0) * -0.5
function code(a, b, c) return Float64(Float64(Float64(c / b) * 2.0) * -0.5) end
function tmp = code(a, b, c) tmp = ((c / b) * 2.0) * -0.5; end
code[a_, b_, c_] := N[(N[(N[(c / b), $MachinePrecision] * 2.0), $MachinePrecision] * -0.5), $MachinePrecision]
\begin{array}{l}
\\
\left(\frac{c}{b} \cdot 2\right) \cdot -0.5
\end{array}
Initial program 73.5%
Applied rewrites53.7%
Taylor expanded in a around inf
lower-/.f6454.1
Applied rewrites54.1%
Taylor expanded in b around inf
+-commutativeN/A
metadata-evalN/A
fp-cancel-sub-sign-invN/A
if-sameN/A
*-commutativeN/A
Applied rewrites54.1%
Taylor expanded in b around -inf
Applied rewrites33.9%
herbie shell --seed 2024332
(FPCore (a b c)
:name "jeff quadratic root 1"
:precision binary64
(if (>= b 0.0) (/ (- (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a)) (/ (* 2.0 c) (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))))))