
(FPCore (x s) :precision binary32 (/ 1.0 (+ 1.0 (exp (/ (- x) s)))))
float code(float x, float s) {
return 1.0f / (1.0f + expf((-x / s)));
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
code = 1.0e0 / (1.0e0 + exp((-x / s)))
end function
function code(x, s) return Float32(Float32(1.0) / Float32(Float32(1.0) + exp(Float32(Float32(-x) / s)))) end
function tmp = code(x, s) tmp = single(1.0) / (single(1.0) + exp((-x / s))); end
\begin{array}{l}
\\
\frac{1}{1 + e^{\frac{-x}{s}}}
\end{array}
Sampling outcomes in binary32 precision:
Herbie found 12 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x s) :precision binary32 (/ 1.0 (+ 1.0 (exp (/ (- x) s)))))
float code(float x, float s) {
return 1.0f / (1.0f + expf((-x / s)));
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
code = 1.0e0 / (1.0e0 + exp((-x / s)))
end function
function code(x, s) return Float32(Float32(1.0) / Float32(Float32(1.0) + exp(Float32(Float32(-x) / s)))) end
function tmp = code(x, s) tmp = single(1.0) / (single(1.0) + exp((-x / s))); end
\begin{array}{l}
\\
\frac{1}{1 + e^{\frac{-x}{s}}}
\end{array}
(FPCore (x s) :precision binary32 (exp (- (log1p (exp (/ (- x) s))))))
float code(float x, float s) {
return expf(-log1pf(expf((-x / s))));
}
function code(x, s) return exp(Float32(-log1p(exp(Float32(Float32(-x) / s))))) end
\begin{array}{l}
\\
e^{-\mathsf{log1p}\left(e^{\frac{-x}{s}}\right)}
\end{array}
Initial program 99.8%
div-inv99.8%
exp-prod85.8%
neg-mul-185.8%
exp-prod85.8%
pow-pow99.9%
div-inv99.9%
Applied egg-rr99.9%
add-exp-log99.9%
log-rec99.9%
log1p-expm1-u99.9%
log1p-define99.9%
expm1-log1p-u99.9%
pow-exp99.9%
neg-mul-199.9%
distribute-neg-frac299.9%
Applied egg-rr99.9%
Final simplification99.9%
(FPCore (x s) :precision binary32 (/ 1.0 (+ (pow (exp -1.0) (/ x s)) 1.0)))
float code(float x, float s) {
return 1.0f / (powf(expf(-1.0f), (x / s)) + 1.0f);
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
code = 1.0e0 / ((exp((-1.0e0)) ** (x / s)) + 1.0e0)
end function
function code(x, s) return Float32(Float32(1.0) / Float32((exp(Float32(-1.0)) ^ Float32(x / s)) + Float32(1.0))) end
function tmp = code(x, s) tmp = single(1.0) / ((exp(single(-1.0)) ^ (x / s)) + single(1.0)); end
\begin{array}{l}
\\
\frac{1}{{\left(e^{-1}\right)}^{\left(\frac{x}{s}\right)} + 1}
\end{array}
Initial program 99.8%
div-inv99.8%
exp-prod85.8%
neg-mul-185.8%
exp-prod85.8%
pow-pow99.9%
div-inv99.9%
Applied egg-rr99.9%
Final simplification99.9%
(FPCore (x s) :precision binary32 (/ 1.0 (+ (exp (/ (- x) s)) 1.0)))
float code(float x, float s) {
return 1.0f / (expf((-x / s)) + 1.0f);
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
code = 1.0e0 / (exp((-x / s)) + 1.0e0)
end function
function code(x, s) return Float32(Float32(1.0) / Float32(exp(Float32(Float32(-x) / s)) + Float32(1.0))) end
function tmp = code(x, s) tmp = single(1.0) / (exp((-x / s)) + single(1.0)); end
\begin{array}{l}
\\
\frac{1}{e^{\frac{-x}{s}} + 1}
\end{array}
Initial program 99.8%
Final simplification99.8%
(FPCore (x s)
:precision binary32
(let* ((t_0 (/ (- x) s)))
(if (<= t_0 -1.0)
(/ 1.0 (* x (/ 2.0 x)))
(if (<= t_0 4.999999966907906e+36)
(/ 1.0 (/ (- 4.0 (* (/ x s) (/ x s))) (+ (/ x s) 2.0)))
(* x (/ s (* x (- (* s 2.0) x))))))))
float code(float x, float s) {
float t_0 = -x / s;
float tmp;
if (t_0 <= -1.0f) {
tmp = 1.0f / (x * (2.0f / x));
} else if (t_0 <= 4.999999966907906e+36f) {
tmp = 1.0f / ((4.0f - ((x / s) * (x / s))) / ((x / s) + 2.0f));
} else {
tmp = x * (s / (x * ((s * 2.0f) - x)));
}
return tmp;
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: t_0
real(4) :: tmp
t_0 = -x / s
if (t_0 <= (-1.0e0)) then
tmp = 1.0e0 / (x * (2.0e0 / x))
else if (t_0 <= 4.999999966907906e+36) then
tmp = 1.0e0 / ((4.0e0 - ((x / s) * (x / s))) / ((x / s) + 2.0e0))
else
tmp = x * (s / (x * ((s * 2.0e0) - x)))
end if
code = tmp
end function
function code(x, s) t_0 = Float32(Float32(-x) / s) tmp = Float32(0.0) if (t_0 <= Float32(-1.0)) tmp = Float32(Float32(1.0) / Float32(x * Float32(Float32(2.0) / x))); elseif (t_0 <= Float32(4.999999966907906e+36)) tmp = Float32(Float32(1.0) / Float32(Float32(Float32(4.0) - Float32(Float32(x / s) * Float32(x / s))) / Float32(Float32(x / s) + Float32(2.0)))); else tmp = Float32(x * Float32(s / Float32(x * Float32(Float32(s * Float32(2.0)) - x)))); end return tmp end
function tmp_2 = code(x, s) t_0 = -x / s; tmp = single(0.0); if (t_0 <= single(-1.0)) tmp = single(1.0) / (x * (single(2.0) / x)); elseif (t_0 <= single(4.999999966907906e+36)) tmp = single(1.0) / ((single(4.0) - ((x / s) * (x / s))) / ((x / s) + single(2.0))); else tmp = x * (s / (x * ((s * single(2.0)) - x))); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{-x}{s}\\
\mathbf{if}\;t\_0 \leq -1:\\
\;\;\;\;\frac{1}{x \cdot \frac{2}{x}}\\
\mathbf{elif}\;t\_0 \leq 4.999999966907906 \cdot 10^{+36}:\\
\;\;\;\;\frac{1}{\frac{4 - \frac{x}{s} \cdot \frac{x}{s}}{\frac{x}{s} + 2}}\\
\mathbf{else}:\\
\;\;\;\;x \cdot \frac{s}{x \cdot \left(s \cdot 2 - x\right)}\\
\end{array}
\end{array}
if (/.f32 (neg.f32 x) s) < -1Initial program 100.0%
Taylor expanded in x around 0 5.3%
mul-1-neg5.3%
unsub-neg5.3%
Simplified5.3%
Taylor expanded in x around inf 5.3%
associate-*r/5.3%
metadata-eval5.3%
Simplified5.3%
Taylor expanded in x around 0 28.2%
if -1 < (/.f32 (neg.f32 x) s) < 4.99999997e36Initial program 99.7%
Taylor expanded in x around 0 59.6%
mul-1-neg59.6%
unsub-neg59.6%
Simplified59.6%
sub-neg59.6%
neg-mul-159.6%
rem-log-exp96.0%
pow-exp96.0%
flip-+55.1%
metadata-eval55.1%
pow-exp55.1%
rem-log-exp55.1%
neg-mul-155.1%
pow-exp55.1%
rem-log-exp55.6%
neg-mul-155.6%
distribute-neg-frac255.6%
distribute-neg-frac255.6%
pow-exp55.6%
rem-log-exp80.7%
neg-mul-180.7%
distribute-neg-frac280.7%
Applied egg-rr80.7%
if 4.99999997e36 < (/.f32 (neg.f32 x) s) Initial program 100.0%
Taylor expanded in x around 0 91.5%
mul-1-neg91.5%
unsub-neg91.5%
Simplified91.5%
Taylor expanded in x around inf 91.5%
associate-*r/91.5%
metadata-eval91.5%
Simplified91.5%
associate-/r*82.4%
frac-sub82.4%
associate-/r/91.0%
*-rgt-identity91.0%
*-commutative91.0%
Applied egg-rr91.0%
associate-/r/82.4%
un-div-inv82.4%
associate-/r*91.5%
un-div-inv91.5%
Applied egg-rr91.5%
associate-/r*82.4%
associate-/r/91.0%
associate-/r*97.1%
*-commutative97.1%
associate-*r/97.1%
*-rgt-identity97.1%
associate-/l*100.0%
Simplified100.0%
Final simplification65.1%
(FPCore (x s) :precision binary32 (if (<= (- x) 1.9999999996399175e-23) 0.5 (/ -1.0 (/ (* x (- x (* s 2.0))) (* x s)))))
float code(float x, float s) {
float tmp;
if (-x <= 1.9999999996399175e-23f) {
tmp = 0.5f;
} else {
tmp = -1.0f / ((x * (x - (s * 2.0f))) / (x * s));
}
return tmp;
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: tmp
if (-x <= 1.9999999996399175e-23) then
tmp = 0.5e0
else
tmp = (-1.0e0) / ((x * (x - (s * 2.0e0))) / (x * s))
end if
code = tmp
end function
function code(x, s) tmp = Float32(0.0) if (Float32(-x) <= Float32(1.9999999996399175e-23)) tmp = Float32(0.5); else tmp = Float32(Float32(-1.0) / Float32(Float32(x * Float32(x - Float32(s * Float32(2.0)))) / Float32(x * s))); end return tmp end
function tmp_2 = code(x, s) tmp = single(0.0); if (-x <= single(1.9999999996399175e-23)) tmp = single(0.5); else tmp = single(-1.0) / ((x * (x - (s * single(2.0)))) / (x * s)); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;-x \leq 1.9999999996399175 \cdot 10^{-23}:\\
\;\;\;\;0.5\\
\mathbf{else}:\\
\;\;\;\;\frac{-1}{\frac{x \cdot \left(x - s \cdot 2\right)}{x \cdot s}}\\
\end{array}
\end{array}
if (neg.f32 x) < 2e-23Initial program 99.8%
Taylor expanded in x around 0 54.4%
if 2e-23 < (neg.f32 x) Initial program 99.8%
Taylor expanded in x around 0 48.8%
mul-1-neg48.8%
unsub-neg48.8%
Simplified48.8%
Taylor expanded in x around inf 48.7%
associate-*r/48.7%
metadata-eval48.7%
Simplified48.7%
*-commutative48.7%
frac-sub54.2%
associate-*l/63.3%
*-rgt-identity63.3%
*-commutative63.3%
Applied egg-rr63.3%
Final simplification57.9%
(FPCore (x s) :precision binary32 (if (<= (/ (- x) s) -1.0) (/ 1.0 (* x (/ 2.0 x))) (/ -1.0 (/ (- x (* s 2.0)) s))))
float code(float x, float s) {
float tmp;
if ((-x / s) <= -1.0f) {
tmp = 1.0f / (x * (2.0f / x));
} else {
tmp = -1.0f / ((x - (s * 2.0f)) / s);
}
return tmp;
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: tmp
if ((-x / s) <= (-1.0e0)) then
tmp = 1.0e0 / (x * (2.0e0 / x))
else
tmp = (-1.0e0) / ((x - (s * 2.0e0)) / s)
end if
code = tmp
end function
function code(x, s) tmp = Float32(0.0) if (Float32(Float32(-x) / s) <= Float32(-1.0)) tmp = Float32(Float32(1.0) / Float32(x * Float32(Float32(2.0) / x))); else tmp = Float32(Float32(-1.0) / Float32(Float32(x - Float32(s * Float32(2.0))) / s)); end return tmp end
function tmp_2 = code(x, s) tmp = single(0.0); if ((-x / s) <= single(-1.0)) tmp = single(1.0) / (x * (single(2.0) / x)); else tmp = single(-1.0) / ((x - (s * single(2.0))) / s); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{-x}{s} \leq -1:\\
\;\;\;\;\frac{1}{x \cdot \frac{2}{x}}\\
\mathbf{else}:\\
\;\;\;\;\frac{-1}{\frac{x - s \cdot 2}{s}}\\
\end{array}
\end{array}
if (/.f32 (neg.f32 x) s) < -1Initial program 100.0%
Taylor expanded in x around 0 5.3%
mul-1-neg5.3%
unsub-neg5.3%
Simplified5.3%
Taylor expanded in x around inf 5.3%
associate-*r/5.3%
metadata-eval5.3%
Simplified5.3%
Taylor expanded in x around 0 28.2%
if -1 < (/.f32 (neg.f32 x) s) Initial program 99.8%
Taylor expanded in x around 0 66.3%
mul-1-neg66.3%
unsub-neg66.3%
Simplified66.3%
Taylor expanded in s around 0 66.3%
*-commutative66.3%
Simplified66.3%
Final simplification53.1%
(FPCore (x s) :precision binary32 (if (<= (- x) 1.9999999996399175e-23) 0.5 (* x (/ s (* x (- (* s 2.0) x))))))
float code(float x, float s) {
float tmp;
if (-x <= 1.9999999996399175e-23f) {
tmp = 0.5f;
} else {
tmp = x * (s / (x * ((s * 2.0f) - x)));
}
return tmp;
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: tmp
if (-x <= 1.9999999996399175e-23) then
tmp = 0.5e0
else
tmp = x * (s / (x * ((s * 2.0e0) - x)))
end if
code = tmp
end function
function code(x, s) tmp = Float32(0.0) if (Float32(-x) <= Float32(1.9999999996399175e-23)) tmp = Float32(0.5); else tmp = Float32(x * Float32(s / Float32(x * Float32(Float32(s * Float32(2.0)) - x)))); end return tmp end
function tmp_2 = code(x, s) tmp = single(0.0); if (-x <= single(1.9999999996399175e-23)) tmp = single(0.5); else tmp = x * (s / (x * ((s * single(2.0)) - x))); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;-x \leq 1.9999999996399175 \cdot 10^{-23}:\\
\;\;\;\;0.5\\
\mathbf{else}:\\
\;\;\;\;x \cdot \frac{s}{x \cdot \left(s \cdot 2 - x\right)}\\
\end{array}
\end{array}
if (neg.f32 x) < 2e-23Initial program 99.8%
Taylor expanded in x around 0 54.4%
if 2e-23 < (neg.f32 x) Initial program 99.8%
Taylor expanded in x around 0 48.8%
mul-1-neg48.8%
unsub-neg48.8%
Simplified48.8%
Taylor expanded in x around inf 48.7%
associate-*r/48.7%
metadata-eval48.7%
Simplified48.7%
associate-/r*45.6%
frac-sub50.9%
associate-/r/54.5%
*-rgt-identity54.5%
*-commutative54.5%
Applied egg-rr54.5%
associate-/r/50.9%
un-div-inv51.9%
associate-/r*55.2%
un-div-inv54.2%
Applied egg-rr54.2%
associate-/r*50.9%
associate-/r/54.5%
associate-/r*60.2%
*-commutative60.2%
associate-*r/62.3%
*-rgt-identity62.3%
associate-/l*61.1%
Simplified61.1%
Final simplification57.0%
(FPCore (x s) :precision binary32 (if (<= (/ (- x) s) 1.0) 0.5 (/ -1.0 (* x (/ 1.0 s)))))
float code(float x, float s) {
float tmp;
if ((-x / s) <= 1.0f) {
tmp = 0.5f;
} else {
tmp = -1.0f / (x * (1.0f / s));
}
return tmp;
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: tmp
if ((-x / s) <= 1.0e0) then
tmp = 0.5e0
else
tmp = (-1.0e0) / (x * (1.0e0 / s))
end if
code = tmp
end function
function code(x, s) tmp = Float32(0.0) if (Float32(Float32(-x) / s) <= Float32(1.0)) tmp = Float32(0.5); else tmp = Float32(Float32(-1.0) / Float32(x * Float32(Float32(1.0) / s))); end return tmp end
function tmp_2 = code(x, s) tmp = single(0.0); if ((-x / s) <= single(1.0)) tmp = single(0.5); else tmp = single(-1.0) / (x * (single(1.0) / s)); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{-x}{s} \leq 1:\\
\;\;\;\;0.5\\
\mathbf{else}:\\
\;\;\;\;\frac{-1}{x \cdot \frac{1}{s}}\\
\end{array}
\end{array}
if (/.f32 (neg.f32 x) s) < 1Initial program 99.8%
Taylor expanded in x around 0 56.9%
if 1 < (/.f32 (neg.f32 x) s) Initial program 99.9%
Taylor expanded in x around 0 42.2%
mul-1-neg42.2%
unsub-neg42.2%
Simplified42.2%
Taylor expanded in x around inf 42.2%
associate-*r/42.2%
metadata-eval42.2%
Simplified42.2%
Taylor expanded in x around inf 42.2%
Final simplification51.7%
(FPCore (x s) :precision binary32 (if (<= (/ x (- s)) -1.0) (/ 1.0 (* x (/ 2.0 x))) (/ 1.0 (- 2.0 (/ x s)))))
float code(float x, float s) {
float tmp;
if ((x / -s) <= -1.0f) {
tmp = 1.0f / (x * (2.0f / x));
} else {
tmp = 1.0f / (2.0f - (x / s));
}
return tmp;
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: tmp
if ((x / -s) <= (-1.0e0)) then
tmp = 1.0e0 / (x * (2.0e0 / x))
else
tmp = 1.0e0 / (2.0e0 - (x / s))
end if
code = tmp
end function
function code(x, s) tmp = Float32(0.0) if (Float32(x / Float32(-s)) <= Float32(-1.0)) tmp = Float32(Float32(1.0) / Float32(x * Float32(Float32(2.0) / x))); else tmp = Float32(Float32(1.0) / Float32(Float32(2.0) - Float32(x / s))); end return tmp end
function tmp_2 = code(x, s) tmp = single(0.0); if ((x / -s) <= single(-1.0)) tmp = single(1.0) / (x * (single(2.0) / x)); else tmp = single(1.0) / (single(2.0) - (x / s)); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{x}{-s} \leq -1:\\
\;\;\;\;\frac{1}{x \cdot \frac{2}{x}}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{2 - \frac{x}{s}}\\
\end{array}
\end{array}
if (/.f32 (neg.f32 x) s) < -1Initial program 100.0%
Taylor expanded in x around 0 5.3%
mul-1-neg5.3%
unsub-neg5.3%
Simplified5.3%
Taylor expanded in x around inf 5.3%
associate-*r/5.3%
metadata-eval5.3%
Simplified5.3%
Taylor expanded in x around 0 28.2%
if -1 < (/.f32 (neg.f32 x) s) Initial program 99.8%
Taylor expanded in x around 0 66.3%
mul-1-neg66.3%
unsub-neg66.3%
Simplified66.3%
Final simplification53.0%
(FPCore (x s) :precision binary32 (if (<= (/ (- x) s) 1.0) 0.5 (/ -1.0 (/ x s))))
float code(float x, float s) {
float tmp;
if ((-x / s) <= 1.0f) {
tmp = 0.5f;
} else {
tmp = -1.0f / (x / s);
}
return tmp;
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: tmp
if ((-x / s) <= 1.0e0) then
tmp = 0.5e0
else
tmp = (-1.0e0) / (x / s)
end if
code = tmp
end function
function code(x, s) tmp = Float32(0.0) if (Float32(Float32(-x) / s) <= Float32(1.0)) tmp = Float32(0.5); else tmp = Float32(Float32(-1.0) / Float32(x / s)); end return tmp end
function tmp_2 = code(x, s) tmp = single(0.0); if ((-x / s) <= single(1.0)) tmp = single(0.5); else tmp = single(-1.0) / (x / s); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{-x}{s} \leq 1:\\
\;\;\;\;0.5\\
\mathbf{else}:\\
\;\;\;\;\frac{-1}{\frac{x}{s}}\\
\end{array}
\end{array}
if (/.f32 (neg.f32 x) s) < 1Initial program 99.8%
Taylor expanded in x around 0 56.9%
if 1 < (/.f32 (neg.f32 x) s) Initial program 99.9%
Taylor expanded in x around 0 42.2%
mul-1-neg42.2%
unsub-neg42.2%
Simplified42.2%
Taylor expanded in x around inf 42.2%
mul-1-neg42.2%
distribute-frac-neg242.2%
Simplified42.2%
Final simplification51.7%
(FPCore (x s) :precision binary32 (if (<= x -9.999999747378752e-5) (/ s (- x)) 0.5))
float code(float x, float s) {
float tmp;
if (x <= -9.999999747378752e-5f) {
tmp = s / -x;
} else {
tmp = 0.5f;
}
return tmp;
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: tmp
if (x <= (-9.999999747378752e-5)) then
tmp = s / -x
else
tmp = 0.5e0
end if
code = tmp
end function
function code(x, s) tmp = Float32(0.0) if (x <= Float32(-9.999999747378752e-5)) tmp = Float32(s / Float32(-x)); else tmp = Float32(0.5); end return tmp end
function tmp_2 = code(x, s) tmp = single(0.0); if (x <= single(-9.999999747378752e-5)) tmp = s / -x; else tmp = single(0.5); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -9.999999747378752 \cdot 10^{-5}:\\
\;\;\;\;\frac{s}{-x}\\
\mathbf{else}:\\
\;\;\;\;0.5\\
\end{array}
\end{array}
if x < -9.99999975e-5Initial program 100.0%
Taylor expanded in x around 0 49.2%
mul-1-neg49.2%
unsub-neg49.2%
Simplified49.2%
Taylor expanded in x around inf 44.9%
associate-*r/44.9%
neg-mul-144.9%
Simplified44.9%
if -9.99999975e-5 < x Initial program 99.8%
Taylor expanded in x around 0 52.6%
Final simplification50.4%
(FPCore (x s) :precision binary32 0.5)
float code(float x, float s) {
return 0.5f;
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
code = 0.5e0
end function
function code(x, s) return Float32(0.5) end
function tmp = code(x, s) tmp = single(0.5); end
\begin{array}{l}
\\
0.5
\end{array}
Initial program 99.8%
Taylor expanded in x around 0 39.1%
Final simplification39.1%
herbie shell --seed 2024100
(FPCore (x s)
:name "Logistic function"
:precision binary32
:pre (and (<= 0.0 s) (<= s 1.0651631))
(/ 1.0 (+ 1.0 (exp (/ (- x) s)))))