\begin{array}{l}
\mathbf{if}\;b \ge 0.0:\\
\;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\
\end{array}\begin{array}{l}
\mathbf{if}\;b \le -2.2572095326645574 \cdot 10^{165}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \ge 0.0:\\
\;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \left(2 \cdot \frac{a \cdot c}{b} - b\right)}\\
\end{array}\\
\mathbf{elif}\;b \le 7.98976121086484385 \cdot 10^{108}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \ge 0.0:\\
\;\;\;\;\frac{\left(-b\right) - \left|\sqrt[3]{b \cdot b - \left(4 \cdot a\right) \cdot c}\right| \cdot \sqrt{\left(\sqrt[3]{\sqrt[3]{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \sqrt[3]{\sqrt[3]{b \cdot b - \left(4 \cdot a\right) \cdot c}}\right) \cdot \sqrt[3]{\sqrt[3]{b \cdot b - \left(4 \cdot a\right) \cdot c}}}}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\
\end{array}\\
\mathbf{elif}\;b \ge 0.0:\\
\;\;\;\;\frac{\left(-b\right) - \left(b - 2 \cdot \frac{a \cdot c}{b}\right)}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\
\end{array}double f(double a, double b, double c) {
double r46052 = b;
double r46053 = 0.0;
bool r46054 = r46052 >= r46053;
double r46055 = -r46052;
double r46056 = r46052 * r46052;
double r46057 = 4.0;
double r46058 = a;
double r46059 = r46057 * r46058;
double r46060 = c;
double r46061 = r46059 * r46060;
double r46062 = r46056 - r46061;
double r46063 = sqrt(r46062);
double r46064 = r46055 - r46063;
double r46065 = 2.0;
double r46066 = r46065 * r46058;
double r46067 = r46064 / r46066;
double r46068 = r46065 * r46060;
double r46069 = r46055 + r46063;
double r46070 = r46068 / r46069;
double r46071 = r46054 ? r46067 : r46070;
return r46071;
}
double f(double a, double b, double c) {
double r46072 = b;
double r46073 = -2.2572095326645574e+165;
bool r46074 = r46072 <= r46073;
double r46075 = 0.0;
bool r46076 = r46072 >= r46075;
double r46077 = -r46072;
double r46078 = r46072 * r46072;
double r46079 = 4.0;
double r46080 = a;
double r46081 = r46079 * r46080;
double r46082 = c;
double r46083 = r46081 * r46082;
double r46084 = r46078 - r46083;
double r46085 = sqrt(r46084);
double r46086 = r46077 - r46085;
double r46087 = 2.0;
double r46088 = r46087 * r46080;
double r46089 = r46086 / r46088;
double r46090 = r46087 * r46082;
double r46091 = r46080 * r46082;
double r46092 = r46091 / r46072;
double r46093 = r46087 * r46092;
double r46094 = r46093 - r46072;
double r46095 = r46077 + r46094;
double r46096 = r46090 / r46095;
double r46097 = r46076 ? r46089 : r46096;
double r46098 = 7.989761210864844e+108;
bool r46099 = r46072 <= r46098;
double r46100 = cbrt(r46084);
double r46101 = fabs(r46100);
double r46102 = cbrt(r46100);
double r46103 = r46102 * r46102;
double r46104 = r46103 * r46102;
double r46105 = sqrt(r46104);
double r46106 = r46101 * r46105;
double r46107 = r46077 - r46106;
double r46108 = r46107 / r46088;
double r46109 = r46077 + r46085;
double r46110 = r46090 / r46109;
double r46111 = r46076 ? r46108 : r46110;
double r46112 = r46072 - r46093;
double r46113 = r46077 - r46112;
double r46114 = r46113 / r46088;
double r46115 = r46076 ? r46114 : r46110;
double r46116 = r46099 ? r46111 : r46115;
double r46117 = r46074 ? r46097 : r46116;
return r46117;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
if b < -2.2572095326645574e+165Initial program 36.2
Taylor expanded around -inf 6.2
if -2.2572095326645574e+165 < b < 7.989761210864844e+108Initial program 9.1
rmApplied add-cube-cbrt9.3
Applied sqrt-prod9.3
Simplified9.3
rmApplied add-cube-cbrt9.4
if 7.989761210864844e+108 < b Initial program 48.9
Taylor expanded around inf 9.8
Final simplification8.9
herbie shell --seed 2020047
(FPCore (a b c)
:name "jeff quadratic root 1"
:precision binary64
(if (>= b 0.0) (/ (- (- b) (sqrt (- (* b b) (* (* 4 a) c)))) (* 2 a)) (/ (* 2 c) (+ (- b) (sqrt (- (* b b) (* (* 4 a) c)))))))