
(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)) (- (/ (/ 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(Float32(cos2phi / alphax) / Float32(-alphax)) - Float32(sin2phi / Float32(alphay * alphay)))) end
\begin{array}{l}
\\
\frac{\mathsf{log1p}\left(-u0\right)}{\frac{\frac{cos2phi}{alphax}}{-alphax} - \frac{sin2phi}{alphay \cdot alphay}}
\end{array}
Initial program 62.9%
distribute-frac-neg62.9%
distribute-neg-frac262.9%
sub-neg62.9%
log1p-define98.3%
neg-sub098.3%
associate--r+98.3%
neg-sub098.3%
associate-/r*98.3%
distribute-neg-frac298.3%
Simplified98.3%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (/ (* u0 (+ (* u0 (+ 0.5 (* u0 (+ 0.3333333333333333 (* u0 0.25))))) 1.0)) (+ (/ sin2phi (* alphay alphay)) (/ cos2phi (* alphax alphax)))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return (u0 * ((u0 * (0.5f + (u0 * (0.3333333333333333f + (u0 * 0.25f))))) + 1.0f)) / ((sin2phi / (alphay * alphay)) + (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 * ((u0 * (0.5e0 + (u0 * (0.3333333333333333e0 + (u0 * 0.25e0))))) + 1.0e0)) / ((sin2phi / (alphay * alphay)) + (cos2phi / (alphax * alphax)))
end function
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(Float32(u0 * Float32(Float32(u0 * Float32(Float32(0.5) + Float32(u0 * Float32(Float32(0.3333333333333333) + Float32(u0 * Float32(0.25)))))) + Float32(1.0))) / Float32(Float32(sin2phi / Float32(alphay * alphay)) + Float32(cos2phi / Float32(alphax * alphax)))) end
function tmp = code(alphax, alphay, u0, cos2phi, sin2phi) tmp = (u0 * ((u0 * (single(0.5) + (u0 * (single(0.3333333333333333) + (u0 * single(0.25)))))) + single(1.0))) / ((sin2phi / (alphay * alphay)) + (cos2phi / (alphax * alphax))); end
\begin{array}{l}
\\
\frac{u0 \cdot \left(u0 \cdot \left(0.5 + u0 \cdot \left(0.3333333333333333 + u0 \cdot 0.25\right)\right) + 1\right)}{\frac{sin2phi}{alphay \cdot alphay} + \frac{cos2phi}{alphax \cdot alphax}}
\end{array}
Initial program 62.9%
Taylor expanded in u0 around 0 92.7%
*-commutative92.7%
Simplified92.7%
Final simplification92.7%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (/ (* u0 (+ (* u0 (+ 0.5 (* u0 0.3333333333333333))) 1.0)) (+ (/ sin2phi (* alphay alphay)) (/ cos2phi (* alphax alphax)))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return (u0 * ((u0 * (0.5f + (u0 * 0.3333333333333333f))) + 1.0f)) / ((sin2phi / (alphay * alphay)) + (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 * ((u0 * (0.5e0 + (u0 * 0.3333333333333333e0))) + 1.0e0)) / ((sin2phi / (alphay * alphay)) + (cos2phi / (alphax * alphax)))
end function
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(Float32(u0 * Float32(Float32(u0 * Float32(Float32(0.5) + Float32(u0 * Float32(0.3333333333333333)))) + Float32(1.0))) / Float32(Float32(sin2phi / Float32(alphay * alphay)) + Float32(cos2phi / Float32(alphax * alphax)))) end
function tmp = code(alphax, alphay, u0, cos2phi, sin2phi) tmp = (u0 * ((u0 * (single(0.5) + (u0 * single(0.3333333333333333)))) + single(1.0))) / ((sin2phi / (alphay * alphay)) + (cos2phi / (alphax * alphax))); end
\begin{array}{l}
\\
\frac{u0 \cdot \left(u0 \cdot \left(0.5 + u0 \cdot 0.3333333333333333\right) + 1\right)}{\frac{sin2phi}{alphay \cdot alphay} + \frac{cos2phi}{alphax \cdot alphax}}
\end{array}
Initial program 62.9%
Taylor expanded in u0 around 0 91.1%
*-commutative91.1%
Simplified91.1%
Final simplification91.1%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (if (<= (/ sin2phi (* alphay alphay)) 0.5) (/ u0 (+ (/ cos2phi (* alphax alphax)) (/ (/ sin2phi alphay) alphay))) (* alphay (/ (* u0 (- alphay (* -0.5 (* u0 alphay)))) sin2phi))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float tmp;
if ((sin2phi / (alphay * alphay)) <= 0.5f) {
tmp = u0 / ((cos2phi / (alphax * alphax)) + ((sin2phi / alphay) / alphay));
} else {
tmp = alphay * ((u0 * (alphay - (-0.5f * (u0 * alphay)))) / 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)) <= 0.5e0) then
tmp = u0 / ((cos2phi / (alphax * alphax)) + ((sin2phi / alphay) / alphay))
else
tmp = alphay * ((u0 * (alphay - ((-0.5e0) * (u0 * alphay)))) / 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(0.5)) tmp = Float32(u0 / Float32(Float32(cos2phi / Float32(alphax * alphax)) + Float32(Float32(sin2phi / alphay) / alphay))); else tmp = Float32(alphay * Float32(Float32(u0 * Float32(alphay - Float32(Float32(-0.5) * Float32(u0 * alphay)))) / sin2phi)); end return tmp end
function tmp_2 = code(alphax, alphay, u0, cos2phi, sin2phi) tmp = single(0.0); if ((sin2phi / (alphay * alphay)) <= single(0.5)) tmp = u0 / ((cos2phi / (alphax * alphax)) + ((sin2phi / alphay) / alphay)); else tmp = alphay * ((u0 * (alphay - (single(-0.5) * (u0 * alphay)))) / sin2phi); end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{sin2phi}{alphay \cdot alphay} \leq 0.5:\\
\;\;\;\;\frac{u0}{\frac{cos2phi}{alphax \cdot alphax} + \frac{\frac{sin2phi}{alphay}}{alphay}}\\
\mathbf{else}:\\
\;\;\;\;alphay \cdot \frac{u0 \cdot \left(alphay - -0.5 \cdot \left(u0 \cdot alphay\right)\right)}{sin2phi}\\
\end{array}
\end{array}
if (/.f32 sin2phi (*.f32 alphay alphay)) < 0.5Initial program 57.2%
Taylor expanded in u0 around 0 73.1%
associate-/r*73.1%
div-inv73.0%
Applied egg-rr73.0%
associate-*r/73.1%
*-rgt-identity73.1%
Simplified73.1%
if 0.5 < (/.f32 sin2phi (*.f32 alphay alphay)) Initial program 66.6%
distribute-frac-neg66.6%
distribute-neg-frac266.6%
sub-neg66.6%
log1p-define97.9%
neg-sub097.9%
associate--r+97.9%
neg-sub097.9%
associate-/r*97.9%
distribute-neg-frac297.9%
Simplified97.9%
add-sqr-sqrt-0.0%
sqrt-unprod96.0%
sqr-neg96.0%
sqrt-prod96.0%
add-sqr-sqrt96.0%
associate-/r*96.0%
frac-sub95.7%
Applied egg-rr95.7%
associate-*l/95.7%
Simplified95.7%
*-un-lft-identity95.7%
associate-/r/96.8%
associate-/l*96.8%
associate-*r/96.9%
Applied egg-rr96.9%
*-lft-identity96.9%
associate-*l/96.8%
Simplified96.8%
Taylor expanded in u0 around 0 86.5%
Taylor expanded in alphax around inf 86.7%
mul-1-neg86.7%
associate-/l*86.7%
distribute-lft-neg-in86.7%
+-commutative86.7%
mul-1-neg86.7%
unsub-neg86.7%
*-commutative86.7%
Simplified86.7%
Final simplification81.3%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (if (<= (/ sin2phi (* alphay alphay)) 0.5) (/ u0 (+ (/ cos2phi (* alphax alphax)) (/ (/ sin2phi alphay) alphay))) (/ (* (* u0 alphay) (+ alphay (* 0.5 (* u0 alphay)))) sin2phi)))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float tmp;
if ((sin2phi / (alphay * alphay)) <= 0.5f) {
tmp = u0 / ((cos2phi / (alphax * alphax)) + ((sin2phi / alphay) / alphay));
} else {
tmp = ((u0 * alphay) * (alphay + (0.5f * (u0 * alphay)))) / 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)) <= 0.5e0) then
tmp = u0 / ((cos2phi / (alphax * alphax)) + ((sin2phi / alphay) / alphay))
else
tmp = ((u0 * alphay) * (alphay + (0.5e0 * (u0 * alphay)))) / 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(0.5)) tmp = Float32(u0 / Float32(Float32(cos2phi / Float32(alphax * alphax)) + Float32(Float32(sin2phi / alphay) / alphay))); else tmp = Float32(Float32(Float32(u0 * alphay) * Float32(alphay + Float32(Float32(0.5) * Float32(u0 * alphay)))) / sin2phi); end return tmp end
function tmp_2 = code(alphax, alphay, u0, cos2phi, sin2phi) tmp = single(0.0); if ((sin2phi / (alphay * alphay)) <= single(0.5)) tmp = u0 / ((cos2phi / (alphax * alphax)) + ((sin2phi / alphay) / alphay)); else tmp = ((u0 * alphay) * (alphay + (single(0.5) * (u0 * alphay)))) / sin2phi; end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{sin2phi}{alphay \cdot alphay} \leq 0.5:\\
\;\;\;\;\frac{u0}{\frac{cos2phi}{alphax \cdot alphax} + \frac{\frac{sin2phi}{alphay}}{alphay}}\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(u0 \cdot alphay\right) \cdot \left(alphay + 0.5 \cdot \left(u0 \cdot alphay\right)\right)}{sin2phi}\\
\end{array}
\end{array}
if (/.f32 sin2phi (*.f32 alphay alphay)) < 0.5Initial program 57.2%
Taylor expanded in u0 around 0 73.1%
associate-/r*73.1%
div-inv73.0%
Applied egg-rr73.0%
associate-*r/73.1%
*-rgt-identity73.1%
Simplified73.1%
if 0.5 < (/.f32 sin2phi (*.f32 alphay alphay)) Initial program 66.6%
distribute-frac-neg66.6%
distribute-neg-frac266.6%
sub-neg66.6%
log1p-define97.9%
neg-sub097.9%
associate--r+97.9%
neg-sub097.9%
associate-/r*97.9%
distribute-neg-frac297.9%
Simplified97.9%
add-sqr-sqrt-0.0%
sqrt-unprod96.0%
sqr-neg96.0%
sqrt-prod96.0%
add-sqr-sqrt96.0%
associate-/r*96.0%
frac-sub95.7%
Applied egg-rr95.7%
associate-*l/95.7%
Simplified95.7%
*-un-lft-identity95.7%
associate-/r/96.8%
associate-/l*96.8%
associate-*r/96.9%
Applied egg-rr96.9%
*-lft-identity96.9%
associate-*l/96.8%
Simplified96.8%
Taylor expanded in u0 around 0 86.5%
Taylor expanded in alphax around -inf 86.7%
associate-*r*86.7%
*-commutative86.7%
*-commutative86.7%
Simplified86.7%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (if (<= (/ sin2phi (* alphay alphay)) 0.5) (/ u0 (+ (/ cos2phi (* alphax alphax)) (/ (/ sin2phi alphay) alphay))) (/ (* alphay (* u0 (+ alphay (* 0.5 (* u0 alphay))))) sin2phi)))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
float tmp;
if ((sin2phi / (alphay * alphay)) <= 0.5f) {
tmp = u0 / ((cos2phi / (alphax * alphax)) + ((sin2phi / alphay) / alphay));
} else {
tmp = (alphay * (u0 * (alphay + (0.5f * (u0 * alphay))))) / 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)) <= 0.5e0) then
tmp = u0 / ((cos2phi / (alphax * alphax)) + ((sin2phi / alphay) / alphay))
else
tmp = (alphay * (u0 * (alphay + (0.5e0 * (u0 * alphay))))) / 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(0.5)) tmp = Float32(u0 / Float32(Float32(cos2phi / Float32(alphax * alphax)) + Float32(Float32(sin2phi / alphay) / alphay))); else tmp = Float32(Float32(alphay * Float32(u0 * Float32(alphay + Float32(Float32(0.5) * Float32(u0 * alphay))))) / sin2phi); end return tmp end
function tmp_2 = code(alphax, alphay, u0, cos2phi, sin2phi) tmp = single(0.0); if ((sin2phi / (alphay * alphay)) <= single(0.5)) tmp = u0 / ((cos2phi / (alphax * alphax)) + ((sin2phi / alphay) / alphay)); else tmp = (alphay * (u0 * (alphay + (single(0.5) * (u0 * alphay))))) / sin2phi; end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{sin2phi}{alphay \cdot alphay} \leq 0.5:\\
\;\;\;\;\frac{u0}{\frac{cos2phi}{alphax \cdot alphax} + \frac{\frac{sin2phi}{alphay}}{alphay}}\\
\mathbf{else}:\\
\;\;\;\;\frac{alphay \cdot \left(u0 \cdot \left(alphay + 0.5 \cdot \left(u0 \cdot alphay\right)\right)\right)}{sin2phi}\\
\end{array}
\end{array}
if (/.f32 sin2phi (*.f32 alphay alphay)) < 0.5Initial program 57.2%
Taylor expanded in u0 around 0 73.1%
associate-/r*73.1%
div-inv73.0%
Applied egg-rr73.0%
associate-*r/73.1%
*-rgt-identity73.1%
Simplified73.1%
if 0.5 < (/.f32 sin2phi (*.f32 alphay alphay)) Initial program 66.6%
distribute-frac-neg66.6%
distribute-neg-frac266.6%
sub-neg66.6%
log1p-define97.9%
neg-sub097.9%
associate--r+97.9%
neg-sub097.9%
associate-/r*97.9%
distribute-neg-frac297.9%
Simplified97.9%
add-sqr-sqrt-0.0%
sqrt-unprod96.0%
sqr-neg96.0%
sqrt-prod96.0%
add-sqr-sqrt96.0%
associate-/r*96.0%
frac-sub95.7%
Applied egg-rr95.7%
associate-*l/95.7%
Simplified95.7%
*-un-lft-identity95.7%
associate-/r/96.8%
associate-/l*96.8%
associate-*r/96.9%
Applied egg-rr96.9%
*-lft-identity96.9%
associate-*l/96.8%
Simplified96.8%
Taylor expanded in u0 around 0 86.5%
Taylor expanded in alphax around -inf 86.7%
Final simplification81.3%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (/ (* u0 (+ (* u0 0.5) 1.0)) (+ (/ sin2phi (* alphay alphay)) (/ cos2phi (* alphax alphax)))))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return (u0 * ((u0 * 0.5f) + 1.0f)) / ((sin2phi / (alphay * alphay)) + (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 * ((u0 * 0.5e0) + 1.0e0)) / ((sin2phi / (alphay * alphay)) + (cos2phi / (alphax * alphax)))
end function
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(Float32(u0 * Float32(Float32(u0 * Float32(0.5)) + Float32(1.0))) / Float32(Float32(sin2phi / Float32(alphay * alphay)) + Float32(cos2phi / Float32(alphax * alphax)))) end
function tmp = code(alphax, alphay, u0, cos2phi, sin2phi) tmp = (u0 * ((u0 * single(0.5)) + single(1.0))) / ((sin2phi / (alphay * alphay)) + (cos2phi / (alphax * alphax))); end
\begin{array}{l}
\\
\frac{u0 \cdot \left(u0 \cdot 0.5 + 1\right)}{\frac{sin2phi}{alphay \cdot alphay} + \frac{cos2phi}{alphax \cdot alphax}}
\end{array}
Initial program 62.9%
Taylor expanded in u0 around 0 86.9%
*-commutative86.9%
Simplified86.9%
Final simplification86.9%
(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 62.9%
Taylor expanded in u0 around 0 74.7%
associate-/r*74.7%
div-inv74.6%
Applied egg-rr74.6%
associate-*r/74.7%
*-rgt-identity74.7%
Simplified74.7%
(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)
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(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
\begin{array}{l}
\\
\frac{u0}{\frac{sin2phi}{alphay \cdot alphay} + \frac{cos2phi}{alphax \cdot alphax}}
\end{array}
Initial program 62.9%
Taylor expanded in u0 around 0 74.7%
Final simplification74.7%
(FPCore (alphax alphay u0 cos2phi sin2phi) :precision binary32 (/ (* u0 (* alphay alphay)) sin2phi))
float code(float alphax, float alphay, float u0, float cos2phi, float sin2phi) {
return (u0 * (alphay * alphay)) / sin2phi;
}
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 * (alphay * alphay)) / sin2phi
end function
function code(alphax, alphay, u0, cos2phi, sin2phi) return Float32(Float32(u0 * Float32(alphay * alphay)) / sin2phi) end
function tmp = code(alphax, alphay, u0, cos2phi, sin2phi) tmp = (u0 * (alphay * alphay)) / sin2phi; end
\begin{array}{l}
\\
\frac{u0 \cdot \left(alphay \cdot alphay\right)}{sin2phi}
\end{array}
Initial program 62.9%
Taylor expanded in u0 around 0 74.7%
Taylor expanded in cos2phi around 0 59.2%
pow259.2%
Applied egg-rr59.2%
Final simplification59.2%
herbie shell --seed 2024139
(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)))))