\log \left(\frac{1}{x} + \frac{\sqrt{1 - x \cdot x}}{x}\right)\log \left(\frac{1}{x} + \left(\sqrt[3]{\sqrt{1 - x \cdot x}} \cdot \sqrt[3]{\sqrt{1 - x \cdot x}}\right) \cdot \frac{\sqrt[3]{\sqrt{1 - x \cdot x}}}{x}\right)double f(double x) {
double r52875 = 1.0;
double r52876 = x;
double r52877 = r52875 / r52876;
double r52878 = r52876 * r52876;
double r52879 = r52875 - r52878;
double r52880 = sqrt(r52879);
double r52881 = r52880 / r52876;
double r52882 = r52877 + r52881;
double r52883 = log(r52882);
return r52883;
}
double f(double x) {
double r52884 = 1.0;
double r52885 = x;
double r52886 = r52884 / r52885;
double r52887 = r52885 * r52885;
double r52888 = r52884 - r52887;
double r52889 = sqrt(r52888);
double r52890 = cbrt(r52889);
double r52891 = r52890 * r52890;
double r52892 = r52890 / r52885;
double r52893 = r52891 * r52892;
double r52894 = r52886 + r52893;
double r52895 = log(r52894);
return r52895;
}



Bits error versus x
Results
Initial program 0.0
rmApplied *-un-lft-identity0.0
Applied add-cube-cbrt0.0
Applied times-frac0.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2019353 +o rules:numerics
(FPCore (x)
:name "Hyperbolic arc-(co)secant"
:precision binary64
(log (+ (/ 1 x) (/ (sqrt (- 1 (* x x))) x))))