1 - \sqrt{0.5 \cdot \left(1 + \frac{1}{\mathsf{hypot}\left(1, x\right)}\right)}\left(\sqrt{\frac{1 \cdot \left(1 - 0.5\right)}{1 + \sqrt{0.5 \cdot \left(1 + \frac{1}{\mathsf{hypot}\left(1, x\right)}\right)}}} + \sqrt{\frac{0.5 \cdot \frac{1}{\mathsf{hypot}\left(1, x\right)}}{1 + \sqrt{0.5 \cdot \left(1 + \frac{1}{\mathsf{hypot}\left(1, x\right)}\right)}}}\right) \cdot e^{\log \left(\sqrt{\frac{1 \cdot \left(1 - 0.5\right)}{1 + \sqrt{0.5 \cdot \left(1 + \frac{1}{\mathsf{hypot}\left(1, x\right)}\right)}}} - \sqrt{\frac{0.5 \cdot \frac{1}{\mathsf{hypot}\left(1, x\right)}}{1 + \sqrt{0.5 \cdot \left(1 + \frac{1}{\mathsf{hypot}\left(1, x\right)}\right)}}}\right)}double code(double x) {
return ((double) (1.0 - ((double) sqrt(((double) (0.5 * ((double) (1.0 + ((double) (1.0 / ((double) hypot(1.0, x))))))))))));
}
double code(double x) {
return ((double) (((double) (((double) sqrt(((double) (((double) (1.0 * ((double) (1.0 - 0.5)))) / ((double) (1.0 + ((double) sqrt(((double) (0.5 * ((double) (1.0 + ((double) (1.0 / ((double) hypot(1.0, x)))))))))))))))) + ((double) sqrt(((double) (((double) (0.5 * ((double) (1.0 / ((double) hypot(1.0, x)))))) / ((double) (1.0 + ((double) sqrt(((double) (0.5 * ((double) (1.0 + ((double) (1.0 / ((double) hypot(1.0, x)))))))))))))))))) * ((double) exp(((double) log(((double) (((double) sqrt(((double) (((double) (1.0 * ((double) (1.0 - 0.5)))) / ((double) (1.0 + ((double) sqrt(((double) (0.5 * ((double) (1.0 + ((double) (1.0 / ((double) hypot(1.0, x)))))))))))))))) - ((double) sqrt(((double) (((double) (0.5 * ((double) (1.0 / ((double) hypot(1.0, x)))))) / ((double) (1.0 + ((double) sqrt(((double) (0.5 * ((double) (1.0 + ((double) (1.0 / ((double) hypot(1.0, x))))))))))))))))))))))));
}



Bits error versus x
Results
Initial program 15.7
rmApplied flip--15.7
Simplified15.2
rmApplied div-sub15.2
rmApplied add-sqr-sqrt15.2
Applied add-sqr-sqrt15.2
Applied difference-of-squares15.2
rmApplied add-exp-log15.2
Final simplification15.2
herbie shell --seed 2020168
(FPCore (x)
:name "Given's Rotation SVD example, simplified"
:precision binary64
(- 1.0 (sqrt (* 0.5 (+ 1.0 (/ 1.0 (hypot 1.0 x)))))))