\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.3398860289927658 \cdot 10^{+154}:\\
\;\;\;\;\frac{-b}{a \cdot 2}\\
\mathbf{elif}\;b \leq -2.877828598460869 \cdot 10^{-307}:\\
\;\;\;\;\frac{1}{\frac{a \cdot 2}{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)} - b}}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{a \cdot \left(c \cdot -4\right)}{b + \sqrt{b \cdot b + a \cdot \left(c \cdot -4\right)}}}{a \cdot 2}\\
\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.3398860289927658e+154)
(/ (- b) (* a 2.0))
(if (<= b -2.877828598460869e-307)
(/ 1.0 (/ (* a 2.0) (- (sqrt (- (* b b) (* 4.0 (* a c)))) b)))
(/
(/ (* a (* c -4.0)) (+ b (sqrt (+ (* b b) (* a (* c -4.0))))))
(* a 2.0)))))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.3398860289927658e+154) {
tmp = -b / (a * 2.0);
} else if (b <= -2.877828598460869e-307) {
tmp = 1.0 / ((a * 2.0) / (sqrt((b * b) - (4.0 * (a * c))) - b));
} else {
tmp = ((a * (c * -4.0)) / (b + sqrt((b * b) + (a * (c * -4.0))))) / (a * 2.0);
}
return tmp;
}




Bits error versus a




Bits error versus b




Bits error versus c
Results
| Original | 34.0 |
|---|---|
| Target | 21.1 |
| Herbie | 21.5 |
if b < -1.33988602899276581e154Initial program 64.0
Simplified64.0
Taylor expanded around 0 52.3
if -1.33988602899276581e154 < b < -2.8778285984608691e-307Initial program 9.2
Simplified9.2
rmApplied *-un-lft-identity_binary649.2
Applied *-un-lft-identity_binary649.2
Applied distribute-lft-out--_binary649.2
Applied associate-/l*_binary649.4
if -2.8778285984608691e-307 < b Initial program 43.8
Simplified43.8
rmApplied sub-neg_binary6443.8
Simplified43.8
rmApplied flip--_binary6443.8
Simplified23.0
Simplified23.0
Final simplification21.5
herbie shell --seed 2020288
(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)))