\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 -1.50529903241060843 \cdot 10^{27}:\\
\;\;\;\;1 \cdot \left(\frac{c}{b} - \frac{b}{a}\right)\\
\mathbf{elif}\;b \le -6.63395785424786023 \cdot 10^{-258}:\\
\;\;\;\;\left(\left(-b\right) + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}\right) \cdot \frac{1}{2 \cdot a}\\
\mathbf{elif}\;b \le 1.16896907782470713 \cdot 10^{-19}:\\
\;\;\;\;\frac{1 \cdot \frac{4}{\frac{\frac{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{a}}{c}}}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;-1 \cdot \frac{c}{b}\\
\end{array}double f(double a, double b, double c) {
double r75763 = b;
double r75764 = -r75763;
double r75765 = r75763 * r75763;
double r75766 = 4.0;
double r75767 = a;
double r75768 = c;
double r75769 = r75767 * r75768;
double r75770 = r75766 * r75769;
double r75771 = r75765 - r75770;
double r75772 = sqrt(r75771);
double r75773 = r75764 + r75772;
double r75774 = 2.0;
double r75775 = r75774 * r75767;
double r75776 = r75773 / r75775;
return r75776;
}
double f(double a, double b, double c) {
double r75777 = b;
double r75778 = -1.5052990324106084e+27;
bool r75779 = r75777 <= r75778;
double r75780 = 1.0;
double r75781 = c;
double r75782 = r75781 / r75777;
double r75783 = a;
double r75784 = r75777 / r75783;
double r75785 = r75782 - r75784;
double r75786 = r75780 * r75785;
double r75787 = -6.63395785424786e-258;
bool r75788 = r75777 <= r75787;
double r75789 = -r75777;
double r75790 = r75777 * r75777;
double r75791 = 4.0;
double r75792 = r75783 * r75781;
double r75793 = r75791 * r75792;
double r75794 = r75790 - r75793;
double r75795 = sqrt(r75794);
double r75796 = r75789 + r75795;
double r75797 = 1.0;
double r75798 = 2.0;
double r75799 = r75798 * r75783;
double r75800 = r75797 / r75799;
double r75801 = r75796 * r75800;
double r75802 = 1.1689690778247071e-19;
bool r75803 = r75777 <= r75802;
double r75804 = r75789 - r75795;
double r75805 = r75804 / r75783;
double r75806 = r75805 / r75781;
double r75807 = r75791 / r75806;
double r75808 = r75797 * r75807;
double r75809 = r75808 / r75799;
double r75810 = -1.0;
double r75811 = r75810 * r75782;
double r75812 = r75803 ? r75809 : r75811;
double r75813 = r75788 ? r75801 : r75812;
double r75814 = r75779 ? r75786 : r75813;
return r75814;
}




Bits error versus a




Bits error versus b




Bits error versus c
Results
| Original | 34.2 |
|---|---|
| Target | 21.1 |
| Herbie | 8.9 |
if b < -1.5052990324106084e+27Initial program 35.7
Taylor expanded around -inf 6.7
Simplified6.7
if -1.5052990324106084e+27 < b < -6.63395785424786e-258Initial program 9.0
rmApplied div-inv9.1
if -6.63395785424786e-258 < b < 1.1689690778247071e-19Initial program 23.8
rmApplied flip-+23.9
Simplified17.7
rmApplied *-un-lft-identity17.7
Applied *-un-lft-identity17.7
Applied times-frac17.7
Simplified17.7
Simplified17.7
rmApplied associate-/r*15.3
if 1.1689690778247071e-19 < b Initial program 55.0
Taylor expanded around inf 6.2
Final simplification8.9
herbie shell --seed 2020081 +o rules:numerics
(FPCore (a b c)
:name "quadp (p42, positive)"
:precision binary64
:herbie-target
(if (< b 0.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)))