\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\begin{array}{l}
\mathbf{if}\;b \le -6.31172991047764724 \cdot 10^{146}:\\
\;\;\;\;1 \cdot \left(\frac{c}{b} - \frac{b}{a}\right)\\
\mathbf{elif}\;b \le -1.6609875021310342 \cdot 10^{-211}:\\
\;\;\;\;\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\
\mathbf{elif}\;b \le 8.19287881398527252 \cdot 10^{90}:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\
\mathbf{else}:\\
\;\;\;\;-1 \cdot \frac{c}{b}\\
\end{array}double code(double a, double b, double c) {
return ((double) (((double) (((double) -(b)) + ((double) sqrt(((double) (((double) (b * b)) - ((double) (((double) (4.0 * a)) * c)))))))) / ((double) (2.0 * a))));
}
double code(double a, double b, double c) {
double VAR;
if ((b <= -6.311729910477647e+146)) {
VAR = ((double) (1.0 * ((double) (((double) (c / b)) - ((double) (b / a))))));
} else {
double VAR_1;
if ((b <= -1.6609875021310342e-211)) {
VAR_1 = ((double) (((double) (((double) -(b)) + ((double) sqrt(((double) (((double) (b * b)) - ((double) (((double) (4.0 * a)) * c)))))))) / ((double) (2.0 * a))));
} else {
double VAR_2;
if ((b <= 8.192878813985273e+90)) {
VAR_2 = ((double) (((double) (2.0 * c)) / ((double) (((double) -(b)) - ((double) sqrt(((double) (((double) (b * b)) - ((double) (((double) (4.0 * a)) * c))))))))));
} else {
VAR_2 = ((double) (-1.0 * ((double) (c / b))));
}
VAR_1 = VAR_2;
}
VAR = VAR_1;
}
return VAR;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
if b < -6.311729910477647e+146Initial program 61.3
Taylor expanded around -inf 2.7
Simplified2.7
if -6.311729910477647e+146 < b < -1.6609875021310342e-211Initial program 7.9
if -1.6609875021310342e-211 < b < 8.192878813985273e+90Initial program 28.5
rmApplied clear-num28.5
rmApplied flip-+28.7
Applied associate-/r/28.7
Applied associate-/r*28.7
Simplified15.4
Taylor expanded around 0 9.8
if 8.192878813985273e+90 < b Initial program 58.4
Taylor expanded around inf 3.9
Final simplification7.0
herbie shell --seed 2020113
(FPCore (a b c)
:name "Quadratic roots, full range"
:precision binary64
(/ (+ (- b) (sqrt (- (* b b) (* (* 4 a) c)))) (* 2 a)))