\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 2.1712981559507382 \cdot 10^{-281}:\\
\;\;\;\;\frac{\frac{\sqrt{\mathsf{fma}\left(a \cdot c, -4, b \cdot b\right)}}{a} - \frac{b}{a}}{2}\\
\mathbf{elif}\;b \le 3.4192303804034762 \cdot 10^{+140}:\\
\;\;\;\;\frac{\frac{a \cdot -4}{a} \cdot \frac{c}{\sqrt{\mathsf{fma}\left(c, a \cdot -4, b \cdot b\right)} + b}}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{a \cdot -4}{a} \cdot \frac{c}{2 \cdot b}}{2}\\
\end{array}double f(double a, double b, double c) {
double r2491094 = b;
double r2491095 = -r2491094;
double r2491096 = r2491094 * r2491094;
double r2491097 = 4.0;
double r2491098 = a;
double r2491099 = c;
double r2491100 = r2491098 * r2491099;
double r2491101 = r2491097 * r2491100;
double r2491102 = r2491096 - r2491101;
double r2491103 = sqrt(r2491102);
double r2491104 = r2491095 + r2491103;
double r2491105 = 2.0;
double r2491106 = r2491105 * r2491098;
double r2491107 = r2491104 / r2491106;
return r2491107;
}
double f(double a, double b, double c) {
double r2491108 = b;
double r2491109 = 2.1712981559507382e-281;
bool r2491110 = r2491108 <= r2491109;
double r2491111 = a;
double r2491112 = c;
double r2491113 = r2491111 * r2491112;
double r2491114 = -4.0;
double r2491115 = r2491108 * r2491108;
double r2491116 = fma(r2491113, r2491114, r2491115);
double r2491117 = sqrt(r2491116);
double r2491118 = r2491117 / r2491111;
double r2491119 = r2491108 / r2491111;
double r2491120 = r2491118 - r2491119;
double r2491121 = 2.0;
double r2491122 = r2491120 / r2491121;
double r2491123 = 3.4192303804034762e+140;
bool r2491124 = r2491108 <= r2491123;
double r2491125 = r2491111 * r2491114;
double r2491126 = r2491125 / r2491111;
double r2491127 = fma(r2491112, r2491125, r2491115);
double r2491128 = sqrt(r2491127);
double r2491129 = r2491128 + r2491108;
double r2491130 = r2491112 / r2491129;
double r2491131 = r2491126 * r2491130;
double r2491132 = r2491131 / r2491121;
double r2491133 = r2491121 * r2491108;
double r2491134 = r2491112 / r2491133;
double r2491135 = r2491126 * r2491134;
double r2491136 = r2491135 / r2491121;
double r2491137 = r2491124 ? r2491132 : r2491136;
double r2491138 = r2491110 ? r2491122 : r2491137;
return r2491138;
}




Bits error versus a




Bits error versus b




Bits error versus c
| Original | 33.2 |
|---|---|
| Target | 20.2 |
| Herbie | 12.6 |
if b < 2.1712981559507382e-281Initial program 20.3
Simplified20.3
rmApplied div-sub20.3
if 2.1712981559507382e-281 < b < 3.4192303804034762e+140Initial program 35.0
Simplified35.0
rmApplied flip--35.1
Simplified16.3
rmApplied *-un-lft-identity16.3
Applied *-un-lft-identity16.3
Applied times-frac16.3
Simplified16.3
Simplified8.0
if 3.4192303804034762e+140 < b Initial program 61.5
Simplified61.5
rmApplied flip--61.6
Simplified35.5
rmApplied *-un-lft-identity35.5
Applied *-un-lft-identity35.5
Applied times-frac35.5
Simplified35.5
Simplified34.6
rmApplied add-cube-cbrt34.7
Applied fma-def34.7
Taylor expanded around 0 1.8
Final simplification12.6
herbie shell --seed 2019143 +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)))