\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 3.456075129616807 \cdot 10^{-304}:\\
\;\;\;\;\frac{\frac{1}{a} \cdot \left(\sqrt{\mathsf{fma}\left(a \cdot c, -4, b \cdot b\right)} - b\right)}{2}\\
\mathbf{elif}\;b \le 2.6656023684116586 \cdot 10^{+55}:\\
\;\;\;\;\frac{\frac{\frac{-4 \cdot c}{\frac{a}{a}}}{\sqrt{\mathsf{fma}\left(-4 \cdot c, a, b \cdot b\right)} + b}}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{\frac{-4 \cdot c}{\frac{a}{a}}}{b \cdot 2}}{2}\\
\end{array}double f(double a, double b, double c) {
double r1910947 = b;
double r1910948 = -r1910947;
double r1910949 = r1910947 * r1910947;
double r1910950 = 4.0;
double r1910951 = a;
double r1910952 = c;
double r1910953 = r1910951 * r1910952;
double r1910954 = r1910950 * r1910953;
double r1910955 = r1910949 - r1910954;
double r1910956 = sqrt(r1910955);
double r1910957 = r1910948 + r1910956;
double r1910958 = 2.0;
double r1910959 = r1910958 * r1910951;
double r1910960 = r1910957 / r1910959;
return r1910960;
}
double f(double a, double b, double c) {
double r1910961 = b;
double r1910962 = 3.456075129616807e-304;
bool r1910963 = r1910961 <= r1910962;
double r1910964 = 1.0;
double r1910965 = a;
double r1910966 = r1910964 / r1910965;
double r1910967 = c;
double r1910968 = r1910965 * r1910967;
double r1910969 = -4.0;
double r1910970 = r1910961 * r1910961;
double r1910971 = fma(r1910968, r1910969, r1910970);
double r1910972 = sqrt(r1910971);
double r1910973 = r1910972 - r1910961;
double r1910974 = r1910966 * r1910973;
double r1910975 = 2.0;
double r1910976 = r1910974 / r1910975;
double r1910977 = 2.6656023684116586e+55;
bool r1910978 = r1910961 <= r1910977;
double r1910979 = r1910969 * r1910967;
double r1910980 = r1910965 / r1910965;
double r1910981 = r1910979 / r1910980;
double r1910982 = fma(r1910979, r1910965, r1910970);
double r1910983 = sqrt(r1910982);
double r1910984 = r1910983 + r1910961;
double r1910985 = r1910981 / r1910984;
double r1910986 = r1910985 / r1910975;
double r1910987 = r1910961 * r1910975;
double r1910988 = r1910981 / r1910987;
double r1910989 = r1910988 / r1910975;
double r1910990 = r1910978 ? r1910986 : r1910989;
double r1910991 = r1910963 ? r1910976 : r1910990;
return r1910991;
}




Bits error versus a




Bits error versus b




Bits error versus c
| Original | 34.0 |
|---|---|
| Target | 20.9 |
| Herbie | 13.5 |
if b < 3.456075129616807e-304Initial program 21.5
Simplified21.4
rmApplied div-inv21.6
if 3.456075129616807e-304 < b < 2.6656023684116586e+55Initial program 29.8
Simplified29.8
rmApplied flip--29.9
Simplified17.1
rmApplied *-un-lft-identity17.1
Applied *-un-lft-identity17.1
Applied *-un-lft-identity17.1
Applied times-frac17.1
Applied times-frac17.1
Simplified17.1
Simplified9.6
if 2.6656023684116586e+55 < b Initial program 56.9
Simplified56.9
rmApplied flip--57.0
Simplified28.4
rmApplied *-un-lft-identity28.4
Applied *-un-lft-identity28.4
Applied *-un-lft-identity28.4
Applied times-frac28.4
Applied times-frac28.4
Simplified28.4
Simplified25.6
rmApplied add-cube-cbrt25.7
Applied sqrt-prod25.7
Applied fma-def25.7
Taylor expanded around 0 4.5
Final simplification13.5
herbie shell --seed 2019141 +o rules:numerics
(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)))