\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\frac{1}{2} \cdot \left(\frac{c}{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 4\right)double f(double a, double b, double c) {
double r30700 = b;
double r30701 = -r30700;
double r30702 = r30700 * r30700;
double r30703 = 4.0;
double r30704 = a;
double r30705 = r30703 * r30704;
double r30706 = c;
double r30707 = r30705 * r30706;
double r30708 = r30702 - r30707;
double r30709 = sqrt(r30708);
double r30710 = r30701 + r30709;
double r30711 = 2.0;
double r30712 = r30711 * r30704;
double r30713 = r30710 / r30712;
return r30713;
}
double f(double a, double b, double c) {
double r30714 = 1.0;
double r30715 = 2.0;
double r30716 = r30714 / r30715;
double r30717 = c;
double r30718 = b;
double r30719 = -r30718;
double r30720 = r30718 * r30718;
double r30721 = 4.0;
double r30722 = a;
double r30723 = r30721 * r30722;
double r30724 = r30723 * r30717;
double r30725 = r30720 - r30724;
double r30726 = sqrt(r30725);
double r30727 = r30719 - r30726;
double r30728 = r30717 / r30727;
double r30729 = r30728 * r30721;
double r30730 = r30716 * r30729;
return r30730;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
Initial program 28.4
rmApplied flip-+28.5
Simplified0.5
rmApplied *-un-lft-identity0.5
Applied *-un-lft-identity0.5
Applied times-frac0.5
Applied times-frac0.5
Simplified0.5
Simplified0.4
rmApplied clear-num0.5
Simplified0.4
rmApplied div-inv0.4
Applied add-sqr-sqrt0.4
Applied times-frac0.4
Simplified0.3
Simplified0.3
Final simplification0.3
herbie shell --seed 2020056
(FPCore (a b c)
:name "Quadratic roots, narrow range"
:precision binary64
:pre (and (< 1.0536712127723509e-08 a 94906265.62425156) (< 1.0536712127723509e-08 b 94906265.62425156) (< 1.0536712127723509e-08 c 94906265.62425156))
(/ (+ (- b) (sqrt (- (* b b) (* (* 4 a) c)))) (* 2 a)))