(FPCore (x) :precision binary64 (/ (+ x 1.0) (- 1.0 x)))
(FPCore (x) :precision binary64 (/ (+ x 1.0) (- 1.0 x)))
double code(double x) {
return (x + 1.0) / (1.0 - x);
}
double code(double x) {
return (x + 1.0) / (1.0 - x);
}
real(8) function code(x)
real(8), intent (in) :: x
code = (x + 1.0d0) / (1.0d0 - x)
end function
real(8) function code(x)
real(8), intent (in) :: x
code = (x + 1.0d0) / (1.0d0 - x)
end function
public static double code(double x) {
return (x + 1.0) / (1.0 - x);
}
public static double code(double x) {
return (x + 1.0) / (1.0 - x);
}
def code(x): return (x + 1.0) / (1.0 - x)
def code(x): return (x + 1.0) / (1.0 - x)
function code(x) return Float64(Float64(x + 1.0) / Float64(1.0 - x)) end
function code(x) return Float64(Float64(x + 1.0) / Float64(1.0 - x)) end
function tmp = code(x) tmp = (x + 1.0) / (1.0 - x); end
function tmp = code(x) tmp = (x + 1.0) / (1.0 - x); end
code[x_] := N[(N[(x + 1.0), $MachinePrecision] / N[(1.0 - x), $MachinePrecision]), $MachinePrecision]
code[x_] := N[(N[(x + 1.0), $MachinePrecision] / N[(1.0 - x), $MachinePrecision]), $MachinePrecision]
\frac{x + 1}{1 - x}
\frac{x + 1}{1 - x}



Bits error versus x
Results
Initial program 0.0
Final simplification0.0
herbie shell --seed 2022160
(FPCore (x)
:name "Prelude:atanh from fay-base-0.20.0.1"
:precision binary64
(/ (+ x 1.0) (- 1.0 x)))