
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (/ (* (exp (- (/ (* sinTheta_i sinTheta_O) v))) (/ (* cosTheta_i cosTheta_O) v)) (* (* (sinh (/ 1.0 v)) 2.0) v)))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (expf(-((sinTheta_i * sinTheta_O) / v)) * ((cosTheta_i * cosTheta_O) / v)) / ((sinhf((1.0f / v)) * 2.0f) * v);
}
real(4) function code(costheta_i, costheta_o, sintheta_i, sintheta_o, v)
real(4), intent (in) :: costheta_i
real(4), intent (in) :: costheta_o
real(4), intent (in) :: sintheta_i
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: v
code = (exp(-((sintheta_i * sintheta_o) / v)) * ((costheta_i * costheta_o) / v)) / ((sinh((1.0e0 / v)) * 2.0e0) * v)
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(exp(Float32(-Float32(Float32(sinTheta_i * sinTheta_O) / v))) * Float32(Float32(cosTheta_i * cosTheta_O) / v)) / Float32(Float32(sinh(Float32(Float32(1.0) / v)) * Float32(2.0)) * v)) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = (exp(-((sinTheta_i * sinTheta_O) / v)) * ((cosTheta_i * cosTheta_O) / v)) / ((sinh((single(1.0) / v)) * single(2.0)) * v); end
\begin{array}{l}
\\
\frac{e^{-\frac{sinTheta\_i \cdot sinTheta\_O}{v}} \cdot \frac{cosTheta\_i \cdot cosTheta\_O}{v}}{\left(\sinh \left(\frac{1}{v}\right) \cdot 2\right) \cdot v}
\end{array}
Sampling outcomes in binary32 precision:
Herbie found 18 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (/ (* (exp (- (/ (* sinTheta_i sinTheta_O) v))) (/ (* cosTheta_i cosTheta_O) v)) (* (* (sinh (/ 1.0 v)) 2.0) v)))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (expf(-((sinTheta_i * sinTheta_O) / v)) * ((cosTheta_i * cosTheta_O) / v)) / ((sinhf((1.0f / v)) * 2.0f) * v);
}
real(4) function code(costheta_i, costheta_o, sintheta_i, sintheta_o, v)
real(4), intent (in) :: costheta_i
real(4), intent (in) :: costheta_o
real(4), intent (in) :: sintheta_i
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: v
code = (exp(-((sintheta_i * sintheta_o) / v)) * ((costheta_i * costheta_o) / v)) / ((sinh((1.0e0 / v)) * 2.0e0) * v)
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(exp(Float32(-Float32(Float32(sinTheta_i * sinTheta_O) / v))) * Float32(Float32(cosTheta_i * cosTheta_O) / v)) / Float32(Float32(sinh(Float32(Float32(1.0) / v)) * Float32(2.0)) * v)) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = (exp(-((sinTheta_i * sinTheta_O) / v)) * ((cosTheta_i * cosTheta_O) / v)) / ((sinh((single(1.0) / v)) * single(2.0)) * v); end
\begin{array}{l}
\\
\frac{e^{-\frac{sinTheta\_i \cdot sinTheta\_O}{v}} \cdot \frac{cosTheta\_i \cdot cosTheta\_O}{v}}{\left(\sinh \left(\frac{1}{v}\right) \cdot 2\right) \cdot v}
\end{array}
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (* cosTheta_i (* (* (/ (* (/ 1.0 v) (/ -0.5 v)) (sinh (/ -1.0 v))) cosTheta_O) (pow (exp sinTheta_O) (/ (- sinTheta_i) v)))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return cosTheta_i * (((((1.0f / v) * (-0.5f / v)) / sinhf((-1.0f / v))) * cosTheta_O) * powf(expf(sinTheta_O), (-sinTheta_i / v)));
}
real(4) function code(costheta_i, costheta_o, sintheta_i, sintheta_o, v)
real(4), intent (in) :: costheta_i
real(4), intent (in) :: costheta_o
real(4), intent (in) :: sintheta_i
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: v
code = costheta_i * (((((1.0e0 / v) * ((-0.5e0) / v)) / sinh(((-1.0e0) / v))) * costheta_o) * (exp(sintheta_o) ** (-sintheta_i / v)))
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(cosTheta_i * Float32(Float32(Float32(Float32(Float32(Float32(1.0) / v) * Float32(Float32(-0.5) / v)) / sinh(Float32(Float32(-1.0) / v))) * cosTheta_O) * (exp(sinTheta_O) ^ Float32(Float32(-sinTheta_i) / v)))) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = cosTheta_i * (((((single(1.0) / v) * (single(-0.5) / v)) / sinh((single(-1.0) / v))) * cosTheta_O) * (exp(sinTheta_O) ^ (-sinTheta_i / v))); end
\begin{array}{l}
\\
cosTheta\_i \cdot \left(\left(\frac{\frac{1}{v} \cdot \frac{-0.5}{v}}{\sinh \left(\frac{-1}{v}\right)} \cdot cosTheta\_O\right) \cdot {\left(e^{sinTheta\_O}\right)}^{\left(\frac{-sinTheta\_i}{v}\right)}\right)
\end{array}
Initial program 98.7%
lift-/.f32N/A
lift-*.f32N/A
associate-/l*N/A
clear-numN/A
un-div-invN/A
lower-/.f32N/A
lower-/.f3298.7
Applied rewrites98.7%
Applied rewrites98.7%
Applied rewrites98.9%
lift-*.f32N/A
*-commutativeN/A
lift-/.f32N/A
frac-2negN/A
associate-*r/N/A
lift-sinh.f32N/A
sinh-negN/A
neg-mul-1N/A
lift-/.f32N/A
div-invN/A
lift-/.f32N/A
lift-sinh.f32N/A
lower-/.f32N/A
lower-*.f32N/A
lift-/.f32N/A
distribute-neg-fracN/A
metadata-evalN/A
lower-/.f3299.0
Applied rewrites99.0%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (* cosTheta_i (* (* (* (/ (/ 0.5 v) (sinh (/ 1.0 v))) (/ 1.0 v)) cosTheta_O) (pow (exp sinTheta_O) (/ (- sinTheta_i) v)))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return cosTheta_i * (((((0.5f / v) / sinhf((1.0f / v))) * (1.0f / v)) * cosTheta_O) * powf(expf(sinTheta_O), (-sinTheta_i / v)));
}
real(4) function code(costheta_i, costheta_o, sintheta_i, sintheta_o, v)
real(4), intent (in) :: costheta_i
real(4), intent (in) :: costheta_o
real(4), intent (in) :: sintheta_i
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: v
code = costheta_i * (((((0.5e0 / v) / sinh((1.0e0 / v))) * (1.0e0 / v)) * costheta_o) * (exp(sintheta_o) ** (-sintheta_i / v)))
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(cosTheta_i * Float32(Float32(Float32(Float32(Float32(Float32(0.5) / v) / sinh(Float32(Float32(1.0) / v))) * Float32(Float32(1.0) / v)) * cosTheta_O) * (exp(sinTheta_O) ^ Float32(Float32(-sinTheta_i) / v)))) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = cosTheta_i * (((((single(0.5) / v) / sinh((single(1.0) / v))) * (single(1.0) / v)) * cosTheta_O) * (exp(sinTheta_O) ^ (-sinTheta_i / v))); end
\begin{array}{l}
\\
cosTheta\_i \cdot \left(\left(\left(\frac{\frac{0.5}{v}}{\sinh \left(\frac{1}{v}\right)} \cdot \frac{1}{v}\right) \cdot cosTheta\_O\right) \cdot {\left(e^{sinTheta\_O}\right)}^{\left(\frac{-sinTheta\_i}{v}\right)}\right)
\end{array}
Initial program 98.7%
lift-/.f32N/A
lift-*.f32N/A
associate-/l*N/A
clear-numN/A
un-div-invN/A
lower-/.f32N/A
lower-/.f3298.7
Applied rewrites98.7%
Applied rewrites98.7%
Applied rewrites98.9%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (/ (* (exp (/ (* (- sinTheta_i) sinTheta_O) v)) (* (/ cosTheta_i v) cosTheta_O)) (/ 1.0 (/ (/ 0.5 v) (sinh (/ 1.0 v))))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (expf(((-sinTheta_i * sinTheta_O) / v)) * ((cosTheta_i / v) * cosTheta_O)) / (1.0f / ((0.5f / v) / sinhf((1.0f / v))));
}
real(4) function code(costheta_i, costheta_o, sintheta_i, sintheta_o, v)
real(4), intent (in) :: costheta_i
real(4), intent (in) :: costheta_o
real(4), intent (in) :: sintheta_i
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: v
code = (exp(((-sintheta_i * sintheta_o) / v)) * ((costheta_i / v) * costheta_o)) / (1.0e0 / ((0.5e0 / v) / sinh((1.0e0 / v))))
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(exp(Float32(Float32(Float32(-sinTheta_i) * sinTheta_O) / v)) * Float32(Float32(cosTheta_i / v) * cosTheta_O)) / Float32(Float32(1.0) / Float32(Float32(Float32(0.5) / v) / sinh(Float32(Float32(1.0) / v))))) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = (exp(((-sinTheta_i * sinTheta_O) / v)) * ((cosTheta_i / v) * cosTheta_O)) / (single(1.0) / ((single(0.5) / v) / sinh((single(1.0) / v)))); end
\begin{array}{l}
\\
\frac{e^{\frac{\left(-sinTheta\_i\right) \cdot sinTheta\_O}{v}} \cdot \left(\frac{cosTheta\_i}{v} \cdot cosTheta\_O\right)}{\frac{1}{\frac{\frac{0.5}{v}}{\sinh \left(\frac{1}{v}\right)}}}
\end{array}
Initial program 98.7%
lift-/.f32N/A
lift-*.f32N/A
*-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-*.f32N/A
lower-/.f3298.7
Applied rewrites98.7%
lift-*.f32N/A
lift-*.f32N/A
associate-*l*N/A
*-commutativeN/A
metadata-evalN/A
div-invN/A
clear-numN/A
lift-/.f32N/A
div-invN/A
clear-numN/A
lift-/.f32N/A
lower-/.f3298.9
Applied rewrites98.9%
Final simplification98.9%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (/ (* (exp (/ (* (- sinTheta_i) sinTheta_O) v)) (* (/ cosTheta_i v) cosTheta_O)) (/ (sinh (/ 1.0 v)) (/ 0.5 v))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (expf(((-sinTheta_i * sinTheta_O) / v)) * ((cosTheta_i / v) * cosTheta_O)) / (sinhf((1.0f / v)) / (0.5f / v));
}
real(4) function code(costheta_i, costheta_o, sintheta_i, sintheta_o, v)
real(4), intent (in) :: costheta_i
real(4), intent (in) :: costheta_o
real(4), intent (in) :: sintheta_i
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: v
code = (exp(((-sintheta_i * sintheta_o) / v)) * ((costheta_i / v) * costheta_o)) / (sinh((1.0e0 / v)) / (0.5e0 / v))
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(exp(Float32(Float32(Float32(-sinTheta_i) * sinTheta_O) / v)) * Float32(Float32(cosTheta_i / v) * cosTheta_O)) / Float32(sinh(Float32(Float32(1.0) / v)) / Float32(Float32(0.5) / v))) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = (exp(((-sinTheta_i * sinTheta_O) / v)) * ((cosTheta_i / v) * cosTheta_O)) / (sinh((single(1.0) / v)) / (single(0.5) / v)); end
\begin{array}{l}
\\
\frac{e^{\frac{\left(-sinTheta\_i\right) \cdot sinTheta\_O}{v}} \cdot \left(\frac{cosTheta\_i}{v} \cdot cosTheta\_O\right)}{\frac{\sinh \left(\frac{1}{v}\right)}{\frac{0.5}{v}}}
\end{array}
Initial program 98.7%
lift-/.f32N/A
lift-*.f32N/A
*-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-*.f32N/A
lower-/.f3298.7
Applied rewrites98.7%
lift-*.f32N/A
lift-*.f32N/A
associate-*l*N/A
*-commutativeN/A
metadata-evalN/A
div-invN/A
clear-numN/A
lift-/.f32N/A
div-invN/A
lower-/.f3298.9
Applied rewrites98.9%
Final simplification98.9%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (/ (* (exp (/ (* (- sinTheta_i) sinTheta_O) v)) (* (/ 1.0 v) (* cosTheta_O cosTheta_i))) (* (* (sinh (/ 1.0 v)) 2.0) v)))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (expf(((-sinTheta_i * sinTheta_O) / v)) * ((1.0f / v) * (cosTheta_O * cosTheta_i))) / ((sinhf((1.0f / v)) * 2.0f) * v);
}
real(4) function code(costheta_i, costheta_o, sintheta_i, sintheta_o, v)
real(4), intent (in) :: costheta_i
real(4), intent (in) :: costheta_o
real(4), intent (in) :: sintheta_i
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: v
code = (exp(((-sintheta_i * sintheta_o) / v)) * ((1.0e0 / v) * (costheta_o * costheta_i))) / ((sinh((1.0e0 / v)) * 2.0e0) * v)
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(exp(Float32(Float32(Float32(-sinTheta_i) * sinTheta_O) / v)) * Float32(Float32(Float32(1.0) / v) * Float32(cosTheta_O * cosTheta_i))) / Float32(Float32(sinh(Float32(Float32(1.0) / v)) * Float32(2.0)) * v)) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = (exp(((-sinTheta_i * sinTheta_O) / v)) * ((single(1.0) / v) * (cosTheta_O * cosTheta_i))) / ((sinh((single(1.0) / v)) * single(2.0)) * v); end
\begin{array}{l}
\\
\frac{e^{\frac{\left(-sinTheta\_i\right) \cdot sinTheta\_O}{v}} \cdot \left(\frac{1}{v} \cdot \left(cosTheta\_O \cdot cosTheta\_i\right)\right)}{\left(\sinh \left(\frac{1}{v}\right) \cdot 2\right) \cdot v}
\end{array}
Initial program 98.7%
lift-/.f32N/A
clear-numN/A
associate-/r/N/A
lift-/.f32N/A
lower-*.f3298.8
lift-*.f32N/A
*-commutativeN/A
lower-*.f3298.8
Applied rewrites98.8%
Final simplification98.8%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (/ (* (exp (/ (* (- sinTheta_i) sinTheta_O) v)) (* (* (/ 1.0 v) cosTheta_i) cosTheta_O)) (* (* (sinh (/ 1.0 v)) 2.0) v)))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (expf(((-sinTheta_i * sinTheta_O) / v)) * (((1.0f / v) * cosTheta_i) * cosTheta_O)) / ((sinhf((1.0f / v)) * 2.0f) * v);
}
real(4) function code(costheta_i, costheta_o, sintheta_i, sintheta_o, v)
real(4), intent (in) :: costheta_i
real(4), intent (in) :: costheta_o
real(4), intent (in) :: sintheta_i
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: v
code = (exp(((-sintheta_i * sintheta_o) / v)) * (((1.0e0 / v) * costheta_i) * costheta_o)) / ((sinh((1.0e0 / v)) * 2.0e0) * v)
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(exp(Float32(Float32(Float32(-sinTheta_i) * sinTheta_O) / v)) * Float32(Float32(Float32(Float32(1.0) / v) * cosTheta_i) * cosTheta_O)) / Float32(Float32(sinh(Float32(Float32(1.0) / v)) * Float32(2.0)) * v)) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = (exp(((-sinTheta_i * sinTheta_O) / v)) * (((single(1.0) / v) * cosTheta_i) * cosTheta_O)) / ((sinh((single(1.0) / v)) * single(2.0)) * v); end
\begin{array}{l}
\\
\frac{e^{\frac{\left(-sinTheta\_i\right) \cdot sinTheta\_O}{v}} \cdot \left(\left(\frac{1}{v} \cdot cosTheta\_i\right) \cdot cosTheta\_O\right)}{\left(\sinh \left(\frac{1}{v}\right) \cdot 2\right) \cdot v}
\end{array}
Initial program 98.7%
lift-/.f32N/A
lift-*.f32N/A
associate-/l*N/A
clear-numN/A
un-div-invN/A
lower-/.f32N/A
lower-/.f3298.7
Applied rewrites98.7%
lift-/.f32N/A
*-lft-identityN/A
associate-*l/N/A
lift-/.f32N/A
associate-/r/N/A
lift-/.f32N/A
associate-*r*N/A
*-commutativeN/A
associate-*r*N/A
lower-*.f32N/A
lower-*.f3298.8
Applied rewrites98.8%
Final simplification98.8%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (/ (* (/ cosTheta_O v) (- cosTheta_i (* cosTheta_i (/ (* sinTheta_O sinTheta_i) v)))) (* (* (sinh (/ 1.0 v)) 2.0) v)))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return ((cosTheta_O / v) * (cosTheta_i - (cosTheta_i * ((sinTheta_O * sinTheta_i) / v)))) / ((sinhf((1.0f / v)) * 2.0f) * v);
}
real(4) function code(costheta_i, costheta_o, sintheta_i, sintheta_o, v)
real(4), intent (in) :: costheta_i
real(4), intent (in) :: costheta_o
real(4), intent (in) :: sintheta_i
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: v
code = ((costheta_o / v) * (costheta_i - (costheta_i * ((sintheta_o * sintheta_i) / v)))) / ((sinh((1.0e0 / v)) * 2.0e0) * v)
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(Float32(cosTheta_O / v) * Float32(cosTheta_i - Float32(cosTheta_i * Float32(Float32(sinTheta_O * sinTheta_i) / v)))) / Float32(Float32(sinh(Float32(Float32(1.0) / v)) * Float32(2.0)) * v)) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = ((cosTheta_O / v) * (cosTheta_i - (cosTheta_i * ((sinTheta_O * sinTheta_i) / v)))) / ((sinh((single(1.0) / v)) * single(2.0)) * v); end
\begin{array}{l}
\\
\frac{\frac{cosTheta\_O}{v} \cdot \left(cosTheta\_i - cosTheta\_i \cdot \frac{sinTheta\_O \cdot sinTheta\_i}{v}\right)}{\left(\sinh \left(\frac{1}{v}\right) \cdot 2\right) \cdot v}
\end{array}
Initial program 98.7%
lift-/.f32N/A
clear-numN/A
inv-powN/A
pow-to-expN/A
lower-exp.f32N/A
lower-*.f32N/A
lower-log.f32N/A
lower-/.f3250.4
lift-*.f32N/A
*-commutativeN/A
lower-*.f3250.4
Applied rewrites50.4%
Taylor expanded in sinTheta_i around 0
+-commutativeN/A
mul-1-negN/A
unsub-negN/A
*-commutativeN/A
associate-/l*N/A
*-commutativeN/A
unpow2N/A
times-fracN/A
distribute-rgt-out--N/A
lower-*.f32N/A
lower-/.f32N/A
lower--.f32N/A
associate-/l*N/A
lower-*.f32N/A
lower-/.f32N/A
lower-*.f3298.7
Applied rewrites98.7%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (* (/ 1.0 v) (* (/ -0.5 (sinh (/ -1.0 v))) (* (/ cosTheta_i v) cosTheta_O))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (1.0f / v) * ((-0.5f / sinhf((-1.0f / v))) * ((cosTheta_i / v) * cosTheta_O));
}
real(4) function code(costheta_i, costheta_o, sintheta_i, sintheta_o, v)
real(4), intent (in) :: costheta_i
real(4), intent (in) :: costheta_o
real(4), intent (in) :: sintheta_i
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: v
code = (1.0e0 / v) * (((-0.5e0) / sinh(((-1.0e0) / v))) * ((costheta_i / v) * costheta_o))
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(Float32(1.0) / v) * Float32(Float32(Float32(-0.5) / sinh(Float32(Float32(-1.0) / v))) * Float32(Float32(cosTheta_i / v) * cosTheta_O))) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = (single(1.0) / v) * ((single(-0.5) / sinh((single(-1.0) / v))) * ((cosTheta_i / v) * cosTheta_O)); end
\begin{array}{l}
\\
\frac{1}{v} \cdot \left(\frac{-0.5}{\sinh \left(\frac{-1}{v}\right)} \cdot \left(\frac{cosTheta\_i}{v} \cdot cosTheta\_O\right)\right)
\end{array}
Initial program 98.7%
lift-/.f32N/A
lift-*.f32N/A
associate-/l*N/A
clear-numN/A
un-div-invN/A
lower-/.f32N/A
lower-/.f3298.7
Applied rewrites98.7%
Applied rewrites98.7%
Applied rewrites98.5%
Taylor expanded in sinTheta_i around 0
Applied rewrites98.1%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (* 0.5 (* (/ 1.0 v) (pow (/ 1.0 (* cosTheta_O cosTheta_i)) -1.0))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return 0.5f * ((1.0f / v) * powf((1.0f / (cosTheta_O * cosTheta_i)), -1.0f));
}
real(4) function code(costheta_i, costheta_o, sintheta_i, sintheta_o, v)
real(4), intent (in) :: costheta_i
real(4), intent (in) :: costheta_o
real(4), intent (in) :: sintheta_i
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: v
code = 0.5e0 * ((1.0e0 / v) * ((1.0e0 / (costheta_o * costheta_i)) ** (-1.0e0)))
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(0.5) * Float32(Float32(Float32(1.0) / v) * (Float32(Float32(1.0) / Float32(cosTheta_O * cosTheta_i)) ^ Float32(-1.0)))) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = single(0.5) * ((single(1.0) / v) * ((single(1.0) / (cosTheta_O * cosTheta_i)) ^ single(-1.0))); end
\begin{array}{l}
\\
0.5 \cdot \left(\frac{1}{v} \cdot {\left(\frac{1}{cosTheta\_O \cdot cosTheta\_i}\right)}^{-1}\right)
\end{array}
Initial program 98.7%
Taylor expanded in v around inf
Applied rewrites61.2%
Taylor expanded in v around inf
lower-*.f32N/A
lower-/.f32N/A
lower-*.f3261.2
Applied rewrites61.2%
Applied rewrites61.7%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (/ -0.5 (/ (/ (- v) cosTheta_O) cosTheta_i)))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return -0.5f / ((-v / cosTheta_O) / cosTheta_i);
}
real(4) function code(costheta_i, costheta_o, sintheta_i, sintheta_o, v)
real(4), intent (in) :: costheta_i
real(4), intent (in) :: costheta_o
real(4), intent (in) :: sintheta_i
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: v
code = (-0.5e0) / ((-v / costheta_o) / costheta_i)
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(-0.5) / Float32(Float32(Float32(-v) / cosTheta_O) / cosTheta_i)) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = single(-0.5) / ((-v / cosTheta_O) / cosTheta_i); end
\begin{array}{l}
\\
\frac{-0.5}{\frac{\frac{-v}{cosTheta\_O}}{cosTheta\_i}}
\end{array}
Initial program 98.7%
Taylor expanded in v around inf
Applied rewrites61.2%
Taylor expanded in v around inf
lower-*.f32N/A
lower-/.f32N/A
lower-*.f3261.2
Applied rewrites61.2%
Applied rewrites61.6%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (/ 0.5 (/ (/ v cosTheta_i) cosTheta_O)))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return 0.5f / ((v / cosTheta_i) / cosTheta_O);
}
real(4) function code(costheta_i, costheta_o, sintheta_i, sintheta_o, v)
real(4), intent (in) :: costheta_i
real(4), intent (in) :: costheta_o
real(4), intent (in) :: sintheta_i
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: v
code = 0.5e0 / ((v / costheta_i) / costheta_o)
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(0.5) / Float32(Float32(v / cosTheta_i) / cosTheta_O)) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = single(0.5) / ((v / cosTheta_i) / cosTheta_O); end
\begin{array}{l}
\\
\frac{0.5}{\frac{\frac{v}{cosTheta\_i}}{cosTheta\_O}}
\end{array}
Initial program 98.7%
Taylor expanded in v around inf
Applied rewrites61.2%
Taylor expanded in v around inf
lower-*.f32N/A
lower-/.f32N/A
lower-*.f3261.2
Applied rewrites61.2%
Applied rewrites61.2%
Applied rewrites61.6%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (/ 0.5 (/ v (* cosTheta_O cosTheta_i))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return 0.5f / (v / (cosTheta_O * cosTheta_i));
}
real(4) function code(costheta_i, costheta_o, sintheta_i, sintheta_o, v)
real(4), intent (in) :: costheta_i
real(4), intent (in) :: costheta_o
real(4), intent (in) :: sintheta_i
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: v
code = 0.5e0 / (v / (costheta_o * costheta_i))
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(0.5) / Float32(v / Float32(cosTheta_O * cosTheta_i))) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = single(0.5) / (v / (cosTheta_O * cosTheta_i)); end
\begin{array}{l}
\\
\frac{0.5}{\frac{v}{cosTheta\_O \cdot cosTheta\_i}}
\end{array}
Initial program 98.7%
Taylor expanded in v around inf
Applied rewrites61.2%
Taylor expanded in v around inf
lower-*.f32N/A
lower-/.f32N/A
lower-*.f3261.2
Applied rewrites61.2%
Applied rewrites61.6%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (/ (* (* -0.5 cosTheta_i) cosTheta_O) (- v)))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return ((-0.5f * cosTheta_i) * cosTheta_O) / -v;
}
real(4) function code(costheta_i, costheta_o, sintheta_i, sintheta_o, v)
real(4), intent (in) :: costheta_i
real(4), intent (in) :: costheta_o
real(4), intent (in) :: sintheta_i
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: v
code = (((-0.5e0) * costheta_i) * costheta_o) / -v
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(Float32(Float32(-0.5) * cosTheta_i) * cosTheta_O) / Float32(-v)) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = ((single(-0.5) * cosTheta_i) * cosTheta_O) / -v; end
\begin{array}{l}
\\
\frac{\left(-0.5 \cdot cosTheta\_i\right) \cdot cosTheta\_O}{-v}
\end{array}
Initial program 98.7%
lift-/.f32N/A
lift-*.f32N/A
associate-/l*N/A
clear-numN/A
un-div-invN/A
lower-/.f32N/A
lower-/.f3298.7
Applied rewrites98.7%
Applied rewrites98.7%
Taylor expanded in v around -inf
Applied rewrites61.1%
Taylor expanded in v around inf
Applied rewrites61.3%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (/ (* (* cosTheta_O cosTheta_i) 0.5) v))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return ((cosTheta_O * cosTheta_i) * 0.5f) / v;
}
real(4) function code(costheta_i, costheta_o, sintheta_i, sintheta_o, v)
real(4), intent (in) :: costheta_i
real(4), intent (in) :: costheta_o
real(4), intent (in) :: sintheta_i
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: v
code = ((costheta_o * costheta_i) * 0.5e0) / v
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(Float32(cosTheta_O * cosTheta_i) * Float32(0.5)) / v) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = ((cosTheta_O * cosTheta_i) * single(0.5)) / v; end
\begin{array}{l}
\\
\frac{\left(cosTheta\_O \cdot cosTheta\_i\right) \cdot 0.5}{v}
\end{array}
Initial program 98.7%
Taylor expanded in v around inf
Applied rewrites61.2%
Taylor expanded in v around inf
lower-*.f32N/A
lower-/.f32N/A
lower-*.f3261.2
Applied rewrites61.2%
Applied rewrites61.3%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (* (/ cosTheta_i v) (* 0.5 cosTheta_O)))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (cosTheta_i / v) * (0.5f * cosTheta_O);
}
real(4) function code(costheta_i, costheta_o, sintheta_i, sintheta_o, v)
real(4), intent (in) :: costheta_i
real(4), intent (in) :: costheta_o
real(4), intent (in) :: sintheta_i
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: v
code = (costheta_i / v) * (0.5e0 * costheta_o)
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(cosTheta_i / v) * Float32(Float32(0.5) * cosTheta_O)) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = (cosTheta_i / v) * (single(0.5) * cosTheta_O); end
\begin{array}{l}
\\
\frac{cosTheta\_i}{v} \cdot \left(0.5 \cdot cosTheta\_O\right)
\end{array}
Initial program 98.7%
Taylor expanded in v around inf
Applied rewrites61.2%
Taylor expanded in v around inf
lower-*.f32N/A
lower-/.f32N/A
lower-*.f3261.2
Applied rewrites61.2%
Applied rewrites61.2%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (* (/ 0.5 v) (* cosTheta_O cosTheta_i)))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (0.5f / v) * (cosTheta_O * cosTheta_i);
}
real(4) function code(costheta_i, costheta_o, sintheta_i, sintheta_o, v)
real(4), intent (in) :: costheta_i
real(4), intent (in) :: costheta_o
real(4), intent (in) :: sintheta_i
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: v
code = (0.5e0 / v) * (costheta_o * costheta_i)
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(Float32(0.5) / v) * Float32(cosTheta_O * cosTheta_i)) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = (single(0.5) / v) * (cosTheta_O * cosTheta_i); end
\begin{array}{l}
\\
\frac{0.5}{v} \cdot \left(cosTheta\_O \cdot cosTheta\_i\right)
\end{array}
Initial program 98.7%
Taylor expanded in v around inf
Applied rewrites61.2%
Taylor expanded in v around inf
lower-*.f32N/A
lower-/.f32N/A
lower-*.f3261.2
Applied rewrites61.2%
Applied rewrites61.2%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (* 0.5 (/ (* cosTheta_O cosTheta_i) v)))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return 0.5f * ((cosTheta_O * cosTheta_i) / v);
}
real(4) function code(costheta_i, costheta_o, sintheta_i, sintheta_o, v)
real(4), intent (in) :: costheta_i
real(4), intent (in) :: costheta_o
real(4), intent (in) :: sintheta_i
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: v
code = 0.5e0 * ((costheta_o * costheta_i) / v)
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(0.5) * Float32(Float32(cosTheta_O * cosTheta_i) / v)) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = single(0.5) * ((cosTheta_O * cosTheta_i) / v); end
\begin{array}{l}
\\
0.5 \cdot \frac{cosTheta\_O \cdot cosTheta\_i}{v}
\end{array}
Initial program 98.7%
Taylor expanded in v around inf
Applied rewrites61.2%
Taylor expanded in v around inf
lower-*.f32N/A
lower-/.f32N/A
lower-*.f3261.2
Applied rewrites61.2%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (* 0.5 (* (/ cosTheta_O v) cosTheta_i)))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return 0.5f * ((cosTheta_O / v) * cosTheta_i);
}
real(4) function code(costheta_i, costheta_o, sintheta_i, sintheta_o, v)
real(4), intent (in) :: costheta_i
real(4), intent (in) :: costheta_o
real(4), intent (in) :: sintheta_i
real(4), intent (in) :: sintheta_o
real(4), intent (in) :: v
code = 0.5e0 * ((costheta_o / v) * costheta_i)
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(0.5) * Float32(Float32(cosTheta_O / v) * cosTheta_i)) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = single(0.5) * ((cosTheta_O / v) * cosTheta_i); end
\begin{array}{l}
\\
0.5 \cdot \left(\frac{cosTheta\_O}{v} \cdot cosTheta\_i\right)
\end{array}
Initial program 98.7%
Taylor expanded in v around inf
Applied rewrites61.2%
Taylor expanded in v around inf
lower-*.f32N/A
lower-/.f32N/A
lower-*.f3261.2
Applied rewrites61.2%
Applied rewrites61.2%
herbie shell --seed 2024307
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v)
:name "HairBSDF, Mp, upper"
:precision binary32
:pre (and (and (and (and (and (and (<= -1.0 cosTheta_i) (<= cosTheta_i 1.0)) (and (<= -1.0 cosTheta_O) (<= cosTheta_O 1.0))) (and (<= -1.0 sinTheta_i) (<= sinTheta_i 1.0))) (and (<= -1.0 sinTheta_O) (<= sinTheta_O 1.0))) (< 0.1 v)) (<= v 1.5707964))
(/ (* (exp (- (/ (* sinTheta_i sinTheta_O) v))) (/ (* cosTheta_i cosTheta_O) v)) (* (* (sinh (/ 1.0 v)) 2.0) v)))