(FPCore (x) :precision binary64 (log (+ (/ 1.0 x) (/ (sqrt (- 1.0 (* x x))) x))))
(FPCore (x) :precision binary64 (* 2.0 (log (/ (sqrt (fma x (sqrt (- 1.0 (* x x))) x)) x))))
double code(double x) {
return log(((1.0 / x) + (sqrt((1.0 - (x * x))) / x)));
}
double code(double x) {
return 2.0 * log((sqrt(fma(x, sqrt((1.0 - (x * x))), x)) / x));
}
function code(x) return log(Float64(Float64(1.0 / x) + Float64(sqrt(Float64(1.0 - Float64(x * x))) / x))) end
function code(x) return Float64(2.0 * log(Float64(sqrt(fma(x, sqrt(Float64(1.0 - Float64(x * x))), x)) / x))) end
code[x_] := N[Log[N[(N[(1.0 / x), $MachinePrecision] + N[(N[Sqrt[N[(1.0 - N[(x * x), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / x), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]
code[x_] := N[(2.0 * N[Log[N[(N[Sqrt[N[(x * N[Sqrt[N[(1.0 - N[(x * x), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] + x), $MachinePrecision]], $MachinePrecision] / x), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\log \left(\frac{1}{x} + \frac{\sqrt{1 - x \cdot x}}{x}\right)
2 \cdot \log \left(\frac{\sqrt{\mathsf{fma}\left(x, \sqrt{1 - x \cdot x}, x\right)}}{x}\right)
Initial program 0.0
Applied egg-rr0.0
Final simplification0.0
herbie shell --seed 2022209
(FPCore (x)
:name "Hyperbolic arc-(co)secant"
:precision binary64
(log (+ (/ 1.0 x) (/ (sqrt (- 1.0 (* x x))) x))))