\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(2 \cdot \frac{a \cdot c}{b} - b\right) - b}\\
\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}{\sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c} - b}\\
\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}{\sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c} - b}\\
\end{array}double f(double a, double b, double c) {
double r46367 = b;
double r46368 = 0.0;
bool r46369 = r46367 >= r46368;
double r46370 = -r46367;
double r46371 = r46367 * r46367;
double r46372 = 4.0;
double r46373 = a;
double r46374 = r46372 * r46373;
double r46375 = c;
double r46376 = r46374 * r46375;
double r46377 = r46371 - r46376;
double r46378 = sqrt(r46377);
double r46379 = r46370 - r46378;
double r46380 = 2.0;
double r46381 = r46380 * r46373;
double r46382 = r46379 / r46381;
double r46383 = r46380 * r46375;
double r46384 = r46370 + r46378;
double r46385 = r46383 / r46384;
double r46386 = r46369 ? r46382 : r46385;
return r46386;
}
double f(double a, double b, double c) {
double r46387 = b;
double r46388 = -2.2572095326645574e+165;
bool r46389 = r46387 <= r46388;
double r46390 = 0.0;
bool r46391 = r46387 >= r46390;
double r46392 = -r46387;
double r46393 = r46387 * r46387;
double r46394 = 4.0;
double r46395 = a;
double r46396 = r46394 * r46395;
double r46397 = c;
double r46398 = r46396 * r46397;
double r46399 = r46393 - r46398;
double r46400 = sqrt(r46399);
double r46401 = r46392 - r46400;
double r46402 = 2.0;
double r46403 = r46402 * r46395;
double r46404 = r46401 / r46403;
double r46405 = r46402 * r46397;
double r46406 = r46395 * r46397;
double r46407 = r46406 / r46387;
double r46408 = r46402 * r46407;
double r46409 = r46408 - r46387;
double r46410 = r46409 - r46387;
double r46411 = r46405 / r46410;
double r46412 = r46391 ? r46404 : r46411;
double r46413 = 7.989761210864844e+108;
bool r46414 = r46387 <= r46413;
double r46415 = cbrt(r46399);
double r46416 = fabs(r46415);
double r46417 = cbrt(r46415);
double r46418 = r46417 * r46417;
double r46419 = r46418 * r46417;
double r46420 = sqrt(r46419);
double r46421 = r46416 * r46420;
double r46422 = r46392 - r46421;
double r46423 = r46422 / r46403;
double r46424 = r46400 - r46387;
double r46425 = r46405 / r46424;
double r46426 = r46391 ? r46423 : r46425;
double r46427 = r46387 - r46408;
double r46428 = r46392 - r46427;
double r46429 = r46428 / r46403;
double r46430 = r46391 ? r46429 : r46425;
double r46431 = r46414 ? r46426 : r46430;
double r46432 = r46389 ? r46412 : r46431;
return r46432;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
if b < -2.2572095326645574e+165Initial program 36.2
Simplified36.2
Taylor expanded around -inf 6.2
if -2.2572095326645574e+165 < b < 7.989761210864844e+108Initial program 9.1
Simplified9.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
Simplified48.9
Taylor expanded around inf 9.8
Final simplification8.9
herbie shell --seed 2020047 +o rules:numerics
(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)))))))