\sqrt{0.5 \cdot \left(1 + \frac{x}{\sqrt{\left(4 \cdot p\right) \cdot p + x \cdot x}}\right)}\sqrt{0.5 \cdot \sqrt[3]{{\left(1 + \sqrt[3]{\left(x \cdot x\right) \cdot {\left(\frac{\sqrt[3]{x}}{\sqrt{\left(4 \cdot p\right) \cdot p + x \cdot x}}\right)}^{3}}\right)}^{3}}}double f(double p, double x) {
double r512058 = 0.5;
double r512059 = 1.0;
double r512060 = x;
double r512061 = 4.0;
double r512062 = p;
double r512063 = r512061 * r512062;
double r512064 = r512063 * r512062;
double r512065 = r512060 * r512060;
double r512066 = r512064 + r512065;
double r512067 = sqrt(r512066);
double r512068 = r512060 / r512067;
double r512069 = r512059 + r512068;
double r512070 = r512058 * r512069;
double r512071 = sqrt(r512070);
return r512071;
}
double f(double p, double x) {
double r512072 = 0.5;
double r512073 = 1.0;
double r512074 = x;
double r512075 = r512074 * r512074;
double r512076 = cbrt(r512074);
double r512077 = 4.0;
double r512078 = p;
double r512079 = r512077 * r512078;
double r512080 = r512079 * r512078;
double r512081 = r512080 + r512075;
double r512082 = sqrt(r512081);
double r512083 = r512076 / r512082;
double r512084 = 3.0;
double r512085 = pow(r512083, r512084);
double r512086 = r512075 * r512085;
double r512087 = cbrt(r512086);
double r512088 = r512073 + r512087;
double r512089 = pow(r512088, r512084);
double r512090 = cbrt(r512089);
double r512091 = r512072 * r512090;
double r512092 = sqrt(r512091);
return r512092;
}




Bits error versus p




Bits error versus x
Results
| Original | 13.6 |
|---|---|
| Target | 13.6 |
| Herbie | 14.0 |
Initial program 13.6
rmApplied add-cbrt-cube19.5
Applied add-cbrt-cube22.5
Applied cbrt-undiv22.5
Simplified13.6
rmApplied *-un-lft-identity13.6
Applied sqrt-prod13.6
Applied add-cube-cbrt14.7
Applied times-frac14.7
Applied unpow-prod-down14.9
Simplified14.0
rmApplied add-cbrt-cube14.0
Simplified14.0
Final simplification14.0
herbie shell --seed 2020046 +o rules:numerics
(FPCore (p x)
:name "Given's Rotation SVD example"
:precision binary64
:pre (< 1e-150 (fabs x) 1e+150)
:herbie-target
(sqrt (+ 0.5 (/ (copysign 0.5 x) (hypot 1 (/ (* 2 p) x)))))
(sqrt (* 0.5 (+ 1 (/ x (sqrt (+ (* (* 4 p) p) (* x x))))))))