
(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 10 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 (* (/ (- (log1p (- u0))) (fma alphax (/ sin2phi alphay) (/ (* alphay cos2phi) alphax))) (* alphax alphay)))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return (-log1pf(-u0) / fmaf(alphax, (sin2phi / alphay), ((alphay * cos2phi) / alphax))) * (alphax * alphay);
}
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(Float32(Float32(-log1p(Float32(-u0))) / fma(alphax, Float32(sin2phi / alphay), Float32(Float32(alphay * cos2phi) / alphax))) * Float32(alphax * alphay)) end
\begin{array}{l}
\\
\frac{-\mathsf{log1p}\left(-u0\right)}{\mathsf{fma}\left(alphax, \frac{sin2phi}{alphay}, \frac{alphay \cdot cos2phi}{alphax}\right)} \cdot \left(alphax \cdot alphay\right)
\end{array}
Initial program 64.2%
distribute-frac-neg64.2%
distribute-neg-frac264.2%
neg-mul-164.2%
associate-/r*64.2%
remove-double-neg64.2%
distribute-frac-neg64.2%
distribute-neg-frac264.2%
metadata-eval64.2%
/-rgt-identity64.2%
sub-neg64.2%
log1p-define98.1%
Simplified98.1%
clear-num98.0%
associate-/r/98.0%
pow298.0%
pow-flip98.2%
metadata-eval98.2%
Applied egg-rr98.2%
+-commutative98.2%
*-commutative98.2%
fma-define98.1%
metadata-eval98.1%
pow-flip98.0%
pow298.0%
fma-define98.0%
div-inv98.1%
associate-/r*98.1%
associate-/r*98.1%
frac-add97.7%
Applied egg-rr97.7%
associate-/r/98.2%
*-commutative98.2%
fma-define98.3%
associate-*r/98.3%
*-commutative98.3%
Applied egg-rr98.3%
Final simplification98.3%
(FPCore (alphax alphay u0 cos2phi sin2phi)
:precision binary32
(*
alphax
(*
alphay
(/
(- (log1p (- u0)))
(fma alphax (/ sin2phi alphay) (* alphay (/ cos2phi alphax)))))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return alphax * (alphay * (-log1pf(-u0) / fmaf(alphax, (sin2phi / alphay), (alphay * (cos2phi / alphax)))));
}
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(alphax * Float32(alphay * Float32(Float32(-log1p(Float32(-u0))) / fma(alphax, Float32(sin2phi / alphay), Float32(alphay * Float32(cos2phi / alphax)))))) end
\begin{array}{l}
\\
alphax \cdot \left(alphay \cdot \frac{-\mathsf{log1p}\left(-u0\right)}{\mathsf{fma}\left(alphax, \frac{sin2phi}{alphay}, alphay \cdot \frac{cos2phi}{alphax}\right)}\right)
\end{array}
Initial program 64.2%
distribute-frac-neg64.2%
distribute-neg-frac264.2%
neg-mul-164.2%
associate-/r*64.2%
remove-double-neg64.2%
distribute-frac-neg64.2%
distribute-neg-frac264.2%
metadata-eval64.2%
/-rgt-identity64.2%
sub-neg64.2%
log1p-define98.1%
Simplified98.1%
clear-num98.0%
associate-/r/98.0%
pow298.0%
pow-flip98.2%
metadata-eval98.2%
Applied egg-rr98.2%
+-commutative98.2%
*-commutative98.2%
fma-define98.1%
metadata-eval98.1%
pow-flip98.0%
pow298.0%
fma-define98.0%
div-inv98.1%
associate-/r*98.1%
associate-/r*98.1%
frac-add97.7%
Applied egg-rr97.7%
div-inv97.6%
*-commutative97.6%
fma-define97.6%
associate-*r/97.7%
*-commutative97.7%
Applied egg-rr97.7%
associate-*r/97.8%
*-rgt-identity97.8%
distribute-neg-frac97.8%
associate-/r/98.3%
distribute-lft-neg-in98.3%
distribute-frac-neg98.3%
*-commutative98.3%
associate-*l*98.2%
distribute-frac-neg98.2%
log1p-undefine64.5%
sub-neg64.5%
fma-undefine64.5%
associate-*r/65.0%
Simplified98.2%
Final simplification98.2%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (/ (log1p (- u0)) (- (/ cos2phi (* alphax (- alphax))) (* sin2phi (pow alphay -2.0)))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return log1pf(-u0) / ((cos2phi / (alphax * -alphax)) - (sin2phi * powf(alphay, -2.0f)));
}
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(log1p(Float32(-u0)) / Float32(Float32(cos2phi / Float32(alphax * Float32(-alphax))) - Float32(sin2phi * (alphay ^ Float32(-2.0))))) end
\begin{array}{l}
\\
\frac{\mathsf{log1p}\left(-u0\right)}{\frac{cos2phi}{alphax \cdot \left(-alphax\right)} - sin2phi \cdot {alphay}^{-2}}
\end{array}
Initial program 64.2%
distribute-frac-neg64.2%
distribute-neg-frac264.2%
neg-mul-164.2%
associate-/r*64.2%
remove-double-neg64.2%
distribute-frac-neg64.2%
distribute-neg-frac264.2%
metadata-eval64.2%
/-rgt-identity64.2%
sub-neg64.2%
log1p-define98.1%
Simplified98.1%
clear-num98.0%
associate-/r/98.0%
pow298.0%
pow-flip98.2%
metadata-eval98.2%
Applied egg-rr98.2%
Final simplification98.2%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (/ (- (log1p (- u0))) (+ (/ sin2phi (* alphay alphay)) (/ (/ cos2phi alphax) alphax))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return -log1pf(-u0) / ((sin2phi / (alphay * alphay)) + ((cos2phi / alphax) / alphax));
}
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(Float32(-log1p(Float32(-u0))) / Float32(Float32(sin2phi / Float32(alphay * alphay)) + Float32(Float32(cos2phi / alphax) / alphax))) end
\begin{array}{l}
\\
\frac{-\mathsf{log1p}\left(-u0\right)}{\frac{sin2phi}{alphay \cdot alphay} + \frac{\frac{cos2phi}{alphax}}{alphax}}
\end{array}
Initial program 64.2%
distribute-frac-neg64.2%
distribute-neg-frac264.2%
sub-neg64.2%
log1p-define98.1%
neg-sub098.1%
associate--r+98.1%
neg-sub098.1%
associate-/r*98.1%
distribute-neg-frac298.1%
Simplified98.1%
Final simplification98.1%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (/ (log1p (- u0)) (- (/ sin2phi (* alphay (- alphay))) (/ cos2phi (* alphax alphax)))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return log1pf(-u0) / ((sin2phi / (alphay * -alphay)) - (cos2phi / (alphax * alphax)));
}
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(log1p(Float32(-u0)) / Float32(Float32(sin2phi / Float32(alphay * Float32(-alphay))) - Float32(cos2phi / Float32(alphax * alphax)))) end
\begin{array}{l}
\\
\frac{\mathsf{log1p}\left(-u0\right)}{\frac{sin2phi}{alphay \cdot \left(-alphay\right)} - \frac{cos2phi}{alphax \cdot alphax}}
\end{array}
Initial program 64.2%
distribute-frac-neg64.2%
distribute-neg-frac264.2%
neg-mul-164.2%
associate-/r*64.2%
remove-double-neg64.2%
distribute-frac-neg64.2%
distribute-neg-frac264.2%
metadata-eval64.2%
/-rgt-identity64.2%
sub-neg64.2%
log1p-define98.1%
Simplified98.1%
Final simplification98.1%
(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(log1p(Float32(-u0)) / Float32(Float32(cos2phi / Float32(alphax * Float32(-alphax))) - Float32(Float32(sin2phi / alphay) / alphay))) end
\begin{array}{l}
\\
\frac{\mathsf{log1p}\left(-u0\right)}{\frac{cos2phi}{alphax \cdot \left(-alphax\right)} - \frac{\frac{sin2phi}{alphay}}{alphay}}
\end{array}
Initial program 64.2%
distribute-frac-neg64.2%
distribute-neg-frac264.2%
neg-mul-164.2%
associate-/r*64.2%
remove-double-neg64.2%
distribute-frac-neg64.2%
distribute-neg-frac264.2%
metadata-eval64.2%
/-rgt-identity64.2%
sub-neg64.2%
log1p-define98.1%
Simplified98.1%
clear-num98.0%
associate-/r/98.0%
pow298.0%
pow-flip98.2%
metadata-eval98.2%
Applied egg-rr98.2%
*-commutative98.2%
metadata-eval98.2%
pow-flip98.0%
pow298.0%
div-inv98.1%
associate-/r*98.1%
Applied egg-rr98.1%
Final simplification98.1%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (/ (* alphax (* u0 alphay)) (+ (/ (* alphay cos2phi) alphax) (/ (* alphax sin2phi) alphay))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return (alphax * (u0 * alphay)) / (((alphay * cos2phi) / alphax) + ((alphax * sin2phi) / 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 = (alphax * (u0 * alphay)) / (((alphay * cos2phi) / alphax) + ((alphax * sin2phi) / alphay))
end function
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(Float32(alphax * Float32(u0 * alphay)) / Float32(Float32(Float32(alphay * cos2phi) / alphax) + Float32(Float32(alphax * sin2phi) / alphay))) end
function tmp = code(alphax, alphay, u0, cos2phi, sin2phi) tmp = (alphax * (u0 * alphay)) / (((alphay * cos2phi) / alphax) + ((alphax * sin2phi) / alphay)); end
\begin{array}{l}
\\
\frac{alphax \cdot \left(u0 \cdot alphay\right)}{\frac{alphay \cdot cos2phi}{alphax} + \frac{alphax \cdot sin2phi}{alphay}}
\end{array}
Initial program 64.2%
distribute-frac-neg64.2%
distribute-neg-frac264.2%
neg-mul-164.2%
associate-/r*64.2%
remove-double-neg64.2%
distribute-frac-neg64.2%
distribute-neg-frac264.2%
metadata-eval64.2%
/-rgt-identity64.2%
sub-neg64.2%
log1p-define98.1%
Simplified98.1%
clear-num98.0%
associate-/r/98.0%
pow298.0%
pow-flip98.2%
metadata-eval98.2%
Applied egg-rr98.2%
+-commutative98.2%
*-commutative98.2%
fma-define98.1%
metadata-eval98.1%
pow-flip98.0%
pow298.0%
fma-define98.0%
div-inv98.1%
associate-/r*98.1%
associate-/r*98.1%
frac-add97.7%
Applied egg-rr97.7%
Taylor expanded in u0 around 0 76.1%
Final simplification76.1%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (/ u0 (+ (/ cos2phi (* alphax alphax)) (* (/ sin2phi alphay) (/ 1.0 alphay)))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return u0 / ((cos2phi / (alphax * alphax)) + ((sin2phi / alphay) * (1.0f / 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) * (1.0e0 / alphay)))
end function
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(u0 / Float32(Float32(cos2phi / Float32(alphax * alphax)) + Float32(Float32(sin2phi / alphay) * Float32(Float32(1.0) / alphay)))) end
function tmp = code(alphax, alphay, u0, cos2phi, sin2phi) tmp = u0 / ((cos2phi / (alphax * alphax)) + ((sin2phi / alphay) * (single(1.0) / alphay))); end
\begin{array}{l}
\\
\frac{u0}{\frac{cos2phi}{alphax \cdot alphax} + \frac{sin2phi}{alphay} \cdot \frac{1}{alphay}}
\end{array}
Initial program 64.2%
Taylor expanded in u0 around 0 75.6%
mul-1-neg75.6%
Simplified75.6%
associate-/r*75.7%
div-inv75.7%
Applied egg-rr75.7%
Final simplification75.7%
(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 64.2%
Taylor expanded in u0 around 0 75.6%
mul-1-neg75.6%
Simplified75.6%
Final simplification75.6%
(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(Float32(sin2phi / 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{\frac{sin2phi}{alphay}}{alphay}}
\end{array}
Initial program 64.2%
Taylor expanded in u0 around 0 75.6%
mul-1-neg75.6%
Simplified75.6%
associate-/r*75.7%
div-inv75.7%
Applied egg-rr75.7%
div-inv75.7%
Applied egg-rr75.7%
Final simplification75.7%
herbie shell --seed 2024041
(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)))))