\frac{\left(-b\right) + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\begin{array}{l}
\mathbf{if}\;b \leq -1.1322680089054584 \cdot 10^{+134}:\\
\;\;\;\;\frac{c}{b} - \frac{b}{a}\\
\mathbf{elif}\;b \leq 9.395550020877812 \cdot 10^{-161} \lor \neg \left(b \leq 9.228060049895551 \cdot 10^{-15}\right) \land b \leq 51401965608.1987:\\
\;\;\;\;\frac{1}{\frac{a}{\frac{\sqrt{b \cdot b - 4 \cdot \left(c \cdot a\right)} - b}{2}}}\\
\mathbf{else}:\\
\;\;\;\;-\frac{c}{b}\\
\end{array}(FPCore (a b c) :precision binary64 (/ (+ (- b) (sqrt (- (* b b) (* 4.0 (* a c))))) (* 2.0 a)))
(FPCore (a b c)
:precision binary64
(if (<= b -1.1322680089054584e+134)
(- (/ c b) (/ b a))
(if (or (<= b 9.395550020877812e-161)
(and (not (<= b 9.228060049895551e-15)) (<= b 51401965608.1987)))
(/ 1.0 (/ a (/ (- (sqrt (- (* b b) (* 4.0 (* c a)))) b) 2.0)))
(- (/ c b)))))double code(double a, double b, double c) {
return (-b + sqrt((b * b) - (4.0 * (a * c)))) / (2.0 * a);
}
double code(double a, double b, double c) {
double tmp;
if (b <= -1.1322680089054584e+134) {
tmp = (c / b) - (b / a);
} else if ((b <= 9.395550020877812e-161) || (!(b <= 9.228060049895551e-15) && (b <= 51401965608.1987))) {
tmp = 1.0 / (a / ((sqrt((b * b) - (4.0 * (c * a))) - b) / 2.0));
} else {
tmp = -(c / b);
}
return tmp;
}




Bits error versus a




Bits error versus b




Bits error versus c
Results
| Original | 34.3 |
|---|---|
| Target | 21.2 |
| Herbie | 11.7 |
if b < -1.1322680089054584e134Initial program 56.3
Simplified56.3
Taylor expanded around -inf 2.6
if -1.1322680089054584e134 < b < 9.39555002087781197e-161 or 9.2280600498955512e-15 < b < 51401965608.1987Initial program 12.3
Simplified12.3
rmApplied clear-num_binary6412.4
Simplified12.4
if 9.39555002087781197e-161 < b < 9.2280600498955512e-15 or 51401965608.1987 < b Initial program 49.7
Simplified49.7
Taylor expanded around inf 13.6
Simplified13.6
Final simplification11.7
herbie shell --seed 2020233
(FPCore (a b c)
:name "quadp (p42, positive)"
:precision binary64
:herbie-expected #f
:herbie-target
(if (< b 0.0) (/ (+ (- b) (sqrt (- (* b b) (* 4.0 (* a c))))) (* 2.0 a)) (/ c (* a (/ (- (- b) (sqrt (- (* b b) (* 4.0 (* a c))))) (* 2.0 a)))))
(/ (+ (- b) (sqrt (- (* b b) (* 4.0 (* a c))))) (* 2.0 a)))