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



Bits error versus x
Results
Initial program 0.0
Applied frac-2neg_binary640.0
Simplified0.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2022131
(FPCore (x)
:name "Hyperbolic secant"
:precision binary64
(/ 2.0 (+ (exp x) (exp (- x)))))