\frac{\left(\frac{\left(\left(i \cdot i\right) \cdot \left(i \cdot i\right)\right)}{\left(\left(\left(2\right) \cdot i\right) \cdot \left(\left(2\right) \cdot i\right)\right)}\right)}{\left(\left(\left(\left(2\right) \cdot i\right) \cdot \left(\left(2\right) \cdot i\right)\right) - \left(1.0\right)\right)}\frac{\frac{i}{2} \cdot \frac{\frac{i}{2}}{i \cdot 2 - 1.0}}{i \cdot 2 + 1.0}double f(double i) {
double r1740053 = i;
double r1740054 = r1740053 * r1740053;
double r1740055 = r1740054 * r1740054;
double r1740056 = 2.0;
double r1740057 = /* ERROR: no posit support in C */;
double r1740058 = r1740057 * r1740053;
double r1740059 = r1740058 * r1740058;
double r1740060 = r1740055 / r1740059;
double r1740061 = 1.0;
double r1740062 = /* ERROR: no posit support in C */;
double r1740063 = r1740059 - r1740062;
double r1740064 = r1740060 / r1740063;
return r1740064;
}
double f(double i) {
double r1740065 = i;
double r1740066 = 2.0;
double r1740067 = r1740065 / r1740066;
double r1740068 = r1740065 * r1740066;
double r1740069 = 1.0;
double r1740070 = r1740068 - r1740069;
double r1740071 = r1740067 / r1740070;
double r1740072 = r1740067 * r1740071;
double r1740073 = r1740068 + r1740069;
double r1740074 = r1740072 / r1740073;
return r1740074;
}



Bits error versus i
Initial program 2.3
Simplified2.3
rmApplied p16-times-frac1.2
rmApplied associate-*r/1.2
Applied associate-*l/1.1
Simplified0.9
rmApplied difference-of-sqr-10.8
Applied p16-times-frac0.4
rmApplied associate-*l/0.4
Final simplification0.4
herbie shell --seed 2019124
(FPCore (i)
:name "Octave 3.8, jcobi/4, as called"
:pre (and (>.p16 i (real->posit16 0)))
(/.p16 (/.p16 (*.p16 (*.p16 i i) (*.p16 i i)) (*.p16 (*.p16 (real->posit16 2) i) (*.p16 (real->posit16 2) i))) (-.p16 (*.p16 (*.p16 (real->posit16 2) i) (*.p16 (real->posit16 2) i)) (real->posit16 1.0))))