\frac{-\sqrt{\left(2 \cdot \left(\left({B}^{2} - \left(4 \cdot A\right) \cdot C\right) \cdot F\right)\right) \cdot \left(\left(A + C\right) + \sqrt{{\left(A - C\right)}^{2} + {B}^{2}}\right)}}{{B}^{2} - \left(4 \cdot A\right) \cdot C}
\begin{array}{l}
t_0 := \mathsf{hypot}\left(B, A - C\right)\\
t_1 := \sqrt{2 \cdot \left(F \cdot \left(\left(A + C\right) + t_0\right)\right)}\\
\mathbf{if}\;B \leq -4.5383577387647764 \cdot 10^{-107}:\\
\;\;\;\;-\frac{t_1}{-B}\\
\mathbf{elif}\;B \leq -1.7959692406099675 \cdot 10^{-228}:\\
\;\;\;\;-\sqrt{2} \cdot \sqrt{-0.5 \cdot \frac{F}{A}}\\
\mathbf{else}:\\
\;\;\;\;\begin{array}{l}
t_2 := \mathsf{fma}\left(A, C \cdot -4, B \cdot B\right)\\
\mathbf{if}\;B \leq 8.153331909934926 \cdot 10^{-175}:\\
\;\;\;\;\frac{-\sqrt{t_2 \cdot \left(2 \cdot \left(F \cdot \mathsf{fma}\left(0.5, \frac{B \cdot B}{C}, 2 \cdot C\right)\right)\right)}}{t_2}\\
\mathbf{elif}\;B \leq 1.901863158299937 \cdot 10^{+180}:\\
\;\;\;\;-\frac{\sqrt{2 \cdot \left(F \cdot \left(A + \left(C + t_0\right)\right)\right)}}{\sqrt{t_2}}\\
\mathbf{else}:\\
\;\;\;\;-\frac{t_1}{B}\\
\end{array}\\
\end{array}
(FPCore (A B C F)
:precision binary64
(/
(-
(sqrt
(*
(* 2.0 (* (- (pow B 2.0) (* (* 4.0 A) C)) F))
(+ (+ A C) (sqrt (+ (pow (- A C) 2.0) (pow B 2.0)))))))
(- (pow B 2.0) (* (* 4.0 A) C))))(FPCore (A B C F)
:precision binary64
(let* ((t_0 (hypot B (- A C))) (t_1 (sqrt (* 2.0 (* F (+ (+ A C) t_0))))))
(if (<= B -4.5383577387647764e-107)
(- (/ t_1 (- B)))
(if (<= B -1.7959692406099675e-228)
(- (* (sqrt 2.0) (sqrt (* -0.5 (/ F A)))))
(let* ((t_2 (fma A (* C -4.0) (* B B))))
(if (<= B 8.153331909934926e-175)
(/
(- (sqrt (* t_2 (* 2.0 (* F (fma 0.5 (/ (* B B) C) (* 2.0 C)))))))
t_2)
(if (<= B 1.901863158299937e+180)
(- (/ (sqrt (* 2.0 (* F (+ A (+ C t_0))))) (sqrt t_2)))
(- (/ t_1 B)))))))))double code(double A, double B, double C, double F) {
return -sqrt((2.0 * ((pow(B, 2.0) - ((4.0 * A) * C)) * F)) * ((A + C) + sqrt(pow((A - C), 2.0) + pow(B, 2.0)))) / (pow(B, 2.0) - ((4.0 * A) * C));
}
double code(double A, double B, double C, double F) {
double t_0 = hypot(B, (A - C));
double t_1 = sqrt(2.0 * (F * ((A + C) + t_0)));
double tmp;
if (B <= -4.5383577387647764e-107) {
tmp = -(t_1 / -B);
} else if (B <= -1.7959692406099675e-228) {
tmp = -(sqrt(2.0) * sqrt(-0.5 * (F / A)));
} else {
double t_2 = fma(A, (C * -4.0), (B * B));
double tmp_1;
if (B <= 8.153331909934926e-175) {
tmp_1 = -sqrt(t_2 * (2.0 * (F * fma(0.5, ((B * B) / C), (2.0 * C))))) / t_2;
} else if (B <= 1.901863158299937e+180) {
tmp_1 = -(sqrt(2.0 * (F * (A + (C + t_0)))) / sqrt(t_2));
} else {
tmp_1 = -(t_1 / B);
}
tmp = tmp_1;
}
return tmp;
}



Bits error versus A



Bits error versus B



Bits error versus C



Bits error versus F
if B < -4.5383577387647764e-107Initial program 52.2
Simplified49.7
Applied add-sqr-sqrt_binary6451.2
Applied sqrt-prod_binary6446.1
Applied distribute-lft-neg-in_binary6446.1
Applied times-frac_binary6446.1
Simplified45.2
Taylor expanded in B around -inf 35.6
if -4.5383577387647764e-107 < B < -1.7959692406099675e-228Initial program 51.3
Simplified46.6
Taylor expanded in C around inf 50.8
Simplified50.8
if -1.7959692406099675e-228 < B < 8.1533319099349258e-175Initial program 53.9
Simplified48.5
Taylor expanded in C around inf 49.0
Simplified49.0
if 8.1533319099349258e-175 < B < 1.90186315829993693e180Initial program 48.2
Simplified44.2
Applied add-sqr-sqrt_binary6447.7
Applied sqrt-prod_binary6441.3
Applied distribute-lft-neg-in_binary6441.3
Applied times-frac_binary6441.2
Simplified40.9
Applied associate-+l+_binary6440.6
if 1.90186315829993693e180 < B Initial program 64.0
Simplified64.0
Applied add-sqr-sqrt_binary6464.0
Applied sqrt-prod_binary6464.0
Applied distribute-lft-neg-in_binary6464.0
Applied times-frac_binary6464.0
Simplified61.9
Taylor expanded in A around 0 29.9
Final simplification40.4
herbie shell --seed 2021280
(FPCore (A B C F)
:name "ABCF->ab-angle a"
:precision binary64
(/ (- (sqrt (* (* 2.0 (* (- (pow B 2.0) (* (* 4.0 A) C)) F)) (+ (+ A C) (sqrt (+ (pow (- A C) 2.0) (pow B 2.0))))))) (- (pow B 2.0) (* (* 4.0 A) C))))