
(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 20 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%
distribute-frac-neg99.8%
exp-neg99.8%
Applied egg-rr99.8%
add-exp-log99.8%
log-rec99.8%
log1p-udef99.8%
rec-exp99.8%
Applied egg-rr99.8%
distribute-neg-frac99.8%
Simplified99.8%
Final simplification99.8%
(FPCore (x s) :precision binary32 (/ 1.0 (+ 1.0 (pow (exp 3.0) (/ (* x -0.3333333333333333) s)))))
float code(float x, float s) {
return 1.0f / (1.0f + powf(expf(3.0f), ((x * -0.3333333333333333f) / s)));
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
code = 1.0e0 / (1.0e0 + (exp(3.0e0) ** ((x * (-0.3333333333333333e0)) / s)))
end function
function code(x, s) return Float32(Float32(1.0) / Float32(Float32(1.0) + (exp(Float32(3.0)) ^ Float32(Float32(x * Float32(-0.3333333333333333)) / s)))) end
function tmp = code(x, s) tmp = single(1.0) / (single(1.0) + (exp(single(3.0)) ^ ((x * single(-0.3333333333333333)) / s))); end
\begin{array}{l}
\\
\frac{1}{1 + {\left(e^{3}\right)}^{\left(\frac{x \cdot -0.3333333333333333}{s}\right)}}
\end{array}
Initial program 99.8%
distribute-frac-neg99.8%
exp-neg99.8%
div-inv99.7%
add-sqr-sqrt51.9%
sqrt-unprod63.4%
sqr-neg63.4%
sqrt-unprod13.0%
add-sqr-sqrt27.0%
div-inv27.0%
pow127.0%
pow127.0%
add-cbrt-cube27.0%
pow1/327.0%
pow-flip27.0%
Applied egg-rr99.2%
*-un-lft-identity99.2%
exp-prod99.2%
pow-pow99.8%
Applied egg-rr99.8%
*-lft-identity99.8%
associate-*l/99.8%
Simplified99.8%
Final simplification99.8%
(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 (if (<= (/ (- x) s) 20.0) (/ 1.0 (+ 1.0 (+ 1.0 (+ (/ 1.0 (+ 1.0 (/ x s))) -1.0)))) (/ 1.0 (+ 2.0 (- (* 0.5 (* x (* x (/ 1.0 (* s s))))) (/ x s))))))
float code(float x, float s) {
float tmp;
if ((-x / s) <= 20.0f) {
tmp = 1.0f / (1.0f + (1.0f + ((1.0f / (1.0f + (x / s))) + -1.0f)));
} else {
tmp = 1.0f / (2.0f + ((0.5f * (x * (x * (1.0f / (s * s))))) - (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) <= 20.0e0) then
tmp = 1.0e0 / (1.0e0 + (1.0e0 + ((1.0e0 / (1.0e0 + (x / s))) + (-1.0e0))))
else
tmp = 1.0e0 / (2.0e0 + ((0.5e0 * (x * (x * (1.0e0 / (s * s))))) - (x / s)))
end if
code = tmp
end function
function code(x, s) tmp = Float32(0.0) if (Float32(Float32(-x) / s) <= Float32(20.0)) tmp = Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(Float32(1.0) + Float32(Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(x / s))) + Float32(-1.0))))); else tmp = Float32(Float32(1.0) / Float32(Float32(2.0) + Float32(Float32(Float32(0.5) * Float32(x * Float32(x * Float32(Float32(1.0) / Float32(s * s))))) - Float32(x / s)))); end return tmp end
function tmp_2 = code(x, s) tmp = single(0.0); if ((-x / s) <= single(20.0)) tmp = single(1.0) / (single(1.0) + (single(1.0) + ((single(1.0) / (single(1.0) + (x / s))) + single(-1.0)))); else tmp = single(1.0) / (single(2.0) + ((single(0.5) * (x * (x * (single(1.0) / (s * s))))) - (x / s))); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{-x}{s} \leq 20:\\
\;\;\;\;\frac{1}{1 + \left(1 + \left(\frac{1}{1 + \frac{x}{s}} + -1\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{2 + \left(0.5 \cdot \left(x \cdot \left(x \cdot \frac{1}{s \cdot s}\right)\right) - \frac{x}{s}\right)}\\
\end{array}
\end{array}
if (/.f32 (neg.f32 x) s) < 20Initial program 99.8%
distribute-frac-neg99.8%
exp-neg99.8%
Applied egg-rr99.8%
Taylor expanded in x around 0 94.2%
expm1-log1p-u94.2%
expm1-udef94.2%
log1p-udef94.2%
add-exp-log94.2%
Applied egg-rr94.2%
associate--l+94.2%
sub-neg94.2%
+-commutative94.2%
metadata-eval94.2%
Simplified94.2%
if 20 < (/.f32 (neg.f32 x) s) Initial program 99.8%
Taylor expanded in x around 0 71.6%
mul-1-neg71.6%
unsub-neg71.6%
unpow271.6%
unpow271.6%
times-frac65.5%
Simplified65.5%
clear-num65.5%
frac-times67.4%
*-un-lft-identity67.4%
Applied egg-rr67.4%
frac-2neg67.4%
div-inv73.3%
add-sqr-sqrt73.3%
sqrt-unprod67.8%
sqr-neg67.8%
sqrt-unprod-0.0%
add-sqr-sqrt45.8%
associate-*l/50.9%
distribute-neg-frac50.9%
add-sqr-sqrt-0.0%
sqrt-unprod71.6%
sqr-neg71.6%
sqrt-unprod78.4%
add-sqr-sqrt78.4%
frac-2neg78.4%
Applied egg-rr78.4%
unpow278.4%
associate-/r/79.4%
unpow279.4%
Simplified79.4%
Final simplification89.0%
(FPCore (x s) :precision binary32 (if (<= (/ (- x) s) 20.0) (/ 1.0 (+ 1.0 (+ 1.0 (+ (/ 1.0 (+ 1.0 (/ x s))) -1.0)))) (/ 1.0 (+ 2.0 (- (* 0.5 (/ x (/ (* s s) x))) (/ x s))))))
float code(float x, float s) {
float tmp;
if ((-x / s) <= 20.0f) {
tmp = 1.0f / (1.0f + (1.0f + ((1.0f / (1.0f + (x / s))) + -1.0f)));
} else {
tmp = 1.0f / (2.0f + ((0.5f * (x / ((s * s) / x))) - (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) <= 20.0e0) then
tmp = 1.0e0 / (1.0e0 + (1.0e0 + ((1.0e0 / (1.0e0 + (x / s))) + (-1.0e0))))
else
tmp = 1.0e0 / (2.0e0 + ((0.5e0 * (x / ((s * s) / x))) - (x / s)))
end if
code = tmp
end function
function code(x, s) tmp = Float32(0.0) if (Float32(Float32(-x) / s) <= Float32(20.0)) tmp = Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(Float32(1.0) + Float32(Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(x / s))) + Float32(-1.0))))); else tmp = Float32(Float32(1.0) / Float32(Float32(2.0) + Float32(Float32(Float32(0.5) * Float32(x / Float32(Float32(s * s) / x))) - Float32(x / s)))); end return tmp end
function tmp_2 = code(x, s) tmp = single(0.0); if ((-x / s) <= single(20.0)) tmp = single(1.0) / (single(1.0) + (single(1.0) + ((single(1.0) / (single(1.0) + (x / s))) + single(-1.0)))); else tmp = single(1.0) / (single(2.0) + ((single(0.5) * (x / ((s * s) / x))) - (x / s))); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{-x}{s} \leq 20:\\
\;\;\;\;\frac{1}{1 + \left(1 + \left(\frac{1}{1 + \frac{x}{s}} + -1\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{2 + \left(0.5 \cdot \frac{x}{\frac{s \cdot s}{x}} - \frac{x}{s}\right)}\\
\end{array}
\end{array}
if (/.f32 (neg.f32 x) s) < 20Initial program 99.8%
distribute-frac-neg99.8%
exp-neg99.8%
Applied egg-rr99.8%
Taylor expanded in x around 0 94.2%
expm1-log1p-u94.2%
expm1-udef94.2%
log1p-udef94.2%
add-exp-log94.2%
Applied egg-rr94.2%
associate--l+94.2%
sub-neg94.2%
+-commutative94.2%
metadata-eval94.2%
Simplified94.2%
if 20 < (/.f32 (neg.f32 x) s) Initial program 99.8%
Taylor expanded in x around 0 71.6%
mul-1-neg71.6%
unsub-neg71.6%
unpow271.6%
unpow271.6%
times-frac65.5%
Simplified65.5%
clear-num65.5%
frac-times67.4%
*-un-lft-identity67.4%
Applied egg-rr67.4%
associate-*l/78.4%
Applied egg-rr78.4%
Final simplification88.6%
(FPCore (x s) :precision binary32 (if (<= (/ (- x) s) 1000.0) (/ 1.0 (+ 1.0 (+ 1.0 (+ (/ 1.0 (+ 1.0 (/ x s))) -1.0)))) (/ 1.0 (+ 2.0 (* 0.5 (/ (* x x) (* s s)))))))
float code(float x, float s) {
float tmp;
if ((-x / s) <= 1000.0f) {
tmp = 1.0f / (1.0f + (1.0f + ((1.0f / (1.0f + (x / s))) + -1.0f)));
} else {
tmp = 1.0f / (2.0f + (0.5f * ((x * x) / (s * 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) <= 1000.0e0) then
tmp = 1.0e0 / (1.0e0 + (1.0e0 + ((1.0e0 / (1.0e0 + (x / s))) + (-1.0e0))))
else
tmp = 1.0e0 / (2.0e0 + (0.5e0 * ((x * x) / (s * s))))
end if
code = tmp
end function
function code(x, s) tmp = Float32(0.0) if (Float32(Float32(-x) / s) <= Float32(1000.0)) tmp = Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(Float32(1.0) + Float32(Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(x / s))) + Float32(-1.0))))); else tmp = Float32(Float32(1.0) / Float32(Float32(2.0) + Float32(Float32(0.5) * Float32(Float32(x * x) / Float32(s * s))))); end return tmp end
function tmp_2 = code(x, s) tmp = single(0.0); if ((-x / s) <= single(1000.0)) tmp = single(1.0) / (single(1.0) + (single(1.0) + ((single(1.0) / (single(1.0) + (x / s))) + single(-1.0)))); else tmp = single(1.0) / (single(2.0) + (single(0.5) * ((x * x) / (s * s)))); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{-x}{s} \leq 1000:\\
\;\;\;\;\frac{1}{1 + \left(1 + \left(\frac{1}{1 + \frac{x}{s}} + -1\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{2 + 0.5 \cdot \frac{x \cdot x}{s \cdot s}}\\
\end{array}
\end{array}
if (/.f32 (neg.f32 x) s) < 1e3Initial program 99.7%
distribute-frac-neg99.7%
exp-neg99.6%
Applied egg-rr99.6%
Taylor expanded in x around 0 92.1%
expm1-log1p-u92.1%
expm1-udef92.1%
log1p-udef92.1%
add-exp-log92.1%
Applied egg-rr92.1%
associate--l+92.2%
sub-neg92.2%
+-commutative92.2%
metadata-eval92.2%
Simplified92.2%
if 1e3 < (/.f32 (neg.f32 x) s) Initial program 100.0%
Taylor expanded in x around 0 74.8%
mul-1-neg74.8%
unsub-neg74.8%
unpow274.8%
unpow274.8%
times-frac68.1%
Simplified68.1%
clear-num68.1%
frac-times70.1%
*-un-lft-identity70.1%
Applied egg-rr70.1%
Taylor expanded in x around inf 74.8%
*-commutative74.8%
unpow274.8%
unpow274.8%
Simplified74.8%
Final simplification86.3%
(FPCore (x s)
:precision binary32
(let* ((t_0 (/ (- x) s)))
(if (<= t_0 -4.0)
(/ 1.0 (+ 1.0 (/ s x)))
(if (<= t_0 2.0) (+ 0.5 (* (/ x s) 0.25)) (* 2.0 (/ (* s s) (* x x)))))))
float code(float x, float s) {
float t_0 = -x / s;
float tmp;
if (t_0 <= -4.0f) {
tmp = 1.0f / (1.0f + (s / x));
} else if (t_0 <= 2.0f) {
tmp = 0.5f + ((x / s) * 0.25f);
} else {
tmp = 2.0f * ((s * s) / (x * 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 <= (-4.0e0)) then
tmp = 1.0e0 / (1.0e0 + (s / x))
else if (t_0 <= 2.0e0) then
tmp = 0.5e0 + ((x / s) * 0.25e0)
else
tmp = 2.0e0 * ((s * s) / (x * 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(-4.0)) tmp = Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(s / x))); elseif (t_0 <= Float32(2.0)) tmp = Float32(Float32(0.5) + Float32(Float32(x / s) * Float32(0.25))); else tmp = Float32(Float32(2.0) * Float32(Float32(s * s) / Float32(x * x))); end return tmp end
function tmp_2 = code(x, s) t_0 = -x / s; tmp = single(0.0); if (t_0 <= single(-4.0)) tmp = single(1.0) / (single(1.0) + (s / x)); elseif (t_0 <= single(2.0)) tmp = single(0.5) + ((x / s) * single(0.25)); else tmp = single(2.0) * ((s * s) / (x * x)); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{-x}{s}\\
\mathbf{if}\;t_0 \leq -4:\\
\;\;\;\;\frac{1}{1 + \frac{s}{x}}\\
\mathbf{elif}\;t_0 \leq 2:\\
\;\;\;\;0.5 + \frac{x}{s} \cdot 0.25\\
\mathbf{else}:\\
\;\;\;\;2 \cdot \frac{s \cdot s}{x \cdot x}\\
\end{array}
\end{array}
if (/.f32 (neg.f32 x) s) < -4Initial program 100.0%
distribute-frac-neg100.0%
exp-neg100.0%
Applied egg-rr100.0%
Taylor expanded in x around 0 94.9%
Taylor expanded in x around inf 94.9%
if -4 < (/.f32 (neg.f32 x) s) < 2Initial program 99.7%
Taylor expanded in x around 0 97.4%
*-commutative97.4%
Simplified97.4%
if 2 < (/.f32 (neg.f32 x) s) Initial program 99.6%
Taylor expanded in x around 0 70.3%
mul-1-neg70.3%
unsub-neg70.3%
unpow270.3%
unpow270.3%
times-frac64.4%
Simplified64.4%
Taylor expanded in x around inf 69.2%
unpow269.2%
unpow269.2%
Simplified69.2%
Final simplification86.2%
(FPCore (x s)
:precision binary32
(let* ((t_0 (/ (- x) s)))
(if (<= t_0 -4.0)
(/ 1.0 (+ 1.0 (/ s x)))
(if (<= t_0 2.0) (+ 0.5 (* (/ x s) 0.25)) (/ (* 2.0 (* s s)) (* x x))))))
float code(float x, float s) {
float t_0 = -x / s;
float tmp;
if (t_0 <= -4.0f) {
tmp = 1.0f / (1.0f + (s / x));
} else if (t_0 <= 2.0f) {
tmp = 0.5f + ((x / s) * 0.25f);
} else {
tmp = (2.0f * (s * s)) / (x * 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 <= (-4.0e0)) then
tmp = 1.0e0 / (1.0e0 + (s / x))
else if (t_0 <= 2.0e0) then
tmp = 0.5e0 + ((x / s) * 0.25e0)
else
tmp = (2.0e0 * (s * s)) / (x * 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(-4.0)) tmp = Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(s / x))); elseif (t_0 <= Float32(2.0)) tmp = Float32(Float32(0.5) + Float32(Float32(x / s) * Float32(0.25))); else tmp = Float32(Float32(Float32(2.0) * Float32(s * s)) / Float32(x * x)); end return tmp end
function tmp_2 = code(x, s) t_0 = -x / s; tmp = single(0.0); if (t_0 <= single(-4.0)) tmp = single(1.0) / (single(1.0) + (s / x)); elseif (t_0 <= single(2.0)) tmp = single(0.5) + ((x / s) * single(0.25)); else tmp = (single(2.0) * (s * s)) / (x * x); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{-x}{s}\\
\mathbf{if}\;t_0 \leq -4:\\
\;\;\;\;\frac{1}{1 + \frac{s}{x}}\\
\mathbf{elif}\;t_0 \leq 2:\\
\;\;\;\;0.5 + \frac{x}{s} \cdot 0.25\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot \left(s \cdot s\right)}{x \cdot x}\\
\end{array}
\end{array}
if (/.f32 (neg.f32 x) s) < -4Initial program 100.0%
distribute-frac-neg100.0%
exp-neg100.0%
Applied egg-rr100.0%
Taylor expanded in x around 0 94.9%
Taylor expanded in x around inf 94.9%
if -4 < (/.f32 (neg.f32 x) s) < 2Initial program 99.7%
Taylor expanded in x around 0 97.4%
*-commutative97.4%
Simplified97.4%
if 2 < (/.f32 (neg.f32 x) s) Initial program 99.6%
Taylor expanded in x around 0 70.3%
mul-1-neg70.3%
unsub-neg70.3%
unpow270.3%
unpow270.3%
times-frac64.4%
Simplified64.4%
clear-num64.4%
frac-times66.3%
*-un-lft-identity66.3%
Applied egg-rr66.3%
Taylor expanded in x around inf 69.2%
associate-*r/69.2%
unpow269.2%
unpow269.2%
Simplified69.2%
Final simplification86.2%
(FPCore (x s) :precision binary32 (if (<= (/ (- x) s) 1000.0) (/ 1.0 (+ 1.0 (/ 1.0 (+ 1.0 (/ x s))))) (/ 1.0 (+ 2.0 (* 0.5 (/ (* x x) (* s s)))))))
float code(float x, float s) {
float tmp;
if ((-x / s) <= 1000.0f) {
tmp = 1.0f / (1.0f + (1.0f / (1.0f + (x / s))));
} else {
tmp = 1.0f / (2.0f + (0.5f * ((x * x) / (s * 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) <= 1000.0e0) then
tmp = 1.0e0 / (1.0e0 + (1.0e0 / (1.0e0 + (x / s))))
else
tmp = 1.0e0 / (2.0e0 + (0.5e0 * ((x * x) / (s * s))))
end if
code = tmp
end function
function code(x, s) tmp = Float32(0.0) if (Float32(Float32(-x) / s) <= Float32(1000.0)) tmp = Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(x / s))))); else tmp = Float32(Float32(1.0) / Float32(Float32(2.0) + Float32(Float32(0.5) * Float32(Float32(x * x) / Float32(s * s))))); end return tmp end
function tmp_2 = code(x, s) tmp = single(0.0); if ((-x / s) <= single(1000.0)) tmp = single(1.0) / (single(1.0) + (single(1.0) / (single(1.0) + (x / s)))); else tmp = single(1.0) / (single(2.0) + (single(0.5) * ((x * x) / (s * s)))); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{-x}{s} \leq 1000:\\
\;\;\;\;\frac{1}{1 + \frac{1}{1 + \frac{x}{s}}}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{2 + 0.5 \cdot \frac{x \cdot x}{s \cdot s}}\\
\end{array}
\end{array}
if (/.f32 (neg.f32 x) s) < 1e3Initial program 99.7%
distribute-frac-neg99.7%
exp-neg99.6%
Applied egg-rr99.6%
Taylor expanded in x around 0 92.1%
if 1e3 < (/.f32 (neg.f32 x) s) Initial program 100.0%
Taylor expanded in x around 0 74.8%
mul-1-neg74.8%
unsub-neg74.8%
unpow274.8%
unpow274.8%
times-frac68.1%
Simplified68.1%
clear-num68.1%
frac-times70.1%
*-un-lft-identity70.1%
Applied egg-rr70.1%
Taylor expanded in x around inf 74.8%
*-commutative74.8%
unpow274.8%
unpow274.8%
Simplified74.8%
Final simplification86.2%
(FPCore (x s) :precision binary32 (if (<= (- x) 1.9999999996399175e-23) (/ 1.0 (+ 1.0 (+ 1.0 (+ (/ 1.0 (+ 1.0 (/ x s))) -1.0)))) (/ 1.0 (+ 2.0 (- (/ (* x x) (* s s)) (/ x s))))))
float code(float x, float s) {
float tmp;
if (-x <= 1.9999999996399175e-23f) {
tmp = 1.0f / (1.0f + (1.0f + ((1.0f / (1.0f + (x / s))) + -1.0f)));
} else {
tmp = 1.0f / (2.0f + (((x * x) / (s * s)) - (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 = 1.0e0 / (1.0e0 + (1.0e0 + ((1.0e0 / (1.0e0 + (x / s))) + (-1.0e0))))
else
tmp = 1.0e0 / (2.0e0 + (((x * x) / (s * s)) - (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(Float32(1.0) / Float32(Float32(1.0) + Float32(Float32(1.0) + Float32(Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(x / s))) + Float32(-1.0))))); else tmp = Float32(Float32(1.0) / Float32(Float32(2.0) + Float32(Float32(Float32(x * x) / Float32(s * s)) - 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(1.0) / (single(1.0) + (single(1.0) + ((single(1.0) / (single(1.0) + (x / s))) + single(-1.0)))); else tmp = single(1.0) / (single(2.0) + (((x * x) / (s * s)) - (x / s))); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;-x \leq 1.9999999996399175 \cdot 10^{-23}:\\
\;\;\;\;\frac{1}{1 + \left(1 + \left(\frac{1}{1 + \frac{x}{s}} + -1\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{2 + \left(\frac{x \cdot x}{s \cdot s} - \frac{x}{s}\right)}\\
\end{array}
\end{array}
if (neg.f32 x) < 2e-23Initial program 99.8%
distribute-frac-neg99.8%
exp-neg99.8%
Applied egg-rr99.8%
Taylor expanded in x around 0 90.8%
expm1-log1p-u90.7%
expm1-udef90.7%
log1p-udef90.8%
add-exp-log90.8%
Applied egg-rr90.8%
associate--l+90.8%
sub-neg90.8%
+-commutative90.8%
metadata-eval90.8%
Simplified90.8%
if 2e-23 < (neg.f32 x) Initial program 99.8%
distribute-frac-neg99.8%
exp-neg99.8%
Applied egg-rr99.8%
Taylor expanded in x around 0 12.5%
Taylor expanded in x around 0 78.4%
unpow278.4%
unpow278.4%
mul-1-neg78.4%
Simplified78.4%
Final simplification86.4%
(FPCore (x s)
:precision binary32
(let* ((t_0 (/ (- x) s)))
(if (<= t_0 -4.0)
(- 1.0 (/ s x))
(if (<= t_0 2.0) (+ 0.5 (* (/ x s) 0.25)) (/ 1.0 t_0)))))
float code(float x, float s) {
float t_0 = -x / s;
float tmp;
if (t_0 <= -4.0f) {
tmp = 1.0f - (s / x);
} else if (t_0 <= 2.0f) {
tmp = 0.5f + ((x / s) * 0.25f);
} else {
tmp = 1.0f / t_0;
}
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 <= (-4.0e0)) then
tmp = 1.0e0 - (s / x)
else if (t_0 <= 2.0e0) then
tmp = 0.5e0 + ((x / s) * 0.25e0)
else
tmp = 1.0e0 / t_0
end if
code = tmp
end function
function code(x, s) t_0 = Float32(Float32(-x) / s) tmp = Float32(0.0) if (t_0 <= Float32(-4.0)) tmp = Float32(Float32(1.0) - Float32(s / x)); elseif (t_0 <= Float32(2.0)) tmp = Float32(Float32(0.5) + Float32(Float32(x / s) * Float32(0.25))); else tmp = Float32(Float32(1.0) / t_0); end return tmp end
function tmp_2 = code(x, s) t_0 = -x / s; tmp = single(0.0); if (t_0 <= single(-4.0)) tmp = single(1.0) - (s / x); elseif (t_0 <= single(2.0)) tmp = single(0.5) + ((x / s) * single(0.25)); else tmp = single(1.0) / t_0; end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{-x}{s}\\
\mathbf{if}\;t_0 \leq -4:\\
\;\;\;\;1 - \frac{s}{x}\\
\mathbf{elif}\;t_0 \leq 2:\\
\;\;\;\;0.5 + \frac{x}{s} \cdot 0.25\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{t_0}\\
\end{array}
\end{array}
if (/.f32 (neg.f32 x) s) < -4Initial program 100.0%
distribute-frac-neg100.0%
exp-neg100.0%
Applied egg-rr100.0%
Taylor expanded in x around 0 94.9%
Taylor expanded in x around inf 94.9%
+-commutative94.9%
neg-mul-194.9%
unsub-neg94.9%
Simplified94.9%
if -4 < (/.f32 (neg.f32 x) s) < 2Initial program 99.7%
Taylor expanded in x around 0 97.4%
*-commutative97.4%
Simplified97.4%
if 2 < (/.f32 (neg.f32 x) s) Initial program 99.6%
Taylor expanded in x around 0 34.7%
mul-1-neg34.7%
unsub-neg34.7%
Simplified34.7%
Taylor expanded in x around inf 34.7%
neg-mul-134.7%
distribute-neg-frac34.7%
Simplified34.7%
Final simplification73.6%
(FPCore (x s)
:precision binary32
(let* ((t_0 (/ (- x) s)))
(if (<= t_0 -4.0)
(/ 1.0 (+ 1.0 (/ s x)))
(if (<= t_0 2.0) (+ 0.5 (* (/ x s) 0.25)) (/ 1.0 t_0)))))
float code(float x, float s) {
float t_0 = -x / s;
float tmp;
if (t_0 <= -4.0f) {
tmp = 1.0f / (1.0f + (s / x));
} else if (t_0 <= 2.0f) {
tmp = 0.5f + ((x / s) * 0.25f);
} else {
tmp = 1.0f / t_0;
}
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 <= (-4.0e0)) then
tmp = 1.0e0 / (1.0e0 + (s / x))
else if (t_0 <= 2.0e0) then
tmp = 0.5e0 + ((x / s) * 0.25e0)
else
tmp = 1.0e0 / t_0
end if
code = tmp
end function
function code(x, s) t_0 = Float32(Float32(-x) / s) tmp = Float32(0.0) if (t_0 <= Float32(-4.0)) tmp = Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(s / x))); elseif (t_0 <= Float32(2.0)) tmp = Float32(Float32(0.5) + Float32(Float32(x / s) * Float32(0.25))); else tmp = Float32(Float32(1.0) / t_0); end return tmp end
function tmp_2 = code(x, s) t_0 = -x / s; tmp = single(0.0); if (t_0 <= single(-4.0)) tmp = single(1.0) / (single(1.0) + (s / x)); elseif (t_0 <= single(2.0)) tmp = single(0.5) + ((x / s) * single(0.25)); else tmp = single(1.0) / t_0; end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{-x}{s}\\
\mathbf{if}\;t_0 \leq -4:\\
\;\;\;\;\frac{1}{1 + \frac{s}{x}}\\
\mathbf{elif}\;t_0 \leq 2:\\
\;\;\;\;0.5 + \frac{x}{s} \cdot 0.25\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{t_0}\\
\end{array}
\end{array}
if (/.f32 (neg.f32 x) s) < -4Initial program 100.0%
distribute-frac-neg100.0%
exp-neg100.0%
Applied egg-rr100.0%
Taylor expanded in x around 0 94.9%
Taylor expanded in x around inf 94.9%
if -4 < (/.f32 (neg.f32 x) s) < 2Initial program 99.7%
Taylor expanded in x around 0 97.4%
*-commutative97.4%
Simplified97.4%
if 2 < (/.f32 (neg.f32 x) s) Initial program 99.6%
Taylor expanded in x around 0 34.7%
mul-1-neg34.7%
unsub-neg34.7%
Simplified34.7%
Taylor expanded in x around inf 34.7%
neg-mul-134.7%
distribute-neg-frac34.7%
Simplified34.7%
Final simplification73.6%
(FPCore (x s) :precision binary32 (let* ((t_0 (/ (- x) s))) (if (<= t_0 -4.0) (- 1.0 (/ s x)) (if (<= t_0 2.0) 0.5 (/ 1.0 t_0)))))
float code(float x, float s) {
float t_0 = -x / s;
float tmp;
if (t_0 <= -4.0f) {
tmp = 1.0f - (s / x);
} else if (t_0 <= 2.0f) {
tmp = 0.5f;
} else {
tmp = 1.0f / t_0;
}
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 <= (-4.0e0)) then
tmp = 1.0e0 - (s / x)
else if (t_0 <= 2.0e0) then
tmp = 0.5e0
else
tmp = 1.0e0 / t_0
end if
code = tmp
end function
function code(x, s) t_0 = Float32(Float32(-x) / s) tmp = Float32(0.0) if (t_0 <= Float32(-4.0)) tmp = Float32(Float32(1.0) - Float32(s / x)); elseif (t_0 <= Float32(2.0)) tmp = Float32(0.5); else tmp = Float32(Float32(1.0) / t_0); end return tmp end
function tmp_2 = code(x, s) t_0 = -x / s; tmp = single(0.0); if (t_0 <= single(-4.0)) tmp = single(1.0) - (s / x); elseif (t_0 <= single(2.0)) tmp = single(0.5); else tmp = single(1.0) / t_0; end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{-x}{s}\\
\mathbf{if}\;t_0 \leq -4:\\
\;\;\;\;1 - \frac{s}{x}\\
\mathbf{elif}\;t_0 \leq 2:\\
\;\;\;\;0.5\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{t_0}\\
\end{array}
\end{array}
if (/.f32 (neg.f32 x) s) < -4Initial program 100.0%
distribute-frac-neg100.0%
exp-neg100.0%
Applied egg-rr100.0%
Taylor expanded in x around 0 94.9%
Taylor expanded in x around inf 94.9%
+-commutative94.9%
neg-mul-194.9%
unsub-neg94.9%
Simplified94.9%
if -4 < (/.f32 (neg.f32 x) s) < 2Initial program 99.7%
Taylor expanded in x around 0 91.5%
if 2 < (/.f32 (neg.f32 x) s) Initial program 99.6%
Taylor expanded in x around 0 34.7%
mul-1-neg34.7%
unsub-neg34.7%
Simplified34.7%
Taylor expanded in x around inf 34.7%
neg-mul-134.7%
distribute-neg-frac34.7%
Simplified34.7%
Final simplification72.2%
(FPCore (x s) :precision binary32 (if (<= (/ (- x) s) 1000.0) (/ 1.0 (+ 1.0 (/ -1.0 (+ (/ x s) -1.0)))) (/ (* 2.0 (* s s)) (* x x))))
float code(float x, float s) {
float tmp;
if ((-x / s) <= 1000.0f) {
tmp = 1.0f / (1.0f + (-1.0f / ((x / s) + -1.0f)));
} else {
tmp = (2.0f * (s * s)) / (x * x);
}
return tmp;
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: tmp
if ((-x / s) <= 1000.0e0) then
tmp = 1.0e0 / (1.0e0 + ((-1.0e0) / ((x / s) + (-1.0e0))))
else
tmp = (2.0e0 * (s * s)) / (x * x)
end if
code = tmp
end function
function code(x, s) tmp = Float32(0.0) if (Float32(Float32(-x) / s) <= Float32(1000.0)) tmp = Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(Float32(-1.0) / Float32(Float32(x / s) + Float32(-1.0))))); else tmp = Float32(Float32(Float32(2.0) * Float32(s * s)) / Float32(x * x)); end return tmp end
function tmp_2 = code(x, s) tmp = single(0.0); if ((-x / s) <= single(1000.0)) tmp = single(1.0) / (single(1.0) + (single(-1.0) / ((x / s) + single(-1.0)))); else tmp = (single(2.0) * (s * s)) / (x * x); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{-x}{s} \leq 1000:\\
\;\;\;\;\frac{1}{1 + \frac{-1}{\frac{x}{s} + -1}}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot \left(s \cdot s\right)}{x \cdot x}\\
\end{array}
\end{array}
if (/.f32 (neg.f32 x) s) < 1e3Initial program 99.7%
distribute-frac-neg99.7%
exp-neg99.6%
Applied egg-rr99.6%
Taylor expanded in x around 0 92.1%
frac-2neg92.1%
metadata-eval92.1%
div-inv92.1%
+-commutative92.1%
distribute-neg-in92.1%
distribute-frac-neg92.1%
add-sqr-sqrt17.3%
sqrt-unprod89.8%
sqr-neg89.8%
sqrt-unprod73.9%
add-sqr-sqrt90.4%
metadata-eval90.4%
Applied egg-rr90.4%
metadata-eval90.4%
sub-neg90.4%
associate-*r/90.4%
metadata-eval90.4%
sub-neg90.4%
metadata-eval90.4%
Simplified90.4%
if 1e3 < (/.f32 (neg.f32 x) s) Initial program 100.0%
Taylor expanded in x around 0 74.8%
mul-1-neg74.8%
unsub-neg74.8%
unpow274.8%
unpow274.8%
times-frac68.1%
Simplified68.1%
clear-num68.1%
frac-times70.1%
*-un-lft-identity70.1%
Applied egg-rr70.1%
Taylor expanded in x around inf 73.7%
associate-*r/73.7%
unpow273.7%
unpow273.7%
Simplified73.7%
Final simplification84.7%
(FPCore (x s) :precision binary32 (if (<= (/ (- x) s) 1000.0) (/ 1.0 (+ 1.0 (/ 1.0 (+ 1.0 (/ x s))))) (/ (* 2.0 (* s s)) (* x x))))
float code(float x, float s) {
float tmp;
if ((-x / s) <= 1000.0f) {
tmp = 1.0f / (1.0f + (1.0f / (1.0f + (x / s))));
} else {
tmp = (2.0f * (s * s)) / (x * x);
}
return tmp;
}
real(4) function code(x, s)
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: tmp
if ((-x / s) <= 1000.0e0) then
tmp = 1.0e0 / (1.0e0 + (1.0e0 / (1.0e0 + (x / s))))
else
tmp = (2.0e0 * (s * s)) / (x * x)
end if
code = tmp
end function
function code(x, s) tmp = Float32(0.0) if (Float32(Float32(-x) / s) <= Float32(1000.0)) tmp = Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(x / s))))); else tmp = Float32(Float32(Float32(2.0) * Float32(s * s)) / Float32(x * x)); end return tmp end
function tmp_2 = code(x, s) tmp = single(0.0); if ((-x / s) <= single(1000.0)) tmp = single(1.0) / (single(1.0) + (single(1.0) / (single(1.0) + (x / s)))); else tmp = (single(2.0) * (s * s)) / (x * x); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{-x}{s} \leq 1000:\\
\;\;\;\;\frac{1}{1 + \frac{1}{1 + \frac{x}{s}}}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot \left(s \cdot s\right)}{x \cdot x}\\
\end{array}
\end{array}
if (/.f32 (neg.f32 x) s) < 1e3Initial program 99.7%
distribute-frac-neg99.7%
exp-neg99.6%
Applied egg-rr99.6%
Taylor expanded in x around 0 92.1%
if 1e3 < (/.f32 (neg.f32 x) s) Initial program 100.0%
Taylor expanded in x around 0 74.8%
mul-1-neg74.8%
unsub-neg74.8%
unpow274.8%
unpow274.8%
times-frac68.1%
Simplified68.1%
clear-num68.1%
frac-times70.1%
*-un-lft-identity70.1%
Applied egg-rr70.1%
Taylor expanded in x around inf 73.7%
associate-*r/73.7%
unpow273.7%
unpow273.7%
Simplified73.7%
Final simplification85.9%
(FPCore (x s) :precision binary32 (if (<= (/ (- x) s) -4.0) (/ 1.0 (+ 1.0 (/ s x))) (/ 1.0 (- 2.0 (/ x s)))))
float code(float x, float s) {
float tmp;
if ((-x / s) <= -4.0f) {
tmp = 1.0f / (1.0f + (s / 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) <= (-4.0e0)) then
tmp = 1.0e0 / (1.0e0 + (s / 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(Float32(-x) / s) <= Float32(-4.0)) tmp = Float32(Float32(1.0) / Float32(Float32(1.0) + Float32(s / 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(-4.0)) tmp = single(1.0) / (single(1.0) + (s / 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 -4:\\
\;\;\;\;\frac{1}{1 + \frac{s}{x}}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{2 - \frac{x}{s}}\\
\end{array}
\end{array}
if (/.f32 (neg.f32 x) s) < -4Initial program 100.0%
distribute-frac-neg100.0%
exp-neg100.0%
Applied egg-rr100.0%
Taylor expanded in x around 0 94.9%
Taylor expanded in x around inf 94.9%
if -4 < (/.f32 (neg.f32 x) s) Initial program 99.7%
Taylor expanded in x around 0 59.2%
mul-1-neg59.2%
unsub-neg59.2%
Simplified59.2%
Final simplification73.3%
(FPCore (x s) :precision binary32 (if (<= x -1.999999987845058e-8) (/ s x) (if (<= x 3.999999935100636e-17) 0.5 (- 1.0 (/ s x)))))
float code(float x, float s) {
float tmp;
if (x <= -1.999999987845058e-8f) {
tmp = s / x;
} else if (x <= 3.999999935100636e-17f) {
tmp = 0.5f;
} else {
tmp = 1.0f - (s / 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.999999987845058e-8)) then
tmp = s / x
else if (x <= 3.999999935100636e-17) then
tmp = 0.5e0
else
tmp = 1.0e0 - (s / x)
end if
code = tmp
end function
function code(x, s) tmp = Float32(0.0) if (x <= Float32(-1.999999987845058e-8)) tmp = Float32(s / x); elseif (x <= Float32(3.999999935100636e-17)) tmp = Float32(0.5); else tmp = Float32(Float32(1.0) - Float32(s / x)); end return tmp end
function tmp_2 = code(x, s) tmp = single(0.0); if (x <= single(-1.999999987845058e-8)) tmp = s / x; elseif (x <= single(3.999999935100636e-17)) tmp = single(0.5); else tmp = single(1.0) - (s / x); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -1.999999987845058 \cdot 10^{-8}:\\
\;\;\;\;\frac{s}{x}\\
\mathbf{elif}\;x \leq 3.999999935100636 \cdot 10^{-17}:\\
\;\;\;\;0.5\\
\mathbf{else}:\\
\;\;\;\;1 - \frac{s}{x}\\
\end{array}
\end{array}
if x < -1.99999999e-8Initial program 100.0%
Taylor expanded in x around 0 42.4%
mul-1-neg42.4%
unsub-neg42.4%
Simplified42.4%
Taylor expanded in x around inf 42.4%
neg-mul-142.4%
distribute-neg-frac42.4%
Simplified42.4%
associate-/r/39.9%
add-sqr-sqrt39.9%
sqrt-unprod53.3%
sqr-neg53.3%
sqrt-unprod-0.0%
add-sqr-sqrt39.9%
Applied egg-rr39.9%
Taylor expanded in x around 0 39.9%
if -1.99999999e-8 < x < 3.99999994e-17Initial program 99.4%
Taylor expanded in x around 0 66.8%
if 3.99999994e-17 < x Initial program 99.9%
distribute-frac-neg99.9%
exp-neg99.9%
Applied egg-rr99.9%
Taylor expanded in x around 0 95.6%
Taylor expanded in x around inf 93.7%
+-commutative93.7%
neg-mul-193.7%
unsub-neg93.7%
Simplified93.7%
Final simplification69.3%
(FPCore (x s) :precision binary32 (if (<= x -1.999999987845058e-8) (/ 1.0 (/ x s)) (if (<= x 3.999999935100636e-17) 0.5 (- 1.0 (/ s x)))))
float code(float x, float s) {
float tmp;
if (x <= -1.999999987845058e-8f) {
tmp = 1.0f / (x / s);
} else if (x <= 3.999999935100636e-17f) {
tmp = 0.5f;
} else {
tmp = 1.0f - (s / 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.999999987845058e-8)) then
tmp = 1.0e0 / (x / s)
else if (x <= 3.999999935100636e-17) then
tmp = 0.5e0
else
tmp = 1.0e0 - (s / x)
end if
code = tmp
end function
function code(x, s) tmp = Float32(0.0) if (x <= Float32(-1.999999987845058e-8)) tmp = Float32(Float32(1.0) / Float32(x / s)); elseif (x <= Float32(3.999999935100636e-17)) tmp = Float32(0.5); else tmp = Float32(Float32(1.0) - Float32(s / x)); end return tmp end
function tmp_2 = code(x, s) tmp = single(0.0); if (x <= single(-1.999999987845058e-8)) tmp = single(1.0) / (x / s); elseif (x <= single(3.999999935100636e-17)) tmp = single(0.5); else tmp = single(1.0) - (s / x); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -1.999999987845058 \cdot 10^{-8}:\\
\;\;\;\;\frac{1}{\frac{x}{s}}\\
\mathbf{elif}\;x \leq 3.999999935100636 \cdot 10^{-17}:\\
\;\;\;\;0.5\\
\mathbf{else}:\\
\;\;\;\;1 - \frac{s}{x}\\
\end{array}
\end{array}
if x < -1.99999999e-8Initial program 100.0%
Taylor expanded in x around 0 42.4%
mul-1-neg42.4%
unsub-neg42.4%
Simplified42.4%
Taylor expanded in x around inf 42.4%
neg-mul-142.4%
distribute-neg-frac42.4%
Simplified42.4%
clear-num39.9%
add-sqr-sqrt39.9%
sqrt-unprod53.3%
sqr-neg53.3%
sqrt-unprod-0.0%
add-sqr-sqrt39.9%
clear-num42.4%
inv-pow42.4%
Applied egg-rr42.4%
unpow-142.4%
Simplified42.4%
if -1.99999999e-8 < x < 3.99999994e-17Initial program 99.4%
Taylor expanded in x around 0 66.8%
if 3.99999994e-17 < x Initial program 99.9%
distribute-frac-neg99.9%
exp-neg99.9%
Applied egg-rr99.9%
Taylor expanded in x around 0 95.6%
Taylor expanded in x around inf 93.7%
+-commutative93.7%
neg-mul-193.7%
unsub-neg93.7%
Simplified93.7%
Final simplification70.0%
(FPCore (x s) :precision binary32 (if (<= x -1.999999987845058e-8) (/ s x) 0.5))
float code(float x, float s) {
float tmp;
if (x <= -1.999999987845058e-8f) {
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 <= (-1.999999987845058e-8)) 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(-1.999999987845058e-8)) tmp = Float32(s / x); else tmp = Float32(0.5); end return tmp end
function tmp_2 = code(x, s) tmp = single(0.0); if (x <= single(-1.999999987845058e-8)) tmp = s / x; else tmp = single(0.5); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -1.999999987845058 \cdot 10^{-8}:\\
\;\;\;\;\frac{s}{x}\\
\mathbf{else}:\\
\;\;\;\;0.5\\
\end{array}
\end{array}
if x < -1.99999999e-8Initial program 100.0%
Taylor expanded in x around 0 42.4%
mul-1-neg42.4%
unsub-neg42.4%
Simplified42.4%
Taylor expanded in x around inf 42.4%
neg-mul-142.4%
distribute-neg-frac42.4%
Simplified42.4%
associate-/r/39.9%
add-sqr-sqrt39.9%
sqrt-unprod53.3%
sqr-neg53.3%
sqrt-unprod-0.0%
add-sqr-sqrt39.9%
Applied egg-rr39.9%
Taylor expanded in x around 0 39.9%
if -1.99999999e-8 < x Initial program 99.7%
Taylor expanded in x around 0 47.1%
Final simplification45.1%
(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 35.6%
Final simplification35.6%
herbie shell --seed 2023208
(FPCore (x s)
:name "Logistic function"
:precision binary32
:pre (and (<= 0.0 s) (<= s 1.0651631))
(/ 1.0 (+ 1.0 (exp (/ (- x) s)))))