\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\begin{array}{l}
\mathbf{if}\;b \leq -2.0779796988596927 \cdot 10^{+137}:\\
\;\;\;\;\frac{c}{b} - \frac{b}{a}\\
\mathbf{elif}\;b \leq 1.4533084893508145 \cdot 10^{-308}:\\
\;\;\;\;\frac{\sqrt{\sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)}} \cdot \sqrt{\sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)}} - b}{a \cdot 2}\\
\mathbf{elif}\;b \leq 8.216375787380612 \cdot 10^{+73}:\\
\;\;\;\;\frac{1}{\sqrt[3]{b + \sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)}} \cdot \sqrt[3]{b + \sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)}}} \cdot \left(-2 \cdot \frac{c}{\sqrt[3]{b + \sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)}}}\right)\\
\mathbf{else}:\\
\;\;\;\;-\frac{c}{b}\\
\end{array}(FPCore (a b c) :precision binary64 (/ (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a)))
(FPCore (a b c)
:precision binary64
(if (<= b -2.0779796988596927e+137)
(- (/ c b) (/ b a))
(if (<= b 1.4533084893508145e-308)
(/
(-
(*
(sqrt (sqrt (- (* b b) (* c (* a 4.0)))))
(sqrt (sqrt (- (* b b) (* c (* a 4.0))))))
b)
(* a 2.0))
(if (<= b 8.216375787380612e+73)
(*
(/
1.0
(*
(cbrt (+ b (sqrt (- (* b b) (* c (* a 4.0))))))
(cbrt (+ b (sqrt (- (* b b) (* c (* a 4.0))))))))
(* -2.0 (/ c (cbrt (+ b (sqrt (- (* b b) (* c (* a 4.0)))))))))
(- (/ c b))))))double code(double a, double b, double c) {
return (-b + sqrt((b * b) - ((4.0 * a) * c))) / (2.0 * a);
}
double code(double a, double b, double c) {
double tmp;
if (b <= -2.0779796988596927e+137) {
tmp = (c / b) - (b / a);
} else if (b <= 1.4533084893508145e-308) {
tmp = ((sqrt(sqrt((b * b) - (c * (a * 4.0)))) * sqrt(sqrt((b * b) - (c * (a * 4.0))))) - b) / (a * 2.0);
} else if (b <= 8.216375787380612e+73) {
tmp = (1.0 / (cbrt(b + sqrt((b * b) - (c * (a * 4.0)))) * cbrt(b + sqrt((b * b) - (c * (a * 4.0)))))) * (-2.0 * (c / cbrt(b + sqrt((b * b) - (c * (a * 4.0))))));
} else {
tmp = -(c / b);
}
return tmp;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
if b < -2.07797969885969273e137Initial program 56.5
Simplified56.5
Taylor expanded around -inf 2.9
if -2.07797969885969273e137 < b < 1.4533084893508145e-308Initial program 9.8
Simplified9.8
rmApplied add-sqr-sqrt_binary64_43510.1
if 1.4533084893508145e-308 < b < 8.21637578738061166e73Initial program 31.0
Simplified31.0
rmApplied flip--_binary64_38931.0
Simplified16.8
Simplified16.8
rmApplied add-cube-cbrt_binary64_44617.5
Applied times-frac_binary64_42015.4
Applied times-frac_binary64_42011.3
Simplified10.9
Simplified10.7
if 8.21637578738061166e73 < b Initial program 57.8
Simplified57.8
Taylor expanded around inf 2.6
Simplified2.6
Final simplification7.4
herbie shell --seed 2020301
(FPCore (a b c)
:name "Quadratic roots, full range"
:precision binary64
(/ (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a)))