x - \frac{y}{1 + \frac{x \cdot y}{2}}x - \frac{y}{1 + \frac{x \cdot y}{2}}double f(double x, double y) {
double r195125 = x;
double r195126 = y;
double r195127 = 1.0;
double r195128 = r195125 * r195126;
double r195129 = 2.0;
double r195130 = r195128 / r195129;
double r195131 = r195127 + r195130;
double r195132 = r195126 / r195131;
double r195133 = r195125 - r195132;
return r195133;
}
double f(double x, double y) {
double r195134 = x;
double r195135 = y;
double r195136 = 1.0;
double r195137 = r195134 * r195135;
double r195138 = 2.0;
double r195139 = r195137 / r195138;
double r195140 = r195136 + r195139;
double r195141 = r195135 / r195140;
double r195142 = r195134 - r195141;
return r195142;
}



Bits error versus x



Bits error versus y
Results
Initial program 0.0
Final simplification0.0
herbie shell --seed 2020027
(FPCore (x y)
:name "Data.Number.Erf:$cinvnormcdf from erf-2.0.0.0, B"
:precision binary64
(- x (/ y (+ 1 (/ (* x y) 2)))))