\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\begin{array}{l}
\mathbf{if}\;b \le -7.6038168240882645 \cdot 10^{144}:\\
\;\;\;\;1 \cdot \left(\frac{c}{b} - \frac{b}{a}\right)\\
\mathbf{elif}\;b \le -3.2731438419880699 \cdot 10^{-203}:\\
\;\;\;\;\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}\\
\mathbf{elif}\;b \le 2.1125387673008883 \cdot 10^{122}:\\
\;\;\;\;\frac{\frac{\frac{1}{\frac{2}{4}}}{\frac{1}{c}}}{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\
\mathbf{else}:\\
\;\;\;\;-1 \cdot \frac{c}{b}\\
\end{array}double f(double a, double b, double c) {
double r56701 = b;
double r56702 = -r56701;
double r56703 = r56701 * r56701;
double r56704 = 4.0;
double r56705 = a;
double r56706 = r56704 * r56705;
double r56707 = c;
double r56708 = r56706 * r56707;
double r56709 = r56703 - r56708;
double r56710 = sqrt(r56709);
double r56711 = r56702 + r56710;
double r56712 = 2.0;
double r56713 = r56712 * r56705;
double r56714 = r56711 / r56713;
return r56714;
}
double f(double a, double b, double c) {
double r56715 = b;
double r56716 = -7.603816824088264e+144;
bool r56717 = r56715 <= r56716;
double r56718 = 1.0;
double r56719 = c;
double r56720 = r56719 / r56715;
double r56721 = a;
double r56722 = r56715 / r56721;
double r56723 = r56720 - r56722;
double r56724 = r56718 * r56723;
double r56725 = -3.27314384198807e-203;
bool r56726 = r56715 <= r56725;
double r56727 = -r56715;
double r56728 = r56715 * r56715;
double r56729 = 4.0;
double r56730 = r56729 * r56721;
double r56731 = r56730 * r56719;
double r56732 = r56728 - r56731;
double r56733 = sqrt(r56732);
double r56734 = sqrt(r56733);
double r56735 = r56734 * r56734;
double r56736 = r56727 + r56735;
double r56737 = 2.0;
double r56738 = r56737 * r56721;
double r56739 = r56736 / r56738;
double r56740 = 2.1125387673008883e+122;
bool r56741 = r56715 <= r56740;
double r56742 = 1.0;
double r56743 = r56737 / r56729;
double r56744 = r56742 / r56743;
double r56745 = r56742 / r56719;
double r56746 = r56744 / r56745;
double r56747 = r56727 - r56733;
double r56748 = r56746 / r56747;
double r56749 = -1.0;
double r56750 = r56749 * r56720;
double r56751 = r56741 ? r56748 : r56750;
double r56752 = r56726 ? r56739 : r56751;
double r56753 = r56717 ? r56724 : r56752;
return r56753;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
if b < -7.603816824088264e+144Initial program 61.2
Taylor expanded around -inf 2.8
Simplified2.8
if -7.603816824088264e+144 < b < -3.27314384198807e-203Initial program 7.1
rmApplied add-sqr-sqrt7.1
Applied sqrt-prod7.4
if -3.27314384198807e-203 < b < 2.1125387673008883e+122Initial program 29.8
rmApplied flip-+29.9
Simplified16.2
rmApplied clear-num16.3
Simplified15.5
rmApplied associate-/r*15.3
Simplified9.5
if 2.1125387673008883e+122 < b Initial program 61.1
Taylor expanded around inf 2.1
Final simplification6.5
herbie shell --seed 2020036
(FPCore (a b c)
:name "Quadratic roots, full range"
:precision binary64
(/ (+ (- b) (sqrt (- (* b b) (* (* 4 a) c)))) (* 2 a)))