
(FPCore (sinTheta_O h eta)
:precision binary32
(asin
(/
h
(sqrt
(-
(* eta eta)
(/
(* sinTheta_O sinTheta_O)
(sqrt (- 1.0 (* sinTheta_O sinTheta_O)))))))))
float code(float sinTheta_O, float h, float eta) {
return asinf((h / sqrtf(((eta * eta) - ((sinTheta_O * sinTheta_O) / sqrtf((1.0f - (sinTheta_O * sinTheta_O))))))));
}
real(4) function code(sintheta_o, h, eta)
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: h
real(4), intent (in) :: eta
code = asin((h / sqrt(((eta * eta) - ((sintheta_o * sintheta_o) / sqrt((1.0e0 - (sintheta_o * sintheta_o))))))))
end function
function code(sinTheta_O, h, eta) return asin(Float32(h / sqrt(Float32(Float32(eta * eta) - Float32(Float32(sinTheta_O * sinTheta_O) / sqrt(Float32(Float32(1.0) - Float32(sinTheta_O * sinTheta_O)))))))) end
function tmp = code(sinTheta_O, h, eta) tmp = asin((h / sqrt(((eta * eta) - ((sinTheta_O * sinTheta_O) / sqrt((single(1.0) - (sinTheta_O * sinTheta_O)))))))); end
\begin{array}{l}
\\
\sin^{-1} \left(\frac{h}{\sqrt{eta \cdot eta - \frac{sinTheta_O \cdot sinTheta_O}{\sqrt{1 - sinTheta_O \cdot sinTheta_O}}}}\right)
\end{array}
Sampling outcomes in binary32 precision:
Herbie found 3 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (sinTheta_O h eta)
:precision binary32
(asin
(/
h
(sqrt
(-
(* eta eta)
(/
(* sinTheta_O sinTheta_O)
(sqrt (- 1.0 (* sinTheta_O sinTheta_O)))))))))
float code(float sinTheta_O, float h, float eta) {
return asinf((h / sqrtf(((eta * eta) - ((sinTheta_O * sinTheta_O) / sqrtf((1.0f - (sinTheta_O * sinTheta_O))))))));
}
real(4) function code(sintheta_o, h, eta)
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: h
real(4), intent (in) :: eta
code = asin((h / sqrt(((eta * eta) - ((sintheta_o * sintheta_o) / sqrt((1.0e0 - (sintheta_o * sintheta_o))))))))
end function
function code(sinTheta_O, h, eta) return asin(Float32(h / sqrt(Float32(Float32(eta * eta) - Float32(Float32(sinTheta_O * sinTheta_O) / sqrt(Float32(Float32(1.0) - Float32(sinTheta_O * sinTheta_O)))))))) end
function tmp = code(sinTheta_O, h, eta) tmp = asin((h / sqrt(((eta * eta) - ((sinTheta_O * sinTheta_O) / sqrt((single(1.0) - (sinTheta_O * sinTheta_O)))))))); end
\begin{array}{l}
\\
\sin^{-1} \left(\frac{h}{\sqrt{eta \cdot eta - \frac{sinTheta_O \cdot sinTheta_O}{\sqrt{1 - sinTheta_O \cdot sinTheta_O}}}}\right)
\end{array}
(FPCore (sinTheta_O h eta) :precision binary32 (let* ((t_0 (/ sinTheta_O (sqrt (hypot 1.0 sinTheta_O))))) (asin (/ h (* (sqrt (- eta t_0)) (sqrt (+ eta t_0)))))))
float code(float sinTheta_O, float h, float eta) {
float t_0 = sinTheta_O / sqrtf(hypotf(1.0f, sinTheta_O));
return asinf((h / (sqrtf((eta - t_0)) * sqrtf((eta + t_0)))));
}
function code(sinTheta_O, h, eta) t_0 = Float32(sinTheta_O / sqrt(hypot(Float32(1.0), sinTheta_O))) return asin(Float32(h / Float32(sqrt(Float32(eta - t_0)) * sqrt(Float32(eta + t_0))))) end
function tmp = code(sinTheta_O, h, eta) t_0 = sinTheta_O / sqrt(hypot(single(1.0), sinTheta_O)); tmp = asin((h / (sqrt((eta - t_0)) * sqrt((eta + t_0))))); end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{sinTheta_O}{\sqrt{\mathsf{hypot}\left(1, sinTheta_O\right)}}\\
\sin^{-1} \left(\frac{h}{\sqrt{eta - t_0} \cdot \sqrt{eta + t_0}}\right)
\end{array}
\end{array}
Initial program 91.8%
add-sqr-sqrt91.8%
difference-of-squares91.8%
Applied egg-rr91.6%
unpow291.6%
fma-def91.6%
unpow291.6%
fma-def91.6%
Simplified91.6%
*-commutative91.6%
sqrt-prod98.4%
fma-udef98.4%
unpow298.4%
metadata-eval98.4%
sqrt-pow198.4%
pow1/298.4%
+-commutative98.4%
unpow298.4%
hypot-1-def98.4%
fma-udef98.4%
unpow298.4%
metadata-eval98.4%
Applied egg-rr98.4%
Final simplification98.4%
(FPCore (sinTheta_O h eta) :precision binary32 (asin (/ h (+ eta (* -0.5 (* sinTheta_O (/ sinTheta_O eta)))))))
float code(float sinTheta_O, float h, float eta) {
return asinf((h / (eta + (-0.5f * (sinTheta_O * (sinTheta_O / eta))))));
}
real(4) function code(sintheta_o, h, eta)
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: h
real(4), intent (in) :: eta
code = asin((h / (eta + ((-0.5e0) * (sintheta_o * (sintheta_o / eta))))))
end function
function code(sinTheta_O, h, eta) return asin(Float32(h / Float32(eta + Float32(Float32(-0.5) * Float32(sinTheta_O * Float32(sinTheta_O / eta)))))) end
function tmp = code(sinTheta_O, h, eta) tmp = asin((h / (eta + (single(-0.5) * (sinTheta_O * (sinTheta_O / eta)))))); end
\begin{array}{l}
\\
\sin^{-1} \left(\frac{h}{eta + -0.5 \cdot \left(sinTheta_O \cdot \frac{sinTheta_O}{eta}\right)}\right)
\end{array}
Initial program 91.8%
Taylor expanded in sinTheta_O around 0 98.1%
add-sqr-sqrt98.1%
sqrt-div98.1%
unpow298.1%
sqrt-prod47.4%
add-sqr-sqrt97.1%
sqrt-div97.1%
unpow297.1%
sqrt-prod47.5%
add-sqr-sqrt98.3%
Applied egg-rr98.3%
unpow298.3%
Simplified98.3%
unpow298.3%
frac-times98.1%
add-sqr-sqrt98.1%
*-un-lft-identity98.1%
times-frac98.3%
Applied egg-rr98.3%
Final simplification98.3%
(FPCore (sinTheta_O h eta) :precision binary32 (asin (/ h eta)))
float code(float sinTheta_O, float h, float eta) {
return asinf((h / eta));
}
real(4) function code(sintheta_o, h, eta)
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: h
real(4), intent (in) :: eta
code = asin((h / eta))
end function
function code(sinTheta_O, h, eta) return asin(Float32(h / eta)) end
function tmp = code(sinTheta_O, h, eta) tmp = asin((h / eta)); end
\begin{array}{l}
\\
\sin^{-1} \left(\frac{h}{eta}\right)
\end{array}
Initial program 91.8%
Taylor expanded in eta around inf 96.1%
Final simplification96.1%
herbie shell --seed 2023307
(FPCore (sinTheta_O h eta)
:name "HairBSDF, gamma for a refracted ray"
:precision binary32
:pre (and (and (and (<= -1.0 sinTheta_O) (<= sinTheta_O 1.0)) (and (<= -1.0 h) (<= h 1.0))) (and (<= 0.0 eta) (<= eta 10.0)))
(asin (/ h (sqrt (- (* eta eta) (/ (* sinTheta_O sinTheta_O) (sqrt (- 1.0 (* sinTheta_O sinTheta_O)))))))))