\log \left(x + \sqrt{x \cdot x - 1}\right)\log \left(x + \left(\sqrt{x + \sqrt{1}} \cdot \left(\sqrt[3]{\sqrt{x - \sqrt{1}}} \cdot \sqrt[3]{\sqrt{x - \sqrt{1}}}\right)\right) \cdot \sqrt[3]{\sqrt{x - \sqrt{1}}}\right)double f(double x) {
double r3147152 = x;
double r3147153 = r3147152 * r3147152;
double r3147154 = 1.0;
double r3147155 = r3147153 - r3147154;
double r3147156 = sqrt(r3147155);
double r3147157 = r3147152 + r3147156;
double r3147158 = log(r3147157);
return r3147158;
}
double f(double x) {
double r3147159 = x;
double r3147160 = 1.0;
double r3147161 = sqrt(r3147160);
double r3147162 = r3147159 + r3147161;
double r3147163 = sqrt(r3147162);
double r3147164 = r3147159 - r3147161;
double r3147165 = sqrt(r3147164);
double r3147166 = cbrt(r3147165);
double r3147167 = r3147166 * r3147166;
double r3147168 = r3147163 * r3147167;
double r3147169 = r3147168 * r3147166;
double r3147170 = r3147159 + r3147169;
double r3147171 = log(r3147170);
return r3147171;
}



Bits error versus x
Results
Initial program 31.6
rmApplied add-sqr-sqrt31.6
Applied difference-of-squares31.6
Applied sqrt-prod0.0
rmApplied add-cube-cbrt0.1
Applied associate-*r*0.1
Final simplification0.1
herbie shell --seed 2019172
(FPCore (x)
:name "Hyperbolic arc-cosine"
(log (+ x (sqrt (- (* x x) 1.0)))))