
(FPCore (x s) :precision binary32 (let* ((t_0 (exp (/ (- (fabs x)) s))) (t_1 (+ 1.0 t_0))) (/ t_0 (* (* s t_1) t_1))))
float code(float x, float s) {
float t_0 = expf((-fabsf(x) / s));
float t_1 = 1.0f + t_0;
return t_0 / ((s * t_1) * t_1);
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: t_0
real(4) :: t_1
t_0 = exp((-abs(x) / s))
t_1 = 1.0e0 + t_0
code = t_0 / ((s * t_1) * t_1)
end function
function code(x, s) t_0 = exp(Float32(Float32(-abs(x)) / s)) t_1 = Float32(Float32(1.0) + t_0) return Float32(t_0 / Float32(Float32(s * t_1) * t_1)) end
function tmp = code(x, s) t_0 = exp((-abs(x) / s)); t_1 = single(1.0) + t_0; tmp = t_0 / ((s * t_1) * t_1); end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := e^{\frac{-\left|x\right|}{s}}\\
t_1 := 1 + t\_0\\
\frac{t\_0}{\left(s \cdot t\_1\right) \cdot t\_1}
\end{array}
\end{array}
Sampling outcomes in binary32 precision:
Herbie found 11 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x s) :precision binary32 (let* ((t_0 (exp (/ (- (fabs x)) s))) (t_1 (+ 1.0 t_0))) (/ t_0 (* (* s t_1) t_1))))
float code(float x, float s) {
float t_0 = expf((-fabsf(x) / s));
float t_1 = 1.0f + t_0;
return t_0 / ((s * t_1) * t_1);
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: t_0
real(4) :: t_1
t_0 = exp((-abs(x) / s))
t_1 = 1.0e0 + t_0
code = t_0 / ((s * t_1) * t_1)
end function
function code(x, s) t_0 = exp(Float32(Float32(-abs(x)) / s)) t_1 = Float32(Float32(1.0) + t_0) return Float32(t_0 / Float32(Float32(s * t_1) * t_1)) end
function tmp = code(x, s) t_0 = exp((-abs(x) / s)); t_1 = single(1.0) + t_0; tmp = t_0 / ((s * t_1) * t_1); end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := e^{\frac{-\left|x\right|}{s}}\\
t_1 := 1 + t\_0\\
\frac{t\_0}{\left(s \cdot t\_1\right) \cdot t\_1}
\end{array}
\end{array}
(FPCore (x s) :precision binary32 (/ (pow (exp -2.0) (* 0.5 (/ (fabs x) s))) (* (pow (+ (exp (/ (- (fabs x)) s)) 1.0) 2.0) s)))
float code(float x, float s) {
return powf(expf(-2.0f), (0.5f * (fabsf(x) / s))) / (powf((expf((-fabsf(x) / s)) + 1.0f), 2.0f) * s);
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
code = (exp((-2.0e0)) ** (0.5e0 * (abs(x) / s))) / (((exp((-abs(x) / s)) + 1.0e0) ** 2.0e0) * s)
end function
function code(x, s) return Float32((exp(Float32(-2.0)) ^ Float32(Float32(0.5) * Float32(abs(x) / s))) / Float32((Float32(exp(Float32(Float32(-abs(x)) / s)) + Float32(1.0)) ^ Float32(2.0)) * s)) end
function tmp = code(x, s) tmp = (exp(single(-2.0)) ^ (single(0.5) * (abs(x) / s))) / (((exp((-abs(x) / s)) + single(1.0)) ^ single(2.0)) * s); end
\begin{array}{l}
\\
\frac{{\left(e^{-2}\right)}^{\left(0.5 \cdot \frac{\left|x\right|}{s}\right)}}{{\left(e^{\frac{-\left|x\right|}{s}} + 1\right)}^{2} \cdot s}
\end{array}
Initial program 99.6%
lift-*.f32N/A
lift-*.f32N/A
associate-*l*N/A
*-commutativeN/A
lower-*.f32N/A
pow2N/A
lower-pow.f3299.6
Applied rewrites99.6%
lift-exp.f32N/A
lift-/.f32N/A
lift-neg.f32N/A
distribute-frac-negN/A
lift-/.f32N/A
neg-mul-1N/A
exp-prodN/A
lower-pow.f32N/A
lower-exp.f3299.5
Applied rewrites99.5%
lift-pow.f32N/A
sqr-powN/A
pow-prod-downN/A
lower-pow.f32N/A
lift-exp.f32N/A
lift-exp.f32N/A
prod-expN/A
metadata-evalN/A
lower-exp.f32N/A
div-invN/A
lower-*.f32N/A
metadata-eval99.6
Applied rewrites99.6%
Final simplification99.6%
(FPCore (x s)
:precision binary32
(let* ((t_0 (exp (/ (- (fabs x)) s))) (t_1 (+ t_0 1.0)))
(if (<= (/ t_0 (* (* t_1 s) t_1)) 5.000000018137469e-16)
(/ (/ (/ (fma (* x x) -0.0625 (* (* s s) 0.25)) s) s) s)
(/ (+ (/ (* (/ x s) (* -0.0625 x)) s) 0.25) s))))
float code(float x, float s) {
float t_0 = expf((-fabsf(x) / s));
float t_1 = t_0 + 1.0f;
float tmp;
if ((t_0 / ((t_1 * s) * t_1)) <= 5.000000018137469e-16f) {
tmp = ((fmaf((x * x), -0.0625f, ((s * s) * 0.25f)) / s) / s) / s;
} else {
tmp = ((((x / s) * (-0.0625f * x)) / s) + 0.25f) / s;
}
return tmp;
}
function code(x, s) t_0 = exp(Float32(Float32(-abs(x)) / s)) t_1 = Float32(t_0 + Float32(1.0)) tmp = Float32(0.0) if (Float32(t_0 / Float32(Float32(t_1 * s) * t_1)) <= Float32(5.000000018137469e-16)) tmp = Float32(Float32(Float32(fma(Float32(x * x), Float32(-0.0625), Float32(Float32(s * s) * Float32(0.25))) / s) / s) / s); else tmp = Float32(Float32(Float32(Float32(Float32(x / s) * Float32(Float32(-0.0625) * x)) / s) + Float32(0.25)) / s); end return tmp end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := e^{\frac{-\left|x\right|}{s}}\\
t_1 := t\_0 + 1\\
\mathbf{if}\;\frac{t\_0}{\left(t\_1 \cdot s\right) \cdot t\_1} \leq 5.000000018137469 \cdot 10^{-16}:\\
\;\;\;\;\frac{\frac{\frac{\mathsf{fma}\left(x \cdot x, -0.0625, \left(s \cdot s\right) \cdot 0.25\right)}{s}}{s}}{s}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{\frac{x}{s} \cdot \left(-0.0625 \cdot x\right)}{s} + 0.25}{s}\\
\end{array}
\end{array}
if (/.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (*.f32 (*.f32 s (+.f32 #s(literal 1 binary32) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (+.f32 #s(literal 1 binary32) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))))) < 5.00000002e-16Initial program 100.0%
Taylor expanded in s around inf
lower-/.f32N/A
Applied rewrites3.3%
Applied rewrites3.1%
Taylor expanded in s around 0
Applied rewrites57.6%
if 5.00000002e-16 < (/.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (*.f32 (*.f32 s (+.f32 #s(literal 1 binary32) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (+.f32 #s(literal 1 binary32) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))))) Initial program 98.7%
Taylor expanded in s around inf
lower-/.f32N/A
Applied rewrites85.6%
Applied rewrites85.7%
Final simplification65.9%
(FPCore (x s)
:precision binary32
(let* ((t_0 (exp (/ (- (fabs x)) s))) (t_1 (+ t_0 1.0)))
(if (<= (/ t_0 (* (* t_1 s) t_1)) 0.0)
(/ (* (/ (/ (* x x) s) s) -0.0625) s)
(/ (+ (/ (* (/ x s) (* -0.0625 x)) s) 0.25) s))))
float code(float x, float s) {
float t_0 = expf((-fabsf(x) / s));
float t_1 = t_0 + 1.0f;
float tmp;
if ((t_0 / ((t_1 * s) * t_1)) <= 0.0f) {
tmp = ((((x * x) / s) / s) * -0.0625f) / s;
} else {
tmp = ((((x / s) * (-0.0625f * x)) / s) + 0.25f) / s;
}
return tmp;
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: t_0
real(4) :: t_1
real(4) :: tmp
t_0 = exp((-abs(x) / s))
t_1 = t_0 + 1.0e0
if ((t_0 / ((t_1 * s) * t_1)) <= 0.0e0) then
tmp = ((((x * x) / s) / s) * (-0.0625e0)) / s
else
tmp = ((((x / s) * ((-0.0625e0) * x)) / s) + 0.25e0) / s
end if
code = tmp
end function
function code(x, s) t_0 = exp(Float32(Float32(-abs(x)) / s)) t_1 = Float32(t_0 + Float32(1.0)) tmp = Float32(0.0) if (Float32(t_0 / Float32(Float32(t_1 * s) * t_1)) <= Float32(0.0)) tmp = Float32(Float32(Float32(Float32(Float32(x * x) / s) / s) * Float32(-0.0625)) / s); else tmp = Float32(Float32(Float32(Float32(Float32(x / s) * Float32(Float32(-0.0625) * x)) / s) + Float32(0.25)) / s); end return tmp end
function tmp_2 = code(x, s) t_0 = exp((-abs(x) / s)); t_1 = t_0 + single(1.0); tmp = single(0.0); if ((t_0 / ((t_1 * s) * t_1)) <= single(0.0)) tmp = ((((x * x) / s) / s) * single(-0.0625)) / s; else tmp = ((((x / s) * (single(-0.0625) * x)) / s) + single(0.25)) / s; end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := e^{\frac{-\left|x\right|}{s}}\\
t_1 := t\_0 + 1\\
\mathbf{if}\;\frac{t\_0}{\left(t\_1 \cdot s\right) \cdot t\_1} \leq 0:\\
\;\;\;\;\frac{\frac{\frac{x \cdot x}{s}}{s} \cdot -0.0625}{s}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{\frac{x}{s} \cdot \left(-0.0625 \cdot x\right)}{s} + 0.25}{s}\\
\end{array}
\end{array}
if (/.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (*.f32 (*.f32 s (+.f32 #s(literal 1 binary32) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (+.f32 #s(literal 1 binary32) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))))) < 0.0Initial program 100.0%
Taylor expanded in s around inf
lower-/.f32N/A
Applied rewrites3.3%
Applied rewrites3.1%
Taylor expanded in s around 0
Applied rewrites8.6%
if 0.0 < (/.f32 (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)) (*.f32 (*.f32 s (+.f32 #s(literal 1 binary32) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s)))) (+.f32 #s(literal 1 binary32) (exp.f32 (/.f32 (neg.f32 (fabs.f32 x)) s))))) Initial program 98.6%
Taylor expanded in s around inf
lower-/.f32N/A
Applied rewrites84.6%
Applied rewrites84.6%
Final simplification31.2%
(FPCore (x s) :precision binary32 (let* ((t_0 (exp (/ (- (fabs x)) s)))) (/ t_0 (* (pow (+ t_0 1.0) 2.0) s))))
float code(float x, float s) {
float t_0 = expf((-fabsf(x) / s));
return t_0 / (powf((t_0 + 1.0f), 2.0f) * s);
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: t_0
t_0 = exp((-abs(x) / s))
code = t_0 / (((t_0 + 1.0e0) ** 2.0e0) * s)
end function
function code(x, s) t_0 = exp(Float32(Float32(-abs(x)) / s)) return Float32(t_0 / Float32((Float32(t_0 + Float32(1.0)) ^ Float32(2.0)) * s)) end
function tmp = code(x, s) t_0 = exp((-abs(x) / s)); tmp = t_0 / (((t_0 + single(1.0)) ^ single(2.0)) * s); end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := e^{\frac{-\left|x\right|}{s}}\\
\frac{t\_0}{{\left(t\_0 + 1\right)}^{2} \cdot s}
\end{array}
\end{array}
Initial program 99.6%
lift-*.f32N/A
lift-*.f32N/A
associate-*l*N/A
*-commutativeN/A
lower-*.f32N/A
pow2N/A
lower-pow.f3299.6
Applied rewrites99.6%
Final simplification99.6%
(FPCore (x s) :precision binary32 (/ (exp (/ (- (fabs x)) s)) (* (pow (+ (+ (/ (- (* (/ (* x x) s) 0.5) (fabs x)) s) 1.0) 1.0) 2.0) s)))
float code(float x, float s) {
return expf((-fabsf(x) / s)) / (powf((((((((x * x) / s) * 0.5f) - fabsf(x)) / s) + 1.0f) + 1.0f), 2.0f) * s);
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
code = exp((-abs(x) / s)) / (((((((((x * x) / s) * 0.5e0) - abs(x)) / s) + 1.0e0) + 1.0e0) ** 2.0e0) * s)
end function
function code(x, s) return Float32(exp(Float32(Float32(-abs(x)) / s)) / Float32((Float32(Float32(Float32(Float32(Float32(Float32(Float32(x * x) / s) * Float32(0.5)) - abs(x)) / s) + Float32(1.0)) + Float32(1.0)) ^ Float32(2.0)) * s)) end
function tmp = code(x, s) tmp = exp((-abs(x) / s)) / (((((((((x * x) / s) * single(0.5)) - abs(x)) / s) + single(1.0)) + single(1.0)) ^ single(2.0)) * s); end
\begin{array}{l}
\\
\frac{e^{\frac{-\left|x\right|}{s}}}{{\left(\left(\frac{\frac{x \cdot x}{s} \cdot 0.5 - \left|x\right|}{s} + 1\right) + 1\right)}^{2} \cdot s}
\end{array}
Initial program 99.6%
lift-*.f32N/A
lift-*.f32N/A
associate-*l*N/A
*-commutativeN/A
lower-*.f32N/A
pow2N/A
lower-pow.f3299.6
Applied rewrites99.6%
Taylor expanded in s around inf
+-commutativeN/A
lower-+.f32N/A
Applied rewrites95.4%
Final simplification95.4%
(FPCore (x s) :precision binary32 (/ (exp (* (/ -1.0 s) (fabs x))) (* 2.0 (* (+ (exp (/ (- (fabs x)) s)) 1.0) s))))
float code(float x, float s) {
return expf(((-1.0f / s) * fabsf(x))) / (2.0f * ((expf((-fabsf(x) / s)) + 1.0f) * s));
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
code = exp((((-1.0e0) / s) * abs(x))) / (2.0e0 * ((exp((-abs(x) / s)) + 1.0e0) * s))
end function
function code(x, s) return Float32(exp(Float32(Float32(Float32(-1.0) / s) * abs(x))) / Float32(Float32(2.0) * Float32(Float32(exp(Float32(Float32(-abs(x)) / s)) + Float32(1.0)) * s))) end
function tmp = code(x, s) tmp = exp(((single(-1.0) / s) * abs(x))) / (single(2.0) * ((exp((-abs(x) / s)) + single(1.0)) * s)); end
\begin{array}{l}
\\
\frac{e^{\frac{-1}{s} \cdot \left|x\right|}}{2 \cdot \left(\left(e^{\frac{-\left|x\right|}{s}} + 1\right) \cdot s\right)}
\end{array}
Initial program 99.6%
Taylor expanded in s around inf
Applied rewrites93.8%
lift-/.f32N/A
frac-2negN/A
div-invN/A
lift-neg.f32N/A
remove-double-negN/A
lower-*.f32N/A
frac-2negN/A
metadata-evalN/A
remove-double-negN/A
lower-/.f3293.8
Applied rewrites93.8%
Final simplification93.8%
(FPCore (x s) :precision binary32 (let* ((t_0 (exp (/ (- (fabs x)) s)))) (/ t_0 (* 2.0 (* (+ t_0 1.0) s)))))
float code(float x, float s) {
float t_0 = expf((-fabsf(x) / s));
return t_0 / (2.0f * ((t_0 + 1.0f) * s));
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: t_0
t_0 = exp((-abs(x) / s))
code = t_0 / (2.0e0 * ((t_0 + 1.0e0) * s))
end function
function code(x, s) t_0 = exp(Float32(Float32(-abs(x)) / s)) return Float32(t_0 / Float32(Float32(2.0) * Float32(Float32(t_0 + Float32(1.0)) * s))) end
function tmp = code(x, s) t_0 = exp((-abs(x) / s)); tmp = t_0 / (single(2.0) * ((t_0 + single(1.0)) * s)); end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := e^{\frac{-\left|x\right|}{s}}\\
\frac{t\_0}{2 \cdot \left(\left(t\_0 + 1\right) \cdot s\right)}
\end{array}
\end{array}
Initial program 99.6%
Taylor expanded in s around inf
Applied rewrites93.8%
Final simplification93.8%
(FPCore (x s)
:precision binary32
(let* ((t_0 (/ s (fabs x))))
(/
(exp (/ (- (* t_0 0.0) s) (* t_0 s)))
(/ 1.0 (/ (/ 1.0 2.0) (* 2.0 s))))))
float code(float x, float s) {
float t_0 = s / fabsf(x);
return expf((((t_0 * 0.0f) - s) / (t_0 * s))) / (1.0f / ((1.0f / 2.0f) / (2.0f * s)));
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: t_0
t_0 = s / abs(x)
code = exp((((t_0 * 0.0e0) - s) / (t_0 * s))) / (1.0e0 / ((1.0e0 / 2.0e0) / (2.0e0 * s)))
end function
function code(x, s) t_0 = Float32(s / abs(x)) return Float32(exp(Float32(Float32(Float32(t_0 * Float32(0.0)) - s) / Float32(t_0 * s))) / Float32(Float32(1.0) / Float32(Float32(Float32(1.0) / Float32(2.0)) / Float32(Float32(2.0) * s)))) end
function tmp = code(x, s) t_0 = s / abs(x); tmp = exp((((t_0 * single(0.0)) - s) / (t_0 * s))) / (single(1.0) / ((single(1.0) / single(2.0)) / (single(2.0) * s))); end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{s}{\left|x\right|}\\
\frac{e^{\frac{t\_0 \cdot 0 - s}{t\_0 \cdot s}}}{\frac{1}{\frac{\frac{1}{2}}{2 \cdot s}}}
\end{array}
\end{array}
Initial program 99.6%
/-rgt-identityN/A
clear-numN/A
lower-/.f32N/A
lift-*.f32N/A
lift-*.f32N/A
associate-*l*N/A
*-commutativeN/A
associate-/r*N/A
lower-/.f32N/A
Applied rewrites99.2%
Taylor expanded in s around inf
Applied rewrites93.5%
lift-/.f32N/A
lift-/.f32N/A
clear-numN/A
lift-pow.f32N/A
sqr-powN/A
associate-/r*N/A
clear-numN/A
lower-/.f32N/A
div-invN/A
Applied rewrites93.5%
lift-/.f32N/A
lift-neg.f32N/A
neg-sub0N/A
div-subN/A
clear-numN/A
frac-subN/A
lower-/.f32N/A
*-rgt-identityN/A
lower--.f32N/A
lower-*.f32N/A
lower-/.f32N/A
lower-*.f32N/A
lower-/.f3293.5
Applied rewrites93.5%
Final simplification93.5%
(FPCore (x s) :precision binary32 (/ (exp (/ (- (fabs x)) s)) (/ 1.0 (/ (/ 1.0 2.0) (* 2.0 s)))))
float code(float x, float s) {
return expf((-fabsf(x) / s)) / (1.0f / ((1.0f / 2.0f) / (2.0f * s)));
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
code = exp((-abs(x) / s)) / (1.0e0 / ((1.0e0 / 2.0e0) / (2.0e0 * s)))
end function
function code(x, s) return Float32(exp(Float32(Float32(-abs(x)) / s)) / Float32(Float32(1.0) / Float32(Float32(Float32(1.0) / Float32(2.0)) / Float32(Float32(2.0) * s)))) end
function tmp = code(x, s) tmp = exp((-abs(x) / s)) / (single(1.0) / ((single(1.0) / single(2.0)) / (single(2.0) * s))); end
\begin{array}{l}
\\
\frac{e^{\frac{-\left|x\right|}{s}}}{\frac{1}{\frac{\frac{1}{2}}{2 \cdot s}}}
\end{array}
Initial program 99.6%
/-rgt-identityN/A
clear-numN/A
lower-/.f32N/A
lift-*.f32N/A
lift-*.f32N/A
associate-*l*N/A
*-commutativeN/A
associate-/r*N/A
lower-/.f32N/A
Applied rewrites99.2%
Taylor expanded in s around inf
Applied rewrites93.5%
lift-/.f32N/A
lift-/.f32N/A
clear-numN/A
lift-pow.f32N/A
sqr-powN/A
associate-/r*N/A
clear-numN/A
lower-/.f32N/A
div-invN/A
Applied rewrites93.5%
Final simplification93.5%
(FPCore (x s) :precision binary32 (/ (exp (/ (- (fabs x)) s)) (* 4.0 s)))
float code(float x, float s) {
return expf((-fabsf(x) / s)) / (4.0f * s);
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
code = exp((-abs(x) / s)) / (4.0e0 * s)
end function
function code(x, s) return Float32(exp(Float32(Float32(-abs(x)) / s)) / Float32(Float32(4.0) * s)) end
function tmp = code(x, s) tmp = exp((-abs(x) / s)) / (single(4.0) * s); end
\begin{array}{l}
\\
\frac{e^{\frac{-\left|x\right|}{s}}}{4 \cdot s}
\end{array}
Initial program 99.6%
Taylor expanded in s around inf
lower-*.f3293.5
Applied rewrites93.5%
(FPCore (x s) :precision binary32 (/ 0.25 s))
float code(float x, float s) {
return 0.25f / s;
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
code = 0.25e0 / s
end function
function code(x, s) return Float32(Float32(0.25) / s) end
function tmp = code(x, s) tmp = single(0.25) / s; end
\begin{array}{l}
\\
\frac{0.25}{s}
\end{array}
Initial program 99.6%
Taylor expanded in s around inf
lower-/.f3227.7
Applied rewrites27.7%
herbie shell --seed 2024255
(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))))))