
(FPCore (s u) :precision binary32 (* s (log (/ 1.0 (- 1.0 (* 4.0 u))))))
float code(float s, float u) {
return s * logf((1.0f / (1.0f - (4.0f * u))));
}
real(4) function code(s, u)
real(4), intent (in) :: s
real(4), intent (in) :: u
code = s * log((1.0e0 / (1.0e0 - (4.0e0 * u))))
end function
function code(s, u) return Float32(s * log(Float32(Float32(1.0) / Float32(Float32(1.0) - Float32(Float32(4.0) * u))))) end
function tmp = code(s, u) tmp = s * log((single(1.0) / (single(1.0) - (single(4.0) * u)))); end
\begin{array}{l}
\\
s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right)
\end{array}
Sampling outcomes in binary32 precision:
Herbie found 4 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (s u) :precision binary32 (* s (log (/ 1.0 (- 1.0 (* 4.0 u))))))
float code(float s, float u) {
return s * logf((1.0f / (1.0f - (4.0f * u))));
}
real(4) function code(s, u)
real(4), intent (in) :: s
real(4), intent (in) :: u
code = s * log((1.0e0 / (1.0e0 - (4.0e0 * u))))
end function
function code(s, u) return Float32(s * log(Float32(Float32(1.0) / Float32(Float32(1.0) - Float32(Float32(4.0) * u))))) end
function tmp = code(s, u) tmp = s * log((single(1.0) / (single(1.0) - (single(4.0) * u)))); end
\begin{array}{l}
\\
s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right)
\end{array}
(FPCore (s u) :precision binary32 (* s (- (log1p (* u -4.0)))))
float code(float s, float u) {
return s * -log1pf((u * -4.0f));
}
function code(s, u) return Float32(s * Float32(-log1p(Float32(u * Float32(-4.0))))) end
\begin{array}{l}
\\
s \cdot \left(-\mathsf{log1p}\left(u \cdot -4\right)\right)
\end{array}
Initial program 59.0%
log-rec61.4%
cancel-sign-sub-inv61.4%
log1p-def99.4%
*-commutative99.4%
metadata-eval99.4%
Simplified99.4%
Final simplification99.4%
(FPCore (s u) :precision binary32 (* s (* u (- (- -4.0) (* u -8.0)))))
float code(float s, float u) {
return s * (u * (-(-4.0f) - (u * -8.0f)));
}
real(4) function code(s, u)
real(4), intent (in) :: s
real(4), intent (in) :: u
code = s * (u * (-(-4.0e0) - (u * (-8.0e0))))
end function
function code(s, u) return Float32(s * Float32(u * Float32(Float32(-Float32(-4.0)) - Float32(u * Float32(-8.0))))) end
function tmp = code(s, u) tmp = s * (u * (-single(-4.0) - (u * single(-8.0)))); end
\begin{array}{l}
\\
s \cdot \left(u \cdot \left(\left(--4\right) - u \cdot -8\right)\right)
\end{array}
Initial program 59.0%
log-rec61.4%
cancel-sign-sub-inv61.4%
log1p-def99.4%
*-commutative99.4%
metadata-eval99.4%
Simplified99.4%
Taylor expanded in u around 0 87.8%
unpow287.8%
associate-*r*87.8%
distribute-rgt-out87.5%
*-commutative87.5%
Simplified87.5%
Final simplification87.5%
(FPCore (s u) :precision binary32 (* 4.0 (* s u)))
float code(float s, float u) {
return 4.0f * (s * u);
}
real(4) function code(s, u)
real(4), intent (in) :: s
real(4), intent (in) :: u
code = 4.0e0 * (s * u)
end function
function code(s, u) return Float32(Float32(4.0) * Float32(s * u)) end
function tmp = code(s, u) tmp = single(4.0) * (s * u); end
\begin{array}{l}
\\
4 \cdot \left(s \cdot u\right)
\end{array}
Initial program 59.0%
log-rec61.4%
cancel-sign-sub-inv61.4%
log1p-def99.4%
*-commutative99.4%
metadata-eval99.4%
Simplified99.4%
Taylor expanded in u around 0 75.5%
Final simplification75.5%
(FPCore (s u) :precision binary32 (* u (* s 4.0)))
float code(float s, float u) {
return u * (s * 4.0f);
}
real(4) function code(s, u)
real(4), intent (in) :: s
real(4), intent (in) :: u
code = u * (s * 4.0e0)
end function
function code(s, u) return Float32(u * Float32(s * Float32(4.0))) end
function tmp = code(s, u) tmp = u * (s * single(4.0)); end
\begin{array}{l}
\\
u \cdot \left(s \cdot 4\right)
\end{array}
Initial program 59.0%
log-rec61.4%
cancel-sign-sub-inv61.4%
log1p-def99.4%
*-commutative99.4%
metadata-eval99.4%
Simplified99.4%
Taylor expanded in u around 0 75.5%
*-commutative75.5%
*-commutative75.5%
associate-*l*75.7%
Simplified75.7%
Final simplification75.7%
herbie shell --seed 2023306
(FPCore (s u)
:name "Disney BSSRDF, sample scattering profile, lower"
:precision binary32
:pre (and (and (<= 0.0 s) (<= s 256.0)) (and (<= 2.328306437e-10 u) (<= u 0.25)))
(* s (log (/ 1.0 (- 1.0 (* 4.0 u))))))