Logistic distribution

Average Error: 0.2 → 0.1

Time: 13.0s

Precision: binary32

Cost: 6848

\[0 \leq s \land s \leq 1.0651631\]

Math

\[\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)} \]

↓

\[\frac{\frac{1}{2 + \left(e^{\frac{x}{s}} + e^{\frac{-x}{s}}\right)}}{s} \]

FPCore

(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
 (/ (/ 1.0 (+ 2.0 (+ (exp (/ x s)) (exp (/ (- x) s))))) s))

C

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) {
	return (1.0f / (2.0f + (expf((x / s)) + expf((-x / s))))) / s;
}

Fortran

real(4) function code(x, s)
    real(4), intent (in) :: x
    real(4), intent (in) :: s
    code = exp((-abs(x) / s)) / ((s * (1.0e0 + exp((-abs(x) / s)))) * (1.0e0 + exp((-abs(x) / s))))
end function

↓

real(4) function code(x, s)
    real(4), intent (in) :: x
    real(4), intent (in) :: s
    code = (1.0e0 / (2.0e0 + (exp((x / s)) + exp((-x / s))))) / s
end function

Julia

function code(x, s)
	return Float32(exp(Float32(Float32(-abs(x)) / s)) / Float32(Float32(s * Float32(Float32(1.0) + exp(Float32(Float32(-abs(x)) / s)))) * Float32(Float32(1.0) + exp(Float32(Float32(-abs(x)) / s)))))
end

↓

function code(x, s)
	return Float32(Float32(Float32(1.0) / Float32(Float32(2.0) + Float32(exp(Float32(x / s)) + exp(Float32(Float32(-x) / s))))) / s)
end

MATLAB

function tmp = code(x, s)
	tmp = exp((-abs(x) / s)) / ((s * (single(1.0) + exp((-abs(x) / s)))) * (single(1.0) + exp((-abs(x) / s))));
end

↓

function tmp = code(x, s)
	tmp = (single(1.0) / (single(2.0) + (exp((x / s)) + exp((-x / s))))) / s;
end

Derivation

1. Initial program 0.2

   \[\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)} \]

2. Simplified 0.2

   \[\leadsto \color{blue}{\frac{\frac{1}{s}}{e^{\frac{\left|x\right|}{-s}} + \left(e^{\frac{\left|x\right|}{s}} + 2\right)}} \]
   Proof
   (/.f32 (/.f32 1 s) (+.f32 (exp.f32 (/.f32 (fabs.f32 x) (neg.f32 s))) (+.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) 2))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (exp.f32 (/.f32 (fabs.f32 x) (Rewrite<= mul-1-neg_binary32 (*.f32 -1 s)))) (+.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) 2))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (exp.f32 (Rewrite=> associate-/r*_binary32 (/.f32 (/.f32 (fabs.f32 x) -1) s))) (+.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) 2))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (exp.f32 (/.f32 (/.f32 (fabs.f32 x) (Rewrite<= metadata-eval (/.f32 1 -1))) s)) (+.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) 2))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (exp.f32 (/.f32 (Rewrite<= associate-/l*_binary32 (/.f32 (*.f32 (fabs.f32 x) -1) 1)) s)) (+.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) 2))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (exp.f32 (/.f32 (/.f32 (Rewrite<= *-commutative_binary32 (*.f32 -1 (fabs.f32 x))) 1) s)) (+.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) 2))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (exp.f32 (/.f32 (/.f32 (Rewrite<= neg-mul-1_binary32 (neg.f32 (fabs.f32 x))) 1) s)) (+.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) 2))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (exp.f32 (/.f32 (Rewrite=> /-rgt-identity_binary32 (neg.f32 (fabs.f32 x))) s)) (+.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) 2))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (exp.f32 (Rewrite<= +-lft-identity_binary32 (+.f32 0 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (+.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) 2))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (exp.f32 (+.f32 (Rewrite<= +-inverses_binary32 (-.f32 (/.f32 (fabs.f32 x) s) (/.f32 (fabs.f32 x) s))) (/.f32 (neg.f32 (fabs.f32 x)) s))) (+.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) 2))): 63 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (exp.f32 (+.f32 (Rewrite<= unsub-neg_binary32 (+.f32 (/.f32 (fabs.f32 x) s) (neg.f32 (/.f32 (fabs.f32 x) s)))) (/.f32 (neg.f32 (fabs.f32 x)) s))) (+.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) 2))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (exp.f32 (+.f32 (+.f32 (/.f32 (fabs.f32 x) s) (Rewrite<= distribute-frac-neg_binary32 (/.f32 (neg.f32 (fabs.f32 x)) s))) (/.f32 (neg.f32 (fabs.f32 x)) s))) (+.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) 2))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (exp.f32 (Rewrite<= associate-+r+_binary32 (+.f32 (/.f32 (fabs.f32 x) s) (+.f32 (/.f32 (neg.f32 (fabs.f32 x)) s) (/.f32 (neg.f32 (fabs.f32 x)) s))))) (+.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) 2))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (Rewrite<= prod-exp_binary32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (exp.f32 (+.f32 (/.f32 (neg.f32 (fabs.f32 x)) s) (/.f32 (neg.f32 (fabs.f32 x)) s))))) (+.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) 2))): 130 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (Rewrite<= prod-exp_binary32 (*.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))))) (+.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) 2))): 0 points increase in error, 1 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (*.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (+.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (Rewrite<= metadata-eval (+.f32 1 1))))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (*.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (Rewrite<= associate-+l+_binary32 (+.f32 (+.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) 1) 1)))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (*.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (+.f32 (+.f32 (Rewrite<= *-rgt-identity_binary32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) 1)) 1) 1))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (*.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (+.f32 (+.f32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) 1) (Rewrite<= rgt-mult-inverse_binary32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (/.f32 1 (exp.f32 (/.f32 (fabs.f32 x) s)))))) 1))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (*.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (+.f32 (+.f32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) 1) (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (Rewrite<= exp-neg_binary32 (exp.f32 (neg.f32 (/.f32 (fabs.f32 x) s)))))) 1))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (*.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (+.f32 (+.f32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) 1) (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (exp.f32 (Rewrite<= distribute-frac-neg_binary32 (/.f32 (neg.f32 (fabs.f32 x)) s))))) 1))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (*.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (+.f32 (Rewrite<= distribute-lft-in_binary32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))))) 1))): 3 points increase in error, 1 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (*.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (+.f32 (Rewrite<= *-commutative_binary32 (*.f32 (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))) (exp.f32 (/.f32 (fabs.f32 x) s)))) 1))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (*.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (+.f32 (Rewrite=> *-commutative_binary32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))))) 1))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (*.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (+.f32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (Rewrite<= rgt-mult-inverse_binary32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (/.f32 1 (exp.f32 (/.f32 (fabs.f32 x) s)))))))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (*.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (+.f32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (Rewrite<= exp-neg_binary32 (exp.f32 (neg.f32 (/.f32 (fabs.f32 x) s)))))))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (*.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (+.f32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (exp.f32 (Rewrite<= distribute-frac-neg_binary32 (/.f32 (neg.f32 (fabs.f32 x)) s))))))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (+.f32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (*.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (Rewrite<= distribute-lft-in_binary32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (+.f32 (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))))))): 3 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (Rewrite<= distribute-lft-in_binary32 (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (+.f32 (*.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))) (+.f32 (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))))))): 1 points increase in error, 192 points decrease in error
   (/.f32 (/.f32 1 s) (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (Rewrite=> +-commutative_binary32 (+.f32 (+.f32 (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))) (*.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))))))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (Rewrite<= associate-+r+_binary32 (+.f32 (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))) (+.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (*.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))))))): 4 points increase in error, 4 points decrease in error
   (/.f32 (/.f32 1 s) (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (+.f32 (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))) (+.f32 (Rewrite<= *-rgt-identity_binary32 (*.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) 1)) (*.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))))))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (+.f32 (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))) (Rewrite<= distribute-lft-in_binary32 (*.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))))))): 3 points increase in error, 4 points decrease in error
   (/.f32 (/.f32 1 s) (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (Rewrite=> distribute-rgt1-in_binary32 (*.f32 (+.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) 1) (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))))))): 2 points increase in error, 1 points decrease in error
   (/.f32 (/.f32 1 s) (*.f32 (exp.f32 (/.f32 (fabs.f32 x) s)) (*.f32 (Rewrite<= +-commutative_binary32 (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (Rewrite<= *-commutative_binary32 (*.f32 (*.f32 (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))) (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (exp.f32 (/.f32 (fabs.f32 x) s))))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (*.f32 (Rewrite<= /-rgt-identity_binary32 (/.f32 (*.f32 (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))) (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) 1)) (exp.f32 (/.f32 (fabs.f32 x) s)))): 0 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (Rewrite<= associate-/r/_binary32 (/.f32 (*.f32 (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))) (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (/.f32 1 (exp.f32 (/.f32 (fabs.f32 x) s)))))): 2 points increase in error, 0 points decrease in error
   (/.f32 (/.f32 1 s) (/.f32 (*.f32 (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))) (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (Rewrite<= exp-neg_binary32 (exp.f32 (neg.f32 (/.f32 (fabs.f32 x) s)))))): 8 points increase in error, 1 points decrease in error
   (/.f32 (/.f32 1 s) (/.f32 (*.f32 (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))) (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (exp.f32 (Rewrite<= distribute-frac-neg_binary32 (/.f32 (neg.f32 (fabs.f32 x)) s))))): 0 points increase in error, 0 points decrease in error
   (Rewrite<= associate-/l*_binary32 (/.f32 (*.f32 (/.f32 1 s) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))) (*.f32 (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))) (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))))): 0 points increase in error, 9 points decrease in error
   (Rewrite=> times-frac_binary32 (*.f32 (/.f32 (/.f32 1 s) (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (/.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))))): 3 points increase in error, 4 points decrease in error
   (*.f32 (Rewrite<= associate-/r*_binary32 (/.f32 1 (*.f32 s (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))))) (/.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))))): 2 points increase in error, 4 points decrease in error
   (Rewrite<= times-frac_binary32 (/.f32 (*.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))) (*.f32 (*.f32 s (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))))): 3 points increase in error, 6 points decrease in error
   (Rewrite<= associate-*r/_binary32 (*.f32 1 (/.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (*.f32 (*.f32 s (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))))))): 0 points increase in error, 0 points decrease in error
   (Rewrite=> *-lft-identity_binary32 (/.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (*.f32 (*.f32 s (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (+.f32 1 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))))): 0 points increase in error, 0 points decrease in error

3. Applied egg-rr 4.2

   \[\leadsto \color{blue}{{\left({\left(\frac{1}{s \cdot \left(2 + 2 \cdot \cosh \left(\frac{x}{s}\right)\right)}\right)}^{3}\right)}^{0.3333333333333333}} \]

4. Applied egg-rr 0.1

   \[\leadsto \color{blue}{\frac{\frac{1}{\mathsf{fma}\left(2, \cosh \left(\frac{x}{s}\right), 2\right)}}{s}} \]

5. Taylor expanded in x around inf 0.1

   \[\leadsto \frac{\frac{1}{\color{blue}{e^{\frac{x}{s}} + \left(2 + \frac{1}{e^{\frac{x}{s}}}\right)}}}{s} \]

6. Simplified 0.1

   \[\leadsto \frac{\frac{1}{\color{blue}{2 + \left(e^{\frac{x}{s}} + e^{\frac{-x}{s}}\right)}}}{s} \]
   Proof
   (+.f32 2 (+.f32 (exp.f32 (/.f32 x s)) (exp.f32 (/.f32 (neg.f32 x) s)))): 0 points increase in error, 0 points decrease in error
   (+.f32 2 (+.f32 (exp.f32 (/.f32 x s)) (exp.f32 (Rewrite<= distribute-neg-frac_binary32 (neg.f32 (/.f32 x s)))))): 0 points increase in error, 0 points decrease in error
   (+.f32 2 (+.f32 (exp.f32 (/.f32 x s)) (Rewrite<= rec-exp_binary32 (/.f32 1 (exp.f32 (/.f32 x s)))))): 0 points increase in error, 1 points decrease in error
   (Rewrite<= associate-+l+_binary32 (+.f32 (+.f32 2 (exp.f32 (/.f32 x s))) (/.f32 1 (exp.f32 (/.f32 x s))))): 1 points increase in error, 1 points decrease in error
   (+.f32 (Rewrite<= +-commutative_binary32 (+.f32 (exp.f32 (/.f32 x s)) 2)) (/.f32 1 (exp.f32 (/.f32 x s)))): 0 points increase in error, 0 points decrease in error
   (Rewrite<= associate-+r+_binary32 (+.f32 (exp.f32 (/.f32 x s)) (+.f32 2 (/.f32 1 (exp.f32 (/.f32 x s)))))): 0 points increase in error, 2 points decrease in error

7. Final simplification 0.1

   \[\leadsto \frac{\frac{1}{2 + \left(e^{\frac{x}{s}} + e^{\frac{-x}{s}}\right)}}{s} \]

Alternatives

Alternative 1
Error	2.5
Cost	3624

\[\begin{array}{l} \mathbf{if}\;x \leq -0.03999999910593033:\\ \;\;\;\;\left(1 + \frac{s}{x \cdot x}\right) + -1\\ \mathbf{elif}\;x \leq -1.9999999996399175 \cdot 10^{-23}:\\ \;\;\;\;\frac{1}{s \cdot \left(\frac{1}{s \cdot s} \cdot \frac{x}{\frac{1}{x}} + 4\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1}{s}}{e^{\frac{x}{s}} + 3}\\ \end{array} \]

Alternative 2
Error	1.3
Cost	3588

\[\begin{array}{l} \mathbf{if}\;x \leq -2.0000000718782596 \cdot 10^{-36}:\\ \;\;\;\;\frac{\frac{1}{s}}{e^{\frac{-x}{s}} + 3}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{1}{s}}{e^{\frac{x}{s}} + 3}\\ \end{array} \]

Alternative 3
Error	0.1
Cost	3552

\[\frac{\frac{1}{2 + 2 \cdot \cosh \left(\frac{x}{s}\right)}}{s} \]

Alternative 4
Error	3.4
Cost	816

\[\begin{array}{l} t_0 := \frac{1}{s \cdot \left(\frac{1}{s \cdot s} \cdot \frac{x}{\frac{1}{x}} + 4\right)}\\ t_1 := \left(1 + \frac{s}{x \cdot x}\right) + -1\\ \mathbf{if}\;x \leq -0.03999999910593033:\\ \;\;\;\;t_1\\ \mathbf{elif}\;x \leq -1.9999999996399175 \cdot 10^{-23}:\\ \;\;\;\;t_0\\ \mathbf{elif}\;x \leq 1.0000000195414814 \cdot 10^{-25}:\\ \;\;\;\;\frac{\frac{1}{4 + \frac{x}{s} \cdot \frac{x}{s}}}{s}\\ \mathbf{elif}\;x \leq 9.999999974752427 \cdot 10^{-7}:\\ \;\;\;\;t_0\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \]

Alternative 5
Error	5.6
Cost	552

\[\begin{array}{l} t_0 := \left(1 + \frac{s}{x \cdot x}\right) + -1\\ \mathbf{if}\;x \leq -1.0000000116860974 \cdot 10^{-7}:\\ \;\;\;\;t_0\\ \mathbf{elif}\;x \leq 5.000000058430487 \cdot 10^{-8}:\\ \;\;\;\;\frac{\frac{1}{4 + \frac{x}{s} \cdot \frac{x}{s}}}{s}\\ \mathbf{else}:\\ \;\;\;\;t_0\\ \end{array} \]

Alternative 6
Error	4.2
Cost	552

\[\begin{array}{l} t_0 := \left(1 + \frac{s}{x \cdot x}\right) + -1\\ \mathbf{if}\;x \leq -0.03999999910593033:\\ \;\;\;\;t_0\\ \mathbf{elif}\;x \leq 9.999999974752427 \cdot 10^{-7}:\\ \;\;\;\;\frac{1}{s \cdot \left(4 + \frac{x}{\frac{s \cdot s}{x}}\right)}\\ \mathbf{else}:\\ \;\;\;\;t_0\\ \end{array} \]

Alternative 7
Error	6.5
Cost	424

\[\begin{array}{l} t_0 := \left(1 + \frac{s}{x \cdot x}\right) + -1\\ \mathbf{if}\;x \leq -9.999999960041972 \cdot 10^{-12}:\\ \;\;\;\;t_0\\ \mathbf{elif}\;x \leq 4.999999980020986 \cdot 10^{-13}:\\ \;\;\;\;\frac{0.25}{s}\\ \mathbf{else}:\\ \;\;\;\;t_0\\ \end{array} \]

Alternative 8
Error	12.1
Cost	360

\[\begin{array}{l} t_0 := \frac{1}{x} \cdot \frac{s}{x}\\ \mathbf{if}\;x \leq -9.999999960041972 \cdot 10^{-12}:\\ \;\;\;\;t_0\\ \mathbf{elif}\;x \leq 9.999999974752427 \cdot 10^{-7}:\\ \;\;\;\;\frac{0.25}{s}\\ \mathbf{else}:\\ \;\;\;\;t_0\\ \end{array} \]

Alternative 9
Error	11.6
Cost	360

\[\begin{array}{l} t_0 := \frac{1}{x \cdot \frac{x}{s}}\\ \mathbf{if}\;x \leq -9.999999960041972 \cdot 10^{-12}:\\ \;\;\;\;t_0\\ \mathbf{elif}\;x \leq 9.999999974752427 \cdot 10^{-7}:\\ \;\;\;\;\frac{0.25}{s}\\ \mathbf{else}:\\ \;\;\;\;t_0\\ \end{array} \]

Alternative 10
Error	12.1
Cost	296

\[\begin{array}{l} t_0 := \frac{s}{x \cdot x}\\ \mathbf{if}\;x \leq -9.999999960041972 \cdot 10^{-12}:\\ \;\;\;\;t_0\\ \mathbf{elif}\;x \leq 9.999999974752427 \cdot 10^{-7}:\\ \;\;\;\;\frac{0.25}{s}\\ \mathbf{else}:\\ \;\;\;\;t_0\\ \end{array} \]

Alternative 11
Error	23.2
Cost	96

\[\frac{0.25}{s} \]

Reproduce

herbie shell --seed 2022294 
(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))))))