double f(double a, double b, double c) {
double r2460182 = a;
double r2460183 = b;
double r2460184 = r2460182 + r2460183;
double r2460185 = c;
double r2460186 = r2460184 + r2460185;
double r2460187 = 2.0;
double r2460188 = r2460186 / r2460187;
double r2460189 = r2460188 - r2460182;
double r2460190 = r2460188 * r2460189;
double r2460191 = r2460188 - r2460183;
double r2460192 = r2460190 * r2460191;
double r2460193 = r2460188 - r2460185;
double r2460194 = r2460192 * r2460193;
double r2460195 = sqrt(r2460194);
return r2460195;
}
double f(double a, double b, double c) {
double r2460196 = a;
double r2460197 = b;
double r2460198 = r2460196 + r2460197;
double r2460199 = c;
double r2460200 = r2460198 + r2460199;
double r2460201 = 2.0;
double r2460202 = r2460200 / r2460201;
double r2460203 = r2460202 * r2460202;
double r2460204 = r2460196 * r2460196;
double r2460205 = r2460203 - r2460204;
double r2460206 = r2460202 * r2460205;
double r2460207 = r2460202 - r2460197;
double r2460208 = r2460206 * r2460207;
double r2460209 = r2460202 + r2460196;
double r2460210 = r2460208 / r2460209;
double r2460211 = r2460202 - r2460199;
double r2460212 = r2460210 * r2460211;
double r2460213 = sqrt(r2460212);
return r2460213;
}
\sqrt{\left(\left(\frac{\left(a + b\right) + c}{2} \cdot \left(\frac{\left(a + b\right) + c}{2} - a\right)\right) \cdot \left(\frac{\left(a + b\right) + c}{2} - b\right)\right) \cdot \left(\frac{\left(a + b\right) + c}{2} - c\right)}\sqrt{\frac{\left(\frac{\left(a + b\right) + c}{2} \cdot \left(\frac{\left(a + b\right) + c}{2} \cdot \frac{\left(a + b\right) + c}{2} - a \cdot a\right)\right) \cdot \left(\frac{\left(a + b\right) + c}{2} - b\right)}{\frac{\left(a + b\right) + c}{2} + a} \cdot \left(\frac{\left(a + b\right) + c}{2} - c\right)}


Bits error versus a



Bits error versus b



Bits error versus c
Initial program 0.2
rmApplied p16-flip--0.2
Applied associate-*r/0.2
Applied associate-*l/0.2
Final simplification0.2
herbie shell --seed 2019101 +o rules:numerics
(FPCore (a b c)
:name "Area of a triangle"
:pre (and (<.p16 (real->posit16 0) a) (<.p16 (real->posit16 0) b) (<.p16 (real->posit16 0) c))
(sqrt.p16 (*.p16 (*.p16 (*.p16 (/.p16 (+.p16 (+.p16 a b) c) (real->posit16 2)) (-.p16 (/.p16 (+.p16 (+.p16 a b) c) (real->posit16 2)) a)) (-.p16 (/.p16 (+.p16 (+.p16 a b) c) (real->posit16 2)) b)) (-.p16 (/.p16 (+.p16 (+.p16 a b) c) (real->posit16 2)) c))))