\begin{array}{l}
\mathbf{if}\;b \ge 0.0:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\
\end{array}\begin{array}{l}
\mathbf{if}\;b \le -1.00655881829761357 \cdot 10^{145}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \ge 0.0:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot \frac{a \cdot c}{b} - 2 \cdot b}{2 \cdot a}\\
\end{array}\\
\mathbf{elif}\;b \le 4.402171051432718 \cdot 10^{122}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \ge 0.0:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(-b\right) + \sqrt{\sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \sqrt{\sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}}{2 \cdot a}\\
\end{array}\\
\mathbf{elif}\;b \ge 0.0:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) - \left(b - 2 \cdot \left(\frac{a}{\sqrt[3]{b} \cdot \sqrt[3]{b}} \cdot \frac{c}{\sqrt[3]{b}}\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\
\end{array}double f(double a, double b, double c) {
double r40176 = b;
double r40177 = 0.0;
bool r40178 = r40176 >= r40177;
double r40179 = 2.0;
double r40180 = c;
double r40181 = r40179 * r40180;
double r40182 = -r40176;
double r40183 = r40176 * r40176;
double r40184 = 4.0;
double r40185 = a;
double r40186 = r40184 * r40185;
double r40187 = r40186 * r40180;
double r40188 = r40183 - r40187;
double r40189 = sqrt(r40188);
double r40190 = r40182 - r40189;
double r40191 = r40181 / r40190;
double r40192 = r40182 + r40189;
double r40193 = r40179 * r40185;
double r40194 = r40192 / r40193;
double r40195 = r40178 ? r40191 : r40194;
return r40195;
}
double f(double a, double b, double c) {
double r40196 = b;
double r40197 = -1.0065588182976136e+145;
bool r40198 = r40196 <= r40197;
double r40199 = 0.0;
bool r40200 = r40196 >= r40199;
double r40201 = 2.0;
double r40202 = c;
double r40203 = r40201 * r40202;
double r40204 = -r40196;
double r40205 = r40196 * r40196;
double r40206 = 4.0;
double r40207 = a;
double r40208 = r40206 * r40207;
double r40209 = r40208 * r40202;
double r40210 = r40205 - r40209;
double r40211 = sqrt(r40210);
double r40212 = r40204 - r40211;
double r40213 = r40203 / r40212;
double r40214 = r40207 * r40202;
double r40215 = r40214 / r40196;
double r40216 = r40201 * r40215;
double r40217 = 2.0;
double r40218 = r40217 * r40196;
double r40219 = r40216 - r40218;
double r40220 = r40201 * r40207;
double r40221 = r40219 / r40220;
double r40222 = r40200 ? r40213 : r40221;
double r40223 = 4.402171051432718e+122;
bool r40224 = r40196 <= r40223;
double r40225 = sqrt(r40211);
double r40226 = r40225 * r40225;
double r40227 = r40204 + r40226;
double r40228 = r40227 / r40220;
double r40229 = r40200 ? r40213 : r40228;
double r40230 = cbrt(r40196);
double r40231 = r40230 * r40230;
double r40232 = r40207 / r40231;
double r40233 = r40202 / r40230;
double r40234 = r40232 * r40233;
double r40235 = r40201 * r40234;
double r40236 = r40196 - r40235;
double r40237 = r40204 - r40236;
double r40238 = r40203 / r40237;
double r40239 = r40204 + r40211;
double r40240 = r40239 / r40220;
double r40241 = r40200 ? r40238 : r40240;
double r40242 = r40224 ? r40229 : r40241;
double r40243 = r40198 ? r40222 : r40242;
return r40243;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
if b < -1.0065588182976136e+145Initial program 61.2
Taylor expanded around -inf 11.9
if -1.0065588182976136e+145 < b < 4.402171051432718e+122Initial program 8.4
rmApplied add-sqr-sqrt8.4
Applied sqrt-prod8.6
if 4.402171051432718e+122 < b Initial program 32.7
Taylor expanded around inf 6.1
rmApplied add-cube-cbrt6.1
Applied times-frac2.1
Final simplification7.6
herbie shell --seed 2020036
(FPCore (a b c)
:name "jeff quadratic root 2"
:precision binary64
(if (>= b 0.0) (/ (* 2 c) (- (- b) (sqrt (- (* b b) (* (* 4 a) c))))) (/ (+ (- b) (sqrt (- (* b b) (* (* 4 a) c)))) (* 2 a))))