\frac{\left(-b\right) + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\begin{array}{l}
\mathbf{if}\;b \le -1.3725796156555912 \cdot 10^{+127}:\\
\;\;\;\;\frac{\left(\frac{c}{b} - \frac{b}{a}\right) \cdot 2}{2}\\
\mathbf{elif}\;b \le 4.634052056998666 \cdot 10^{-182}:\\
\;\;\;\;\frac{\frac{\sqrt{b \cdot b - c \cdot \left(4 \cdot a\right)}}{a} - \frac{b}{a}}{2}\\
\mathbf{elif}\;b \le 1.9081232567651569 \cdot 10^{+149}:\\
\;\;\;\;\frac{\frac{\frac{\left(b \cdot b - b \cdot b\right) + c \cdot \left(a \cdot -4\right)}{a}}{\sqrt{c \cdot \left(a \cdot -4\right) + b \cdot b} + b}}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{-2 \cdot \frac{c}{b}}{2}\\
\end{array}double f(double a, double b, double c) {
double r1991356 = b;
double r1991357 = -r1991356;
double r1991358 = r1991356 * r1991356;
double r1991359 = 4.0;
double r1991360 = a;
double r1991361 = c;
double r1991362 = r1991360 * r1991361;
double r1991363 = r1991359 * r1991362;
double r1991364 = r1991358 - r1991363;
double r1991365 = sqrt(r1991364);
double r1991366 = r1991357 + r1991365;
double r1991367 = 2.0;
double r1991368 = r1991367 * r1991360;
double r1991369 = r1991366 / r1991368;
return r1991369;
}
double f(double a, double b, double c) {
double r1991370 = b;
double r1991371 = -1.3725796156555912e+127;
bool r1991372 = r1991370 <= r1991371;
double r1991373 = c;
double r1991374 = r1991373 / r1991370;
double r1991375 = a;
double r1991376 = r1991370 / r1991375;
double r1991377 = r1991374 - r1991376;
double r1991378 = 2.0;
double r1991379 = r1991377 * r1991378;
double r1991380 = r1991379 / r1991378;
double r1991381 = 4.634052056998666e-182;
bool r1991382 = r1991370 <= r1991381;
double r1991383 = r1991370 * r1991370;
double r1991384 = 4.0;
double r1991385 = r1991384 * r1991375;
double r1991386 = r1991373 * r1991385;
double r1991387 = r1991383 - r1991386;
double r1991388 = sqrt(r1991387);
double r1991389 = r1991388 / r1991375;
double r1991390 = r1991389 - r1991376;
double r1991391 = r1991390 / r1991378;
double r1991392 = 1.9081232567651569e+149;
bool r1991393 = r1991370 <= r1991392;
double r1991394 = r1991383 - r1991383;
double r1991395 = -4.0;
double r1991396 = r1991375 * r1991395;
double r1991397 = r1991373 * r1991396;
double r1991398 = r1991394 + r1991397;
double r1991399 = r1991398 / r1991375;
double r1991400 = r1991397 + r1991383;
double r1991401 = sqrt(r1991400);
double r1991402 = r1991401 + r1991370;
double r1991403 = r1991399 / r1991402;
double r1991404 = r1991403 / r1991378;
double r1991405 = -2.0;
double r1991406 = r1991405 * r1991374;
double r1991407 = r1991406 / r1991378;
double r1991408 = r1991393 ? r1991404 : r1991407;
double r1991409 = r1991382 ? r1991391 : r1991408;
double r1991410 = r1991372 ? r1991380 : r1991409;
return r1991410;
}




Bits error versus a




Bits error versus b




Bits error versus c
Results
| Original | 33.5 |
|---|---|
| Target | 21.2 |
| Herbie | 8.7 |
if b < -1.3725796156555912e+127Initial program 51.4
Simplified51.4
Taylor expanded around -inf 2.3
Simplified2.3
if -1.3725796156555912e+127 < b < 4.634052056998666e-182Initial program 10.6
Simplified10.6
rmApplied div-sub10.6
if 4.634052056998666e-182 < b < 1.9081232567651569e+149Initial program 38.8
Simplified38.8
rmApplied *-un-lft-identity38.8
Applied *-un-lft-identity38.8
Applied distribute-lft-out--38.8
Applied associate-/l*38.9
rmApplied div-inv38.9
Applied add-cube-cbrt38.9
Applied times-frac38.9
Simplified38.9
Simplified38.9
rmApplied flip--39.0
Applied associate-*r/39.0
Simplified13.5
if 1.9081232567651569e+149 < b Initial program 62.2
Simplified62.2
rmApplied div-sub62.4
Taylor expanded around inf 1.7
Final simplification8.7
herbie shell --seed 2019139
(FPCore (a b c)
:name "quadp (p42, positive)"
:herbie-target
(if (< b 0) (/ (+ (- b) (sqrt (- (* b b) (* 4 (* a c))))) (* 2 a)) (/ c (* a (/ (- (- b) (sqrt (- (* b b) (* 4 (* a c))))) (* 2 a)))))
(/ (+ (- b) (sqrt (- (* b b) (* 4 (* a c))))) (* 2 a)))