\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}{\frac{2 \cdot i - 1.0}{\frac{i}{2}} \cdot 2}}{2 \cdot i + 1.0}double f(double i) {
double r1810939 = i;
double r1810940 = r1810939 * r1810939;
double r1810941 = r1810940 * r1810940;
double r1810942 = 2.0;
double r1810943 = /* ERROR: no posit support in C */;
double r1810944 = r1810943 * r1810939;
double r1810945 = r1810944 * r1810944;
double r1810946 = r1810941 / r1810945;
double r1810947 = 1.0;
double r1810948 = /* ERROR: no posit support in C */;
double r1810949 = r1810945 - r1810948;
double r1810950 = r1810946 / r1810949;
return r1810950;
}
double f(double i) {
double r1810951 = i;
double r1810952 = 2.0;
double r1810953 = r1810952 * r1810951;
double r1810954 = 1.0;
double r1810955 = r1810953 - r1810954;
double r1810956 = r1810951 / r1810952;
double r1810957 = r1810955 / r1810956;
double r1810958 = r1810957 * r1810952;
double r1810959 = r1810951 / r1810958;
double r1810960 = r1810953 + r1810954;
double r1810961 = r1810959 / r1810960;
return r1810961;
}



Bits error versus i
Initial program 2.4
rmApplied difference-of-sqr-12.4
Applied p16-times-frac1.0
Applied p16-times-frac1.0
rmApplied associate-*l/1.0
Simplified0.6
rmApplied associate-/l*0.4
rmApplied associate-/l/0.4
Final simplification0.4
herbie shell --seed 2019107
(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))))