\left(\left(x \cdot y + \frac{z \cdot t}{16}\right) - \frac{a \cdot b}{4}\right) + c\left(\left(x \cdot y + \frac{z}{\sqrt{16}} \cdot \frac{t}{\sqrt{16}}\right) - \frac{1}{\frac{4}{a \cdot b}}\right) + cdouble f(double x, double y, double z, double t, double a, double b, double c) {
double r224227 = x;
double r224228 = y;
double r224229 = r224227 * r224228;
double r224230 = z;
double r224231 = t;
double r224232 = r224230 * r224231;
double r224233 = 16.0;
double r224234 = r224232 / r224233;
double r224235 = r224229 + r224234;
double r224236 = a;
double r224237 = b;
double r224238 = r224236 * r224237;
double r224239 = 4.0;
double r224240 = r224238 / r224239;
double r224241 = r224235 - r224240;
double r224242 = c;
double r224243 = r224241 + r224242;
return r224243;
}
double f(double x, double y, double z, double t, double a, double b, double c) {
double r224244 = x;
double r224245 = y;
double r224246 = r224244 * r224245;
double r224247 = z;
double r224248 = 16.0;
double r224249 = sqrt(r224248);
double r224250 = r224247 / r224249;
double r224251 = t;
double r224252 = r224251 / r224249;
double r224253 = r224250 * r224252;
double r224254 = r224246 + r224253;
double r224255 = 1.0;
double r224256 = 4.0;
double r224257 = a;
double r224258 = b;
double r224259 = r224257 * r224258;
double r224260 = r224256 / r224259;
double r224261 = r224255 / r224260;
double r224262 = r224254 - r224261;
double r224263 = c;
double r224264 = r224262 + r224263;
return r224264;
}



Bits error versus x



Bits error versus y



Bits error versus z



Bits error versus t



Bits error versus a



Bits error versus b



Bits error versus c
Results
Initial program 0.1
rmApplied add-sqr-sqrt0.1
Applied times-frac0.1
rmApplied clear-num0.1
Final simplification0.1
herbie shell --seed 2019303
(FPCore (x y z t a b c)
:name "Diagrams.Solve.Polynomial:quartForm from diagrams-solve-0.1, C"
:precision binary64
(+ (- (+ (* x y) (/ (* z t) 16)) (/ (* a b) 4)) c))