
(FPCore (alpha u0) :precision binary32 (* (* (- alpha) alpha) (log (- 1.0 u0))))
float code(float alpha, float u0) {
return (-alpha * alpha) * logf((1.0f - u0));
}
real(4) function code(alpha, u0)
real(4), intent (in) :: alpha
real(4), intent (in) :: u0
code = (-alpha * alpha) * log((1.0e0 - u0))
end function
function code(alpha, u0) return Float32(Float32(Float32(-alpha) * alpha) * log(Float32(Float32(1.0) - u0))) end
function tmp = code(alpha, u0) tmp = (-alpha * alpha) * log((single(1.0) - u0)); end
\begin{array}{l}
\\
\left(\left(-\alpha\right) \cdot \alpha\right) \cdot \log \left(1 - u0\right)
\end{array}
Sampling outcomes in binary32 precision:
Herbie found 11 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (alpha u0) :precision binary32 (* (* (- alpha) alpha) (log (- 1.0 u0))))
float code(float alpha, float u0) {
return (-alpha * alpha) * logf((1.0f - u0));
}
real(4) function code(alpha, u0)
real(4), intent (in) :: alpha
real(4), intent (in) :: u0
code = (-alpha * alpha) * log((1.0e0 - u0))
end function
function code(alpha, u0) return Float32(Float32(Float32(-alpha) * alpha) * log(Float32(Float32(1.0) - u0))) end
function tmp = code(alpha, u0) tmp = (-alpha * alpha) * log((single(1.0) - u0)); end
\begin{array}{l}
\\
\left(\left(-\alpha\right) \cdot \alpha\right) \cdot \log \left(1 - u0\right)
\end{array}
(FPCore (alpha u0)
:precision binary32
(let* ((t_0 (* (* alpha alpha) u0)))
(if (<= u0 0.002739999908953905)
(+ (* (* 0.5 u0) t_0) t_0)
(*
(log (- 1.0 u0))
(*
(*
(/
-1.0
(* (* (* (pow alpha -2.0) alpha) (pow alpha 1.5)) (pow alpha 1.5)))
(pow alpha 3.0))
alpha)))))
float code(float alpha, float u0) {
float t_0 = (alpha * alpha) * u0;
float tmp;
if (u0 <= 0.002739999908953905f) {
tmp = ((0.5f * u0) * t_0) + t_0;
} else {
tmp = logf((1.0f - u0)) * (((-1.0f / (((powf(alpha, -2.0f) * alpha) * powf(alpha, 1.5f)) * powf(alpha, 1.5f))) * powf(alpha, 3.0f)) * alpha);
}
return tmp;
}
real(4) function code(alpha, u0)
real(4), intent (in) :: alpha
real(4), intent (in) :: u0
real(4) :: t_0
real(4) :: tmp
t_0 = (alpha * alpha) * u0
if (u0 <= 0.002739999908953905e0) then
tmp = ((0.5e0 * u0) * t_0) + t_0
else
tmp = log((1.0e0 - u0)) * ((((-1.0e0) / ((((alpha ** (-2.0e0)) * alpha) * (alpha ** 1.5e0)) * (alpha ** 1.5e0))) * (alpha ** 3.0e0)) * alpha)
end if
code = tmp
end function
function code(alpha, u0) t_0 = Float32(Float32(alpha * alpha) * u0) tmp = Float32(0.0) if (u0 <= Float32(0.002739999908953905)) tmp = Float32(Float32(Float32(Float32(0.5) * u0) * t_0) + t_0); else tmp = Float32(log(Float32(Float32(1.0) - u0)) * Float32(Float32(Float32(Float32(-1.0) / Float32(Float32(Float32((alpha ^ Float32(-2.0)) * alpha) * (alpha ^ Float32(1.5))) * (alpha ^ Float32(1.5)))) * (alpha ^ Float32(3.0))) * alpha)); end return tmp end
function tmp_2 = code(alpha, u0) t_0 = (alpha * alpha) * u0; tmp = single(0.0); if (u0 <= single(0.002739999908953905)) tmp = ((single(0.5) * u0) * t_0) + t_0; else tmp = log((single(1.0) - u0)) * (((single(-1.0) / ((((alpha ^ single(-2.0)) * alpha) * (alpha ^ single(1.5))) * (alpha ^ single(1.5)))) * (alpha ^ single(3.0))) * alpha); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(\alpha \cdot \alpha\right) \cdot u0\\
\mathbf{if}\;u0 \leq 0.002739999908953905:\\
\;\;\;\;\left(0.5 \cdot u0\right) \cdot t\_0 + t\_0\\
\mathbf{else}:\\
\;\;\;\;\log \left(1 - u0\right) \cdot \left(\left(\frac{-1}{\left(\left({\alpha}^{-2} \cdot \alpha\right) \cdot {\alpha}^{1.5}\right) \cdot {\alpha}^{1.5}} \cdot {\alpha}^{3}\right) \cdot \alpha\right)\\
\end{array}
\end{array}
if u0 < 0.00273999991Initial program 43.5%
+-lft-identityN/A
flip-+N/A
neg-sub0N/A
lift-*.f32N/A
lift-neg.f32N/A
distribute-lft-neg-outN/A
remove-double-negN/A
lower-/.f32N/A
metadata-evalN/A
lower--.f32N/A
lower-*.f32N/A
lower-*.f3243.5
Applied rewrites43.5%
Taylor expanded in u0 around 0
distribute-lft-inN/A
*-commutativeN/A
associate-*r*N/A
distribute-lft1-inN/A
lower-*.f32N/A
*-commutativeN/A
lower-fma.f32N/A
*-commutativeN/A
lower-*.f32N/A
unpow2N/A
lower-*.f3228.4
Applied rewrites27.9%
Applied rewrites98.1%
if 0.00273999991 < u0 Initial program 91.9%
lift-neg.f32N/A
neg-sub0N/A
flip3--N/A
frac-2negN/A
metadata-evalN/A
+-lft-identityN/A
mul0-lftN/A
+-rgt-identityN/A
distribute-lft-neg-outN/A
lift-neg.f32N/A
lift-*.f32N/A
div-invN/A
metadata-evalN/A
sub0-negN/A
remove-double-negN/A
lower-*.f32N/A
lower-pow.f32N/A
lower-/.f3292.0
Applied rewrites92.0%
Applied rewrites92.3%
Final simplification96.7%
(FPCore (alpha u0)
:precision binary32
(let* ((t_0 (* (* alpha alpha) u0)))
(if (<= u0 0.002739999908953905)
(+ (* (* 0.5 u0) t_0) t_0)
(*
(*
(*
(/ -1.0 (* (* (/ 1.0 alpha) (pow alpha 1.5)) (pow alpha 1.5)))
(pow alpha 3.0))
alpha)
(log (- 1.0 u0))))))
float code(float alpha, float u0) {
float t_0 = (alpha * alpha) * u0;
float tmp;
if (u0 <= 0.002739999908953905f) {
tmp = ((0.5f * u0) * t_0) + t_0;
} else {
tmp = (((-1.0f / (((1.0f / alpha) * powf(alpha, 1.5f)) * powf(alpha, 1.5f))) * powf(alpha, 3.0f)) * alpha) * logf((1.0f - u0));
}
return tmp;
}
real(4) function code(alpha, u0)
real(4), intent (in) :: alpha
real(4), intent (in) :: u0
real(4) :: t_0
real(4) :: tmp
t_0 = (alpha * alpha) * u0
if (u0 <= 0.002739999908953905e0) then
tmp = ((0.5e0 * u0) * t_0) + t_0
else
tmp = ((((-1.0e0) / (((1.0e0 / alpha) * (alpha ** 1.5e0)) * (alpha ** 1.5e0))) * (alpha ** 3.0e0)) * alpha) * log((1.0e0 - u0))
end if
code = tmp
end function
function code(alpha, u0) t_0 = Float32(Float32(alpha * alpha) * u0) tmp = Float32(0.0) if (u0 <= Float32(0.002739999908953905)) tmp = Float32(Float32(Float32(Float32(0.5) * u0) * t_0) + t_0); else tmp = Float32(Float32(Float32(Float32(Float32(-1.0) / Float32(Float32(Float32(Float32(1.0) / alpha) * (alpha ^ Float32(1.5))) * (alpha ^ Float32(1.5)))) * (alpha ^ Float32(3.0))) * alpha) * log(Float32(Float32(1.0) - u0))); end return tmp end
function tmp_2 = code(alpha, u0) t_0 = (alpha * alpha) * u0; tmp = single(0.0); if (u0 <= single(0.002739999908953905)) tmp = ((single(0.5) * u0) * t_0) + t_0; else tmp = (((single(-1.0) / (((single(1.0) / alpha) * (alpha ^ single(1.5))) * (alpha ^ single(1.5)))) * (alpha ^ single(3.0))) * alpha) * log((single(1.0) - u0)); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(\alpha \cdot \alpha\right) \cdot u0\\
\mathbf{if}\;u0 \leq 0.002739999908953905:\\
\;\;\;\;\left(0.5 \cdot u0\right) \cdot t\_0 + t\_0\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\frac{-1}{\left(\frac{1}{\alpha} \cdot {\alpha}^{1.5}\right) \cdot {\alpha}^{1.5}} \cdot {\alpha}^{3}\right) \cdot \alpha\right) \cdot \log \left(1 - u0\right)\\
\end{array}
\end{array}
if u0 < 0.00273999991Initial program 43.5%
+-lft-identityN/A
flip-+N/A
neg-sub0N/A
lift-*.f32N/A
lift-neg.f32N/A
distribute-lft-neg-outN/A
remove-double-negN/A
lower-/.f32N/A
metadata-evalN/A
lower--.f32N/A
lower-*.f32N/A
lower-*.f3243.5
Applied rewrites43.5%
Taylor expanded in u0 around 0
distribute-lft-inN/A
*-commutativeN/A
associate-*r*N/A
distribute-lft1-inN/A
lower-*.f32N/A
*-commutativeN/A
lower-fma.f32N/A
*-commutativeN/A
lower-*.f32N/A
unpow2N/A
lower-*.f3228.4
Applied rewrites27.9%
Applied rewrites98.1%
if 0.00273999991 < u0 Initial program 91.9%
lift-neg.f32N/A
neg-sub0N/A
flip3--N/A
frac-2negN/A
metadata-evalN/A
+-lft-identityN/A
mul0-lftN/A
+-rgt-identityN/A
distribute-lft-neg-outN/A
lift-neg.f32N/A
lift-*.f32N/A
div-invN/A
metadata-evalN/A
sub0-negN/A
remove-double-negN/A
lower-*.f32N/A
lower-pow.f32N/A
lower-/.f3292.0
Applied rewrites92.0%
Applied rewrites91.9%
Applied rewrites92.2%
Final simplification96.7%
(FPCore (alpha u0)
:precision binary32
(let* ((t_0 (* (* alpha alpha) u0)))
(if (<= u0 0.002739999908953905)
(+ (* (* 0.5 u0) t_0) t_0)
(*
(/ -1.0 (* (/ alpha (* (pow alpha 3.0) alpha)) alpha))
(log (- 1.0 u0))))))
float code(float alpha, float u0) {
float t_0 = (alpha * alpha) * u0;
float tmp;
if (u0 <= 0.002739999908953905f) {
tmp = ((0.5f * u0) * t_0) + t_0;
} else {
tmp = (-1.0f / ((alpha / (powf(alpha, 3.0f) * alpha)) * alpha)) * logf((1.0f - u0));
}
return tmp;
}
real(4) function code(alpha, u0)
real(4), intent (in) :: alpha
real(4), intent (in) :: u0
real(4) :: t_0
real(4) :: tmp
t_0 = (alpha * alpha) * u0
if (u0 <= 0.002739999908953905e0) then
tmp = ((0.5e0 * u0) * t_0) + t_0
else
tmp = ((-1.0e0) / ((alpha / ((alpha ** 3.0e0) * alpha)) * alpha)) * log((1.0e0 - u0))
end if
code = tmp
end function
function code(alpha, u0) t_0 = Float32(Float32(alpha * alpha) * u0) tmp = Float32(0.0) if (u0 <= Float32(0.002739999908953905)) tmp = Float32(Float32(Float32(Float32(0.5) * u0) * t_0) + t_0); else tmp = Float32(Float32(Float32(-1.0) / Float32(Float32(alpha / Float32((alpha ^ Float32(3.0)) * alpha)) * alpha)) * log(Float32(Float32(1.0) - u0))); end return tmp end
function tmp_2 = code(alpha, u0) t_0 = (alpha * alpha) * u0; tmp = single(0.0); if (u0 <= single(0.002739999908953905)) tmp = ((single(0.5) * u0) * t_0) + t_0; else tmp = (single(-1.0) / ((alpha / ((alpha ^ single(3.0)) * alpha)) * alpha)) * log((single(1.0) - u0)); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(\alpha \cdot \alpha\right) \cdot u0\\
\mathbf{if}\;u0 \leq 0.002739999908953905:\\
\;\;\;\;\left(0.5 \cdot u0\right) \cdot t\_0 + t\_0\\
\mathbf{else}:\\
\;\;\;\;\frac{-1}{\frac{\alpha}{{\alpha}^{3} \cdot \alpha} \cdot \alpha} \cdot \log \left(1 - u0\right)\\
\end{array}
\end{array}
if u0 < 0.00273999991Initial program 43.5%
+-lft-identityN/A
flip-+N/A
neg-sub0N/A
lift-*.f32N/A
lift-neg.f32N/A
distribute-lft-neg-outN/A
remove-double-negN/A
lower-/.f32N/A
metadata-evalN/A
lower--.f32N/A
lower-*.f32N/A
lower-*.f3243.5
Applied rewrites43.5%
Taylor expanded in u0 around 0
distribute-lft-inN/A
*-commutativeN/A
associate-*r*N/A
distribute-lft1-inN/A
lower-*.f32N/A
*-commutativeN/A
lower-fma.f32N/A
*-commutativeN/A
lower-*.f32N/A
unpow2N/A
lower-*.f3228.4
Applied rewrites27.9%
Applied rewrites98.1%
if 0.00273999991 < u0 Initial program 91.9%
lift-*.f32N/A
lift-neg.f32N/A
neg-sub0N/A
flip--N/A
metadata-evalN/A
neg-sub0N/A
distribute-lft-neg-outN/A
lift-neg.f32N/A
lift-*.f32N/A
+-lft-identityN/A
associate-*l/N/A
lower-/.f32N/A
lower-*.f3291.9
Applied rewrites91.9%
lift-/.f32N/A
clear-numN/A
lift-*.f32N/A
*-commutativeN/A
associate-/r*N/A
*-inversesN/A
lift-/.f32N/A
lower-/.f3291.8
lift-/.f32N/A
lift-*.f32N/A
lift-neg.f32N/A
distribute-lft-neg-outN/A
lift-*.f32N/A
distribute-frac-neg2N/A
lower-neg.f32N/A
lift-*.f32N/A
pow2N/A
pow-flipN/A
lower-pow.f32N/A
metadata-eval91.9
Applied rewrites91.9%
lift-neg.f32N/A
lift-pow.f32N/A
metadata-evalN/A
pow-flipN/A
pow2N/A
lift-*.f32N/A
distribute-frac-neg2N/A
lift-*.f32N/A
distribute-lft-neg-outN/A
lift-neg.f32N/A
lift-*.f32N/A
*-inversesN/A
associate-/r*N/A
remove-double-negN/A
lift-*.f32N/A
distribute-lft-neg-outN/A
lift-neg.f32N/A
lift-*.f32N/A
+-lft-identityN/A
cancel-sign-sub-invN/A
lift-*.f32N/A
lift-neg.f32N/A
lift-*.f32N/A
lift-neg.f32N/A
Applied rewrites92.1%
Final simplification96.7%
(FPCore (alpha u0)
:precision binary32
(let* ((t_0 (* (* alpha alpha) u0)))
(if (<= u0 0.002739999908953905)
(+ (* (* 0.5 u0) t_0) t_0)
(*
(* (* (/ -1.0 (* alpha alpha)) (pow alpha 3.0)) alpha)
(log (- 1.0 u0))))))
float code(float alpha, float u0) {
float t_0 = (alpha * alpha) * u0;
float tmp;
if (u0 <= 0.002739999908953905f) {
tmp = ((0.5f * u0) * t_0) + t_0;
} else {
tmp = (((-1.0f / (alpha * alpha)) * powf(alpha, 3.0f)) * alpha) * logf((1.0f - u0));
}
return tmp;
}
real(4) function code(alpha, u0)
real(4), intent (in) :: alpha
real(4), intent (in) :: u0
real(4) :: t_0
real(4) :: tmp
t_0 = (alpha * alpha) * u0
if (u0 <= 0.002739999908953905e0) then
tmp = ((0.5e0 * u0) * t_0) + t_0
else
tmp = ((((-1.0e0) / (alpha * alpha)) * (alpha ** 3.0e0)) * alpha) * log((1.0e0 - u0))
end if
code = tmp
end function
function code(alpha, u0) t_0 = Float32(Float32(alpha * alpha) * u0) tmp = Float32(0.0) if (u0 <= Float32(0.002739999908953905)) tmp = Float32(Float32(Float32(Float32(0.5) * u0) * t_0) + t_0); else tmp = Float32(Float32(Float32(Float32(Float32(-1.0) / Float32(alpha * alpha)) * (alpha ^ Float32(3.0))) * alpha) * log(Float32(Float32(1.0) - u0))); end return tmp end
function tmp_2 = code(alpha, u0) t_0 = (alpha * alpha) * u0; tmp = single(0.0); if (u0 <= single(0.002739999908953905)) tmp = ((single(0.5) * u0) * t_0) + t_0; else tmp = (((single(-1.0) / (alpha * alpha)) * (alpha ^ single(3.0))) * alpha) * log((single(1.0) - u0)); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(\alpha \cdot \alpha\right) \cdot u0\\
\mathbf{if}\;u0 \leq 0.002739999908953905:\\
\;\;\;\;\left(0.5 \cdot u0\right) \cdot t\_0 + t\_0\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\frac{-1}{\alpha \cdot \alpha} \cdot {\alpha}^{3}\right) \cdot \alpha\right) \cdot \log \left(1 - u0\right)\\
\end{array}
\end{array}
if u0 < 0.00273999991Initial program 43.5%
+-lft-identityN/A
flip-+N/A
neg-sub0N/A
lift-*.f32N/A
lift-neg.f32N/A
distribute-lft-neg-outN/A
remove-double-negN/A
lower-/.f32N/A
metadata-evalN/A
lower--.f32N/A
lower-*.f32N/A
lower-*.f3243.5
Applied rewrites43.5%
Taylor expanded in u0 around 0
distribute-lft-inN/A
*-commutativeN/A
associate-*r*N/A
distribute-lft1-inN/A
lower-*.f32N/A
*-commutativeN/A
lower-fma.f32N/A
*-commutativeN/A
lower-*.f32N/A
unpow2N/A
lower-*.f3228.4
Applied rewrites27.9%
Applied rewrites98.1%
if 0.00273999991 < u0 Initial program 91.9%
lift-neg.f32N/A
neg-sub0N/A
flip3--N/A
frac-2negN/A
metadata-evalN/A
+-lft-identityN/A
mul0-lftN/A
+-rgt-identityN/A
distribute-lft-neg-outN/A
lift-neg.f32N/A
lift-*.f32N/A
div-invN/A
metadata-evalN/A
sub0-negN/A
remove-double-negN/A
lower-*.f32N/A
lower-pow.f32N/A
lower-/.f3292.0
Applied rewrites92.0%
lift-/.f32N/A
frac-2negN/A
metadata-evalN/A
lift-*.f32N/A
lift-neg.f32N/A
distribute-lft-neg-outN/A
lift-*.f32N/A
remove-double-negN/A
lower-/.f3292.0
Applied rewrites92.0%
Final simplification96.7%
(FPCore (alpha u0)
:precision binary32
(let* ((t_0 (* (* alpha alpha) u0)))
(if (<= u0 0.002739999908953905)
(+ (* (* 0.5 u0) t_0) t_0)
(* (* (/ (pow (- alpha) 3.0) (* alpha alpha)) alpha) (log (- 1.0 u0))))))
float code(float alpha, float u0) {
float t_0 = (alpha * alpha) * u0;
float tmp;
if (u0 <= 0.002739999908953905f) {
tmp = ((0.5f * u0) * t_0) + t_0;
} else {
tmp = ((powf(-alpha, 3.0f) / (alpha * alpha)) * alpha) * logf((1.0f - u0));
}
return tmp;
}
real(4) function code(alpha, u0)
real(4), intent (in) :: alpha
real(4), intent (in) :: u0
real(4) :: t_0
real(4) :: tmp
t_0 = (alpha * alpha) * u0
if (u0 <= 0.002739999908953905e0) then
tmp = ((0.5e0 * u0) * t_0) + t_0
else
tmp = (((-alpha ** 3.0e0) / (alpha * alpha)) * alpha) * log((1.0e0 - u0))
end if
code = tmp
end function
function code(alpha, u0) t_0 = Float32(Float32(alpha * alpha) * u0) tmp = Float32(0.0) if (u0 <= Float32(0.002739999908953905)) tmp = Float32(Float32(Float32(Float32(0.5) * u0) * t_0) + t_0); else tmp = Float32(Float32(Float32((Float32(-alpha) ^ Float32(3.0)) / Float32(alpha * alpha)) * alpha) * log(Float32(Float32(1.0) - u0))); end return tmp end
function tmp_2 = code(alpha, u0) t_0 = (alpha * alpha) * u0; tmp = single(0.0); if (u0 <= single(0.002739999908953905)) tmp = ((single(0.5) * u0) * t_0) + t_0; else tmp = (((-alpha ^ single(3.0)) / (alpha * alpha)) * alpha) * log((single(1.0) - u0)); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(\alpha \cdot \alpha\right) \cdot u0\\
\mathbf{if}\;u0 \leq 0.002739999908953905:\\
\;\;\;\;\left(0.5 \cdot u0\right) \cdot t\_0 + t\_0\\
\mathbf{else}:\\
\;\;\;\;\left(\frac{{\left(-\alpha\right)}^{3}}{\alpha \cdot \alpha} \cdot \alpha\right) \cdot \log \left(1 - u0\right)\\
\end{array}
\end{array}
if u0 < 0.00273999991Initial program 43.5%
+-lft-identityN/A
flip-+N/A
neg-sub0N/A
lift-*.f32N/A
lift-neg.f32N/A
distribute-lft-neg-outN/A
remove-double-negN/A
lower-/.f32N/A
metadata-evalN/A
lower--.f32N/A
lower-*.f32N/A
lower-*.f3243.5
Applied rewrites43.5%
Taylor expanded in u0 around 0
distribute-lft-inN/A
*-commutativeN/A
associate-*r*N/A
distribute-lft1-inN/A
lower-*.f32N/A
*-commutativeN/A
lower-fma.f32N/A
*-commutativeN/A
lower-*.f32N/A
unpow2N/A
lower-*.f3228.4
Applied rewrites27.9%
Applied rewrites98.1%
if 0.00273999991 < u0 Initial program 91.9%
lift-neg.f32N/A
neg-sub0N/A
flip3--N/A
metadata-evalN/A
+-lft-identityN/A
mul0-lftN/A
+-rgt-identityN/A
lower-/.f32N/A
metadata-evalN/A
sub0-negN/A
cube-negN/A
lift-neg.f32N/A
lower-pow.f32N/A
lower-*.f3291.9
Applied rewrites91.9%
Final simplification96.6%
(FPCore (alpha u0)
:precision binary32
(let* ((t_0 (* (* alpha alpha) u0)))
(if (<= u0 0.002739999908953905)
(+ (* (* 0.5 u0) t_0) t_0)
(* (* (* (/ -1.0 alpha) (* alpha alpha)) alpha) (log (- 1.0 u0))))))
float code(float alpha, float u0) {
float t_0 = (alpha * alpha) * u0;
float tmp;
if (u0 <= 0.002739999908953905f) {
tmp = ((0.5f * u0) * t_0) + t_0;
} else {
tmp = (((-1.0f / alpha) * (alpha * alpha)) * alpha) * logf((1.0f - u0));
}
return tmp;
}
real(4) function code(alpha, u0)
real(4), intent (in) :: alpha
real(4), intent (in) :: u0
real(4) :: t_0
real(4) :: tmp
t_0 = (alpha * alpha) * u0
if (u0 <= 0.002739999908953905e0) then
tmp = ((0.5e0 * u0) * t_0) + t_0
else
tmp = ((((-1.0e0) / alpha) * (alpha * alpha)) * alpha) * log((1.0e0 - u0))
end if
code = tmp
end function
function code(alpha, u0) t_0 = Float32(Float32(alpha * alpha) * u0) tmp = Float32(0.0) if (u0 <= Float32(0.002739999908953905)) tmp = Float32(Float32(Float32(Float32(0.5) * u0) * t_0) + t_0); else tmp = Float32(Float32(Float32(Float32(Float32(-1.0) / alpha) * Float32(alpha * alpha)) * alpha) * log(Float32(Float32(1.0) - u0))); end return tmp end
function tmp_2 = code(alpha, u0) t_0 = (alpha * alpha) * u0; tmp = single(0.0); if (u0 <= single(0.002739999908953905)) tmp = ((single(0.5) * u0) * t_0) + t_0; else tmp = (((single(-1.0) / alpha) * (alpha * alpha)) * alpha) * log((single(1.0) - u0)); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(\alpha \cdot \alpha\right) \cdot u0\\
\mathbf{if}\;u0 \leq 0.002739999908953905:\\
\;\;\;\;\left(0.5 \cdot u0\right) \cdot t\_0 + t\_0\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\frac{-1}{\alpha} \cdot \left(\alpha \cdot \alpha\right)\right) \cdot \alpha\right) \cdot \log \left(1 - u0\right)\\
\end{array}
\end{array}
if u0 < 0.00273999991Initial program 43.5%
+-lft-identityN/A
flip-+N/A
neg-sub0N/A
lift-*.f32N/A
lift-neg.f32N/A
distribute-lft-neg-outN/A
remove-double-negN/A
lower-/.f32N/A
metadata-evalN/A
lower--.f32N/A
lower-*.f32N/A
lower-*.f3243.5
Applied rewrites43.5%
Taylor expanded in u0 around 0
distribute-lft-inN/A
*-commutativeN/A
associate-*r*N/A
distribute-lft1-inN/A
lower-*.f32N/A
*-commutativeN/A
lower-fma.f32N/A
*-commutativeN/A
lower-*.f32N/A
unpow2N/A
lower-*.f3228.4
Applied rewrites27.9%
Applied rewrites98.1%
if 0.00273999991 < u0 Initial program 91.9%
lift-neg.f32N/A
neg-sub0N/A
flip3--N/A
frac-2negN/A
metadata-evalN/A
+-lft-identityN/A
mul0-lftN/A
+-rgt-identityN/A
distribute-lft-neg-outN/A
lift-neg.f32N/A
lift-*.f32N/A
div-invN/A
metadata-evalN/A
sub0-negN/A
remove-double-negN/A
lower-*.f32N/A
lower-pow.f32N/A
lower-/.f3292.0
Applied rewrites92.0%
lift-*.f32N/A
*-commutativeN/A
lift-pow.f32N/A
cube-multN/A
lift-*.f32N/A
associate-*r*N/A
lower-*.f32N/A
lower-*.f3291.9
lift-/.f32N/A
lift-*.f32N/A
lift-neg.f32N/A
distribute-lft-neg-outN/A
lift-*.f32N/A
distribute-frac-neg2N/A
lower-neg.f32N/A
lift-*.f32N/A
pow2N/A
pow-flipN/A
lower-pow.f32N/A
metadata-eval91.9
Applied rewrites91.9%
Taylor expanded in alpha around 0
lower-/.f3291.9
Applied rewrites91.9%
Final simplification96.6%
(FPCore (alpha u0)
:precision binary32
(let* ((t_0 (* (* alpha alpha) u0)))
(if (<= (- 1.0 u0) 0.9972599744796753)
(* (/ (* (* (- alpha) alpha) alpha) alpha) (log (- 1.0 u0)))
(+ (* (* 0.5 u0) t_0) t_0))))
float code(float alpha, float u0) {
float t_0 = (alpha * alpha) * u0;
float tmp;
if ((1.0f - u0) <= 0.9972599744796753f) {
tmp = (((-alpha * alpha) * alpha) / alpha) * logf((1.0f - u0));
} else {
tmp = ((0.5f * u0) * t_0) + t_0;
}
return tmp;
}
real(4) function code(alpha, u0)
real(4), intent (in) :: alpha
real(4), intent (in) :: u0
real(4) :: t_0
real(4) :: tmp
t_0 = (alpha * alpha) * u0
if ((1.0e0 - u0) <= 0.9972599744796753e0) then
tmp = (((-alpha * alpha) * alpha) / alpha) * log((1.0e0 - u0))
else
tmp = ((0.5e0 * u0) * t_0) + t_0
end if
code = tmp
end function
function code(alpha, u0) t_0 = Float32(Float32(alpha * alpha) * u0) tmp = Float32(0.0) if (Float32(Float32(1.0) - u0) <= Float32(0.9972599744796753)) tmp = Float32(Float32(Float32(Float32(Float32(-alpha) * alpha) * alpha) / alpha) * log(Float32(Float32(1.0) - u0))); else tmp = Float32(Float32(Float32(Float32(0.5) * u0) * t_0) + t_0); end return tmp end
function tmp_2 = code(alpha, u0) t_0 = (alpha * alpha) * u0; tmp = single(0.0); if ((single(1.0) - u0) <= single(0.9972599744796753)) tmp = (((-alpha * alpha) * alpha) / alpha) * log((single(1.0) - u0)); else tmp = ((single(0.5) * u0) * t_0) + t_0; end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(\alpha \cdot \alpha\right) \cdot u0\\
\mathbf{if}\;1 - u0 \leq 0.9972599744796753:\\
\;\;\;\;\frac{\left(\left(-\alpha\right) \cdot \alpha\right) \cdot \alpha}{\alpha} \cdot \log \left(1 - u0\right)\\
\mathbf{else}:\\
\;\;\;\;\left(0.5 \cdot u0\right) \cdot t\_0 + t\_0\\
\end{array}
\end{array}
if (-.f32 #s(literal 1 binary32) u0) < 0.997259974Initial program 91.9%
lift-*.f32N/A
lift-neg.f32N/A
neg-sub0N/A
flip--N/A
metadata-evalN/A
neg-sub0N/A
distribute-lft-neg-outN/A
lift-neg.f32N/A
lift-*.f32N/A
+-lft-identityN/A
associate-*l/N/A
lower-/.f32N/A
lower-*.f3291.9
Applied rewrites91.9%
if 0.997259974 < (-.f32 #s(literal 1 binary32) u0) Initial program 43.5%
+-lft-identityN/A
flip-+N/A
neg-sub0N/A
lift-*.f32N/A
lift-neg.f32N/A
distribute-lft-neg-outN/A
remove-double-negN/A
lower-/.f32N/A
metadata-evalN/A
lower--.f32N/A
lower-*.f32N/A
lower-*.f3243.5
Applied rewrites43.5%
Taylor expanded in u0 around 0
distribute-lft-inN/A
*-commutativeN/A
associate-*r*N/A
distribute-lft1-inN/A
lower-*.f32N/A
*-commutativeN/A
lower-fma.f32N/A
*-commutativeN/A
lower-*.f32N/A
unpow2N/A
lower-*.f3228.4
Applied rewrites27.9%
Applied rewrites98.1%
Final simplification96.6%
(FPCore (alpha u0)
:precision binary32
(let* ((t_0 (* (* alpha alpha) u0)))
(if (<= (- 1.0 u0) 0.9972599744796753)
(* (* (- alpha) alpha) (log (- 1.0 u0)))
(+ (* (* 0.5 u0) t_0) t_0))))
float code(float alpha, float u0) {
float t_0 = (alpha * alpha) * u0;
float tmp;
if ((1.0f - u0) <= 0.9972599744796753f) {
tmp = (-alpha * alpha) * logf((1.0f - u0));
} else {
tmp = ((0.5f * u0) * t_0) + t_0;
}
return tmp;
}
real(4) function code(alpha, u0)
real(4), intent (in) :: alpha
real(4), intent (in) :: u0
real(4) :: t_0
real(4) :: tmp
t_0 = (alpha * alpha) * u0
if ((1.0e0 - u0) <= 0.9972599744796753e0) then
tmp = (-alpha * alpha) * log((1.0e0 - u0))
else
tmp = ((0.5e0 * u0) * t_0) + t_0
end if
code = tmp
end function
function code(alpha, u0) t_0 = Float32(Float32(alpha * alpha) * u0) tmp = Float32(0.0) if (Float32(Float32(1.0) - u0) <= Float32(0.9972599744796753)) tmp = Float32(Float32(Float32(-alpha) * alpha) * log(Float32(Float32(1.0) - u0))); else tmp = Float32(Float32(Float32(Float32(0.5) * u0) * t_0) + t_0); end return tmp end
function tmp_2 = code(alpha, u0) t_0 = (alpha * alpha) * u0; tmp = single(0.0); if ((single(1.0) - u0) <= single(0.9972599744796753)) tmp = (-alpha * alpha) * log((single(1.0) - u0)); else tmp = ((single(0.5) * u0) * t_0) + t_0; end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(\alpha \cdot \alpha\right) \cdot u0\\
\mathbf{if}\;1 - u0 \leq 0.9972599744796753:\\
\;\;\;\;\left(\left(-\alpha\right) \cdot \alpha\right) \cdot \log \left(1 - u0\right)\\
\mathbf{else}:\\
\;\;\;\;\left(0.5 \cdot u0\right) \cdot t\_0 + t\_0\\
\end{array}
\end{array}
if (-.f32 #s(literal 1 binary32) u0) < 0.997259974Initial program 91.9%
if 0.997259974 < (-.f32 #s(literal 1 binary32) u0) Initial program 43.5%
+-lft-identityN/A
flip-+N/A
neg-sub0N/A
lift-*.f32N/A
lift-neg.f32N/A
distribute-lft-neg-outN/A
remove-double-negN/A
lower-/.f32N/A
metadata-evalN/A
lower--.f32N/A
lower-*.f32N/A
lower-*.f3243.5
Applied rewrites43.5%
Taylor expanded in u0 around 0
distribute-lft-inN/A
*-commutativeN/A
associate-*r*N/A
distribute-lft1-inN/A
lower-*.f32N/A
*-commutativeN/A
lower-fma.f32N/A
*-commutativeN/A
lower-*.f32N/A
unpow2N/A
lower-*.f3228.4
Applied rewrites27.9%
Applied rewrites98.1%
Final simplification96.6%
(FPCore (alpha u0) :precision binary32 (let* ((t_0 (* (* alpha alpha) u0))) (+ (* (* 0.5 u0) t_0) t_0)))
float code(float alpha, float u0) {
float t_0 = (alpha * alpha) * u0;
return ((0.5f * u0) * t_0) + t_0;
}
real(4) function code(alpha, u0)
real(4), intent (in) :: alpha
real(4), intent (in) :: u0
real(4) :: t_0
t_0 = (alpha * alpha) * u0
code = ((0.5e0 * u0) * t_0) + t_0
end function
function code(alpha, u0) t_0 = Float32(Float32(alpha * alpha) * u0) return Float32(Float32(Float32(Float32(0.5) * u0) * t_0) + t_0) end
function tmp = code(alpha, u0) t_0 = (alpha * alpha) * u0; tmp = ((single(0.5) * u0) * t_0) + t_0; end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(\alpha \cdot \alpha\right) \cdot u0\\
\left(0.5 \cdot u0\right) \cdot t\_0 + t\_0
\end{array}
\end{array}
Initial program 55.1%
+-lft-identityN/A
flip-+N/A
neg-sub0N/A
lift-*.f32N/A
lift-neg.f32N/A
distribute-lft-neg-outN/A
remove-double-negN/A
lower-/.f32N/A
metadata-evalN/A
lower--.f32N/A
lower-*.f32N/A
lower-*.f3255.1
Applied rewrites55.1%
Taylor expanded in u0 around 0
distribute-lft-inN/A
*-commutativeN/A
associate-*r*N/A
distribute-lft1-inN/A
lower-*.f32N/A
*-commutativeN/A
lower-fma.f32N/A
*-commutativeN/A
lower-*.f32N/A
unpow2N/A
lower-*.f3228.0
Applied rewrites27.9%
Applied rewrites89.1%
Final simplification89.1%
(FPCore (alpha u0) :precision binary32 (* (+ (* 0.5 u0) 1.0) (* (* alpha alpha) u0)))
float code(float alpha, float u0) {
return ((0.5f * u0) + 1.0f) * ((alpha * alpha) * u0);
}
real(4) function code(alpha, u0)
real(4), intent (in) :: alpha
real(4), intent (in) :: u0
code = ((0.5e0 * u0) + 1.0e0) * ((alpha * alpha) * u0)
end function
function code(alpha, u0) return Float32(Float32(Float32(Float32(0.5) * u0) + Float32(1.0)) * Float32(Float32(alpha * alpha) * u0)) end
function tmp = code(alpha, u0) tmp = ((single(0.5) * u0) + single(1.0)) * ((alpha * alpha) * u0); end
\begin{array}{l}
\\
\left(0.5 \cdot u0 + 1\right) \cdot \left(\left(\alpha \cdot \alpha\right) \cdot u0\right)
\end{array}
Initial program 55.1%
+-lft-identityN/A
flip-+N/A
neg-sub0N/A
lift-*.f32N/A
lift-neg.f32N/A
distribute-lft-neg-outN/A
remove-double-negN/A
lower-/.f32N/A
metadata-evalN/A
lower--.f32N/A
lower-*.f32N/A
lower-*.f3255.1
Applied rewrites55.1%
Taylor expanded in u0 around 0
distribute-lft-inN/A
*-commutativeN/A
associate-*r*N/A
distribute-lft1-inN/A
lower-*.f32N/A
*-commutativeN/A
lower-fma.f32N/A
*-commutativeN/A
lower-*.f32N/A
unpow2N/A
lower-*.f3228.0
Applied rewrites27.9%
Applied rewrites88.9%
Final simplification88.9%
(FPCore (alpha u0) :precision binary32 (* (* alpha alpha) u0))
float code(float alpha, float u0) {
return (alpha * alpha) * u0;
}
real(4) function code(alpha, u0)
real(4), intent (in) :: alpha
real(4), intent (in) :: u0
code = (alpha * alpha) * u0
end function
function code(alpha, u0) return Float32(Float32(alpha * alpha) * u0) end
function tmp = code(alpha, u0) tmp = (alpha * alpha) * u0; end
\begin{array}{l}
\\
\left(\alpha \cdot \alpha\right) \cdot u0
\end{array}
Initial program 55.1%
Taylor expanded in u0 around 0
*-commutativeN/A
lower-*.f32N/A
unpow2N/A
lower-*.f3275.9
Applied rewrites75.9%
Final simplification75.9%
herbie shell --seed 2024241
(FPCore (alpha u0)
:name "Beckmann Distribution sample, tan2theta, alphax == alphay"
:precision binary32
:pre (and (and (<= 0.0001 alpha) (<= alpha 1.0)) (and (<= 2.328306437e-10 u0) (<= u0 1.0)))
(* (* (- alpha) alpha) (log (- 1.0 u0))))