\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}{\frac{i}{i}}}}{2 \cdot i + 1.0} \cdot \frac{\frac{i}{\frac{2}{\frac{i}{i}}}}{2 \cdot i - 1.0}double f(double i) {
double r1390089 = i;
double r1390090 = r1390089 * r1390089;
double r1390091 = r1390090 * r1390090;
double r1390092 = 2.0;
double r1390093 = /* ERROR: no posit support in C */;
double r1390094 = r1390093 * r1390089;
double r1390095 = r1390094 * r1390094;
double r1390096 = r1390091 / r1390095;
double r1390097 = 1.0;
double r1390098 = /* ERROR: no posit support in C */;
double r1390099 = r1390095 - r1390098;
double r1390100 = r1390096 / r1390099;
return r1390100;
}
double f(double i) {
double r1390101 = i;
double r1390102 = 2.0;
double r1390103 = r1390101 / r1390101;
double r1390104 = r1390102 / r1390103;
double r1390105 = r1390101 / r1390104;
double r1390106 = r1390102 * r1390101;
double r1390107 = 1.0;
double r1390108 = r1390106 + r1390107;
double r1390109 = r1390105 / r1390108;
double r1390110 = r1390106 - r1390107;
double r1390111 = r1390105 / r1390110;
double r1390112 = r1390109 * r1390111;
return r1390112;
}



Bits error versus i
Initial program 2.4
rmApplied associate-/l*1.0
rmApplied difference-of-sqr-11.0
Applied p16-times-frac0.8
Applied p16-times-frac0.9
Applied p16-times-frac0.5
rmApplied associate-/l*0.4
rmApplied associate-/l*0.4
Final simplification0.4
herbie shell --seed 2019112 +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))))