\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.411206454162785 \cdot 10^{+120}:\\
\;\;\;\;-\frac{c}{b}\\
\mathbf{elif}\;b \le 8.142093116881289 \cdot 10^{-248}:\\
\;\;\;\;c \cdot \frac{-2}{b - \sqrt{\mathsf{fma}\left(b, b, \left(\left(a \cdot c\right) \cdot -4\right)\right)}}\\
\mathbf{elif}\;b \le 5.419916601733116 \cdot 10^{+77}:\\
\;\;\;\;\left(\sqrt{\mathsf{fma}\left(\left(a \cdot c\right), -4, \left(b \cdot b\right)\right)} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{b} - \frac{b}{a}\\
\end{array}double f(double a, double b, double c) {
double r13170101 = b;
double r13170102 = -r13170101;
double r13170103 = r13170101 * r13170101;
double r13170104 = 4.0;
double r13170105 = a;
double r13170106 = c;
double r13170107 = r13170105 * r13170106;
double r13170108 = r13170104 * r13170107;
double r13170109 = r13170103 - r13170108;
double r13170110 = sqrt(r13170109);
double r13170111 = r13170102 - r13170110;
double r13170112 = 2.0;
double r13170113 = r13170112 * r13170105;
double r13170114 = r13170111 / r13170113;
return r13170114;
}
double f(double a, double b, double c) {
double r13170115 = b;
double r13170116 = -3.411206454162785e+120;
bool r13170117 = r13170115 <= r13170116;
double r13170118 = c;
double r13170119 = r13170118 / r13170115;
double r13170120 = -r13170119;
double r13170121 = 8.142093116881289e-248;
bool r13170122 = r13170115 <= r13170121;
double r13170123 = -2.0;
double r13170124 = a;
double r13170125 = r13170124 * r13170118;
double r13170126 = -4.0;
double r13170127 = r13170125 * r13170126;
double r13170128 = fma(r13170115, r13170115, r13170127);
double r13170129 = sqrt(r13170128);
double r13170130 = r13170115 - r13170129;
double r13170131 = r13170123 / r13170130;
double r13170132 = r13170118 * r13170131;
double r13170133 = 5.419916601733116e+77;
bool r13170134 = r13170115 <= r13170133;
double r13170135 = r13170115 * r13170115;
double r13170136 = fma(r13170125, r13170126, r13170135);
double r13170137 = sqrt(r13170136);
double r13170138 = r13170137 + r13170115;
double r13170139 = -0.5;
double r13170140 = r13170139 / r13170124;
double r13170141 = r13170138 * r13170140;
double r13170142 = r13170115 / r13170124;
double r13170143 = r13170119 - r13170142;
double r13170144 = r13170134 ? r13170141 : r13170143;
double r13170145 = r13170122 ? r13170132 : r13170144;
double r13170146 = r13170117 ? r13170120 : r13170145;
return r13170146;
}




Bits error versus a




Bits error versus b




Bits error versus c
| Original | 33.3 |
|---|---|
| Target | 20.6 |
| Herbie | 6.6 |
if b < -3.411206454162785e+120Initial program 59.4
Simplified59.4
rmApplied *-un-lft-identity59.4
Applied div-inv59.4
Applied times-frac59.4
Simplified59.4
Simplified59.4
Taylor expanded around -inf 1.9
Simplified1.9
if -3.411206454162785e+120 < b < 8.142093116881289e-248Initial program 30.9
Simplified30.9
rmApplied *-un-lft-identity30.9
Applied div-inv30.9
Applied times-frac31.0
Simplified31.0
Simplified31.0
rmApplied flip-+31.1
Applied distribute-neg-frac31.1
Applied frac-times36.0
Simplified20.1
rmApplied sub0-neg20.1
Applied distribute-lft-neg-out20.1
Applied distribute-frac-neg20.1
Simplified8.9
if 8.142093116881289e-248 < b < 5.419916601733116e+77Initial program 8.5
Simplified8.5
rmApplied *-un-lft-identity8.5
Applied div-inv8.5
Applied times-frac8.7
Simplified8.7
Simplified8.7
Taylor expanded around -inf 8.7
Simplified8.7
if 5.419916601733116e+77 < b Initial program 40.5
Simplified40.5
rmApplied *-un-lft-identity40.5
Applied div-inv40.5
Applied times-frac40.6
Simplified40.6
Simplified40.6
Taylor expanded around inf 4.7
Final simplification6.6
herbie shell --seed 2019124 +o rules:numerics
(FPCore (a b c)
:name "quadm (p42, negative)"
:herbie-target
(if (< b 0) (/ c (* a (/ (+ (- b) (sqrt (- (* b b) (* 4 (* a c))))) (* 2 a)))) (/ (- (- b) (sqrt (- (* b b) (* 4 (* a c))))) (* 2 a)))
(/ (- (- b) (sqrt (- (* b b) (* 4 (* a c))))) (* 2 a)))