\begin{array}{l}
\mathbf{if}\;b \ge 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 -9.348931433494438 \cdot 10^{+39}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c \cdot 2}{2 \cdot \left(\frac{a \cdot c}{b} - b\right)}\\
\end{array}\\
\mathbf{elif}\;b \le 1.3451554005288185 \cdot 10^{+63}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \ge 0:\\
\;\;\;\;\frac{\left(-b\right) - \sqrt{\sqrt[3]{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \sqrt{\sqrt[3]{b \cdot b - \left(4 \cdot a\right) \cdot c} \cdot \sqrt[3]{b \cdot b - \left(4 \cdot a\right) \cdot c}}}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c \cdot 2}{\sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c} + \left(-b\right)}\\
\end{array}\\
\mathbf{elif}\;b \ge 0:\\
\;\;\;\;\frac{2 \cdot \left(\frac{a \cdot c}{b} - b\right)}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c \cdot 2}{\sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c} + \left(-b\right)}\\
\end{array}double f(double a, double b, double c) {
double r1038329 = b;
double r1038330 = 0.0;
bool r1038331 = r1038329 >= r1038330;
double r1038332 = -r1038329;
double r1038333 = r1038329 * r1038329;
double r1038334 = 4.0;
double r1038335 = a;
double r1038336 = r1038334 * r1038335;
double r1038337 = c;
double r1038338 = r1038336 * r1038337;
double r1038339 = r1038333 - r1038338;
double r1038340 = sqrt(r1038339);
double r1038341 = r1038332 - r1038340;
double r1038342 = 2.0;
double r1038343 = r1038342 * r1038335;
double r1038344 = r1038341 / r1038343;
double r1038345 = r1038342 * r1038337;
double r1038346 = r1038332 + r1038340;
double r1038347 = r1038345 / r1038346;
double r1038348 = r1038331 ? r1038344 : r1038347;
return r1038348;
}
double f(double a, double b, double c) {
double r1038349 = b;
double r1038350 = -9.348931433494438e+39;
bool r1038351 = r1038349 <= r1038350;
double r1038352 = 0.0;
bool r1038353 = r1038349 >= r1038352;
double r1038354 = -r1038349;
double r1038355 = r1038349 * r1038349;
double r1038356 = 4.0;
double r1038357 = a;
double r1038358 = r1038356 * r1038357;
double r1038359 = c;
double r1038360 = r1038358 * r1038359;
double r1038361 = r1038355 - r1038360;
double r1038362 = sqrt(r1038361);
double r1038363 = r1038354 - r1038362;
double r1038364 = 2.0;
double r1038365 = r1038364 * r1038357;
double r1038366 = r1038363 / r1038365;
double r1038367 = r1038359 * r1038364;
double r1038368 = r1038357 * r1038359;
double r1038369 = r1038368 / r1038349;
double r1038370 = r1038369 - r1038349;
double r1038371 = r1038364 * r1038370;
double r1038372 = r1038367 / r1038371;
double r1038373 = r1038353 ? r1038366 : r1038372;
double r1038374 = 1.3451554005288185e+63;
bool r1038375 = r1038349 <= r1038374;
double r1038376 = cbrt(r1038361);
double r1038377 = sqrt(r1038376);
double r1038378 = r1038376 * r1038376;
double r1038379 = sqrt(r1038378);
double r1038380 = r1038377 * r1038379;
double r1038381 = r1038354 - r1038380;
double r1038382 = r1038381 / r1038365;
double r1038383 = r1038362 + r1038354;
double r1038384 = r1038367 / r1038383;
double r1038385 = r1038353 ? r1038382 : r1038384;
double r1038386 = r1038371 / r1038365;
double r1038387 = r1038353 ? r1038386 : r1038384;
double r1038388 = r1038375 ? r1038385 : r1038387;
double r1038389 = r1038351 ? r1038373 : r1038388;
return r1038389;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
if b < -9.348931433494438e+39Initial program 24.0
Taylor expanded around -inf 7.2
Simplified7.2
if -9.348931433494438e+39 < b < 1.3451554005288185e+63Initial program 9.5
rmApplied add-cube-cbrt9.8
Applied sqrt-prod9.8
if 1.3451554005288185e+63 < b Initial program 38.1
Taylor expanded around inf 9.7
Simplified9.7
Final simplification9.0
herbie shell --seed 2019158
(FPCore (a b c)
:name "jeff quadratic root 1"
(if (>= b 0) (/ (- (- b) (sqrt (- (* b b) (* (* 4 a) c)))) (* 2 a)) (/ (* 2 c) (+ (- b) (sqrt (- (* b b) (* (* 4 a) c)))))))