(FPCore (x) :precision binary64 (log (+ x (sqrt (- (* x x) 1.0)))))
(FPCore (x) :precision binary64 (log (+ (/ -0.5 x) (fma x 2.0 (/ -0.125 (pow x 3.0))))))
double code(double x) {
return log((x + sqrt(((x * x) - 1.0))));
}
double code(double x) {
return log(((-0.5 / x) + fma(x, 2.0, (-0.125 / pow(x, 3.0)))));
}
function code(x) return log(Float64(x + sqrt(Float64(Float64(x * x) - 1.0)))) end
function code(x) return log(Float64(Float64(-0.5 / x) + fma(x, 2.0, Float64(-0.125 / (x ^ 3.0))))) end
code[x_] := N[Log[N[(x + N[Sqrt[N[(N[(x * x), $MachinePrecision] - 1.0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]
code[x_] := N[Log[N[(N[(-0.5 / x), $MachinePrecision] + N[(x * 2.0 + N[(-0.125 / N[Power[x, 3.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]
\log \left(x + \sqrt{x \cdot x - 1}\right)
\log \left(\frac{-0.5}{x} + \mathsf{fma}\left(x, 2, \frac{-0.125}{{x}^{3}}\right)\right)
Initial program 31.8
Simplified31.8
Taylor expanded in x around inf 0.2
Simplified0.2
Final simplification0.2
herbie shell --seed 2022210
(FPCore (x)
:name "Hyperbolic arc-cosine"
:precision binary64
(log (+ x (sqrt (- (* x x) 1.0)))))