\frac{\frac{\left(i \cdot i\right) \cdot \left(i \cdot i\right)}{\left(2 \cdot i\right) \cdot \left(2 \cdot i\right)}}{\left(2 \cdot i\right) \cdot \left(2 \cdot i\right) - 1}
\begin{array}{l}
t_0 := \frac{1}{\left|i\right|}\\
\frac{0.5}{2 + t_0} \cdot \frac{0.5}{2 - t_0}
\end{array}
(FPCore (i) :precision binary64 (/ (/ (* (* i i) (* i i)) (* (* 2.0 i) (* 2.0 i))) (- (* (* 2.0 i) (* 2.0 i)) 1.0)))
(FPCore (i) :precision binary64 (let* ((t_0 (/ 1.0 (fabs i)))) (* (/ 0.5 (+ 2.0 t_0)) (/ 0.5 (- 2.0 t_0)))))
double code(double i) {
return (((i * i) * (i * i)) / ((2.0 * i) * (2.0 * i))) / (((2.0 * i) * (2.0 * i)) - 1.0);
}
double code(double i) {
double t_0 = 1.0 / fabs(i);
return (0.5 / (2.0 + t_0)) * (0.5 / (2.0 - t_0));
}



Bits error versus i
Results
Initial program 47.6
Simplified0.3
Applied add-sqr-sqrt_binary640.5
Applied add-sqr-sqrt_binary640.5
Applied difference-of-squares_binary640.5
Applied add-sqr-sqrt_binary640.5
Applied times-frac_binary640.4
Simplified0.4
Simplified0.1
Final simplification0.1
herbie shell --seed 2022104
(FPCore (i)
:name "Octave 3.8, jcobi/4, as called"
:precision binary64
:pre (> i 0.0)
(/ (/ (* (* i i) (* i i)) (* (* 2.0 i) (* 2.0 i))) (- (* (* 2.0 i) (* 2.0 i)) 1.0)))