
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (/ (- (log (- 1.0 u0))) (+ (/ cos2phi (* alphax alphax)) (/ sin2phi (* alphay alphay)))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return -logf((1.0f - u0)) / ((cos2phi / (alphax * alphax)) + (sin2phi / (alphay * alphay)));
}
real(4) function code(alphax, alphay, u0, cos2phi, sin2phi)
use fmin_fmax_functions
real(4), intent (in) :: alphax
real(4), intent (in) :: alphay
real(4), intent (in) :: u0
real(4), intent (in) :: cos2phi
real(4), intent (in) :: sin2phi
code = -log((1.0e0 - u0)) / ((cos2phi / (alphax * alphax)) + (sin2phi / (alphay * alphay)))
end function
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(Float32(-log(Float32(Float32(1.0) - u0))) / Float32(Float32(cos2phi / Float32(alphax * alphax)) + Float32(sin2phi / Float32(alphay * alphay)))) end
function tmp = code(alphax, alphay, u0, cos2phi, sin2phi) tmp = -log((single(1.0) - u0)) / ((cos2phi / (alphax * alphax)) + (sin2phi / (alphay * alphay))); end
\frac{-\log \left(1 - u0\right)}{\frac{cos2phi}{alphax \cdot alphax} + \frac{sin2phi}{alphay \cdot alphay}}
Herbie found 16 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (/ (- (log (- 1.0 u0))) (+ (/ cos2phi (* alphax alphax)) (/ sin2phi (* alphay alphay)))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return -logf((1.0f - u0)) / ((cos2phi / (alphax * alphax)) + (sin2phi / (alphay * alphay)));
}
real(4) function code(alphax, alphay, u0, cos2phi, sin2phi)
use fmin_fmax_functions
real(4), intent (in) :: alphax
real(4), intent (in) :: alphay
real(4), intent (in) :: u0
real(4), intent (in) :: cos2phi
real(4), intent (in) :: sin2phi
code = -log((1.0e0 - u0)) / ((cos2phi / (alphax * alphax)) + (sin2phi / (alphay * alphay)))
end function
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(Float32(-log(Float32(Float32(1.0) - u0))) / Float32(Float32(cos2phi / Float32(alphax * alphax)) + Float32(sin2phi / Float32(alphay * alphay)))) end
function tmp = code(alphax, alphay, u0, cos2phi, sin2phi) tmp = -log((single(1.0) - u0)) / ((cos2phi / (alphax * alphax)) + (sin2phi / (alphay * alphay))); end
\frac{-\log \left(1 - u0\right)}{\frac{cos2phi}{alphax \cdot alphax} + \frac{sin2phi}{alphay \cdot alphay}}
(FPCore (alphax alphay u0 cos2phi sin2phi)
:precision binary32
(let* ((t_0 (/ cos2phi (* alphax alphax))) (t_1 (log (- 1.0 u0))))
(if (<= t_1 -0.03999999910593033)
(*
(/
1.0
(/ (fma (* alphay alphay) t_0 sin2phi) (* (- alphay) t_1)))
alphay)
(/
(fma (fma (fma 0.25 u0 0.3333333333333333) u0 0.5) (* u0 u0) u0)
(+ t_0 (/ 1.0 (/ (* alphay alphay) sin2phi)))))))float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float t_0 = cos2phi / (alphax * alphax);
float t_1 = logf((1.0f - u0));
float tmp;
if (t_1 <= -0.03999999910593033f) {
tmp = (1.0f / (fmaf((alphay * alphay), t_0, sin2phi) / (-alphay * t_1))) * alphay;
} else {
tmp = fmaf(fmaf(fmaf(0.25f, u0, 0.3333333333333333f), u0, 0.5f), (u0 * u0), u0) / (t_0 + (1.0f / ((alphay * alphay) / sin2phi)));
}
return tmp;
}
function code(alphax, alphay, u0, cos2phi, sin2phi) t_0 = Float32(cos2phi / Float32(alphax * alphax)) t_1 = log(Float32(Float32(1.0) - u0)) tmp = Float32(0.0) if (t_1 <= Float32(-0.03999999910593033)) tmp = Float32(Float32(Float32(1.0) / Float32(fma(Float32(alphay * alphay), t_0, sin2phi) / Float32(Float32(-alphay) * t_1))) * alphay); else tmp = Float32(fma(fma(fma(Float32(0.25), u0, Float32(0.3333333333333333)), u0, Float32(0.5)), Float32(u0 * u0), u0) / Float32(t_0 + Float32(Float32(1.0) / Float32(Float32(alphay * alphay) / sin2phi)))); end return tmp end
\begin{array}{l}
t_0 := \frac{cos2phi}{alphax \cdot alphax}\\
t_1 := \log \left(1 - u0\right)\\
\mathbf{if}\;t\_1 \leq -0.03999999910593033:\\
\;\;\;\;\frac{1}{\frac{\mathsf{fma}\left(alphay \cdot alphay, t\_0, sin2phi\right)}{\left(-alphay\right) \cdot t\_1}} \cdot alphay\\
\mathbf{else}:\\
\;\;\;\;\frac{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.25, u0, 0.3333333333333333\right), u0, 0.5\right), u0 \cdot u0, u0\right)}{t\_0 + \frac{1}{\frac{alphay \cdot alphay}{sin2phi}}}\\
\end{array}
if (log.f32 (-.f32 #s(literal 1 binary32) u0)) < -0.0399999991Initial program 60.4%
lift-/.f32N/A
lift-neg.f32N/A
distribute-frac-negN/A
distribute-neg-frac2N/A
lift-+.f32N/A
lift-/.f32N/A
add-to-fractionN/A
distribute-neg-frac2N/A
associate-/r/N/A
lower-*.f32N/A
Applied rewrites60.6%
lift-*.f32N/A
lift-*.f32N/A
associate-*r*N/A
lower-*.f32N/A
Applied rewrites60.2%
if -0.0399999991 < (log.f32 (-.f32 #s(literal 1 binary32) u0)) Initial program 60.4%
Taylor expanded in u0 around 0
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-+.f32N/A
lower-*.f3293.1%
Applied rewrites93.1%
lift-*.f32N/A
lift-+.f32N/A
+-commutativeN/A
distribute-rgt-inN/A
*-commutativeN/A
*-lft-identityN/A
/-rgt-identityN/A
add-to-fractionN/A
/-rgt-identityN/A
*-rgt-identityN/A
lift-*.f32N/A
associate-*r*N/A
*-commutativeN/A
lower-fma.f32N/A
Applied rewrites93.3%
lift-/.f32N/A
mult-flipN/A
*-commutativeN/A
metadata-evalN/A
lift-*.f32N/A
times-fracN/A
lift-/.f32N/A
lift-/.f32N/A
associate-*r*N/A
lift-/.f32N/A
lift-*.f32N/A
associate-/r/N/A
lift-/.f32N/A
lift-/.f32N/A
lift-*.f32N/A
associate-/r*N/A
div-flip-revN/A
div-flipN/A
lift-/.f32N/A
associate-/r/N/A
/-rgt-identityN/A
unpow1N/A
pow-plusN/A
metadata-evalN/A
pow2N/A
lift-*.f32N/A
remove-double-negN/A
remove-double-negN/A
Applied rewrites93.2%
(FPCore (alphax alphay u0 cos2phi sin2phi)
:precision binary32
(let* ((t_0 (/ cos2phi (* alphax alphax))) (t_1 (log (- 1.0 u0))))
(if (<= t_1 -0.029999999329447746)
(*
(/
1.0
(/ (fma (* alphay alphay) t_0 sin2phi) (* (- alphay) t_1)))
alphay)
(/
(fma (fma (fma 0.25 u0 0.3333333333333333) u0 0.5) (* u0 u0) u0)
(+ t_0 (/ sin2phi (* alphay alphay)))))))float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float t_0 = cos2phi / (alphax * alphax);
float t_1 = logf((1.0f - u0));
float tmp;
if (t_1 <= -0.029999999329447746f) {
tmp = (1.0f / (fmaf((alphay * alphay), t_0, sin2phi) / (-alphay * t_1))) * alphay;
} else {
tmp = fmaf(fmaf(fmaf(0.25f, u0, 0.3333333333333333f), u0, 0.5f), (u0 * u0), u0) / (t_0 + (sin2phi / (alphay * alphay)));
}
return tmp;
}
function code(alphax, alphay, u0, cos2phi, sin2phi) t_0 = Float32(cos2phi / Float32(alphax * alphax)) t_1 = log(Float32(Float32(1.0) - u0)) tmp = Float32(0.0) if (t_1 <= Float32(-0.029999999329447746)) tmp = Float32(Float32(Float32(1.0) / Float32(fma(Float32(alphay * alphay), t_0, sin2phi) / Float32(Float32(-alphay) * t_1))) * alphay); else tmp = Float32(fma(fma(fma(Float32(0.25), u0, Float32(0.3333333333333333)), u0, Float32(0.5)), Float32(u0 * u0), u0) / Float32(t_0 + Float32(sin2phi / Float32(alphay * alphay)))); end return tmp end
\begin{array}{l}
t_0 := \frac{cos2phi}{alphax \cdot alphax}\\
t_1 := \log \left(1 - u0\right)\\
\mathbf{if}\;t\_1 \leq -0.029999999329447746:\\
\;\;\;\;\frac{1}{\frac{\mathsf{fma}\left(alphay \cdot alphay, t\_0, sin2phi\right)}{\left(-alphay\right) \cdot t\_1}} \cdot alphay\\
\mathbf{else}:\\
\;\;\;\;\frac{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.25, u0, 0.3333333333333333\right), u0, 0.5\right), u0 \cdot u0, u0\right)}{t\_0 + \frac{sin2phi}{alphay \cdot alphay}}\\
\end{array}
if (log.f32 (-.f32 #s(literal 1 binary32) u0)) < -0.0299999993Initial program 60.4%
lift-/.f32N/A
lift-neg.f32N/A
distribute-frac-negN/A
distribute-neg-frac2N/A
lift-+.f32N/A
lift-/.f32N/A
add-to-fractionN/A
distribute-neg-frac2N/A
associate-/r/N/A
lower-*.f32N/A
Applied rewrites60.6%
lift-*.f32N/A
lift-*.f32N/A
associate-*r*N/A
lower-*.f32N/A
Applied rewrites60.2%
if -0.0299999993 < (log.f32 (-.f32 #s(literal 1 binary32) u0)) Initial program 60.4%
Taylor expanded in u0 around 0
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-+.f32N/A
lower-*.f3293.1%
Applied rewrites93.1%
lift-*.f32N/A
lift-+.f32N/A
+-commutativeN/A
distribute-rgt-inN/A
*-commutativeN/A
*-lft-identityN/A
/-rgt-identityN/A
add-to-fractionN/A
/-rgt-identityN/A
*-rgt-identityN/A
lift-*.f32N/A
associate-*r*N/A
*-commutativeN/A
lower-fma.f32N/A
Applied rewrites93.3%
(FPCore (alphax alphay u0 cos2phi sin2phi)
:precision binary32
(let* ((t_0 (/ cos2phi (* alphax alphax))) (t_1 (log (- 1.0 u0))))
(if (<= t_1 -0.03999999910593033)
(*
(/
1.0
(/ (fma (* alphay alphay) t_0 sin2phi) (* (- alphay) t_1)))
alphay)
(/
(* (fma (fma (fma 0.25 u0 0.3333333333333333) u0 0.5) u0 1.0) u0)
(+ (/ sin2phi (* alphay alphay)) t_0)))))float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float t_0 = cos2phi / (alphax * alphax);
float t_1 = logf((1.0f - u0));
float tmp;
if (t_1 <= -0.03999999910593033f) {
tmp = (1.0f / (fmaf((alphay * alphay), t_0, sin2phi) / (-alphay * t_1))) * alphay;
} else {
tmp = (fmaf(fmaf(fmaf(0.25f, u0, 0.3333333333333333f), u0, 0.5f), u0, 1.0f) * u0) / ((sin2phi / (alphay * alphay)) + t_0);
}
return tmp;
}
function code(alphax, alphay, u0, cos2phi, sin2phi) t_0 = Float32(cos2phi / Float32(alphax * alphax)) t_1 = log(Float32(Float32(1.0) - u0)) tmp = Float32(0.0) if (t_1 <= Float32(-0.03999999910593033)) tmp = Float32(Float32(Float32(1.0) / Float32(fma(Float32(alphay * alphay), t_0, sin2phi) / Float32(Float32(-alphay) * t_1))) * alphay); else tmp = Float32(Float32(fma(fma(fma(Float32(0.25), u0, Float32(0.3333333333333333)), u0, Float32(0.5)), u0, Float32(1.0)) * u0) / Float32(Float32(sin2phi / Float32(alphay * alphay)) + t_0)); end return tmp end
\begin{array}{l}
t_0 := \frac{cos2phi}{alphax \cdot alphax}\\
t_1 := \log \left(1 - u0\right)\\
\mathbf{if}\;t\_1 \leq -0.03999999910593033:\\
\;\;\;\;\frac{1}{\frac{\mathsf{fma}\left(alphay \cdot alphay, t\_0, sin2phi\right)}{\left(-alphay\right) \cdot t\_1}} \cdot alphay\\
\mathbf{else}:\\
\;\;\;\;\frac{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.25, u0, 0.3333333333333333\right), u0, 0.5\right), u0, 1\right) \cdot u0}{\frac{sin2phi}{alphay \cdot alphay} + t\_0}\\
\end{array}
if (log.f32 (-.f32 #s(literal 1 binary32) u0)) < -0.0399999991Initial program 60.4%
lift-/.f32N/A
lift-neg.f32N/A
distribute-frac-negN/A
distribute-neg-frac2N/A
lift-+.f32N/A
lift-/.f32N/A
add-to-fractionN/A
distribute-neg-frac2N/A
associate-/r/N/A
lower-*.f32N/A
Applied rewrites60.6%
lift-*.f32N/A
lift-*.f32N/A
associate-*r*N/A
lower-*.f32N/A
Applied rewrites60.2%
if -0.0399999991 < (log.f32 (-.f32 #s(literal 1 binary32) u0)) Initial program 60.4%
Taylor expanded in u0 around 0
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-+.f32N/A
lower-*.f3293.1%
Applied rewrites93.1%
lift-+.f32N/A
+-commutativeN/A
*-rgt-identityN/A
*-rgt-identityN/A
lift-*.f32N/A
lift-+.f32N/A
+-commutativeN/A
distribute-lft-inN/A
*-commutativeN/A
associate-+l+N/A
lift-*.f32N/A
associate-*r*N/A
*-commutativeN/A
+-commutativeN/A
lower-fma.f32N/A
lift-+.f32N/A
+-commutativeN/A
lift-*.f32N/A
lower-fma.f32N/A
lower-*.f32N/A
+-commutativeN/A
lower-fma.f3293.1%
Applied rewrites93.1%
lift-*.f32N/A
*-commutativeN/A
lower-*.f3293.1%
lift-fma.f32N/A
lift-fma.f32N/A
associate-+r+N/A
add-flipN/A
lift-*.f32N/A
associate-*r*N/A
distribute-rgt-outN/A
lift-fma.f32N/A
*-commutativeN/A
add-flip-revN/A
lower-fma.f3293.1%
Applied rewrites93.1%
(FPCore (alphax alphay u0 cos2phi sin2phi)
:precision binary32
(let* ((t_0 (/ cos2phi (* alphax alphax))) (t_1 (log (- 1.0 u0))))
(if (<= t_1 -0.014800000004470348)
(*
(/
1.0
(/ (fma (* alphay alphay) t_0 sin2phi) (* (- alphay) t_1)))
alphay)
(/
(fma (fma 0.3333333333333333 u0 0.5) (* u0 u0) u0)
(+ t_0 (/ 1.0 (/ (* alphay alphay) sin2phi)))))))float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float t_0 = cos2phi / (alphax * alphax);
float t_1 = logf((1.0f - u0));
float tmp;
if (t_1 <= -0.014800000004470348f) {
tmp = (1.0f / (fmaf((alphay * alphay), t_0, sin2phi) / (-alphay * t_1))) * alphay;
} else {
tmp = fmaf(fmaf(0.3333333333333333f, u0, 0.5f), (u0 * u0), u0) / (t_0 + (1.0f / ((alphay * alphay) / sin2phi)));
}
return tmp;
}
function code(alphax, alphay, u0, cos2phi, sin2phi) t_0 = Float32(cos2phi / Float32(alphax * alphax)) t_1 = log(Float32(Float32(1.0) - u0)) tmp = Float32(0.0) if (t_1 <= Float32(-0.014800000004470348)) tmp = Float32(Float32(Float32(1.0) / Float32(fma(Float32(alphay * alphay), t_0, sin2phi) / Float32(Float32(-alphay) * t_1))) * alphay); else tmp = Float32(fma(fma(Float32(0.3333333333333333), u0, Float32(0.5)), Float32(u0 * u0), u0) / Float32(t_0 + Float32(Float32(1.0) / Float32(Float32(alphay * alphay) / sin2phi)))); end return tmp end
\begin{array}{l}
t_0 := \frac{cos2phi}{alphax \cdot alphax}\\
t_1 := \log \left(1 - u0\right)\\
\mathbf{if}\;t\_1 \leq -0.014800000004470348:\\
\;\;\;\;\frac{1}{\frac{\mathsf{fma}\left(alphay \cdot alphay, t\_0, sin2phi\right)}{\left(-alphay\right) \cdot t\_1}} \cdot alphay\\
\mathbf{else}:\\
\;\;\;\;\frac{\mathsf{fma}\left(\mathsf{fma}\left(0.3333333333333333, u0, 0.5\right), u0 \cdot u0, u0\right)}{t\_0 + \frac{1}{\frac{alphay \cdot alphay}{sin2phi}}}\\
\end{array}
if (log.f32 (-.f32 #s(literal 1 binary32) u0)) < -0.0148Initial program 60.4%
lift-/.f32N/A
lift-neg.f32N/A
distribute-frac-negN/A
distribute-neg-frac2N/A
lift-+.f32N/A
lift-/.f32N/A
add-to-fractionN/A
distribute-neg-frac2N/A
associate-/r/N/A
lower-*.f32N/A
Applied rewrites60.6%
lift-*.f32N/A
lift-*.f32N/A
associate-*r*N/A
lower-*.f32N/A
Applied rewrites60.2%
if -0.0148 < (log.f32 (-.f32 #s(literal 1 binary32) u0)) Initial program 60.4%
Taylor expanded in u0 around 0
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-+.f32N/A
lower-*.f3293.1%
Applied rewrites93.1%
lift-*.f32N/A
lift-+.f32N/A
+-commutativeN/A
distribute-rgt-inN/A
*-commutativeN/A
*-lft-identityN/A
/-rgt-identityN/A
add-to-fractionN/A
/-rgt-identityN/A
*-rgt-identityN/A
lift-*.f32N/A
associate-*r*N/A
*-commutativeN/A
lower-fma.f32N/A
Applied rewrites93.3%
lift-/.f32N/A
mult-flipN/A
*-commutativeN/A
metadata-evalN/A
lift-*.f32N/A
times-fracN/A
lift-/.f32N/A
lift-/.f32N/A
associate-*r*N/A
lift-/.f32N/A
lift-*.f32N/A
associate-/r/N/A
lift-/.f32N/A
lift-/.f32N/A
lift-*.f32N/A
associate-/r*N/A
div-flip-revN/A
div-flipN/A
lift-/.f32N/A
associate-/r/N/A
/-rgt-identityN/A
unpow1N/A
pow-plusN/A
metadata-evalN/A
pow2N/A
lift-*.f32N/A
remove-double-negN/A
remove-double-negN/A
Applied rewrites93.2%
Taylor expanded in u0 around 0
Applied rewrites91.4%
(FPCore (alphax alphay u0 cos2phi sin2phi)
:precision binary32
(let* ((t_0 (/ cos2phi (* alphax alphax))) (t_1 (log (- 1.0 u0))))
(if (<= t_1 -0.014800000004470348)
(/ 1.0 (/ (+ (/ sin2phi (* alphay alphay)) t_0) (- t_1)))
(/
(fma (fma 0.3333333333333333 u0 0.5) (* u0 u0) u0)
(+ t_0 (/ 1.0 (/ (* alphay alphay) sin2phi)))))))float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float t_0 = cos2phi / (alphax * alphax);
float t_1 = logf((1.0f - u0));
float tmp;
if (t_1 <= -0.014800000004470348f) {
tmp = 1.0f / (((sin2phi / (alphay * alphay)) + t_0) / -t_1);
} else {
tmp = fmaf(fmaf(0.3333333333333333f, u0, 0.5f), (u0 * u0), u0) / (t_0 + (1.0f / ((alphay * alphay) / sin2phi)));
}
return tmp;
}
function code(alphax, alphay, u0, cos2phi, sin2phi) t_0 = Float32(cos2phi / Float32(alphax * alphax)) t_1 = log(Float32(Float32(1.0) - u0)) tmp = Float32(0.0) if (t_1 <= Float32(-0.014800000004470348)) tmp = Float32(Float32(1.0) / Float32(Float32(Float32(sin2phi / Float32(alphay * alphay)) + t_0) / Float32(-t_1))); else tmp = Float32(fma(fma(Float32(0.3333333333333333), u0, Float32(0.5)), Float32(u0 * u0), u0) / Float32(t_0 + Float32(Float32(1.0) / Float32(Float32(alphay * alphay) / sin2phi)))); end return tmp end
\begin{array}{l}
t_0 := \frac{cos2phi}{alphax \cdot alphax}\\
t_1 := \log \left(1 - u0\right)\\
\mathbf{if}\;t\_1 \leq -0.014800000004470348:\\
\;\;\;\;\frac{1}{\frac{\frac{sin2phi}{alphay \cdot alphay} + t\_0}{-t\_1}}\\
\mathbf{else}:\\
\;\;\;\;\frac{\mathsf{fma}\left(\mathsf{fma}\left(0.3333333333333333, u0, 0.5\right), u0 \cdot u0, u0\right)}{t\_0 + \frac{1}{\frac{alphay \cdot alphay}{sin2phi}}}\\
\end{array}
if (log.f32 (-.f32 #s(literal 1 binary32) u0)) < -0.0148Initial program 60.4%
lift-/.f32N/A
mult-flipN/A
associate-*r/N/A
div-flipN/A
*-rgt-identityN/A
lower-/.f32N/A
lower-/.f3259.4%
lift-+.f32N/A
+-commutativeN/A
lower-+.f3259.4%
Applied rewrites59.4%
if -0.0148 < (log.f32 (-.f32 #s(literal 1 binary32) u0)) Initial program 60.4%
Taylor expanded in u0 around 0
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-+.f32N/A
lower-*.f3293.1%
Applied rewrites93.1%
lift-*.f32N/A
lift-+.f32N/A
+-commutativeN/A
distribute-rgt-inN/A
*-commutativeN/A
*-lft-identityN/A
/-rgt-identityN/A
add-to-fractionN/A
/-rgt-identityN/A
*-rgt-identityN/A
lift-*.f32N/A
associate-*r*N/A
*-commutativeN/A
lower-fma.f32N/A
Applied rewrites93.3%
lift-/.f32N/A
mult-flipN/A
*-commutativeN/A
metadata-evalN/A
lift-*.f32N/A
times-fracN/A
lift-/.f32N/A
lift-/.f32N/A
associate-*r*N/A
lift-/.f32N/A
lift-*.f32N/A
associate-/r/N/A
lift-/.f32N/A
lift-/.f32N/A
lift-*.f32N/A
associate-/r*N/A
div-flip-revN/A
div-flipN/A
lift-/.f32N/A
associate-/r/N/A
/-rgt-identityN/A
unpow1N/A
pow-plusN/A
metadata-evalN/A
pow2N/A
lift-*.f32N/A
remove-double-negN/A
remove-double-negN/A
Applied rewrites93.2%
Taylor expanded in u0 around 0
Applied rewrites91.4%
(FPCore (alphax alphay u0 cos2phi sin2phi)
:precision binary32
(let* ((t_0 (/ cos2phi (* alphax alphax)))
(t_1 (/ sin2phi (* alphay alphay))))
(if (<= u0 0.014600000344216824)
(/ (fma (fma 0.3333333333333333 u0 0.5) (* u0 u0) u0) (+ t_0 t_1))
(/ 1.0 (/ (+ t_1 t_0) (- (log (- 1.0 u0))))))))float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float t_0 = cos2phi / (alphax * alphax);
float t_1 = sin2phi / (alphay * alphay);
float tmp;
if (u0 <= 0.014600000344216824f) {
tmp = fmaf(fmaf(0.3333333333333333f, u0, 0.5f), (u0 * u0), u0) / (t_0 + t_1);
} else {
tmp = 1.0f / ((t_1 + t_0) / -logf((1.0f - u0)));
}
return tmp;
}
function code(alphax, alphay, u0, cos2phi, sin2phi) t_0 = Float32(cos2phi / Float32(alphax * alphax)) t_1 = Float32(sin2phi / Float32(alphay * alphay)) tmp = Float32(0.0) if (u0 <= Float32(0.014600000344216824)) tmp = Float32(fma(fma(Float32(0.3333333333333333), u0, Float32(0.5)), Float32(u0 * u0), u0) / Float32(t_0 + t_1)); else tmp = Float32(Float32(1.0) / Float32(Float32(t_1 + t_0) / Float32(-log(Float32(Float32(1.0) - u0))))); end return tmp end
\begin{array}{l}
t_0 := \frac{cos2phi}{alphax \cdot alphax}\\
t_1 := \frac{sin2phi}{alphay \cdot alphay}\\
\mathbf{if}\;u0 \leq 0.014600000344216824:\\
\;\;\;\;\frac{\mathsf{fma}\left(\mathsf{fma}\left(0.3333333333333333, u0, 0.5\right), u0 \cdot u0, u0\right)}{t\_0 + t\_1}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{\frac{t\_1 + t\_0}{-\log \left(1 - u0\right)}}\\
\end{array}
if u0 < 0.0146000003Initial program 60.4%
Taylor expanded in u0 around 0
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-+.f32N/A
lower-*.f3293.1%
Applied rewrites93.1%
lift-*.f32N/A
lift-+.f32N/A
+-commutativeN/A
distribute-rgt-inN/A
*-commutativeN/A
*-lft-identityN/A
/-rgt-identityN/A
add-to-fractionN/A
/-rgt-identityN/A
*-rgt-identityN/A
lift-*.f32N/A
associate-*r*N/A
*-commutativeN/A
lower-fma.f32N/A
Applied rewrites93.3%
Taylor expanded in u0 around 0
Applied rewrites91.4%
if 0.0146000003 < u0 Initial program 60.4%
lift-/.f32N/A
mult-flipN/A
associate-*r/N/A
div-flipN/A
*-rgt-identityN/A
lower-/.f32N/A
lower-/.f3259.4%
lift-+.f32N/A
+-commutativeN/A
lower-+.f3259.4%
Applied rewrites59.4%
(FPCore (alphax alphay u0 cos2phi sin2phi)
:precision binary32
(let* ((t_0 (log (- 1.0 u0)))
(t_1
(+
(/ cos2phi (* alphax alphax))
(/ sin2phi (* alphay alphay)))))
(if (<= t_0 -0.014800000004470348)
(/ (- t_0) t_1)
(/ (fma (fma 0.3333333333333333 u0 0.5) (* u0 u0) u0) t_1))))float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float t_0 = logf((1.0f - u0));
float t_1 = (cos2phi / (alphax * alphax)) + (sin2phi / (alphay * alphay));
float tmp;
if (t_0 <= -0.014800000004470348f) {
tmp = -t_0 / t_1;
} else {
tmp = fmaf(fmaf(0.3333333333333333f, u0, 0.5f), (u0 * u0), u0) / t_1;
}
return tmp;
}
function code(alphax, alphay, u0, cos2phi, sin2phi) t_0 = log(Float32(Float32(1.0) - u0)) t_1 = Float32(Float32(cos2phi / Float32(alphax * alphax)) + Float32(sin2phi / Float32(alphay * alphay))) tmp = Float32(0.0) if (t_0 <= Float32(-0.014800000004470348)) tmp = Float32(Float32(-t_0) / t_1); else tmp = Float32(fma(fma(Float32(0.3333333333333333), u0, Float32(0.5)), Float32(u0 * u0), u0) / t_1); end return tmp end
\begin{array}{l}
t_0 := \log \left(1 - u0\right)\\
t_1 := \frac{cos2phi}{alphax \cdot alphax} + \frac{sin2phi}{alphay \cdot alphay}\\
\mathbf{if}\;t\_0 \leq -0.014800000004470348:\\
\;\;\;\;\frac{-t\_0}{t\_1}\\
\mathbf{else}:\\
\;\;\;\;\frac{\mathsf{fma}\left(\mathsf{fma}\left(0.3333333333333333, u0, 0.5\right), u0 \cdot u0, u0\right)}{t\_1}\\
\end{array}
if (log.f32 (-.f32 #s(literal 1 binary32) u0)) < -0.0148Initial program 60.4%
if -0.0148 < (log.f32 (-.f32 #s(literal 1 binary32) u0)) Initial program 60.4%
Taylor expanded in u0 around 0
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-+.f32N/A
lower-*.f3293.1%
Applied rewrites93.1%
lift-*.f32N/A
lift-+.f32N/A
+-commutativeN/A
distribute-rgt-inN/A
*-commutativeN/A
*-lft-identityN/A
/-rgt-identityN/A
add-to-fractionN/A
/-rgt-identityN/A
*-rgt-identityN/A
lift-*.f32N/A
associate-*r*N/A
*-commutativeN/A
lower-fma.f32N/A
Applied rewrites93.3%
Taylor expanded in u0 around 0
Applied rewrites91.4%
(FPCore (alphax alphay u0 cos2phi sin2phi)
:precision binary32
(let* ((t_0 (log (- 1.0 u0))) (t_1 (/ cos2phi (* alphax alphax))))
(if (<= t_0 -0.003599999938160181)
(/ (- t_0) (+ t_1 (/ sin2phi (* alphay alphay))))
(/
(fma 0.5 (* u0 u0) u0)
(+ t_1 (/ 1.0 (/ (* alphay alphay) sin2phi)))))))float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float t_0 = logf((1.0f - u0));
float t_1 = cos2phi / (alphax * alphax);
float tmp;
if (t_0 <= -0.003599999938160181f) {
tmp = -t_0 / (t_1 + (sin2phi / (alphay * alphay)));
} else {
tmp = fmaf(0.5f, (u0 * u0), u0) / (t_1 + (1.0f / ((alphay * alphay) / sin2phi)));
}
return tmp;
}
function code(alphax, alphay, u0, cos2phi, sin2phi) t_0 = log(Float32(Float32(1.0) - u0)) t_1 = Float32(cos2phi / Float32(alphax * alphax)) tmp = Float32(0.0) if (t_0 <= Float32(-0.003599999938160181)) tmp = Float32(Float32(-t_0) / Float32(t_1 + Float32(sin2phi / Float32(alphay * alphay)))); else tmp = Float32(fma(Float32(0.5), Float32(u0 * u0), u0) / Float32(t_1 + Float32(Float32(1.0) / Float32(Float32(alphay * alphay) / sin2phi)))); end return tmp end
\begin{array}{l}
t_0 := \log \left(1 - u0\right)\\
t_1 := \frac{cos2phi}{alphax \cdot alphax}\\
\mathbf{if}\;t\_0 \leq -0.003599999938160181:\\
\;\;\;\;\frac{-t\_0}{t\_1 + \frac{sin2phi}{alphay \cdot alphay}}\\
\mathbf{else}:\\
\;\;\;\;\frac{\mathsf{fma}\left(0.5, u0 \cdot u0, u0\right)}{t\_1 + \frac{1}{\frac{alphay \cdot alphay}{sin2phi}}}\\
\end{array}
if (log.f32 (-.f32 #s(literal 1 binary32) u0)) < -0.00359999994Initial program 60.4%
if -0.00359999994 < (log.f32 (-.f32 #s(literal 1 binary32) u0)) Initial program 60.4%
Taylor expanded in u0 around 0
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-+.f32N/A
lower-*.f3293.1%
Applied rewrites93.1%
lift-*.f32N/A
lift-+.f32N/A
+-commutativeN/A
distribute-rgt-inN/A
*-commutativeN/A
*-lft-identityN/A
/-rgt-identityN/A
add-to-fractionN/A
/-rgt-identityN/A
*-rgt-identityN/A
lift-*.f32N/A
associate-*r*N/A
*-commutativeN/A
lower-fma.f32N/A
Applied rewrites93.3%
lift-/.f32N/A
mult-flipN/A
*-commutativeN/A
metadata-evalN/A
lift-*.f32N/A
times-fracN/A
lift-/.f32N/A
lift-/.f32N/A
associate-*r*N/A
lift-/.f32N/A
lift-*.f32N/A
associate-/r/N/A
lift-/.f32N/A
lift-/.f32N/A
lift-*.f32N/A
associate-/r*N/A
div-flip-revN/A
div-flipN/A
lift-/.f32N/A
associate-/r/N/A
/-rgt-identityN/A
unpow1N/A
pow-plusN/A
metadata-evalN/A
pow2N/A
lift-*.f32N/A
remove-double-negN/A
remove-double-negN/A
Applied rewrites93.2%
Taylor expanded in u0 around 0
Applied rewrites87.6%
(FPCore (alphax alphay u0 cos2phi sin2phi)
:precision binary32
(let* ((t_0
(+
(/ cos2phi (* alphax alphax))
(/ sin2phi (* alphay alphay)))))
(if (<= u0 0.003000000026077032)
(/ (fma 0.5 (* u0 u0) u0) t_0)
(/ (- (log (- 1.0 u0))) t_0))))float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float t_0 = (cos2phi / (alphax * alphax)) + (sin2phi / (alphay * alphay));
float tmp;
if (u0 <= 0.003000000026077032f) {
tmp = fmaf(0.5f, (u0 * u0), u0) / t_0;
} else {
tmp = -logf((1.0f - u0)) / t_0;
}
return tmp;
}
function code(alphax, alphay, u0, cos2phi, sin2phi) t_0 = Float32(Float32(cos2phi / Float32(alphax * alphax)) + Float32(sin2phi / Float32(alphay * alphay))) tmp = Float32(0.0) if (u0 <= Float32(0.003000000026077032)) tmp = Float32(fma(Float32(0.5), Float32(u0 * u0), u0) / t_0); else tmp = Float32(Float32(-log(Float32(Float32(1.0) - u0))) / t_0); end return tmp end
\begin{array}{l}
t_0 := \frac{cos2phi}{alphax \cdot alphax} + \frac{sin2phi}{alphay \cdot alphay}\\
\mathbf{if}\;u0 \leq 0.003000000026077032:\\
\;\;\;\;\frac{\mathsf{fma}\left(0.5, u0 \cdot u0, u0\right)}{t\_0}\\
\mathbf{else}:\\
\;\;\;\;\frac{-\log \left(1 - u0\right)}{t\_0}\\
\end{array}
if u0 < 0.00300000003Initial program 60.4%
Taylor expanded in u0 around 0
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-+.f32N/A
lower-*.f3293.1%
Applied rewrites93.1%
lift-*.f32N/A
lift-+.f32N/A
+-commutativeN/A
distribute-rgt-inN/A
*-commutativeN/A
*-lft-identityN/A
/-rgt-identityN/A
add-to-fractionN/A
/-rgt-identityN/A
*-rgt-identityN/A
lift-*.f32N/A
associate-*r*N/A
*-commutativeN/A
lower-fma.f32N/A
Applied rewrites93.3%
Taylor expanded in u0 around 0
Applied rewrites87.7%
if 0.00300000003 < u0 Initial program 60.4%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (if (<= u0 0.014999999664723873) (/ (fma 0.5 (* u0 u0) u0) (+ (/ cos2phi (* alphax alphax)) (/ sin2phi (* alphay alphay)))) (* (/ 1.0 (/ sin2phi (log (- 1.0 u0)))) (* (- alphay) alphay))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float tmp;
if (u0 <= 0.014999999664723873f) {
tmp = fmaf(0.5f, (u0 * u0), u0) / ((cos2phi / (alphax * alphax)) + (sin2phi / (alphay * alphay)));
} else {
tmp = (1.0f / (sin2phi / logf((1.0f - u0)))) * (-alphay * alphay);
}
return tmp;
}
function code(alphax, alphay, u0, cos2phi, sin2phi) tmp = Float32(0.0) if (u0 <= Float32(0.014999999664723873)) tmp = Float32(fma(Float32(0.5), Float32(u0 * u0), u0) / Float32(Float32(cos2phi / Float32(alphax * alphax)) + Float32(sin2phi / Float32(alphay * alphay)))); else tmp = Float32(Float32(Float32(1.0) / Float32(sin2phi / log(Float32(Float32(1.0) - u0)))) * Float32(Float32(-alphay) * alphay)); end return tmp end
\begin{array}{l}
\mathbf{if}\;u0 \leq 0.014999999664723873:\\
\;\;\;\;\frac{\mathsf{fma}\left(0.5, u0 \cdot u0, u0\right)}{\frac{cos2phi}{alphax \cdot alphax} + \frac{sin2phi}{alphay \cdot alphay}}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{\frac{sin2phi}{\log \left(1 - u0\right)}} \cdot \left(\left(-alphay\right) \cdot alphay\right)\\
\end{array}
if u0 < 0.0149999997Initial program 60.4%
Taylor expanded in u0 around 0
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-+.f32N/A
lower-*.f3293.1%
Applied rewrites93.1%
lift-*.f32N/A
lift-+.f32N/A
+-commutativeN/A
distribute-rgt-inN/A
*-commutativeN/A
*-lft-identityN/A
/-rgt-identityN/A
add-to-fractionN/A
/-rgt-identityN/A
*-rgt-identityN/A
lift-*.f32N/A
associate-*r*N/A
*-commutativeN/A
lower-fma.f32N/A
Applied rewrites93.3%
Taylor expanded in u0 around 0
Applied rewrites87.7%
if 0.0149999997 < u0 Initial program 60.4%
lift-/.f32N/A
lift-neg.f32N/A
distribute-frac-negN/A
distribute-neg-frac2N/A
lift-+.f32N/A
lift-/.f32N/A
add-to-fractionN/A
distribute-neg-frac2N/A
associate-/r/N/A
lower-*.f32N/A
Applied rewrites60.6%
Taylor expanded in alphax around inf
Applied rewrites48.5%
(FPCore (alphax alphay u0 cos2phi sin2phi)
:precision binary32
(let* ((t_0 (log (- 1.0 u0))))
(if (<= t_0 -0.0020000000949949026)
(* (/ 1.0 (/ sin2phi t_0)) (* (- alphay) alphay))
(/
(- (- u0))
(+
(/ 1.0 (/ (* alphay alphay) sin2phi))
(/ cos2phi (* alphax alphax)))))))float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float t_0 = logf((1.0f - u0));
float tmp;
if (t_0 <= -0.0020000000949949026f) {
tmp = (1.0f / (sin2phi / t_0)) * (-alphay * alphay);
} else {
tmp = -(-u0) / ((1.0f / ((alphay * alphay) / sin2phi)) + (cos2phi / (alphax * alphax)));
}
return tmp;
}
real(4) function code(alphax, alphay, u0, cos2phi, sin2phi)
use fmin_fmax_functions
real(4), intent (in) :: alphax
real(4), intent (in) :: alphay
real(4), intent (in) :: u0
real(4), intent (in) :: cos2phi
real(4), intent (in) :: sin2phi
real(4) :: t_0
real(4) :: tmp
t_0 = log((1.0e0 - u0))
if (t_0 <= (-0.0020000000949949026e0)) then
tmp = (1.0e0 / (sin2phi / t_0)) * (-alphay * alphay)
else
tmp = -(-u0) / ((1.0e0 / ((alphay * alphay) / sin2phi)) + (cos2phi / (alphax * alphax)))
end if
code = tmp
end function
function code(alphax, alphay, u0, cos2phi, sin2phi) t_0 = log(Float32(Float32(1.0) - u0)) tmp = Float32(0.0) if (t_0 <= Float32(-0.0020000000949949026)) tmp = Float32(Float32(Float32(1.0) / Float32(sin2phi / t_0)) * Float32(Float32(-alphay) * alphay)); else tmp = Float32(Float32(-Float32(-u0)) / Float32(Float32(Float32(1.0) / Float32(Float32(alphay * alphay) / sin2phi)) + Float32(cos2phi / Float32(alphax * alphax)))); end return tmp end
function tmp_2 = code(alphax, alphay, u0, cos2phi, sin2phi) t_0 = log((single(1.0) - u0)); tmp = single(0.0); if (t_0 <= single(-0.0020000000949949026)) tmp = (single(1.0) / (sin2phi / t_0)) * (-alphay * alphay); else tmp = -(-u0) / ((single(1.0) / ((alphay * alphay) / sin2phi)) + (cos2phi / (alphax * alphax))); end tmp_2 = tmp; end
\begin{array}{l}
t_0 := \log \left(1 - u0\right)\\
\mathbf{if}\;t\_0 \leq -0.0020000000949949026:\\
\;\;\;\;\frac{1}{\frac{sin2phi}{t\_0}} \cdot \left(\left(-alphay\right) \cdot alphay\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{-\left(-u0\right)}{\frac{1}{\frac{alphay \cdot alphay}{sin2phi}} + \frac{cos2phi}{alphax \cdot alphax}}\\
\end{array}
if (log.f32 (-.f32 #s(literal 1 binary32) u0)) < -0.00200000009Initial program 60.4%
lift-/.f32N/A
lift-neg.f32N/A
distribute-frac-negN/A
distribute-neg-frac2N/A
lift-+.f32N/A
lift-/.f32N/A
add-to-fractionN/A
distribute-neg-frac2N/A
associate-/r/N/A
lower-*.f32N/A
Applied rewrites60.6%
Taylor expanded in alphax around inf
Applied rewrites48.5%
if -0.00200000009 < (log.f32 (-.f32 #s(literal 1 binary32) u0)) Initial program 60.4%
Taylor expanded in u0 around 0
lower-*.f3276.0%
Applied rewrites76.0%
lift-*.f32N/A
mul-1-negN/A
lower-neg.f3276.0%
lower-neg.f32N/A
lower-neg.f32N/A
lower-neg.f32N/A
Applied rewrites76.0%
lift-/.f32N/A
mult-flipN/A
*-commutativeN/A
metadata-evalN/A
lift-*.f32N/A
times-fracN/A
lift-/.f32N/A
lift-/.f32N/A
associate-*r*N/A
lift-/.f32N/A
lift-*.f32N/A
associate-/r/N/A
lift-/.f32N/A
lift-/.f32N/A
lift-*.f32N/A
associate-/r*N/A
div-flip-revN/A
div-flipN/A
lift-/.f32N/A
associate-/r/N/A
/-rgt-identityN/A
unpow1N/A
pow-plusN/A
metadata-evalN/A
pow2N/A
lift-*.f32N/A
remove-double-negN/A
remove-double-negN/A
Applied rewrites75.9%
(FPCore (alphax alphay u0 cos2phi sin2phi)
:precision binary32
(let* ((t_0 (log (- 1.0 u0))))
(if (<= t_0 -0.0020000000949949026)
(* (/ 1.0 (/ sin2phi t_0)) (* (- alphay) alphay))
(/
(- (- u0))
(+
(/ sin2phi (* alphay alphay))
(/ cos2phi (* alphax alphax)))))))float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float t_0 = logf((1.0f - u0));
float tmp;
if (t_0 <= -0.0020000000949949026f) {
tmp = (1.0f / (sin2phi / t_0)) * (-alphay * alphay);
} else {
tmp = -(-u0) / ((sin2phi / (alphay * alphay)) + (cos2phi / (alphax * alphax)));
}
return tmp;
}
real(4) function code(alphax, alphay, u0, cos2phi, sin2phi)
use fmin_fmax_functions
real(4), intent (in) :: alphax
real(4), intent (in) :: alphay
real(4), intent (in) :: u0
real(4), intent (in) :: cos2phi
real(4), intent (in) :: sin2phi
real(4) :: t_0
real(4) :: tmp
t_0 = log((1.0e0 - u0))
if (t_0 <= (-0.0020000000949949026e0)) then
tmp = (1.0e0 / (sin2phi / t_0)) * (-alphay * alphay)
else
tmp = -(-u0) / ((sin2phi / (alphay * alphay)) + (cos2phi / (alphax * alphax)))
end if
code = tmp
end function
function code(alphax, alphay, u0, cos2phi, sin2phi) t_0 = log(Float32(Float32(1.0) - u0)) tmp = Float32(0.0) if (t_0 <= Float32(-0.0020000000949949026)) tmp = Float32(Float32(Float32(1.0) / Float32(sin2phi / t_0)) * Float32(Float32(-alphay) * alphay)); else tmp = Float32(Float32(-Float32(-u0)) / Float32(Float32(sin2phi / Float32(alphay * alphay)) + Float32(cos2phi / Float32(alphax * alphax)))); end return tmp end
function tmp_2 = code(alphax, alphay, u0, cos2phi, sin2phi) t_0 = log((single(1.0) - u0)); tmp = single(0.0); if (t_0 <= single(-0.0020000000949949026)) tmp = (single(1.0) / (sin2phi / t_0)) * (-alphay * alphay); else tmp = -(-u0) / ((sin2phi / (alphay * alphay)) + (cos2phi / (alphax * alphax))); end tmp_2 = tmp; end
\begin{array}{l}
t_0 := \log \left(1 - u0\right)\\
\mathbf{if}\;t\_0 \leq -0.0020000000949949026:\\
\;\;\;\;\frac{1}{\frac{sin2phi}{t\_0}} \cdot \left(\left(-alphay\right) \cdot alphay\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{-\left(-u0\right)}{\frac{sin2phi}{alphay \cdot alphay} + \frac{cos2phi}{alphax \cdot alphax}}\\
\end{array}
if (log.f32 (-.f32 #s(literal 1 binary32) u0)) < -0.00200000009Initial program 60.4%
lift-/.f32N/A
lift-neg.f32N/A
distribute-frac-negN/A
distribute-neg-frac2N/A
lift-+.f32N/A
lift-/.f32N/A
add-to-fractionN/A
distribute-neg-frac2N/A
associate-/r/N/A
lower-*.f32N/A
Applied rewrites60.6%
Taylor expanded in alphax around inf
Applied rewrites48.5%
if -0.00200000009 < (log.f32 (-.f32 #s(literal 1 binary32) u0)) Initial program 60.4%
Taylor expanded in u0 around 0
lower-*.f3276.0%
Applied rewrites76.0%
lift-*.f32N/A
mul-1-negN/A
lower-neg.f3276.0%
lower-neg.f32N/A
lower-neg.f32N/A
lower-neg.f32N/A
Applied rewrites76.0%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (if (<= sin2phi 1.8399999579532533e-10) (/ (- (- u0)) (+ (/ sin2phi (* alphay alphay)) (/ cos2phi (* alphax alphax)))) (* (/ 1.0 (/ sin2phi (* (- alphay) alphay))) (* (fma -0.5 u0 -1.0) u0))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float tmp;
if (sin2phi <= 1.8399999579532533e-10f) {
tmp = -(-u0) / ((sin2phi / (alphay * alphay)) + (cos2phi / (alphax * alphax)));
} else {
tmp = (1.0f / (sin2phi / (-alphay * alphay))) * (fmaf(-0.5f, u0, -1.0f) * u0);
}
return tmp;
}
function code(alphax, alphay, u0, cos2phi, sin2phi) tmp = Float32(0.0) if (sin2phi <= Float32(1.8399999579532533e-10)) tmp = Float32(Float32(-Float32(-u0)) / Float32(Float32(sin2phi / Float32(alphay * alphay)) + Float32(cos2phi / Float32(alphax * alphax)))); else tmp = Float32(Float32(Float32(1.0) / Float32(sin2phi / Float32(Float32(-alphay) * alphay))) * Float32(fma(Float32(-0.5), u0, Float32(-1.0)) * u0)); end return tmp end
\begin{array}{l}
\mathbf{if}\;sin2phi \leq 1.8399999579532533 \cdot 10^{-10}:\\
\;\;\;\;\frac{-\left(-u0\right)}{\frac{sin2phi}{alphay \cdot alphay} + \frac{cos2phi}{alphax \cdot alphax}}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{\frac{sin2phi}{\left(-alphay\right) \cdot alphay}} \cdot \left(\mathsf{fma}\left(-0.5, u0, -1\right) \cdot u0\right)\\
\end{array}
if sin2phi < 1.83999996e-10Initial program 60.4%
Taylor expanded in u0 around 0
lower-*.f3276.0%
Applied rewrites76.0%
lift-*.f32N/A
mul-1-negN/A
lower-neg.f3276.0%
lower-neg.f32N/A
lower-neg.f32N/A
lower-neg.f32N/A
Applied rewrites76.0%
if 1.83999996e-10 < sin2phi Initial program 60.4%
lift-/.f32N/A
lift-neg.f32N/A
distribute-frac-negN/A
distribute-neg-frac2N/A
lift-+.f32N/A
lift-/.f32N/A
add-to-fractionN/A
distribute-neg-frac2N/A
associate-/r/N/A
lower-*.f32N/A
Applied rewrites60.6%
Taylor expanded in u0 around 0
lower-*.f32N/A
lower--.f32N/A
lower-*.f3287.2%
Applied rewrites87.2%
Taylor expanded in alphax around inf
Applied rewrites66.4%
lift-*.f32N/A
*-commutativeN/A
lift-/.f32N/A
mult-flip-revN/A
lift-/.f32N/A
associate-/r/N/A
lower-*.f32N/A
Applied rewrites66.7%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (if (<= sin2phi 1.8399999579532533e-10) (/ (- (- u0)) (+ (/ sin2phi (* alphay alphay)) (/ cos2phi (* alphax alphax)))) (* (* (/ 1.0 (/ sin2phi (* (fma -0.5 u0 -1.0) u0))) alphay) (- alphay))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float tmp;
if (sin2phi <= 1.8399999579532533e-10f) {
tmp = -(-u0) / ((sin2phi / (alphay * alphay)) + (cos2phi / (alphax * alphax)));
} else {
tmp = ((1.0f / (sin2phi / (fmaf(-0.5f, u0, -1.0f) * u0))) * alphay) * -alphay;
}
return tmp;
}
function code(alphax, alphay, u0, cos2phi, sin2phi) tmp = Float32(0.0) if (sin2phi <= Float32(1.8399999579532533e-10)) tmp = Float32(Float32(-Float32(-u0)) / Float32(Float32(sin2phi / Float32(alphay * alphay)) + Float32(cos2phi / Float32(alphax * alphax)))); else tmp = Float32(Float32(Float32(Float32(1.0) / Float32(sin2phi / Float32(fma(Float32(-0.5), u0, Float32(-1.0)) * u0))) * alphay) * Float32(-alphay)); end return tmp end
\begin{array}{l}
\mathbf{if}\;sin2phi \leq 1.8399999579532533 \cdot 10^{-10}:\\
\;\;\;\;\frac{-\left(-u0\right)}{\frac{sin2phi}{alphay \cdot alphay} + \frac{cos2phi}{alphax \cdot alphax}}\\
\mathbf{else}:\\
\;\;\;\;\left(\frac{1}{\frac{sin2phi}{\mathsf{fma}\left(-0.5, u0, -1\right) \cdot u0}} \cdot alphay\right) \cdot \left(-alphay\right)\\
\end{array}
if sin2phi < 1.83999996e-10Initial program 60.4%
Taylor expanded in u0 around 0
lower-*.f3276.0%
Applied rewrites76.0%
lift-*.f32N/A
mul-1-negN/A
lower-neg.f3276.0%
lower-neg.f32N/A
lower-neg.f32N/A
lower-neg.f32N/A
Applied rewrites76.0%
if 1.83999996e-10 < sin2phi Initial program 60.4%
lift-/.f32N/A
lift-neg.f32N/A
distribute-frac-negN/A
distribute-neg-frac2N/A
lift-+.f32N/A
lift-/.f32N/A
add-to-fractionN/A
distribute-neg-frac2N/A
associate-/r/N/A
lower-*.f32N/A
Applied rewrites60.6%
Taylor expanded in u0 around 0
lower-*.f32N/A
lower--.f32N/A
lower-*.f3287.2%
Applied rewrites87.2%
Taylor expanded in alphax around inf
Applied rewrites66.4%
lift-*.f32N/A
lift-*.f32N/A
*-commutativeN/A
associate-*r*N/A
lower-*.f32N/A
Applied rewrites66.4%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (/ (- (- u0)) (+ (/ sin2phi (* alphay alphay)) (/ cos2phi (* alphax alphax)))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return -(-u0) / ((sin2phi / (alphay * alphay)) + (cos2phi / (alphax * alphax)));
}
real(4) function code(alphax, alphay, u0, cos2phi, sin2phi)
use fmin_fmax_functions
real(4), intent (in) :: alphax
real(4), intent (in) :: alphay
real(4), intent (in) :: u0
real(4), intent (in) :: cos2phi
real(4), intent (in) :: sin2phi
code = -(-u0) / ((sin2phi / (alphay * alphay)) + (cos2phi / (alphax * alphax)))
end function
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(Float32(-Float32(-u0)) / Float32(Float32(sin2phi / Float32(alphay * alphay)) + Float32(cos2phi / Float32(alphax * alphax)))) end
function tmp = code(alphax, alphay, u0, cos2phi, sin2phi) tmp = -(-u0) / ((sin2phi / (alphay * alphay)) + (cos2phi / (alphax * alphax))); end
\frac{-\left(-u0\right)}{\frac{sin2phi}{alphay \cdot alphay} + \frac{cos2phi}{alphax \cdot alphax}}
Initial program 60.4%
Taylor expanded in u0 around 0
lower-*.f3276.0%
Applied rewrites76.0%
lift-*.f32N/A
mul-1-negN/A
lower-neg.f3276.0%
lower-neg.f32N/A
lower-neg.f32N/A
lower-neg.f32N/A
Applied rewrites76.0%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (* (/ 1.0 (/ sin2phi (* u0 -1.0))) (* (- alphay) alphay)))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return (1.0f / (sin2phi / (u0 * -1.0f))) * (-alphay * alphay);
}
real(4) function code(alphax, alphay, u0, cos2phi, sin2phi)
use fmin_fmax_functions
real(4), intent (in) :: alphax
real(4), intent (in) :: alphay
real(4), intent (in) :: u0
real(4), intent (in) :: cos2phi
real(4), intent (in) :: sin2phi
code = (1.0e0 / (sin2phi / (u0 * (-1.0e0)))) * (-alphay * alphay)
end function
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(Float32(Float32(1.0) / Float32(sin2phi / Float32(u0 * Float32(-1.0)))) * Float32(Float32(-alphay) * alphay)) end
function tmp = code(alphax, alphay, u0, cos2phi, sin2phi) tmp = (single(1.0) / (sin2phi / (u0 * single(-1.0)))) * (-alphay * alphay); end
\frac{1}{\frac{sin2phi}{u0 \cdot -1}} \cdot \left(\left(-alphay\right) \cdot alphay\right)
Initial program 60.4%
lift-/.f32N/A
lift-neg.f32N/A
distribute-frac-negN/A
distribute-neg-frac2N/A
lift-+.f32N/A
lift-/.f32N/A
add-to-fractionN/A
distribute-neg-frac2N/A
associate-/r/N/A
lower-*.f32N/A
Applied rewrites60.6%
Taylor expanded in u0 around 0
lower-*.f32N/A
lower--.f32N/A
lower-*.f3287.2%
Applied rewrites87.2%
Taylor expanded in alphax around inf
Applied rewrites66.4%
Taylor expanded in u0 around 0
Applied rewrites58.7%
herbie shell --seed 2025322
(FPCore (alphax alphay u0 cos2phi sin2phi)
:name "Beckmann Distribution sample, tan2theta, alphax != alphay, u1 <= 0.5"
:precision binary32
:pre (and (and (and (and (and (<= 0.0001 alphax) (<= alphax 1.0)) (and (<= 0.0001 alphay) (<= alphay 1.0))) (and (<= 2.328306437e-10 u0) (<= u0 1.0))) (and (<= 0.0 cos2phi) (<= cos2phi 1.0))) (<= 0.0 sin2phi))
(/ (- (log (- 1.0 u0))) (+ (/ cos2phi (* alphax alphax)) (/ sin2phi (* alphay alphay)))))