
(FPCore (cosTheta c)
:precision binary32
:pre (and (and (< 0.0 cosTheta) (< cosTheta 0.9999))
(and (< -1.0 c) (< c 1.0)))
(/
1.0
(+
(+ 1.0 c)
(*
(*
(/ 1.0 (sqrt PI))
(/ (sqrt (- (- 1.0 cosTheta) cosTheta)) cosTheta))
(exp (* (- cosTheta) cosTheta))))))float code(float cosTheta, float c) {
return 1.0f / ((1.0f + c) + (((1.0f / sqrtf(((float) M_PI))) * (sqrtf(((1.0f - cosTheta) - cosTheta)) / cosTheta)) * expf((-cosTheta * cosTheta))));
}
function code(cosTheta, c) return Float32(Float32(1.0) / Float32(Float32(Float32(1.0) + c) + Float32(Float32(Float32(Float32(1.0) / sqrt(Float32(pi))) * Float32(sqrt(Float32(Float32(Float32(1.0) - cosTheta) - cosTheta)) / cosTheta)) * exp(Float32(Float32(-cosTheta) * cosTheta))))) end
function tmp = code(cosTheta, c) tmp = single(1.0) / ((single(1.0) + c) + (((single(1.0) / sqrt(single(pi))) * (sqrt(((single(1.0) - cosTheta) - cosTheta)) / cosTheta)) * exp((-cosTheta * cosTheta)))); end
\frac{1}{\left(1 + c\right) + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot e^{\left(-cosTheta\right) \cdot cosTheta}}
Herbie found 14 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (cosTheta c)
:precision binary32
:pre (and (and (< 0.0 cosTheta) (< cosTheta 0.9999))
(and (< -1.0 c) (< c 1.0)))
(/
1.0
(+
(+ 1.0 c)
(*
(*
(/ 1.0 (sqrt PI))
(/ (sqrt (- (- 1.0 cosTheta) cosTheta)) cosTheta))
(exp (* (- cosTheta) cosTheta))))))float code(float cosTheta, float c) {
return 1.0f / ((1.0f + c) + (((1.0f / sqrtf(((float) M_PI))) * (sqrtf(((1.0f - cosTheta) - cosTheta)) / cosTheta)) * expf((-cosTheta * cosTheta))));
}
function code(cosTheta, c) return Float32(Float32(1.0) / Float32(Float32(Float32(1.0) + c) + Float32(Float32(Float32(Float32(1.0) / sqrt(Float32(pi))) * Float32(sqrt(Float32(Float32(Float32(1.0) - cosTheta) - cosTheta)) / cosTheta)) * exp(Float32(Float32(-cosTheta) * cosTheta))))) end
function tmp = code(cosTheta, c) tmp = single(1.0) / ((single(1.0) + c) + (((single(1.0) / sqrt(single(pi))) * (sqrt(((single(1.0) - cosTheta) - cosTheta)) / cosTheta)) * exp((-cosTheta * cosTheta)))); end
\frac{1}{\left(1 + c\right) + \left(\frac{1}{\sqrt{\pi}} \cdot \frac{\sqrt{\left(1 - cosTheta\right) - cosTheta}}{cosTheta}\right) \cdot e^{\left(-cosTheta\right) \cdot cosTheta}}
(FPCore (cosTheta c)
:precision binary32
:pre (and (and (< 0.0 cosTheta) (< cosTheta 0.9999))
(and (< -1.0 c) (< c 1.0)))
(/
1.7724539041519165
(fma
1.7724539041519165
(+ c 1.0)
(/
(sqrt (fma -2.0 cosTheta 1.0))
(* (exp (* cosTheta cosTheta)) cosTheta)))))float code(float cosTheta, float c) {
return 1.7724539041519165f / fmaf(1.7724539041519165f, (c + 1.0f), (sqrtf(fmaf(-2.0f, cosTheta, 1.0f)) / (expf((cosTheta * cosTheta)) * cosTheta)));
}
function code(cosTheta, c) return Float32(Float32(1.7724539041519165) / fma(Float32(1.7724539041519165), Float32(c + Float32(1.0)), Float32(sqrt(fma(Float32(-2.0), cosTheta, Float32(1.0))) / Float32(exp(Float32(cosTheta * cosTheta)) * cosTheta)))) end
\frac{1.7724539041519165}{\mathsf{fma}\left(1.7724539041519165, c + 1, \frac{\sqrt{\mathsf{fma}\left(-2, cosTheta, 1\right)}}{e^{cosTheta \cdot cosTheta} \cdot cosTheta}\right)}
Initial program 97.8%
Applied rewrites98.4%
Applied rewrites98.5%
Evaluated real constant98.5%
(FPCore (cosTheta c)
:precision binary32
:pre (and (and (< 0.0 cosTheta) (< cosTheta 0.9999))
(and (< -1.0 c) (< c 1.0)))
(/
1.0
(+
1.0
(fma
(/
(sqrt (fma -2.0 cosTheta 1.0))
(* (exp (* cosTheta cosTheta)) cosTheta))
0.564189612865448
c))))float code(float cosTheta, float c) {
return 1.0f / (1.0f + fmaf((sqrtf(fmaf(-2.0f, cosTheta, 1.0f)) / (expf((cosTheta * cosTheta)) * cosTheta)), 0.564189612865448f, c));
}
function code(cosTheta, c) return Float32(Float32(1.0) / Float32(Float32(1.0) + fma(Float32(sqrt(fma(Float32(-2.0), cosTheta, Float32(1.0))) / Float32(exp(Float32(cosTheta * cosTheta)) * cosTheta)), Float32(0.564189612865448), c))) end
\frac{1}{1 + \mathsf{fma}\left(\frac{\sqrt{\mathsf{fma}\left(-2, cosTheta, 1\right)}}{e^{cosTheta \cdot cosTheta} \cdot cosTheta}, 0.564189612865448, c\right)}
Initial program 97.8%
Evaluated real constant97.9%
Applied rewrites98.0%
(FPCore (cosTheta c)
:precision binary32
:pre (and (and (< 0.0 cosTheta) (< cosTheta 0.9999))
(and (< -1.0 c) (< c 1.0)))
(/
1.0
(+
(+ 1.0 c)
(/
(/
(+ 1.0 (* cosTheta (- (* cosTheta (- (* 0.5 cosTheta) 1.5)) 1.0)))
cosTheta)
(sqrt PI)))))float code(float cosTheta, float c) {
return 1.0f / ((1.0f + c) + (((1.0f + (cosTheta * ((cosTheta * ((0.5f * cosTheta) - 1.5f)) - 1.0f))) / cosTheta) / sqrtf(((float) M_PI))));
}
function code(cosTheta, c) return Float32(Float32(1.0) / Float32(Float32(Float32(1.0) + c) + Float32(Float32(Float32(Float32(1.0) + Float32(cosTheta * Float32(Float32(cosTheta * Float32(Float32(Float32(0.5) * cosTheta) - Float32(1.5))) - Float32(1.0)))) / cosTheta) / sqrt(Float32(pi))))) end
function tmp = code(cosTheta, c) tmp = single(1.0) / ((single(1.0) + c) + (((single(1.0) + (cosTheta * ((cosTheta * ((single(0.5) * cosTheta) - single(1.5))) - single(1.0)))) / cosTheta) / sqrt(single(pi)))); end
\frac{1}{\left(1 + c\right) + \frac{\frac{1 + cosTheta \cdot \left(cosTheta \cdot \left(0.5 \cdot cosTheta - 1.5\right) - 1\right)}{cosTheta}}{\sqrt{\pi}}}
Initial program 97.8%
Applied rewrites98.4%
Taylor expanded in cosTheta around 0
Applied rewrites97.4%
(FPCore (cosTheta c)
:precision binary32
:pre (and (and (< 0.0 cosTheta) (< cosTheta 0.9999))
(and (< -1.0 c) (< c 1.0)))
(/
1.0
(/
(fma
(fma
(fma 0.282094806432724 cosTheta -0.846284419298172)
cosTheta
(+ 0.435810387134552 c))
cosTheta
0.564189612865448)
cosTheta)))float code(float cosTheta, float c) {
return 1.0f / (fmaf(fmaf(fmaf(0.282094806432724f, cosTheta, -0.846284419298172f), cosTheta, (0.435810387134552f + c)), cosTheta, 0.564189612865448f) / cosTheta);
}
function code(cosTheta, c) return Float32(Float32(1.0) / Float32(fma(fma(fma(Float32(0.282094806432724), cosTheta, Float32(-0.846284419298172)), cosTheta, Float32(Float32(0.435810387134552) + c)), cosTheta, Float32(0.564189612865448)) / cosTheta)) end
\frac{1}{\frac{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.282094806432724, cosTheta, -0.846284419298172\right), cosTheta, 0.435810387134552 + c\right), cosTheta, 0.564189612865448\right)}{cosTheta}}
Initial program 97.8%
Evaluated real constant97.9%
Taylor expanded in cosTheta around 0
Applied rewrites97.0%
Applied rewrites97.0%
(FPCore (cosTheta c)
:precision binary32
:pre (and (and (< 0.0 cosTheta) (< cosTheta 0.9999))
(and (< -1.0 c) (< c 1.0)))
(/
1.0
(+
(fma
(fma 0.282094806432724 cosTheta -0.846284419298172)
cosTheta
(+ 0.435810387134552 c))
(/ 0.564189612865448 cosTheta))))float code(float cosTheta, float c) {
return 1.0f / (fmaf(fmaf(0.282094806432724f, cosTheta, -0.846284419298172f), cosTheta, (0.435810387134552f + c)) + (0.564189612865448f / cosTheta));
}
function code(cosTheta, c) return Float32(Float32(1.0) / Float32(fma(fma(Float32(0.282094806432724), cosTheta, Float32(-0.846284419298172)), cosTheta, Float32(Float32(0.435810387134552) + c)) + Float32(Float32(0.564189612865448) / cosTheta))) end
\frac{1}{\mathsf{fma}\left(\mathsf{fma}\left(0.282094806432724, cosTheta, -0.846284419298172\right), cosTheta, 0.435810387134552 + c\right) + \frac{0.564189612865448}{cosTheta}}
Initial program 97.8%
Evaluated real constant97.9%
Taylor expanded in cosTheta around 0
Applied rewrites97.0%
Applied rewrites97.1%
(FPCore (cosTheta c)
:precision binary32
:pre (and (and (< 0.0 cosTheta) (< cosTheta 0.9999))
(and (< -1.0 c) (< c 1.0)))
(/
1.0
(+
(fma
(fma 0.282094806432724 cosTheta -0.846284419298172)
cosTheta
0.435810387134552)
(/ 0.564189612865448 cosTheta))))float code(float cosTheta, float c) {
return 1.0f / (fmaf(fmaf(0.282094806432724f, cosTheta, -0.846284419298172f), cosTheta, 0.435810387134552f) + (0.564189612865448f / cosTheta));
}
function code(cosTheta, c) return Float32(Float32(1.0) / Float32(fma(fma(Float32(0.282094806432724), cosTheta, Float32(-0.846284419298172)), cosTheta, Float32(0.435810387134552)) + Float32(Float32(0.564189612865448) / cosTheta))) end
\frac{1}{\mathsf{fma}\left(\mathsf{fma}\left(0.282094806432724, cosTheta, -0.846284419298172\right), cosTheta, 0.435810387134552\right) + \frac{0.564189612865448}{cosTheta}}
Initial program 97.8%
Evaluated real constant97.9%
Taylor expanded in cosTheta around 0
Applied rewrites97.0%
Taylor expanded in c around 0
Applied rewrites96.8%
Applied rewrites96.8%
(FPCore (cosTheta c)
:precision binary32
:pre (and (and (< 0.0 cosTheta) (< cosTheta 0.9999))
(and (< -1.0 c) (< c 1.0)))
(/
1.0
(fma
-0.846284419298172
cosTheta
(+ (+ 0.435810387134552 c) (/ 0.564189612865448 cosTheta)))))float code(float cosTheta, float c) {
return 1.0f / fmaf(-0.846284419298172f, cosTheta, ((0.435810387134552f + c) + (0.564189612865448f / cosTheta)));
}
function code(cosTheta, c) return Float32(Float32(1.0) / fma(Float32(-0.846284419298172), cosTheta, Float32(Float32(Float32(0.435810387134552) + c) + Float32(Float32(0.564189612865448) / cosTheta)))) end
\frac{1}{\mathsf{fma}\left(-0.846284419298172, cosTheta, \left(0.435810387134552 + c\right) + \frac{0.564189612865448}{cosTheta}\right)}
Initial program 97.8%
Evaluated real constant97.9%
Taylor expanded in cosTheta around 0
Applied rewrites96.4%
Applied rewrites96.4%
Applied rewrites96.4%
(FPCore (cosTheta c)
:precision binary32
:pre (and (and (< 0.0 cosTheta) (< cosTheta 0.9999))
(and (< -1.0 c) (< c 1.0)))
(/
1.0
(+
c
(+
(fma -0.846284419298172 cosTheta 0.435810387134552)
(/ 0.564189612865448 cosTheta)))))float code(float cosTheta, float c) {
return 1.0f / (c + (fmaf(-0.846284419298172f, cosTheta, 0.435810387134552f) + (0.564189612865448f / cosTheta)));
}
function code(cosTheta, c) return Float32(Float32(1.0) / Float32(c + Float32(fma(Float32(-0.846284419298172), cosTheta, Float32(0.435810387134552)) + Float32(Float32(0.564189612865448) / cosTheta)))) end
\frac{1}{c + \left(\mathsf{fma}\left(-0.846284419298172, cosTheta, 0.435810387134552\right) + \frac{0.564189612865448}{cosTheta}\right)}
Initial program 97.8%
Evaluated real constant97.9%
Taylor expanded in cosTheta around 0
Applied rewrites96.4%
Taylor expanded in c around 0
Applied rewrites96.3%
Applied rewrites96.4%
(FPCore (cosTheta c)
:precision binary32
:pre (and (and (< 0.0 cosTheta) (< cosTheta 0.9999))
(and (< -1.0 c) (< c 1.0)))
(/
1.0
(+
(fma -0.846284419298172 cosTheta (+ 0.435810387134552 c))
(/ 0.564189612865448 cosTheta))))float code(float cosTheta, float c) {
return 1.0f / (fmaf(-0.846284419298172f, cosTheta, (0.435810387134552f + c)) + (0.564189612865448f / cosTheta));
}
function code(cosTheta, c) return Float32(Float32(1.0) / Float32(fma(Float32(-0.846284419298172), cosTheta, Float32(Float32(0.435810387134552) + c)) + Float32(Float32(0.564189612865448) / cosTheta))) end
\frac{1}{\mathsf{fma}\left(-0.846284419298172, cosTheta, 0.435810387134552 + c\right) + \frac{0.564189612865448}{cosTheta}}
Initial program 97.8%
Evaluated real constant97.9%
Taylor expanded in cosTheta around 0
Applied rewrites96.4%
Applied rewrites96.4%
(FPCore (cosTheta c)
:precision binary32
:pre (and (and (< 0.0 cosTheta) (< cosTheta 0.9999))
(and (< -1.0 c) (< c 1.0)))
(*
(fma
(fma 3.716276871595387 cosTheta -1.3691385682874957)
cosTheta
1.7724537588012759)
cosTheta))float code(float cosTheta, float c) {
return fmaf(fmaf(3.716276871595387f, cosTheta, -1.3691385682874957f), cosTheta, 1.7724537588012759f) * cosTheta;
}
function code(cosTheta, c) return Float32(fma(fma(Float32(3.716276871595387), cosTheta, Float32(-1.3691385682874957)), cosTheta, Float32(1.7724537588012759)) * cosTheta) end
\mathsf{fma}\left(\mathsf{fma}\left(3.716276871595387, cosTheta, -1.3691385682874957\right), cosTheta, 1.7724537588012759\right) \cdot cosTheta
Initial program 97.8%
Evaluated real constant97.9%
Taylor expanded in cosTheta around 0
Applied rewrites96.4%
Taylor expanded in c around 0
Applied rewrites96.3%
Applied rewrites96.3%
(FPCore (cosTheta c)
:precision binary32
:pre (and (and (< 0.0 cosTheta) (< cosTheta 0.9999))
(and (< -1.0 c) (< c 1.0)))
(fma
cosTheta
(* -1.3691385682874957 cosTheta)
(* 1.7724537588012759 cosTheta)))float code(float cosTheta, float c) {
return fmaf(cosTheta, (-1.3691385682874957f * cosTheta), (1.7724537588012759f * cosTheta));
}
function code(cosTheta, c) return fma(cosTheta, Float32(Float32(-1.3691385682874957) * cosTheta), Float32(Float32(1.7724537588012759) * cosTheta)) end
\mathsf{fma}\left(cosTheta, -1.3691385682874957 \cdot cosTheta, 1.7724537588012759 \cdot cosTheta\right)
Initial program 97.8%
Evaluated real constant97.9%
Taylor expanded in cosTheta around 0
Applied rewrites95.3%
Taylor expanded in c around 0
Applied rewrites95.1%
Applied rewrites95.2%
(FPCore (cosTheta c)
:precision binary32
:pre (and (and (< 0.0 cosTheta) (< cosTheta 0.9999))
(and (< -1.0 c) (< c 1.0)))
(* cosTheta (+ 1.7724537588012759 (* -1.3691385682874957 cosTheta))))float code(float cosTheta, float c) {
return cosTheta * (1.7724537588012759f + (-1.3691385682874957f * cosTheta));
}
real(4) function code(costheta, c)
use fmin_fmax_functions
real(4), intent (in) :: costheta
real(4), intent (in) :: c
code = costheta * (1.7724537588012759e0 + ((-1.3691385682874957e0) * costheta))
end function
function code(cosTheta, c) return Float32(cosTheta * Float32(Float32(1.7724537588012759) + Float32(Float32(-1.3691385682874957) * cosTheta))) end
function tmp = code(cosTheta, c) tmp = cosTheta * (single(1.7724537588012759) + (single(-1.3691385682874957) * cosTheta)); end
cosTheta \cdot \left(1.7724537588012759 + -1.3691385682874957 \cdot cosTheta\right)
Initial program 97.8%
Evaluated real constant97.9%
Taylor expanded in cosTheta around 0
Applied rewrites95.3%
Taylor expanded in c around 0
Applied rewrites95.1%
(FPCore (cosTheta c)
:precision binary32
:pre (and (and (< 0.0 cosTheta) (< cosTheta 0.9999))
(and (< -1.0 c) (< c 1.0)))
(* cosTheta 1.7724539041519165))float code(float cosTheta, float c) {
return cosTheta * 1.7724539041519165f;
}
real(4) function code(costheta, c)
use fmin_fmax_functions
real(4), intent (in) :: costheta
real(4), intent (in) :: c
code = costheta * 1.7724539041519165e0
end function
function code(cosTheta, c) return Float32(cosTheta * Float32(1.7724539041519165)) end
function tmp = code(cosTheta, c) tmp = cosTheta * single(1.7724539041519165); end
cosTheta \cdot 1.7724539041519165
Initial program 97.8%
Taylor expanded in cosTheta around 0
Applied rewrites92.7%
Evaluated real constant92.7%
(FPCore (cosTheta c)
:precision binary32
:pre (and (and (< 0.0 cosTheta) (< cosTheta 0.9999))
(and (< -1.0 c) (< c 1.0)))
(* 1.7724537588012759 cosTheta))float code(float cosTheta, float c) {
return 1.7724537588012759f * cosTheta;
}
real(4) function code(costheta, c)
use fmin_fmax_functions
real(4), intent (in) :: costheta
real(4), intent (in) :: c
code = 1.7724537588012759e0 * costheta
end function
function code(cosTheta, c) return Float32(Float32(1.7724537588012759) * cosTheta) end
function tmp = code(cosTheta, c) tmp = single(1.7724537588012759) * cosTheta; end
1.7724537588012759 \cdot cosTheta
Initial program 97.8%
Evaluated real constant97.9%
Taylor expanded in cosTheta around 0
Applied rewrites92.5%
herbie shell --seed 2026084
(FPCore (cosTheta c)
:name "Beckmann Sample, normalization factor"
:precision binary32
:pre (and (and (< 0.0 cosTheta) (< cosTheta 0.9999)) (and (< -1.0 c) (< c 1.0)))
(/ 1.0 (+ (+ 1.0 c) (* (* (/ 1.0 (sqrt PI)) (/ (sqrt (- (- 1.0 cosTheta) cosTheta)) cosTheta)) (exp (* (- cosTheta) cosTheta))))))