\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}
\mathbf{if}\;i \le 1971.78810324239817:\\
\;\;\;\;\frac{i \cdot i}{\left(\left(2 \cdot i\right) \cdot \left(2 \cdot i\right) - 1\right) \cdot \left(2 \cdot 2\right)}\\
\mathbf{else}:\\
\;\;\;\;0.00390625 \cdot \frac{1}{{i}^{4}} + \left(0.015625 \cdot \frac{1}{{i}^{2}} + 0.0625\right)\\
\end{array}double f(double i) {
double r44442 = i;
double r44443 = r44442 * r44442;
double r44444 = r44443 * r44443;
double r44445 = 2.0;
double r44446 = r44445 * r44442;
double r44447 = r44446 * r44446;
double r44448 = r44444 / r44447;
double r44449 = 1.0;
double r44450 = r44447 - r44449;
double r44451 = r44448 / r44450;
return r44451;
}
double f(double i) {
double r44452 = i;
double r44453 = 1971.7881032423982;
bool r44454 = r44452 <= r44453;
double r44455 = r44452 * r44452;
double r44456 = 2.0;
double r44457 = r44456 * r44452;
double r44458 = r44457 * r44457;
double r44459 = 1.0;
double r44460 = r44458 - r44459;
double r44461 = r44456 * r44456;
double r44462 = r44460 * r44461;
double r44463 = r44455 / r44462;
double r44464 = 0.00390625;
double r44465 = 1.0;
double r44466 = 4.0;
double r44467 = pow(r44452, r44466);
double r44468 = r44465 / r44467;
double r44469 = r44464 * r44468;
double r44470 = 0.015625;
double r44471 = 2.0;
double r44472 = pow(r44452, r44471);
double r44473 = r44465 / r44472;
double r44474 = r44470 * r44473;
double r44475 = 0.0625;
double r44476 = r44474 + r44475;
double r44477 = r44469 + r44476;
double r44478 = r44454 ? r44463 : r44477;
return r44478;
}



Bits error versus i
Results
if i < 1971.7881032423982Initial program 44.9
Simplified0.0
if 1971.7881032423982 < i Initial program 47.8
Simplified32.3
Taylor expanded around inf 0.0
Final simplification0.0
herbie shell --seed 2020089
(FPCore (i)
:name "Octave 3.8, jcobi/4, as called"
:precision binary64
:pre (and (> i 0.0))
(/ (/ (* (* i i) (* i i)) (* (* 2 i) (* 2 i))) (- (* (* 2 i) (* 2 i)) 1)))