
(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)
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
\begin{array}{l}
\\
\frac{-\log \left(1 - u0\right)}{\frac{cos2phi}{alphax \cdot alphax} + \frac{sin2phi}{alphay \cdot alphay}}
\end{array}
Sampling outcomes in binary32 precision:
Herbie found 15 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)
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
\begin{array}{l}
\\
\frac{-\log \left(1 - u0\right)}{\frac{cos2phi}{alphax \cdot alphax} + \frac{sin2phi}{alphay \cdot alphay}}
\end{array}
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (/ (* (* (- alphay) alphay) (* (* alphax alphax) (log1p (- u0)))) (fma cos2phi (* alphay alphay) (* sin2phi (* alphax alphax)))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return ((-alphay * alphay) * ((alphax * alphax) * log1pf(-u0))) / fmaf(cos2phi, (alphay * alphay), (sin2phi * (alphax * alphax)));
}
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(Float32(Float32(Float32(-alphay) * alphay) * Float32(Float32(alphax * alphax) * log1p(Float32(-u0)))) / fma(cos2phi, Float32(alphay * alphay), Float32(sin2phi * Float32(alphax * alphax)))) end
\begin{array}{l}
\\
\frac{\left(\left(-alphay\right) \cdot alphay\right) \cdot \left(\left(alphax \cdot alphax\right) \cdot \mathsf{log1p}\left(-u0\right)\right)}{\mathsf{fma}\left(cos2phi, alphay \cdot alphay, sin2phi \cdot \left(alphax \cdot alphax\right)\right)}
\end{array}
Initial program 60.3%
lift-log.f32N/A
lift--.f32N/A
sub-negN/A
lower-log1p.f32N/A
lower-neg.f3298.6
lift-+.f32N/A
+-commutativeN/A
lower-+.f3298.6
Applied rewrites98.6%
lift-/.f32N/A
lift-+.f32N/A
lift-/.f32N/A
lift-/.f32N/A
frac-addN/A
lift-*.f32N/A
+-commutativeN/A
lift-fma.f32N/A
associate-/r/N/A
associate-*l/N/A
lower-/.f32N/A
Applied rewrites98.4%
lift-*.f32N/A
lift-neg.f32N/A
lift-log1p.f32N/A
lift-neg.f32N/A
sub-negN/A
lift-*.f32N/A
lift-*.f32N/A
associate-*l*N/A
lift-*.f32N/A
associate-*r*N/A
lower-*.f32N/A
lower-*.f32N/A
sub-negN/A
lift-neg.f32N/A
lift-log1p.f32N/A
lift-neg.f3298.7
Applied rewrites98.7%
Final simplification98.7%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (/ (- (log1p (- u0))) (+ (/ cos2phi (* alphax alphax)) (/ sin2phi (* alphay alphay)))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return -log1pf(-u0) / ((cos2phi / (alphax * alphax)) + (sin2phi / (alphay * alphay)));
}
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(Float32(-log1p(Float32(-u0))) / Float32(Float32(cos2phi / Float32(alphax * alphax)) + Float32(sin2phi / Float32(alphay * alphay)))) end
\begin{array}{l}
\\
\frac{-\mathsf{log1p}\left(-u0\right)}{\frac{cos2phi}{alphax \cdot alphax} + \frac{sin2phi}{alphay \cdot alphay}}
\end{array}
Initial program 60.3%
lift-log.f32N/A
lift--.f32N/A
sub-negN/A
lower-log1p.f32N/A
lower-neg.f3298.6
lift-+.f32N/A
+-commutativeN/A
lower-+.f3298.6
Applied rewrites98.6%
Final simplification98.6%
(FPCore (alphax alphay u0 cos2phi sin2phi)
:precision binary32
(let* ((t_0 (/ sin2phi (* alphay alphay))))
(if (<= t_0 5000000.0)
(/
(fma (* (fma (fma 0.25 u0 0.3333333333333333) u0 0.5) u0) u0 u0)
(+ (/ cos2phi (* alphax alphax)) t_0))
(/ (* (* alphay alphay) (log1p (- u0))) (- sin2phi)))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float t_0 = sin2phi / (alphay * alphay);
float tmp;
if (t_0 <= 5000000.0f) {
tmp = fmaf((fmaf(fmaf(0.25f, u0, 0.3333333333333333f), u0, 0.5f) * u0), u0, u0) / ((cos2phi / (alphax * alphax)) + t_0);
} else {
tmp = ((alphay * alphay) * log1pf(-u0)) / -sin2phi;
}
return tmp;
}
function code(alphax, alphay, u0, cos2phi, sin2phi) t_0 = Float32(sin2phi / Float32(alphay * alphay)) tmp = Float32(0.0) if (t_0 <= Float32(5000000.0)) tmp = Float32(fma(Float32(fma(fma(Float32(0.25), u0, Float32(0.3333333333333333)), u0, Float32(0.5)) * u0), u0, u0) / Float32(Float32(cos2phi / Float32(alphax * alphax)) + t_0)); else tmp = Float32(Float32(Float32(alphay * alphay) * log1p(Float32(-u0))) / Float32(-sin2phi)); end return tmp end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{sin2phi}{alphay \cdot alphay}\\
\mathbf{if}\;t\_0 \leq 5000000:\\
\;\;\;\;\frac{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.25, u0, 0.3333333333333333\right), u0, 0.5\right) \cdot u0, u0, u0\right)}{\frac{cos2phi}{alphax \cdot alphax} + t\_0}\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(alphay \cdot alphay\right) \cdot \mathsf{log1p}\left(-u0\right)}{-sin2phi}\\
\end{array}
\end{array}
if (/.f32 sin2phi (*.f32 alphay alphay)) < 5e6Initial program 49.9%
Taylor expanded in u0 around 0
*-commutativeN/A
lower-*.f32N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f32N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f32N/A
+-commutativeN/A
lower-fma.f3296.2
Applied rewrites96.2%
Applied rewrites96.6%
if 5e6 < (/.f32 sin2phi (*.f32 alphay alphay)) Initial program 72.0%
Taylor expanded in alphax around inf
mul-1-negN/A
distribute-neg-frac2N/A
lower-/.f32N/A
lower-*.f32N/A
unpow2N/A
lower-*.f32N/A
sub-negN/A
mul-1-negN/A
lower-log1p.f32N/A
mul-1-negN/A
lower-neg.f32N/A
lower-neg.f3299.1
Applied rewrites99.1%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (/ (fma (* (fma (fma 0.25 u0 0.3333333333333333) u0 0.5) u0) u0 u0) (+ (/ cos2phi (* alphax alphax)) (/ sin2phi (* alphay alphay)))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return fmaf((fmaf(fmaf(0.25f, u0, 0.3333333333333333f), u0, 0.5f) * u0), u0, u0) / ((cos2phi / (alphax * alphax)) + (sin2phi / (alphay * alphay)));
}
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(fma(Float32(fma(fma(Float32(0.25), u0, Float32(0.3333333333333333)), u0, Float32(0.5)) * u0), u0, u0) / Float32(Float32(cos2phi / Float32(alphax * alphax)) + Float32(sin2phi / Float32(alphay * alphay)))) end
\begin{array}{l}
\\
\frac{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.25, u0, 0.3333333333333333\right), u0, 0.5\right) \cdot u0, u0, u0\right)}{\frac{cos2phi}{alphax \cdot alphax} + \frac{sin2phi}{alphay \cdot alphay}}
\end{array}
Initial program 60.3%
Taylor expanded in u0 around 0
*-commutativeN/A
lower-*.f32N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f32N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f32N/A
+-commutativeN/A
lower-fma.f3293.8
Applied rewrites93.8%
Applied rewrites94.1%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (/ (* (fma (fma (fma 0.25 u0 0.3333333333333333) u0 0.5) u0 1.0) u0) (+ (/ cos2phi (* alphax alphax)) (/ sin2phi (* alphay alphay)))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return (fmaf(fmaf(fmaf(0.25f, u0, 0.3333333333333333f), u0, 0.5f), u0, 1.0f) * u0) / ((cos2phi / (alphax * alphax)) + (sin2phi / (alphay * alphay)));
}
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(Float32(fma(fma(fma(Float32(0.25), u0, Float32(0.3333333333333333)), u0, Float32(0.5)), u0, Float32(1.0)) * u0) / Float32(Float32(cos2phi / Float32(alphax * alphax)) + Float32(sin2phi / Float32(alphay * alphay)))) end
\begin{array}{l}
\\
\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{cos2phi}{alphax \cdot alphax} + \frac{sin2phi}{alphay \cdot alphay}}
\end{array}
Initial program 60.3%
Taylor expanded in u0 around 0
*-commutativeN/A
lower-*.f32N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f32N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f32N/A
+-commutativeN/A
lower-fma.f3293.8
Applied rewrites93.8%
(FPCore (alphax alphay u0 cos2phi sin2phi)
:precision binary32
(if (<= sin2phi 0.00039999998989515007)
(*
(/ u0 (+ (/ cos2phi (* alphax alphax)) (/ sin2phi (* alphay alphay))))
(fma 0.5 u0 1.0))
(/
(*
(fma
(fma 0.5 u0 1.0)
u0
(* (* (* u0 u0) u0) (fma 0.25 u0 0.3333333333333333)))
(* alphay alphay))
sin2phi)))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float tmp;
if (sin2phi <= 0.00039999998989515007f) {
tmp = (u0 / ((cos2phi / (alphax * alphax)) + (sin2phi / (alphay * alphay)))) * fmaf(0.5f, u0, 1.0f);
} else {
tmp = (fmaf(fmaf(0.5f, u0, 1.0f), u0, (((u0 * u0) * u0) * fmaf(0.25f, u0, 0.3333333333333333f))) * (alphay * alphay)) / sin2phi;
}
return tmp;
}
function code(alphax, alphay, u0, cos2phi, sin2phi) tmp = Float32(0.0) if (sin2phi <= Float32(0.00039999998989515007)) tmp = Float32(Float32(u0 / Float32(Float32(cos2phi / Float32(alphax * alphax)) + Float32(sin2phi / Float32(alphay * alphay)))) * fma(Float32(0.5), u0, Float32(1.0))); else tmp = Float32(Float32(fma(fma(Float32(0.5), u0, Float32(1.0)), u0, Float32(Float32(Float32(u0 * u0) * u0) * fma(Float32(0.25), u0, Float32(0.3333333333333333)))) * Float32(alphay * alphay)) / sin2phi); end return tmp end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;sin2phi \leq 0.00039999998989515007:\\
\;\;\;\;\frac{u0}{\frac{cos2phi}{alphax \cdot alphax} + \frac{sin2phi}{alphay \cdot alphay}} \cdot \mathsf{fma}\left(0.5, u0, 1\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{\mathsf{fma}\left(\mathsf{fma}\left(0.5, u0, 1\right), u0, \left(\left(u0 \cdot u0\right) \cdot u0\right) \cdot \mathsf{fma}\left(0.25, u0, 0.3333333333333333\right)\right) \cdot \left(alphay \cdot alphay\right)}{sin2phi}\\
\end{array}
\end{array}
if sin2phi < 3.9999999e-4Initial program 50.5%
Taylor expanded in u0 around 0
distribute-lft-inN/A
associate-*r*N/A
*-commutativeN/A
associate-*r/N/A
*-rgt-identityN/A
distribute-lft1-inN/A
+-commutativeN/A
lower-*.f32N/A
+-commutativeN/A
lower-fma.f32N/A
lower-/.f32N/A
+-commutativeN/A
lower-+.f32N/A
lower-/.f32N/A
unpow2N/A
lower-*.f32N/A
lower-/.f32N/A
unpow2N/A
Applied rewrites90.1%
if 3.9999999e-4 < sin2phi Initial program 68.5%
Taylor expanded in u0 around 0
Applied rewrites92.1%
Taylor expanded in sin2phi around inf
Applied rewrites92.4%
Final simplification91.4%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (/ (* (fma (fma 0.3333333333333333 u0 0.5) u0 1.0) u0) (+ (/ cos2phi (* alphax alphax)) (/ sin2phi (* alphay alphay)))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return (fmaf(fmaf(0.3333333333333333f, u0, 0.5f), u0, 1.0f) * u0) / ((cos2phi / (alphax * alphax)) + (sin2phi / (alphay * alphay)));
}
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(Float32(fma(fma(Float32(0.3333333333333333), u0, Float32(0.5)), u0, Float32(1.0)) * u0) / Float32(Float32(cos2phi / Float32(alphax * alphax)) + Float32(sin2phi / Float32(alphay * alphay)))) end
\begin{array}{l}
\\
\frac{\mathsf{fma}\left(\mathsf{fma}\left(0.3333333333333333, u0, 0.5\right), u0, 1\right) \cdot u0}{\frac{cos2phi}{alphax \cdot alphax} + \frac{sin2phi}{alphay \cdot alphay}}
\end{array}
Initial program 60.3%
Taylor expanded in u0 around 0
*-commutativeN/A
lower-*.f32N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f32N/A
+-commutativeN/A
lower-fma.f3291.8
Applied rewrites91.8%
(FPCore (alphax alphay u0 cos2phi sin2phi)
:precision binary32
(if (<= sin2phi 1.0000000116860974e-7)
(/ u0 (+ (/ cos2phi (* alphax alphax)) (/ sin2phi (* alphay alphay))))
(/
(*
(fma
(fma 0.5 u0 1.0)
u0
(* (* (* u0 u0) u0) (fma 0.25 u0 0.3333333333333333)))
(* alphay alphay))
sin2phi)))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float tmp;
if (sin2phi <= 1.0000000116860974e-7f) {
tmp = u0 / ((cos2phi / (alphax * alphax)) + (sin2phi / (alphay * alphay)));
} else {
tmp = (fmaf(fmaf(0.5f, u0, 1.0f), u0, (((u0 * u0) * u0) * fmaf(0.25f, u0, 0.3333333333333333f))) * (alphay * alphay)) / sin2phi;
}
return tmp;
}
function code(alphax, alphay, u0, cos2phi, sin2phi) tmp = Float32(0.0) if (sin2phi <= Float32(1.0000000116860974e-7)) tmp = Float32(u0 / Float32(Float32(cos2phi / Float32(alphax * alphax)) + Float32(sin2phi / Float32(alphay * alphay)))); else tmp = Float32(Float32(fma(fma(Float32(0.5), u0, Float32(1.0)), u0, Float32(Float32(Float32(u0 * u0) * u0) * fma(Float32(0.25), u0, Float32(0.3333333333333333)))) * Float32(alphay * alphay)) / sin2phi); end return tmp end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;sin2phi \leq 1.0000000116860974 \cdot 10^{-7}:\\
\;\;\;\;\frac{u0}{\frac{cos2phi}{alphax \cdot alphax} + \frac{sin2phi}{alphay \cdot alphay}}\\
\mathbf{else}:\\
\;\;\;\;\frac{\mathsf{fma}\left(\mathsf{fma}\left(0.5, u0, 1\right), u0, \left(\left(u0 \cdot u0\right) \cdot u0\right) \cdot \mathsf{fma}\left(0.25, u0, 0.3333333333333333\right)\right) \cdot \left(alphay \cdot alphay\right)}{sin2phi}\\
\end{array}
\end{array}
if sin2phi < 1.00000001e-7Initial program 49.7%
Taylor expanded in u0 around 0
lower-/.f32N/A
+-commutativeN/A
lower-+.f32N/A
lower-/.f32N/A
unpow2N/A
lower-*.f32N/A
lower-/.f32N/A
unpow2N/A
lower-*.f3279.0
Applied rewrites79.0%
if 1.00000001e-7 < sin2phi Initial program 67.5%
Taylor expanded in u0 around 0
Applied rewrites92.5%
Taylor expanded in sin2phi around inf
Applied rewrites91.7%
Final simplification86.5%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (/ (* (* (* (* alphay alphay) u0) alphax) alphax) (fma cos2phi (* alphay alphay) (* sin2phi (* alphax alphax)))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return ((((alphay * alphay) * u0) * alphax) * alphax) / fmaf(cos2phi, (alphay * alphay), (sin2phi * (alphax * alphax)));
}
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(Float32(Float32(Float32(Float32(alphay * alphay) * u0) * alphax) * alphax) / fma(cos2phi, Float32(alphay * alphay), Float32(sin2phi * Float32(alphax * alphax)))) end
\begin{array}{l}
\\
\frac{\left(\left(\left(alphay \cdot alphay\right) \cdot u0\right) \cdot alphax\right) \cdot alphax}{\mathsf{fma}\left(cos2phi, alphay \cdot alphay, sin2phi \cdot \left(alphax \cdot alphax\right)\right)}
\end{array}
Initial program 60.3%
lift-log.f32N/A
lift--.f32N/A
sub-negN/A
lower-log1p.f32N/A
lower-neg.f3298.6
lift-+.f32N/A
+-commutativeN/A
lower-+.f3298.6
Applied rewrites98.6%
lift-/.f32N/A
lift-+.f32N/A
lift-/.f32N/A
lift-/.f32N/A
frac-addN/A
lift-*.f32N/A
+-commutativeN/A
lift-fma.f32N/A
associate-/r/N/A
associate-*l/N/A
lower-/.f32N/A
Applied rewrites98.4%
Taylor expanded in u0 around 0
*-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-*.f32N/A
lower-*.f32N/A
lower-*.f32N/A
unpow2N/A
lower-*.f3277.1
Applied rewrites77.1%
Final simplification77.1%
(FPCore (alphax alphay u0 cos2phi sin2phi)
:precision binary32
(*
(*
(*
(/ u0 (fma cos2phi (* alphay alphay) (* sin2phi (* alphax alphax))))
alphay)
alphay)
(* alphax alphax)))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return (((u0 / fmaf(cos2phi, (alphay * alphay), (sin2phi * (alphax * alphax)))) * alphay) * alphay) * (alphax * alphax);
}
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(Float32(Float32(Float32(u0 / fma(cos2phi, Float32(alphay * alphay), Float32(sin2phi * Float32(alphax * alphax)))) * alphay) * alphay) * Float32(alphax * alphax)) end
\begin{array}{l}
\\
\left(\left(\frac{u0}{\mathsf{fma}\left(cos2phi, alphay \cdot alphay, sin2phi \cdot \left(alphax \cdot alphax\right)\right)} \cdot alphay\right) \cdot alphay\right) \cdot \left(alphax \cdot alphax\right)
\end{array}
Initial program 60.3%
lift-/.f32N/A
lift-+.f32N/A
lift-/.f32N/A
lift-/.f32N/A
frac-addN/A
associate-/r/N/A
*-commutativeN/A
associate-*r*N/A
lower-*.f32N/A
Applied rewrites98.5%
Taylor expanded in u0 around 0
lower-/.f32N/A
+-commutativeN/A
lower-fma.f32N/A
unpow2N/A
lower-*.f32N/A
*-commutativeN/A
lower-*.f32N/A
unpow2N/A
lower-*.f3277.0
Applied rewrites77.0%
lift-*.f32N/A
lift-*.f32N/A
associate-*r*N/A
lower-*.f32N/A
Applied rewrites77.1%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (/ (* (* (* alphay alphay) u0) (* alphax alphax)) (fma (* alphay alphay) cos2phi (* sin2phi (* alphax alphax)))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return (((alphay * alphay) * u0) * (alphax * alphax)) / fmaf((alphay * alphay), cos2phi, (sin2phi * (alphax * alphax)));
}
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(Float32(Float32(Float32(alphay * alphay) * u0) * Float32(alphax * alphax)) / fma(Float32(alphay * alphay), cos2phi, Float32(sin2phi * Float32(alphax * alphax)))) end
\begin{array}{l}
\\
\frac{\left(\left(alphay \cdot alphay\right) \cdot u0\right) \cdot \left(alphax \cdot alphax\right)}{\mathsf{fma}\left(alphay \cdot alphay, cos2phi, sin2phi \cdot \left(alphax \cdot alphax\right)\right)}
\end{array}
Initial program 60.3%
lift-/.f32N/A
lift-+.f32N/A
lift-/.f32N/A
lift-/.f32N/A
frac-addN/A
associate-/r/N/A
*-commutativeN/A
associate-*r*N/A
lower-*.f32N/A
Applied rewrites98.5%
Taylor expanded in u0 around 0
lower-/.f32N/A
*-commutativeN/A
lower-*.f32N/A
lower-*.f32N/A
unpow2N/A
lower-*.f32N/A
unpow2N/A
lower-*.f32N/A
+-commutativeN/A
lower-fma.f32N/A
unpow2N/A
lower-*.f32N/A
*-commutativeN/A
lower-*.f32N/A
unpow2N/A
lower-*.f3277.1
Applied rewrites77.1%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (/ u0 (+ (/ cos2phi (* alphax alphax)) (/ sin2phi (* alphay alphay)))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return u0 / ((cos2phi / (alphax * alphax)) + (sin2phi / (alphay * alphay)));
}
real(4) function code(alphax, alphay, u0, cos2phi, sin2phi)
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 / ((cos2phi / (alphax * alphax)) + (sin2phi / (alphay * alphay)))
end function
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(u0 / Float32(Float32(cos2phi / Float32(alphax * alphax)) + Float32(sin2phi / Float32(alphay * alphay)))) end
function tmp = code(alphax, alphay, u0, cos2phi, sin2phi) tmp = u0 / ((cos2phi / (alphax * alphax)) + (sin2phi / (alphay * alphay))); end
\begin{array}{l}
\\
\frac{u0}{\frac{cos2phi}{alphax \cdot alphax} + \frac{sin2phi}{alphay \cdot alphay}}
\end{array}
Initial program 60.3%
Taylor expanded in u0 around 0
lower-/.f32N/A
+-commutativeN/A
lower-+.f32N/A
lower-/.f32N/A
unpow2N/A
lower-*.f32N/A
lower-/.f32N/A
unpow2N/A
lower-*.f3276.9
Applied rewrites76.9%
Final simplification76.9%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (if (<= (/ sin2phi (* alphay alphay)) 9.99999983775159e-18) (* (* (/ alphax cos2phi) alphax) u0) (/ (* (* alphay alphay) u0) sin2phi)))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float tmp;
if ((sin2phi / (alphay * alphay)) <= 9.99999983775159e-18f) {
tmp = ((alphax / cos2phi) * alphax) * u0;
} else {
tmp = ((alphay * alphay) * u0) / sin2phi;
}
return tmp;
}
real(4) function code(alphax, alphay, u0, cos2phi, sin2phi)
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) :: tmp
if ((sin2phi / (alphay * alphay)) <= 9.99999983775159e-18) then
tmp = ((alphax / cos2phi) * alphax) * u0
else
tmp = ((alphay * alphay) * u0) / sin2phi
end if
code = tmp
end function
function code(alphax, alphay, u0, cos2phi, sin2phi) tmp = Float32(0.0) if (Float32(sin2phi / Float32(alphay * alphay)) <= Float32(9.99999983775159e-18)) tmp = Float32(Float32(Float32(alphax / cos2phi) * alphax) * u0); else tmp = Float32(Float32(Float32(alphay * alphay) * u0) / sin2phi); end return tmp end
function tmp_2 = code(alphax, alphay, u0, cos2phi, sin2phi) tmp = single(0.0); if ((sin2phi / (alphay * alphay)) <= single(9.99999983775159e-18)) tmp = ((alphax / cos2phi) * alphax) * u0; else tmp = ((alphay * alphay) * u0) / sin2phi; end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{sin2phi}{alphay \cdot alphay} \leq 9.99999983775159 \cdot 10^{-18}:\\
\;\;\;\;\left(\frac{alphax}{cos2phi} \cdot alphax\right) \cdot u0\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(alphay \cdot alphay\right) \cdot u0}{sin2phi}\\
\end{array}
\end{array}
if (/.f32 sin2phi (*.f32 alphay alphay)) < 9.99999984e-18Initial program 46.2%
Taylor expanded in u0 around 0
lower-/.f32N/A
+-commutativeN/A
lower-+.f32N/A
lower-/.f32N/A
unpow2N/A
lower-*.f32N/A
lower-/.f32N/A
unpow2N/A
lower-*.f3280.1
Applied rewrites80.1%
Taylor expanded in alphax around 0
Applied rewrites60.2%
Applied rewrites60.6%
if 9.99999984e-18 < (/.f32 sin2phi (*.f32 alphay alphay)) Initial program 64.5%
Taylor expanded in u0 around 0
lower-/.f32N/A
+-commutativeN/A
lower-+.f32N/A
lower-/.f32N/A
unpow2N/A
lower-*.f32N/A
lower-/.f32N/A
unpow2N/A
lower-*.f3276.0
Applied rewrites76.0%
Taylor expanded in alphax around inf
Applied rewrites70.3%
Final simplification68.0%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (* (* (/ alphax cos2phi) alphax) u0))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return ((alphax / cos2phi) * alphax) * u0;
}
real(4) function code(alphax, alphay, u0, cos2phi, sin2phi)
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 = ((alphax / cos2phi) * alphax) * u0
end function
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(Float32(Float32(alphax / cos2phi) * alphax) * u0) end
function tmp = code(alphax, alphay, u0, cos2phi, sin2phi) tmp = ((alphax / cos2phi) * alphax) * u0; end
\begin{array}{l}
\\
\left(\frac{alphax}{cos2phi} \cdot alphax\right) \cdot u0
\end{array}
Initial program 60.3%
Taylor expanded in u0 around 0
lower-/.f32N/A
+-commutativeN/A
lower-+.f32N/A
lower-/.f32N/A
unpow2N/A
lower-*.f32N/A
lower-/.f32N/A
unpow2N/A
lower-*.f3276.9
Applied rewrites76.9%
Taylor expanded in alphax around 0
Applied rewrites24.0%
Applied rewrites24.0%
Final simplification24.0%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (* (/ u0 cos2phi) (* alphax alphax)))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return (u0 / cos2phi) * (alphax * alphax);
}
real(4) function code(alphax, alphay, u0, cos2phi, sin2phi)
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 / cos2phi) * (alphax * alphax)
end function
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(Float32(u0 / cos2phi) * Float32(alphax * alphax)) end
function tmp = code(alphax, alphay, u0, cos2phi, sin2phi) tmp = (u0 / cos2phi) * (alphax * alphax); end
\begin{array}{l}
\\
\frac{u0}{cos2phi} \cdot \left(alphax \cdot alphax\right)
\end{array}
Initial program 60.3%
Taylor expanded in u0 around 0
lower-/.f32N/A
+-commutativeN/A
lower-+.f32N/A
lower-/.f32N/A
unpow2N/A
lower-*.f32N/A
lower-/.f32N/A
unpow2N/A
lower-*.f3276.9
Applied rewrites76.9%
Taylor expanded in alphax around 0
Applied rewrites24.0%
Applied rewrites24.0%
Final simplification24.0%
herbie shell --seed 2024235
(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)))))