\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 -3.7616028869906017 \cdot 10^{+62}:\\
\;\;\;\;-\frac{t_1}{-B}\\
\mathbf{else}:\\
\;\;\;\;\begin{array}{l}
t_2 := \mathsf{fma}\left(A, C \cdot -4, B \cdot B\right)\\
\mathbf{if}\;B \leq -1.2231828482279147 \cdot 10^{-43}:\\
\;\;\;\;\frac{-\sqrt{t_2 \cdot \left(2 \cdot \left(F \cdot \left(2 \cdot C - 0.5 \cdot \frac{{B}^{2}}{A}\right)\right)\right)}}{t_2}\\
\mathbf{else}:\\
\;\;\;\;\begin{array}{l}
t_3 := \sqrt{t_2}\\
\mathbf{if}\;B \leq -1.2466659230087202 \cdot 10^{-126}:\\
\;\;\;\;-\frac{\sqrt{2} \cdot \sqrt{F \cdot \left(A + \mathsf{hypot}\left(B, A\right)\right)}}{t_3}\\
\mathbf{elif}\;B \leq 7.817377514999044 \cdot 10^{-301}:\\
\;\;\;\;\frac{-\sqrt{t_2 \cdot \left(2 \cdot \left(F \cdot \left(2 \cdot A - 0.5 \cdot \frac{{B}^{2}}{C}\right)\right)\right)}}{t_2}\\
\mathbf{elif}\;B \leq 1.0360051681233102 \cdot 10^{-266}:\\
\;\;\;\;-\sqrt{2} \cdot \sqrt{-0.5 \cdot \frac{F}{C}}\\
\mathbf{elif}\;B \leq 8.180948344761896 \cdot 10^{-137}:\\
\;\;\;\;\frac{-\sqrt{t_2 \cdot \left(2 \cdot \left(F \cdot \left(A + \left(C + t_0\right)\right)\right)\right)}}{t_2}\\
\mathbf{elif}\;B \leq 3.2994396410317197 \cdot 10^{-116}:\\
\;\;\;\;\frac{t_3}{4 \cdot \left(\frac{A \cdot \sqrt{0.5}}{\sqrt{2}} \cdot \sqrt{\frac{C}{F}}\right)}\\
\mathbf{elif}\;B \leq 5.394217566497425 \cdot 10^{+87}:\\
\;\;\;\;-\frac{t_1}{t_3}\\
\mathbf{else}:\\
\;\;\;\;-\frac{t_1}{B}\\
\end{array}\\
\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 -3.7616028869906017e+62)
(- (/ t_1 (- B)))
(let* ((t_2 (fma A (* C -4.0) (* B B))))
(if (<= B -1.2231828482279147e-43)
(/
(-
(sqrt
(* t_2 (* 2.0 (* F (- (* 2.0 C) (* 0.5 (/ (pow B 2.0) A))))))))
t_2)
(let* ((t_3 (sqrt t_2)))
(if (<= B -1.2466659230087202e-126)
(- (/ (* (sqrt 2.0) (sqrt (* F (+ A (hypot B A))))) t_3))
(if (<= B 7.817377514999044e-301)
(/
(-
(sqrt
(*
t_2
(* 2.0 (* F (- (* 2.0 A) (* 0.5 (/ (pow B 2.0) C))))))))
t_2)
(if (<= B 1.0360051681233102e-266)
(- (* (sqrt 2.0) (sqrt (* -0.5 (/ F C)))))
(if (<= B 8.180948344761896e-137)
(/ (- (sqrt (* t_2 (* 2.0 (* F (+ A (+ C t_0))))))) t_2)
(if (<= B 3.2994396410317197e-116)
(/
t_3
(*
4.0
(* (/ (* A (sqrt 0.5)) (sqrt 2.0)) (sqrt (/ C F)))))
(if (<= B 5.394217566497425e+87)
(- (/ t_1 t_3))
(- (/ 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 <= -3.7616028869906017e+62) {
tmp = -(t_1 / -B);
} else {
double t_2 = fma(A, (C * -4.0), (B * B));
double tmp_1;
if (B <= -1.2231828482279147e-43) {
tmp_1 = -sqrt(t_2 * (2.0 * (F * ((2.0 * C) - (0.5 * (pow(B, 2.0) / A)))))) / t_2;
} else {
double t_3 = sqrt(t_2);
double tmp_2;
if (B <= -1.2466659230087202e-126) {
tmp_2 = -((sqrt(2.0) * sqrt(F * (A + hypot(B, A)))) / t_3);
} else if (B <= 7.817377514999044e-301) {
tmp_2 = -sqrt(t_2 * (2.0 * (F * ((2.0 * A) - (0.5 * (pow(B, 2.0) / C)))))) / t_2;
} else if (B <= 1.0360051681233102e-266) {
tmp_2 = -(sqrt(2.0) * sqrt(-0.5 * (F / C)));
} else if (B <= 8.180948344761896e-137) {
tmp_2 = -sqrt(t_2 * (2.0 * (F * (A + (C + t_0))))) / t_2;
} else if (B <= 3.2994396410317197e-116) {
tmp_2 = t_3 / (4.0 * (((A * sqrt(0.5)) / sqrt(2.0)) * sqrt(C / F)));
} else if (B <= 5.394217566497425e+87) {
tmp_2 = -(t_1 / t_3);
} else {
tmp_2 = -(t_1 / B);
}
tmp_1 = tmp_2;
}
tmp = tmp_1;
}
return tmp;
}



Bits error versus A



Bits error versus B



Bits error versus C



Bits error versus F
if B < -3.7616028869906017e62Initial program 58.1
Simplified57.1
Applied add-sqr-sqrt_binary6457.3
Applied sqrt-prod_binary6451.5
Applied distribute-lft-neg-in_binary6451.5
Applied times-frac_binary6451.5
Simplified50.1
Taylor expanded in B around -inf 30.4
Simplified30.4
if -3.7616028869906017e62 < B < -1.22318284822791469e-43Initial program 41.5
Simplified36.4
Taylor expanded in A around -inf 54.3
if -1.22318284822791469e-43 < B < -1.2466659230087202e-126Initial program 46.8
Simplified42.1
Applied add-sqr-sqrt_binary6447.3
Applied sqrt-prod_binary6442.0
Applied distribute-lft-neg-in_binary6442.0
Applied times-frac_binary6442.0
Simplified41.8
Taylor expanded in C around 0 47.4
Simplified45.1
if -1.2466659230087202e-126 < B < 7.81737751499904435e-301Initial program 53.1
Simplified49.3
Taylor expanded in C around -inf 48.4
if 7.81737751499904435e-301 < B < 1.03600516812331016e-266Initial program 51.9
Simplified48.2
Taylor expanded in A around inf 52.4
Simplified52.4
if 1.03600516812331016e-266 < B < 8.18094834476189593e-137Initial program 52.8
Simplified47.2
Applied associate-+l+_binary6446.1
if 8.18094834476189593e-137 < B < 3.2994396410317197e-116Initial program 45.1
Simplified40.1
Applied sqrt-prod_binary6442.1
Applied distribute-rgt-neg-in_binary6442.1
Applied associate-/l*_binary6442.9
Taylor expanded in A around -inf 51.7
if 3.2994396410317197e-116 < B < 5.394217566497425e87Initial program 44.8
Simplified40.1
Applied add-sqr-sqrt_binary6444.8
Applied sqrt-prod_binary6440.1
Applied distribute-lft-neg-in_binary6440.1
Applied times-frac_binary6440.0
Simplified39.9
if 5.394217566497425e87 < B Initial program 60.1
Simplified59.0
Applied add-sqr-sqrt_binary6459.1
Applied sqrt-prod_binary6454.2
Applied distribute-lft-neg-in_binary6454.2
Applied times-frac_binary6454.2
Simplified52.6
Taylor expanded in A around 0 31.4
Final simplification40.6
herbie shell --seed 2022004
(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))))