
(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 20 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 (* (sinh (/ 1.0 v)) 2.0)) (* cosTheta_O (* (/ 1.0 v) (/ (exp (/ (* sinTheta_i (- sinTheta_O)) v)) v)))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (cosTheta_i / (sinhf((1.0f / v)) * 2.0f)) * (cosTheta_O * ((1.0f / v) * (expf(((sinTheta_i * -sinTheta_O) / v)) / 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 / (sinh((1.0e0 / v)) * 2.0e0)) * (costheta_o * ((1.0e0 / v) * (exp(((sintheta_i * -sintheta_o) / v)) / v)))
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(cosTheta_i / Float32(sinh(Float32(Float32(1.0) / v)) * Float32(2.0))) * Float32(cosTheta_O * Float32(Float32(Float32(1.0) / v) * Float32(exp(Float32(Float32(sinTheta_i * Float32(-sinTheta_O)) / v)) / v)))) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = (cosTheta_i / (sinh((single(1.0) / v)) * single(2.0))) * (cosTheta_O * ((single(1.0) / v) * (exp(((sinTheta_i * -sinTheta_O) / v)) / v))); end
\begin{array}{l}
\\
\frac{cosTheta\_i}{\sinh \left(\frac{1}{v}\right) \cdot 2} \cdot \left(cosTheta\_O \cdot \left(\frac{1}{v} \cdot \frac{e^{\frac{sinTheta\_i \cdot \left(-sinTheta\_O\right)}{v}}}{v}\right)\right)
\end{array}
Initial program 98.7%
lift-*.f32N/A
lift-/.f32N/A
exp-negN/A
lift-*.f32N/A
exp-negN/A
lift-neg.f32N/A
lift-exp.f32N/A
lift-/.f32N/A
lift-/.f32N/A
lift-sinh.f32N/A
lift-*.f32N/A
Applied rewrites98.8%
lift-*.f32N/A
distribute-frac-neg2N/A
lift-/.f32N/A
neg-mul-1N/A
neg-mul-1N/A
lift-/.f32N/A
distribute-frac-neg2N/A
lift-neg.f32N/A
lift-/.f32N/A
lift-exp.f32N/A
lift-*.f32N/A
associate-/l/N/A
Applied rewrites98.9%
lift-*.f32N/A
lift-neg.f32N/A
lift-/.f32N/A
lift-exp.f32N/A
lift-/.f32N/A
lift-/.f32N/A
*-commutativeN/A
lift-/.f32N/A
div-invN/A
lift-/.f32N/A
associate-*l*N/A
lower-*.f32N/A
lower-*.f3299.0
Applied rewrites99.0%
Final simplification99.0%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (* (* cosTheta_O (/ (exp (/ (* sinTheta_i (- sinTheta_O)) v)) v)) (* (/ 1.0 v) (/ cosTheta_i (* (sinh (/ 1.0 v)) 2.0)))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (cosTheta_O * (expf(((sinTheta_i * -sinTheta_O) / v)) / v)) * ((1.0f / v) * (cosTheta_i / (sinhf((1.0f / v)) * 2.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 = (costheta_o * (exp(((sintheta_i * -sintheta_o) / v)) / v)) * ((1.0e0 / v) * (costheta_i / (sinh((1.0e0 / v)) * 2.0e0)))
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(cosTheta_O * Float32(exp(Float32(Float32(sinTheta_i * Float32(-sinTheta_O)) / v)) / v)) * Float32(Float32(Float32(1.0) / v) * Float32(cosTheta_i / Float32(sinh(Float32(Float32(1.0) / v)) * Float32(2.0))))) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = (cosTheta_O * (exp(((sinTheta_i * -sinTheta_O) / v)) / v)) * ((single(1.0) / v) * (cosTheta_i / (sinh((single(1.0) / v)) * single(2.0)))); end
\begin{array}{l}
\\
\left(cosTheta\_O \cdot \frac{e^{\frac{sinTheta\_i \cdot \left(-sinTheta\_O\right)}{v}}}{v}\right) \cdot \left(\frac{1}{v} \cdot \frac{cosTheta\_i}{\sinh \left(\frac{1}{v}\right) \cdot 2}\right)
\end{array}
Initial program 98.7%
lift-/.f32N/A
lift-sinh.f32N/A
*-commutativeN/A
lift-sinh.f32N/A
sinh-undefN/A
flip--N/A
remove-double-divN/A
lift-/.f32N/A
frac-timesN/A
lower-/.f32N/A
Applied rewrites98.8%
Applied rewrites99.0%
lift-*.f32N/A
lift-/.f32N/A
lift-exp.f32N/A
lift-*.f32N/A
clear-numN/A
associate-/r/N/A
Applied rewrites99.0%
Final simplification99.0%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (* (/ cosTheta_i (* (sinh (/ 1.0 v)) 2.0)) (* (/ (exp (/ (* sinTheta_i (- sinTheta_O)) v)) v) (/ cosTheta_O v))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (cosTheta_i / (sinhf((1.0f / v)) * 2.0f)) * ((expf(((sinTheta_i * -sinTheta_O) / v)) / v) * (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 = (costheta_i / (sinh((1.0e0 / v)) * 2.0e0)) * ((exp(((sintheta_i * -sintheta_o) / v)) / v) * (costheta_o / v))
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(cosTheta_i / Float32(sinh(Float32(Float32(1.0) / v)) * Float32(2.0))) * Float32(Float32(exp(Float32(Float32(sinTheta_i * Float32(-sinTheta_O)) / v)) / v) * Float32(cosTheta_O / v))) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = (cosTheta_i / (sinh((single(1.0) / v)) * single(2.0))) * ((exp(((sinTheta_i * -sinTheta_O) / v)) / v) * (cosTheta_O / v)); end
\begin{array}{l}
\\
\frac{cosTheta\_i}{\sinh \left(\frac{1}{v}\right) \cdot 2} \cdot \left(\frac{e^{\frac{sinTheta\_i \cdot \left(-sinTheta\_O\right)}{v}}}{v} \cdot \frac{cosTheta\_O}{v}\right)
\end{array}
Initial program 98.7%
lift-*.f32N/A
lift-/.f32N/A
exp-negN/A
lift-*.f32N/A
exp-negN/A
lift-neg.f32N/A
lift-exp.f32N/A
lift-/.f32N/A
lift-/.f32N/A
lift-sinh.f32N/A
lift-*.f32N/A
Applied rewrites98.8%
lift-*.f32N/A
distribute-frac-neg2N/A
lift-/.f32N/A
neg-mul-1N/A
neg-mul-1N/A
lift-/.f32N/A
distribute-frac-neg2N/A
lift-neg.f32N/A
lift-/.f32N/A
lift-exp.f32N/A
lift-*.f32N/A
associate-/l/N/A
Applied rewrites98.9%
Final simplification98.9%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v)
:precision binary32
(*
(* cosTheta_i cosTheta_O)
(/
1.0
(/
(* (sinh (/ 1.0 v)) (* v 2.0))
(/
(fma
sinTheta_i
(/
(- (* 0.5 (/ (* sinTheta_i (* sinTheta_O sinTheta_O)) v)) sinTheta_O)
v)
1.0)
v)))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (cosTheta_i * cosTheta_O) * (1.0f / ((sinhf((1.0f / v)) * (v * 2.0f)) / (fmaf(sinTheta_i, (((0.5f * ((sinTheta_i * (sinTheta_O * sinTheta_O)) / v)) - sinTheta_O) / v), 1.0f) / v)));
}
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(cosTheta_i * cosTheta_O) * Float32(Float32(1.0) / Float32(Float32(sinh(Float32(Float32(1.0) / v)) * Float32(v * Float32(2.0))) / Float32(fma(sinTheta_i, Float32(Float32(Float32(Float32(0.5) * Float32(Float32(sinTheta_i * Float32(sinTheta_O * sinTheta_O)) / v)) - sinTheta_O) / v), Float32(1.0)) / v)))) end
\begin{array}{l}
\\
\left(cosTheta\_i \cdot cosTheta\_O\right) \cdot \frac{1}{\frac{\sinh \left(\frac{1}{v}\right) \cdot \left(v \cdot 2\right)}{\frac{\mathsf{fma}\left(sinTheta\_i, \frac{0.5 \cdot \frac{sinTheta\_i \cdot \left(sinTheta\_O \cdot sinTheta\_O\right)}{v} - sinTheta\_O}{v}, 1\right)}{v}}}
\end{array}
Initial program 98.7%
lift-*.f32N/A
lift-/.f32N/A
lift-neg.f32N/A
lift-exp.f32N/A
lift-*.f32N/A
associate-*r/N/A
lift-/.f32N/A
lift-sinh.f32N/A
lift-*.f32N/A
lift-*.f32N/A
associate-/l/N/A
*-commutativeN/A
associate-/l*N/A
Applied rewrites98.7%
Taylor expanded in sinTheta_i around 0
+-commutativeN/A
lower-fma.f32N/A
+-commutativeN/A
lower-fma.f32N/A
lower-/.f32N/A
*-commutativeN/A
lower-*.f32N/A
unpow2N/A
lower-*.f32N/A
unpow2N/A
lower-*.f32N/A
mul-1-negN/A
distribute-neg-frac2N/A
mul-1-negN/A
lower-/.f32N/A
mul-1-negN/A
lower-neg.f3298.7
Applied rewrites98.7%
Applied rewrites98.9%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v)
:precision binary32
(*
(* cosTheta_i cosTheta_O)
(/
(/
(/
(fma
sinTheta_i
(/
(- (* 0.5 (/ (* sinTheta_i (* sinTheta_O sinTheta_O)) v)) sinTheta_O)
v)
1.0)
v)
(* v 2.0))
(sinh (/ 1.0 v)))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (cosTheta_i * cosTheta_O) * (((fmaf(sinTheta_i, (((0.5f * ((sinTheta_i * (sinTheta_O * sinTheta_O)) / v)) - sinTheta_O) / v), 1.0f) / v) / (v * 2.0f)) / sinhf((1.0f / v)));
}
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(cosTheta_i * cosTheta_O) * Float32(Float32(Float32(fma(sinTheta_i, Float32(Float32(Float32(Float32(0.5) * Float32(Float32(sinTheta_i * Float32(sinTheta_O * sinTheta_O)) / v)) - sinTheta_O) / v), Float32(1.0)) / v) / Float32(v * Float32(2.0))) / sinh(Float32(Float32(1.0) / v)))) end
\begin{array}{l}
\\
\left(cosTheta\_i \cdot cosTheta\_O\right) \cdot \frac{\frac{\frac{\mathsf{fma}\left(sinTheta\_i, \frac{0.5 \cdot \frac{sinTheta\_i \cdot \left(sinTheta\_O \cdot sinTheta\_O\right)}{v} - sinTheta\_O}{v}, 1\right)}{v}}{v \cdot 2}}{\sinh \left(\frac{1}{v}\right)}
\end{array}
Initial program 98.7%
lift-*.f32N/A
lift-/.f32N/A
lift-neg.f32N/A
lift-exp.f32N/A
lift-*.f32N/A
associate-*r/N/A
lift-/.f32N/A
lift-sinh.f32N/A
lift-*.f32N/A
lift-*.f32N/A
associate-/l/N/A
*-commutativeN/A
associate-/l*N/A
Applied rewrites98.7%
Taylor expanded in sinTheta_i around 0
+-commutativeN/A
lower-fma.f32N/A
+-commutativeN/A
lower-fma.f32N/A
lower-/.f32N/A
*-commutativeN/A
lower-*.f32N/A
unpow2N/A
lower-*.f32N/A
unpow2N/A
lower-*.f32N/A
mul-1-negN/A
distribute-neg-frac2N/A
mul-1-negN/A
lower-/.f32N/A
mul-1-negN/A
lower-neg.f3298.7
Applied rewrites98.7%
Applied rewrites98.9%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v)
:precision binary32
(*
(* (/ 1.0 v) (/ cosTheta_i (* (sinh (/ 1.0 v)) 2.0)))
(/
cosTheta_O
(fma
sinTheta_i
(fma 0.5 (/ (* sinTheta_i (* sinTheta_O sinTheta_O)) v) sinTheta_O)
v))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return ((1.0f / v) * (cosTheta_i / (sinhf((1.0f / v)) * 2.0f))) * (cosTheta_O / fmaf(sinTheta_i, fmaf(0.5f, ((sinTheta_i * (sinTheta_O * sinTheta_O)) / v), sinTheta_O), v));
}
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(Float32(Float32(1.0) / v) * Float32(cosTheta_i / Float32(sinh(Float32(Float32(1.0) / v)) * Float32(2.0)))) * Float32(cosTheta_O / fma(sinTheta_i, fma(Float32(0.5), Float32(Float32(sinTheta_i * Float32(sinTheta_O * sinTheta_O)) / v), sinTheta_O), v))) end
\begin{array}{l}
\\
\left(\frac{1}{v} \cdot \frac{cosTheta\_i}{\sinh \left(\frac{1}{v}\right) \cdot 2}\right) \cdot \frac{cosTheta\_O}{\mathsf{fma}\left(sinTheta\_i, \mathsf{fma}\left(0.5, \frac{sinTheta\_i \cdot \left(sinTheta\_O \cdot sinTheta\_O\right)}{v}, sinTheta\_O\right), v\right)}
\end{array}
Initial program 98.7%
lift-/.f32N/A
lift-sinh.f32N/A
*-commutativeN/A
lift-sinh.f32N/A
sinh-undefN/A
flip--N/A
remove-double-divN/A
lift-/.f32N/A
frac-timesN/A
lower-/.f32N/A
Applied rewrites98.8%
Applied rewrites99.0%
Taylor expanded in sinTheta_i around 0
+-commutativeN/A
lower-fma.f32N/A
+-commutativeN/A
lower-fma.f32N/A
lower-/.f32N/A
*-commutativeN/A
lower-*.f32N/A
unpow2N/A
lower-*.f3299.0
Applied rewrites99.0%
Final simplification99.0%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (* (* (/ 1.0 v) (/ cosTheta_i (* (sinh (/ 1.0 v)) 2.0))) (/ cosTheta_O (fma sinTheta_O sinTheta_i v))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return ((1.0f / v) * (cosTheta_i / (sinhf((1.0f / v)) * 2.0f))) * (cosTheta_O / fmaf(sinTheta_O, sinTheta_i, v));
}
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(Float32(Float32(1.0) / v) * Float32(cosTheta_i / Float32(sinh(Float32(Float32(1.0) / v)) * Float32(2.0)))) * Float32(cosTheta_O / fma(sinTheta_O, sinTheta_i, v))) end
\begin{array}{l}
\\
\left(\frac{1}{v} \cdot \frac{cosTheta\_i}{\sinh \left(\frac{1}{v}\right) \cdot 2}\right) \cdot \frac{cosTheta\_O}{\mathsf{fma}\left(sinTheta\_O, sinTheta\_i, v\right)}
\end{array}
Initial program 98.7%
lift-/.f32N/A
lift-sinh.f32N/A
*-commutativeN/A
lift-sinh.f32N/A
sinh-undefN/A
flip--N/A
remove-double-divN/A
lift-/.f32N/A
frac-timesN/A
lower-/.f32N/A
Applied rewrites98.8%
Applied rewrites99.0%
Taylor expanded in sinTheta_i around 0
+-commutativeN/A
lower-fma.f3298.9
Applied rewrites98.9%
Final simplification98.9%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (* (/ cosTheta_i (* (sinh (/ 1.0 v)) 2.0)) (* (/ 1.0 v) (/ cosTheta_O v))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (cosTheta_i / (sinhf((1.0f / v)) * 2.0f)) * ((1.0f / v) * (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 = (costheta_i / (sinh((1.0e0 / v)) * 2.0e0)) * ((1.0e0 / v) * (costheta_o / v))
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(cosTheta_i / Float32(sinh(Float32(Float32(1.0) / v)) * Float32(2.0))) * Float32(Float32(Float32(1.0) / v) * Float32(cosTheta_O / v))) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = (cosTheta_i / (sinh((single(1.0) / v)) * single(2.0))) * ((single(1.0) / v) * (cosTheta_O / v)); end
\begin{array}{l}
\\
\frac{cosTheta\_i}{\sinh \left(\frac{1}{v}\right) \cdot 2} \cdot \left(\frac{1}{v} \cdot \frac{cosTheta\_O}{v}\right)
\end{array}
Initial program 98.7%
lift-*.f32N/A
lift-/.f32N/A
exp-negN/A
lift-*.f32N/A
exp-negN/A
lift-neg.f32N/A
lift-exp.f32N/A
lift-/.f32N/A
lift-/.f32N/A
lift-sinh.f32N/A
lift-*.f32N/A
Applied rewrites98.8%
lift-*.f32N/A
distribute-frac-neg2N/A
lift-/.f32N/A
neg-mul-1N/A
neg-mul-1N/A
lift-/.f32N/A
distribute-frac-neg2N/A
lift-neg.f32N/A
lift-/.f32N/A
lift-exp.f32N/A
lift-*.f32N/A
associate-/l/N/A
Applied rewrites98.9%
Taylor expanded in sinTheta_i around 0
Applied rewrites98.7%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (* (* (/ 1.0 v) (/ cosTheta_i (* (sinh (/ 1.0 v)) 2.0))) (/ cosTheta_O v)))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return ((1.0f / v) * (cosTheta_i / (sinhf((1.0f / v)) * 2.0f))) * (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 = ((1.0e0 / v) * (costheta_i / (sinh((1.0e0 / v)) * 2.0e0))) * (costheta_o / v)
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(Float32(Float32(1.0) / v) * Float32(cosTheta_i / Float32(sinh(Float32(Float32(1.0) / v)) * Float32(2.0)))) * Float32(cosTheta_O / v)) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = ((single(1.0) / v) * (cosTheta_i / (sinh((single(1.0) / v)) * single(2.0)))) * (cosTheta_O / v); end
\begin{array}{l}
\\
\left(\frac{1}{v} \cdot \frac{cosTheta\_i}{\sinh \left(\frac{1}{v}\right) \cdot 2}\right) \cdot \frac{cosTheta\_O}{v}
\end{array}
Initial program 98.7%
lift-/.f32N/A
lift-sinh.f32N/A
*-commutativeN/A
lift-sinh.f32N/A
sinh-undefN/A
flip--N/A
remove-double-divN/A
lift-/.f32N/A
frac-timesN/A
lower-/.f32N/A
Applied rewrites98.8%
Applied rewrites99.0%
Taylor expanded in sinTheta_i around 0
lower-/.f3298.7
Applied rewrites98.7%
Final simplification98.7%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (* (/ cosTheta_i (* (sinh (/ 1.0 v)) 2.0)) (/ cosTheta_O (* v v))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (cosTheta_i / (sinhf((1.0f / v)) * 2.0f)) * (cosTheta_O / (v * 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 / (sinh((1.0e0 / v)) * 2.0e0)) * (costheta_o / (v * v))
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(cosTheta_i / Float32(sinh(Float32(Float32(1.0) / v)) * Float32(2.0))) * Float32(cosTheta_O / Float32(v * v))) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = (cosTheta_i / (sinh((single(1.0) / v)) * single(2.0))) * (cosTheta_O / (v * v)); end
\begin{array}{l}
\\
\frac{cosTheta\_i}{\sinh \left(\frac{1}{v}\right) \cdot 2} \cdot \frac{cosTheta\_O}{v \cdot v}
\end{array}
Initial program 98.7%
lift-*.f32N/A
lift-/.f32N/A
exp-negN/A
lift-*.f32N/A
exp-negN/A
lift-neg.f32N/A
lift-exp.f32N/A
lift-/.f32N/A
lift-/.f32N/A
lift-sinh.f32N/A
lift-*.f32N/A
Applied rewrites98.8%
Taylor expanded in sinTheta_i around 0
lower-/.f32N/A
unpow2N/A
lower-*.f3298.5
Applied rewrites98.5%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (* (* cosTheta_i cosTheta_O) (/ 1.0 (* v (* (sinh (/ 1.0 v)) (* v 2.0))))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (cosTheta_i * cosTheta_O) * (1.0f / (v * (sinhf((1.0f / v)) * (v * 2.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 = (costheta_i * costheta_o) * (1.0e0 / (v * (sinh((1.0e0 / v)) * (v * 2.0e0))))
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(cosTheta_i * cosTheta_O) * Float32(Float32(1.0) / Float32(v * Float32(sinh(Float32(Float32(1.0) / v)) * Float32(v * Float32(2.0)))))) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = (cosTheta_i * cosTheta_O) * (single(1.0) / (v * (sinh((single(1.0) / v)) * (v * single(2.0))))); end
\begin{array}{l}
\\
\left(cosTheta\_i \cdot cosTheta\_O\right) \cdot \frac{1}{v \cdot \left(\sinh \left(\frac{1}{v}\right) \cdot \left(v \cdot 2\right)\right)}
\end{array}
Initial program 98.7%
lift-*.f32N/A
lift-/.f32N/A
lift-neg.f32N/A
lift-exp.f32N/A
lift-*.f32N/A
associate-*r/N/A
lift-/.f32N/A
lift-sinh.f32N/A
lift-*.f32N/A
lift-*.f32N/A
associate-/l/N/A
*-commutativeN/A
associate-/l*N/A
Applied rewrites98.7%
Taylor expanded in sinTheta_i around 0
Applied rewrites98.4%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v)
:precision binary32
(*
(* cosTheta_i cosTheta_O)
(/
(fma
sinTheta_i
(fma
0.5
(/ (* sinTheta_i (* sinTheta_O sinTheta_O)) (* v v))
(/ sinTheta_O (- v)))
1.0)
(*
v
(*
(* v 2.0)
(/
(+
(/ (+ 0.16666666666666666 (/ 0.008333333333333333 (* v v))) (* v v))
1.0)
v))))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (cosTheta_i * cosTheta_O) * (fmaf(sinTheta_i, fmaf(0.5f, ((sinTheta_i * (sinTheta_O * sinTheta_O)) / (v * v)), (sinTheta_O / -v)), 1.0f) / (v * ((v * 2.0f) * ((((0.16666666666666666f + (0.008333333333333333f / (v * v))) / (v * v)) + 1.0f) / v))));
}
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(cosTheta_i * cosTheta_O) * Float32(fma(sinTheta_i, fma(Float32(0.5), Float32(Float32(sinTheta_i * Float32(sinTheta_O * sinTheta_O)) / Float32(v * v)), Float32(sinTheta_O / Float32(-v))), Float32(1.0)) / Float32(v * Float32(Float32(v * Float32(2.0)) * Float32(Float32(Float32(Float32(Float32(0.16666666666666666) + Float32(Float32(0.008333333333333333) / Float32(v * v))) / Float32(v * v)) + Float32(1.0)) / v))))) end
\begin{array}{l}
\\
\left(cosTheta\_i \cdot cosTheta\_O\right) \cdot \frac{\mathsf{fma}\left(sinTheta\_i, \mathsf{fma}\left(0.5, \frac{sinTheta\_i \cdot \left(sinTheta\_O \cdot sinTheta\_O\right)}{v \cdot v}, \frac{sinTheta\_O}{-v}\right), 1\right)}{v \cdot \left(\left(v \cdot 2\right) \cdot \frac{\frac{0.16666666666666666 + \frac{0.008333333333333333}{v \cdot v}}{v \cdot v} + 1}{v}\right)}
\end{array}
Initial program 98.7%
lift-*.f32N/A
lift-/.f32N/A
lift-neg.f32N/A
lift-exp.f32N/A
lift-*.f32N/A
associate-*r/N/A
lift-/.f32N/A
lift-sinh.f32N/A
lift-*.f32N/A
lift-*.f32N/A
associate-/l/N/A
*-commutativeN/A
associate-/l*N/A
Applied rewrites98.7%
Taylor expanded in sinTheta_i around 0
+-commutativeN/A
lower-fma.f32N/A
+-commutativeN/A
lower-fma.f32N/A
lower-/.f32N/A
*-commutativeN/A
lower-*.f32N/A
unpow2N/A
lower-*.f32N/A
unpow2N/A
lower-*.f32N/A
mul-1-negN/A
distribute-neg-frac2N/A
mul-1-negN/A
lower-/.f32N/A
mul-1-negN/A
lower-neg.f3298.7
Applied rewrites98.7%
Taylor expanded in v around -inf
mul-1-negN/A
distribute-neg-frac2N/A
mul-1-negN/A
lower-/.f32N/A
Applied rewrites72.3%
Final simplification72.3%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v)
:precision binary32
(*
(* cosTheta_i cosTheta_O)
(/
(fma
sinTheta_i
(fma
0.5
(/ (* sinTheta_i (* sinTheta_O sinTheta_O)) (* v v))
(/ sinTheta_O (- v)))
1.0)
(*
v
(-
(/ (+ 0.3333333333333333 (/ 0.016666666666666666 (* v v))) (* v v))
-2.0)))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (cosTheta_i * cosTheta_O) * (fmaf(sinTheta_i, fmaf(0.5f, ((sinTheta_i * (sinTheta_O * sinTheta_O)) / (v * v)), (sinTheta_O / -v)), 1.0f) / (v * (((0.3333333333333333f + (0.016666666666666666f / (v * v))) / (v * v)) - -2.0f)));
}
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(cosTheta_i * cosTheta_O) * Float32(fma(sinTheta_i, fma(Float32(0.5), Float32(Float32(sinTheta_i * Float32(sinTheta_O * sinTheta_O)) / Float32(v * v)), Float32(sinTheta_O / Float32(-v))), Float32(1.0)) / Float32(v * Float32(Float32(Float32(Float32(0.3333333333333333) + Float32(Float32(0.016666666666666666) / Float32(v * v))) / Float32(v * v)) - Float32(-2.0))))) end
\begin{array}{l}
\\
\left(cosTheta\_i \cdot cosTheta\_O\right) \cdot \frac{\mathsf{fma}\left(sinTheta\_i, \mathsf{fma}\left(0.5, \frac{sinTheta\_i \cdot \left(sinTheta\_O \cdot sinTheta\_O\right)}{v \cdot v}, \frac{sinTheta\_O}{-v}\right), 1\right)}{v \cdot \left(\frac{0.3333333333333333 + \frac{0.016666666666666666}{v \cdot v}}{v \cdot v} - -2\right)}
\end{array}
Initial program 98.7%
lift-*.f32N/A
lift-/.f32N/A
lift-neg.f32N/A
lift-exp.f32N/A
lift-*.f32N/A
associate-*r/N/A
lift-/.f32N/A
lift-sinh.f32N/A
lift-*.f32N/A
lift-*.f32N/A
associate-/l/N/A
*-commutativeN/A
associate-/l*N/A
Applied rewrites98.7%
Taylor expanded in sinTheta_i around 0
+-commutativeN/A
lower-fma.f32N/A
+-commutativeN/A
lower-fma.f32N/A
lower-/.f32N/A
*-commutativeN/A
lower-*.f32N/A
unpow2N/A
lower-*.f32N/A
unpow2N/A
lower-*.f32N/A
mul-1-negN/A
distribute-neg-frac2N/A
mul-1-negN/A
lower-/.f32N/A
mul-1-negN/A
lower-neg.f3298.7
Applied rewrites98.7%
Taylor expanded in v around -inf
mul-1-negN/A
*-commutativeN/A
distribute-rgt-neg-inN/A
mul-1-negN/A
lower-*.f32N/A
Applied rewrites72.3%
Final simplification72.3%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v)
:precision binary32
(/
(* (* cosTheta_i cosTheta_O) (* v v))
(fma
v
(fma
v
(* 2.0 (fma sinTheta_O sinTheta_i v))
(fma
-2.0
(* sinTheta_i (* sinTheta_i (* (* sinTheta_O sinTheta_O) -0.5)))
0.3333333333333333))
(*
0.3333333333333333
(*
sinTheta_O
(fma
(* sinTheta_O sinTheta_O)
(* sinTheta_i (* sinTheta_i sinTheta_i))
sinTheta_i))))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return ((cosTheta_i * cosTheta_O) * (v * v)) / fmaf(v, fmaf(v, (2.0f * fmaf(sinTheta_O, sinTheta_i, v)), fmaf(-2.0f, (sinTheta_i * (sinTheta_i * ((sinTheta_O * sinTheta_O) * -0.5f))), 0.3333333333333333f)), (0.3333333333333333f * (sinTheta_O * fmaf((sinTheta_O * sinTheta_O), (sinTheta_i * (sinTheta_i * sinTheta_i)), sinTheta_i))));
}
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(Float32(cosTheta_i * cosTheta_O) * Float32(v * v)) / fma(v, fma(v, Float32(Float32(2.0) * fma(sinTheta_O, sinTheta_i, v)), fma(Float32(-2.0), Float32(sinTheta_i * Float32(sinTheta_i * Float32(Float32(sinTheta_O * sinTheta_O) * Float32(-0.5)))), Float32(0.3333333333333333))), Float32(Float32(0.3333333333333333) * Float32(sinTheta_O * fma(Float32(sinTheta_O * sinTheta_O), Float32(sinTheta_i * Float32(sinTheta_i * sinTheta_i)), sinTheta_i))))) end
\begin{array}{l}
\\
\frac{\left(cosTheta\_i \cdot cosTheta\_O\right) \cdot \left(v \cdot v\right)}{\mathsf{fma}\left(v, \mathsf{fma}\left(v, 2 \cdot \mathsf{fma}\left(sinTheta\_O, sinTheta\_i, v\right), \mathsf{fma}\left(-2, sinTheta\_i \cdot \left(sinTheta\_i \cdot \left(\left(sinTheta\_O \cdot sinTheta\_O\right) \cdot -0.5\right)\right), 0.3333333333333333\right)\right), 0.3333333333333333 \cdot \left(sinTheta\_O \cdot \mathsf{fma}\left(sinTheta\_O \cdot sinTheta\_O, sinTheta\_i \cdot \left(sinTheta\_i \cdot sinTheta\_i\right), sinTheta\_i\right)\right)\right)}
\end{array}
Initial program 98.7%
lift-*.f32N/A
lift-/.f32N/A
exp-negN/A
lift-*.f32N/A
exp-negN/A
lift-neg.f32N/A
lift-exp.f32N/A
lift-/.f32N/A
lift-/.f32N/A
lift-sinh.f32N/A
lift-*.f32N/A
times-fracN/A
Applied rewrites98.8%
Taylor expanded in v around -inf
Applied rewrites66.2%
Taylor expanded in v around 0
lower-/.f32N/A
Applied rewrites66.2%
Applied rewrites66.3%
Final simplification66.3%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (/ (* v (* cosTheta_i cosTheta_O)) (fma 2.0 (* v v) 0.3333333333333333)))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (v * (cosTheta_i * cosTheta_O)) / fmaf(2.0f, (v * v), 0.3333333333333333f);
}
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(v * Float32(cosTheta_i * cosTheta_O)) / fma(Float32(2.0), Float32(v * v), Float32(0.3333333333333333))) end
\begin{array}{l}
\\
\frac{v \cdot \left(cosTheta\_i \cdot cosTheta\_O\right)}{\mathsf{fma}\left(2, v \cdot v, 0.3333333333333333\right)}
\end{array}
Initial program 98.7%
lift-*.f32N/A
lift-/.f32N/A
exp-negN/A
lift-*.f32N/A
exp-negN/A
lift-neg.f32N/A
lift-exp.f32N/A
lift-/.f32N/A
lift-/.f32N/A
lift-sinh.f32N/A
lift-*.f32N/A
times-fracN/A
Applied rewrites98.8%
Taylor expanded in v around -inf
Applied rewrites66.2%
Taylor expanded in v around 0
lower-/.f32N/A
Applied rewrites66.2%
Taylor expanded in sinTheta_O around 0
lower-/.f32N/A
associate-*r*N/A
lower-*.f32N/A
lower-*.f32N/A
+-commutativeN/A
lower-fma.f32N/A
unpow2N/A
lower-*.f3266.2
Applied rewrites66.2%
Final simplification66.2%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (/ 1.0 (/ v (* cosTheta_O (* cosTheta_i 0.5)))))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return 1.0f / (v / (cosTheta_O * (cosTheta_i * 0.5f)));
}
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 / (costheta_o * (costheta_i * 0.5e0)))
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(1.0) / Float32(v / Float32(cosTheta_O * Float32(cosTheta_i * Float32(0.5))))) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = single(1.0) / (v / (cosTheta_O * (cosTheta_i * single(0.5)))); end
\begin{array}{l}
\\
\frac{1}{\frac{v}{cosTheta\_O \cdot \left(cosTheta\_i \cdot 0.5\right)}}
\end{array}
Initial program 98.7%
Taylor expanded in v around inf
associate-*r/N/A
lower-/.f32N/A
*-commutativeN/A
lower-*.f32N/A
lower-*.f3260.7
Applied rewrites60.7%
lift-*.f32N/A
lift-*.f32N/A
clear-numN/A
lower-/.f32N/A
lower-/.f3261.5
lift-*.f32N/A
lift-*.f32N/A
associate-*l*N/A
lower-*.f32N/A
lower-*.f3261.5
Applied rewrites61.5%
(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(v / Float32(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{v}{cosTheta\_i \cdot cosTheta\_O}}
\end{array}
Initial program 98.7%
Taylor expanded in v around inf
associate-*r/N/A
lower-/.f32N/A
*-commutativeN/A
lower-*.f32N/A
lower-*.f3260.7
Applied rewrites60.7%
lift-*.f32N/A
lift-*.f32N/A
*-commutativeN/A
lift-*.f32N/A
*-commutativeN/A
associate-/l*N/A
clear-numN/A
un-div-invN/A
lower-/.f32N/A
lower-/.f3261.4
Applied rewrites61.4%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (/ (* (* cosTheta_i cosTheta_O) 0.5) v))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return ((cosTheta_i * cosTheta_O) * 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_i * costheta_o) * 0.5e0) / v
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(Float32(cosTheta_i * cosTheta_O) * Float32(0.5)) / v) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = ((cosTheta_i * cosTheta_O) * single(0.5)) / v; end
\begin{array}{l}
\\
\frac{\left(cosTheta\_i \cdot cosTheta\_O\right) \cdot 0.5}{v}
\end{array}
Initial program 98.7%
Taylor expanded in v around inf
associate-*r/N/A
lower-/.f32N/A
*-commutativeN/A
lower-*.f32N/A
lower-*.f3260.7
Applied rewrites60.7%
Final simplification60.7%
(FPCore (cosTheta_i cosTheta_O sinTheta_i sinTheta_O v) :precision binary32 (* (* cosTheta_i cosTheta_O) (/ 0.5 v)))
float code(float cosTheta_i, float cosTheta_O, float sinTheta_i, float sinTheta_O, float v) {
return (cosTheta_i * cosTheta_O) * (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_i * costheta_o) * (0.5e0 / v)
end function
function code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) return Float32(Float32(cosTheta_i * cosTheta_O) * Float32(Float32(0.5) / v)) end
function tmp = code(cosTheta_i, cosTheta_O, sinTheta_i, sinTheta_O, v) tmp = (cosTheta_i * cosTheta_O) * (single(0.5) / v); end
\begin{array}{l}
\\
\left(cosTheta\_i \cdot cosTheta\_O\right) \cdot \frac{0.5}{v}
\end{array}
Initial program 98.7%
Taylor expanded in v around inf
associate-*r/N/A
lower-/.f32N/A
*-commutativeN/A
lower-*.f32N/A
lower-*.f3260.7
Applied rewrites60.7%
lift-*.f32N/A
associate-/l*N/A
lift-*.f32N/A
*-commutativeN/A
lift-*.f32N/A
*-commutativeN/A
clear-numN/A
div-invN/A
metadata-evalN/A
lift-*.f32N/A
lower-*.f32N/A
lift-*.f32N/A
metadata-evalN/A
div-invN/A
clear-numN/A
lower-/.f3260.6
Applied rewrites60.6%
Final simplification60.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(0.5) * Float32(Float32(cosTheta_i * cosTheta_O) / 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}
\\
0.5 \cdot \frac{cosTheta\_i \cdot cosTheta\_O}{v}
\end{array}
Initial program 98.7%
Taylor expanded in v around inf
associate-*r/N/A
lower-/.f32N/A
*-commutativeN/A
lower-*.f32N/A
lower-*.f3260.7
Applied rewrites60.7%
lift-*.f32N/A
lift-*.f32N/A
*-commutativeN/A
lift-*.f32N/A
*-commutativeN/A
associate-/l*N/A
lift-*.f32N/A
*-commutativeN/A
associate-*r/N/A
lift-/.f32N/A
lift-*.f32N/A
lower-*.f3260.6
lift-*.f32N/A
lift-/.f32N/A
associate-*r/N/A
*-commutativeN/A
lift-*.f32N/A
lift-/.f3260.6
Applied rewrites60.6%
herbie shell --seed 2024214
(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)))