\frac{e^{\frac{-\left|x\right|}{s}}}{\left(s \cdot \left(1 + e^{\frac{-\left|x\right|}{s}}\right)\right) \cdot \left(1 + e^{\frac{-\left|x\right|}{s}}\right)}
\begin{array}{l}
t_0 := e^{\frac{\left|x\right|}{s}}\\
\frac{1}{2 \cdot s + \left(\frac{s}{t_0} + s \cdot \mathsf{expm1}\left(\mathsf{log1p}\left(t_0\right)\right)\right)}
\end{array}
(FPCore (x s) :precision binary32 (/ (exp (/ (- (fabs x)) s)) (* (* s (+ 1.0 (exp (/ (- (fabs x)) s)))) (+ 1.0 (exp (/ (- (fabs x)) s))))))
(FPCore (x s) :precision binary32 (let* ((t_0 (exp (/ (fabs x) s)))) (/ 1.0 (+ (* 2.0 s) (+ (/ s t_0) (* s (expm1 (log1p t_0))))))))
float code(float x, float s) {
return expf(-fabsf(x) / s) / ((s * (1.0f + expf(-fabsf(x) / s))) * (1.0f + expf(-fabsf(x) / s)));
}
float code(float x, float s) {
float t_0 = expf(fabsf(x) / s);
return 1.0f / ((2.0f * s) + ((s / t_0) + (s * expm1f(log1pf(t_0)))));
}



Bits error versus x



Bits error versus s
Results
Initial program 0.1
Simplified0.2
Taylor expanded in s around 0 0.1
Simplified0.1
Taylor expanded in x around 0 0.1
Applied expm1-log1p-u_binary320.1
Final simplification0.1
herbie shell --seed 2021280
(FPCore (x s)
:name "Logistic distribution"
:precision binary32
:pre (and (<= 0.0 s) (<= s 1.0651631))
(/ (exp (/ (- (fabs x)) s)) (* (* s (+ 1.0 (exp (/ (- (fabs x)) s)))) (+ 1.0 (exp (/ (- (fabs x)) s))))))