\left(-x \cdot \frac{1}{\tan B}\right) + \frac{F}{\sin B} \cdot {\left(\left(F \cdot F + 2\right) + 2 \cdot x\right)}^{\left(-\frac{1}{2}\right)}
\begin{array}{l}
t_0 := \frac{x}{\tan B}\\
t_1 := \left(F \cdot F\right) \cdot \sin B\\
t_2 := \frac{x}{t_1} + \frac{1}{t_1}\\
\mathbf{if}\;F \leq -1525898.2560680246:\\
\;\;\;\;\left(t_2 + \frac{-1}{\sin B}\right) - t_0\\
\mathbf{elif}\;F \leq 97379942.01309888:\\
\;\;\;\;\left(F \cdot {\left(2 + \left(F \cdot F + x \cdot 2\right)\right)}^{-0.25}\right) \cdot \frac{\sqrt{\sqrt{\frac{1}{F \cdot F + 2}}}}{\sin B} - t_0\\
\mathbf{else}:\\
\;\;\;\;\left(\frac{1}{\sin B} - t_2\right) - t_0\\
\end{array}
(FPCore (F B x) :precision binary64 (+ (- (* x (/ 1.0 (tan B)))) (* (/ F (sin B)) (pow (+ (+ (* F F) 2.0) (* 2.0 x)) (- (/ 1.0 2.0))))))
(FPCore (F B x)
:precision binary64
(let* ((t_0 (/ x (tan B)))
(t_1 (* (* F F) (sin B)))
(t_2 (+ (/ x t_1) (/ 1.0 t_1))))
(if (<= F -1525898.2560680246)
(- (+ t_2 (/ -1.0 (sin B))) t_0)
(if (<= F 97379942.01309888)
(-
(*
(* F (pow (+ 2.0 (+ (* F F) (* x 2.0))) -0.25))
(/ (sqrt (sqrt (/ 1.0 (+ (* F F) 2.0)))) (sin B)))
t_0)
(- (- (/ 1.0 (sin B)) t_2) t_0)))))double code(double F, double B, double x) {
return -(x * (1.0 / tan(B))) + ((F / sin(B)) * pow((((F * F) + 2.0) + (2.0 * x)), -(1.0 / 2.0)));
}
double code(double F, double B, double x) {
double t_0 = x / tan(B);
double t_1 = (F * F) * sin(B);
double t_2 = (x / t_1) + (1.0 / t_1);
double tmp;
if (F <= -1525898.2560680246) {
tmp = (t_2 + (-1.0 / sin(B))) - t_0;
} else if (F <= 97379942.01309888) {
tmp = ((F * pow((2.0 + ((F * F) + (x * 2.0))), -0.25)) * (sqrt(sqrt(1.0 / ((F * F) + 2.0))) / sin(B))) - t_0;
} else {
tmp = ((1.0 / sin(B)) - t_2) - t_0;
}
return tmp;
}



Bits error versus F



Bits error versus B



Bits error versus x
Results
if F < -1525898.25606802455Initial program 25.3
Simplified25.3
Taylor expanded around -inf 0.2
Simplified0.2
if -1525898.25606802455 < F < 97379942.0130988806Initial program 0.4
Simplified0.3
rmApplied div-inv_binary640.3
Applied associate-*l*_binary640.3
Simplified0.3
rmApplied *-un-lft-identity_binary640.3
Applied add-sqr-sqrt_binary640.6
Applied times-frac_binary640.5
Applied associate-*r*_binary640.5
Simplified0.3
Taylor expanded around 0 0.3
Simplified0.3
if 97379942.0130988806 < F Initial program 26.0
Simplified25.9
Taylor expanded around inf 0.1
Simplified0.1
Final simplification0.2
herbie shell --seed 2021197
(FPCore (F B x)
:name "VandenBroeck and Keller, Equation (23)"
:precision binary64
(+ (- (* x (/ 1.0 (tan B)))) (* (/ F (sin B)) (pow (+ (+ (* F F) 2.0) (* 2.0 x)) (- (/ 1.0 2.0))))))