\frac{\left(-b_2\right) + \sqrt{b_2 \cdot b_2 - a \cdot c}}{a}\begin{array}{l}
\mathbf{if}\;b_2 \le -9.088000531423294 \cdot 10^{+152}:\\
\;\;\;\;\frac{1}{2} \cdot \frac{c}{b_2} - \frac{b_2}{a} \cdot 2\\
\mathbf{elif}\;b_2 \le 9.354082991670835 \cdot 10^{-125}:\\
\;\;\;\;\frac{\sqrt{b_2 \cdot b_2 - c \cdot a} - b_2}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{b_2} \cdot \frac{-1}{2}\\
\end{array}double f(double a, double b_2, double c) {
double r273086 = b_2;
double r273087 = -r273086;
double r273088 = r273086 * r273086;
double r273089 = a;
double r273090 = c;
double r273091 = r273089 * r273090;
double r273092 = r273088 - r273091;
double r273093 = sqrt(r273092);
double r273094 = r273087 + r273093;
double r273095 = r273094 / r273089;
return r273095;
}
double f(double a, double b_2, double c) {
double r273096 = b_2;
double r273097 = -9.088000531423294e+152;
bool r273098 = r273096 <= r273097;
double r273099 = 0.5;
double r273100 = c;
double r273101 = r273100 / r273096;
double r273102 = r273099 * r273101;
double r273103 = a;
double r273104 = r273096 / r273103;
double r273105 = 2.0;
double r273106 = r273104 * r273105;
double r273107 = r273102 - r273106;
double r273108 = 9.354082991670835e-125;
bool r273109 = r273096 <= r273108;
double r273110 = r273096 * r273096;
double r273111 = r273100 * r273103;
double r273112 = r273110 - r273111;
double r273113 = sqrt(r273112);
double r273114 = r273113 - r273096;
double r273115 = r273114 / r273103;
double r273116 = -0.5;
double r273117 = r273101 * r273116;
double r273118 = r273109 ? r273115 : r273117;
double r273119 = r273098 ? r273107 : r273118;
return r273119;
}



Bits error versus a



Bits error versus b_2



Bits error versus c
Results
if b_2 < -9.088000531423294e+152Initial program 60.5
Simplified60.5
rmApplied div-inv60.5
Taylor expanded around -inf 1.5
if -9.088000531423294e+152 < b_2 < 9.354082991670835e-125Initial program 10.9
Simplified10.9
rmApplied div-inv11.0
rmApplied associate-*r/10.9
Simplified10.9
if 9.354082991670835e-125 < b_2 Initial program 49.8
Simplified49.8
rmApplied div-inv49.8
Taylor expanded around inf 11.8
Final simplification10.3
herbie shell --seed 2019153
(FPCore (a b_2 c)
:name "quad2p (problem 3.2.1, positive)"
(/ (+ (- b_2) (sqrt (- (* b_2 b_2) (* a c)))) a))