\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 r1868128 = i;
double r1868129 = r1868128 * r1868128;
double r1868130 = r1868129 * r1868129;
double r1868131 = 2.0;
double r1868132 = /* ERROR: no posit support in C */;
double r1868133 = r1868132 * r1868128;
double r1868134 = r1868133 * r1868133;
double r1868135 = r1868130 / r1868134;
double r1868136 = 1.0;
double r1868137 = /* ERROR: no posit support in C */;
double r1868138 = r1868134 - r1868137;
double r1868139 = r1868135 / r1868138;
return r1868139;
}
double f(double i) {
double r1868140 = i;
double r1868141 = 2.0;
double r1868142 = r1868141 * r1868140;
double r1868143 = 1.0;
double r1868144 = r1868142 - r1868143;
double r1868145 = r1868140 / r1868141;
double r1868146 = r1868144 / r1868145;
double r1868147 = r1868146 * r1868141;
double r1868148 = r1868140 / r1868147;
double r1868149 = r1868142 + r1868143;
double r1868150 = r1868148 / r1868149;
return r1868150;
}



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 +o rules:numerics
(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))))