
(FPCore (cosTheta alpha)
:precision binary32
:pre (and (and (<= 0.0 cosTheta) (<= cosTheta 1.0))
(and (<= 0.0001 alpha) (<= alpha 1.0)))
(let* ((t_0 (- (* alpha alpha) 1.0)))
(/
t_0
(*
(* PI (log (* alpha alpha)))
(+ 1.0 (* (* t_0 cosTheta) cosTheta))))))float code(float cosTheta, float alpha) {
float t_0 = (alpha * alpha) - 1.0f;
return t_0 / ((((float) M_PI) * logf((alpha * alpha))) * (1.0f + ((t_0 * cosTheta) * cosTheta)));
}
function code(cosTheta, alpha) t_0 = Float32(Float32(alpha * alpha) - Float32(1.0)) return Float32(t_0 / Float32(Float32(Float32(pi) * log(Float32(alpha * alpha))) * Float32(Float32(1.0) + Float32(Float32(t_0 * cosTheta) * cosTheta)))) end
function tmp = code(cosTheta, alpha) t_0 = (alpha * alpha) - single(1.0); tmp = t_0 / ((single(pi) * log((alpha * alpha))) * (single(1.0) + ((t_0 * cosTheta) * cosTheta))); end
\begin{array}{l}
t_0 := \alpha \cdot \alpha - 1\\
\frac{t\_0}{\left(\pi \cdot \log \left(\alpha \cdot \alpha\right)\right) \cdot \left(1 + \left(t\_0 \cdot cosTheta\right) \cdot cosTheta\right)}
\end{array}
Herbie found 14 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (cosTheta alpha)
:precision binary32
:pre (and (and (<= 0.0 cosTheta) (<= cosTheta 1.0))
(and (<= 0.0001 alpha) (<= alpha 1.0)))
(let* ((t_0 (- (* alpha alpha) 1.0)))
(/
t_0
(*
(* PI (log (* alpha alpha)))
(+ 1.0 (* (* t_0 cosTheta) cosTheta))))))float code(float cosTheta, float alpha) {
float t_0 = (alpha * alpha) - 1.0f;
return t_0 / ((((float) M_PI) * logf((alpha * alpha))) * (1.0f + ((t_0 * cosTheta) * cosTheta)));
}
function code(cosTheta, alpha) t_0 = Float32(Float32(alpha * alpha) - Float32(1.0)) return Float32(t_0 / Float32(Float32(Float32(pi) * log(Float32(alpha * alpha))) * Float32(Float32(1.0) + Float32(Float32(t_0 * cosTheta) * cosTheta)))) end
function tmp = code(cosTheta, alpha) t_0 = (alpha * alpha) - single(1.0); tmp = t_0 / ((single(pi) * log((alpha * alpha))) * (single(1.0) + ((t_0 * cosTheta) * cosTheta))); end
\begin{array}{l}
t_0 := \alpha \cdot \alpha - 1\\
\frac{t\_0}{\left(\pi \cdot \log \left(\alpha \cdot \alpha\right)\right) \cdot \left(1 + \left(t\_0 \cdot cosTheta\right) \cdot cosTheta\right)}
\end{array}
(FPCore (cosTheta alpha)
:precision binary32
:pre (and (and (<= 0.0 cosTheta) (<= cosTheta 1.0))
(and (<= 0.0001 alpha) (<= alpha 1.0)))
(/
(- (* alpha alpha) 1.0)
(log
(pow
(* alpha alpha)
(* (fma (* cosTheta cosTheta) (fma alpha alpha -1.0) 1.0) PI)))))float code(float cosTheta, float alpha) {
return ((alpha * alpha) - 1.0f) / logf(powf((alpha * alpha), (fmaf((cosTheta * cosTheta), fmaf(alpha, alpha, -1.0f), 1.0f) * ((float) M_PI))));
}
function code(cosTheta, alpha) return Float32(Float32(Float32(alpha * alpha) - Float32(1.0)) / log((Float32(alpha * alpha) ^ Float32(fma(Float32(cosTheta * cosTheta), fma(alpha, alpha, Float32(-1.0)), Float32(1.0)) * Float32(pi))))) end
\frac{\alpha \cdot \alpha - 1}{\log \left({\left(\alpha \cdot \alpha\right)}^{\left(\mathsf{fma}\left(cosTheta \cdot cosTheta, \mathsf{fma}\left(\alpha, \alpha, -1\right), 1\right) \cdot \pi\right)}\right)}
Initial program 98.5%
Applied rewrites98.7%
(FPCore (cosTheta alpha)
:precision binary32
:pre (and (and (<= 0.0 cosTheta) (<= cosTheta 1.0))
(and (<= 0.0001 alpha) (<= alpha 1.0)))
(/
(/
(fma alpha alpha -1.0)
(*
(fma (* cosTheta cosTheta) (fma alpha alpha -1.0) 1.0)
(log (* alpha alpha))))
PI))float code(float cosTheta, float alpha) {
return (fmaf(alpha, alpha, -1.0f) / (fmaf((cosTheta * cosTheta), fmaf(alpha, alpha, -1.0f), 1.0f) * logf((alpha * alpha)))) / ((float) M_PI);
}
function code(cosTheta, alpha) return Float32(Float32(fma(alpha, alpha, Float32(-1.0)) / Float32(fma(Float32(cosTheta * cosTheta), fma(alpha, alpha, Float32(-1.0)), Float32(1.0)) * log(Float32(alpha * alpha)))) / Float32(pi)) end
\frac{\frac{\mathsf{fma}\left(\alpha, \alpha, -1\right)}{\mathsf{fma}\left(cosTheta \cdot cosTheta, \mathsf{fma}\left(\alpha, \alpha, -1\right), 1\right) \cdot \log \left(\alpha \cdot \alpha\right)}}{\pi}
Initial program 98.5%
Applied rewrites98.4%
(FPCore (cosTheta alpha)
:precision binary32
:pre (and (and (<= 0.0 cosTheta) (<= cosTheta 1.0))
(and (<= 0.0001 alpha) (<= alpha 1.0)))
(/
(- (* alpha alpha) 1.0)
(*
(* (fma (* cosTheta cosTheta) (fma alpha alpha -1.0) 1.0) PI)
(log (* alpha alpha)))))float code(float cosTheta, float alpha) {
return ((alpha * alpha) - 1.0f) / ((fmaf((cosTheta * cosTheta), fmaf(alpha, alpha, -1.0f), 1.0f) * ((float) M_PI)) * logf((alpha * alpha)));
}
function code(cosTheta, alpha) return Float32(Float32(Float32(alpha * alpha) - Float32(1.0)) / Float32(Float32(fma(Float32(cosTheta * cosTheta), fma(alpha, alpha, Float32(-1.0)), Float32(1.0)) * Float32(pi)) * log(Float32(alpha * alpha)))) end
\frac{\alpha \cdot \alpha - 1}{\left(\mathsf{fma}\left(cosTheta \cdot cosTheta, \mathsf{fma}\left(\alpha, \alpha, -1\right), 1\right) \cdot \pi\right) \cdot \log \left(\alpha \cdot \alpha\right)}
Initial program 98.5%
Applied rewrites98.7%
Applied rewrites98.5%
(FPCore (cosTheta alpha)
:precision binary32
:pre (and (and (<= 0.0 cosTheta) (<= cosTheta 1.0))
(and (<= 0.0001 alpha) (<= alpha 1.0)))
(*
(/
(fma alpha alpha -1.0)
(*
(fma (* cosTheta cosTheta) (fma alpha alpha -1.0) 1.0)
(* 2.0 (log alpha))))
0.31830987334251404))float code(float cosTheta, float alpha) {
return (fmaf(alpha, alpha, -1.0f) / (fmaf((cosTheta * cosTheta), fmaf(alpha, alpha, -1.0f), 1.0f) * (2.0f * logf(alpha)))) * 0.31830987334251404f;
}
function code(cosTheta, alpha) return Float32(Float32(fma(alpha, alpha, Float32(-1.0)) / Float32(fma(Float32(cosTheta * cosTheta), fma(alpha, alpha, Float32(-1.0)), Float32(1.0)) * Float32(Float32(2.0) * log(alpha)))) * Float32(0.31830987334251404)) end
\frac{\mathsf{fma}\left(\alpha, \alpha, -1\right)}{\mathsf{fma}\left(cosTheta \cdot cosTheta, \mathsf{fma}\left(\alpha, \alpha, -1\right), 1\right) \cdot \left(2 \cdot \log \alpha\right)} \cdot 0.31830987334251404
Initial program 98.5%
Applied rewrites98.2%
Evaluated real constant98.2%
Applied rewrites98.3%
(FPCore (cosTheta alpha)
:precision binary32
:pre (and (and (<= 0.0 cosTheta) (<= cosTheta 1.0))
(and (<= 0.0001 alpha) (<= alpha 1.0)))
(*
(/
(fma alpha alpha -1.0)
(*
(fma (* cosTheta cosTheta) (fma alpha alpha -1.0) 1.0)
(log (* alpha alpha))))
0.31830987334251404))float code(float cosTheta, float alpha) {
return (fmaf(alpha, alpha, -1.0f) / (fmaf((cosTheta * cosTheta), fmaf(alpha, alpha, -1.0f), 1.0f) * logf((alpha * alpha)))) * 0.31830987334251404f;
}
function code(cosTheta, alpha) return Float32(Float32(fma(alpha, alpha, Float32(-1.0)) / Float32(fma(Float32(cosTheta * cosTheta), fma(alpha, alpha, Float32(-1.0)), Float32(1.0)) * log(Float32(alpha * alpha)))) * Float32(0.31830987334251404)) end
\frac{\mathsf{fma}\left(\alpha, \alpha, -1\right)}{\mathsf{fma}\left(cosTheta \cdot cosTheta, \mathsf{fma}\left(\alpha, \alpha, -1\right), 1\right) \cdot \log \left(\alpha \cdot \alpha\right)} \cdot 0.31830987334251404
Initial program 98.5%
Applied rewrites98.2%
Evaluated real constant98.2%
(FPCore (cosTheta alpha)
:precision binary32
:pre (and (and (<= 0.0 cosTheta) (<= cosTheta 1.0))
(and (<= 0.0001 alpha) (<= alpha 1.0)))
(/
(/ (fma alpha alpha -1.0) (log (* alpha alpha)))
(* PI (fma (- cosTheta) cosTheta 1.0))))float code(float cosTheta, float alpha) {
return (fmaf(alpha, alpha, -1.0f) / logf((alpha * alpha))) / (((float) M_PI) * fmaf(-cosTheta, cosTheta, 1.0f));
}
function code(cosTheta, alpha) return Float32(Float32(fma(alpha, alpha, Float32(-1.0)) / log(Float32(alpha * alpha))) / Float32(Float32(pi) * fma(Float32(-cosTheta), cosTheta, Float32(1.0)))) end
\frac{\frac{\mathsf{fma}\left(\alpha, \alpha, -1\right)}{\log \left(\alpha \cdot \alpha\right)}}{\pi \cdot \mathsf{fma}\left(-cosTheta, cosTheta, 1\right)}
Initial program 98.5%
Taylor expanded in alpha around 0
Applied rewrites97.5%
Applied rewrites97.0%
Applied rewrites97.4%
(FPCore (cosTheta alpha)
:precision binary32
:pre (and (and (<= 0.0 cosTheta) (<= cosTheta 1.0))
(and (<= 0.0001 alpha) (<= alpha 1.0)))
(/
(fma alpha alpha -1.0)
(* (* (fma (- cosTheta) cosTheta 1.0) (log (* alpha alpha))) PI)))float code(float cosTheta, float alpha) {
return fmaf(alpha, alpha, -1.0f) / ((fmaf(-cosTheta, cosTheta, 1.0f) * logf((alpha * alpha))) * ((float) M_PI));
}
function code(cosTheta, alpha) return Float32(fma(alpha, alpha, Float32(-1.0)) / Float32(Float32(fma(Float32(-cosTheta), cosTheta, Float32(1.0)) * log(Float32(alpha * alpha))) * Float32(pi))) end
\frac{\mathsf{fma}\left(\alpha, \alpha, -1\right)}{\left(\mathsf{fma}\left(-cosTheta, cosTheta, 1\right) \cdot \log \left(\alpha \cdot \alpha\right)\right) \cdot \pi}
Initial program 98.5%
Taylor expanded in alpha around 0
Applied rewrites97.5%
Applied rewrites97.0%
Applied rewrites96.9%
Applied rewrites97.4%
(FPCore (cosTheta alpha)
:precision binary32
:pre (and (and (<= 0.0 cosTheta) (<= cosTheta 1.0))
(and (<= 0.0001 alpha) (<= alpha 1.0)))
(/
(- (* alpha alpha) 1.0)
(*
(fma (- cosTheta) cosTheta 1.0)
(* 6.2831854820251465 (log alpha)))))float code(float cosTheta, float alpha) {
return ((alpha * alpha) - 1.0f) / (fmaf(-cosTheta, cosTheta, 1.0f) * (6.2831854820251465f * logf(alpha)));
}
function code(cosTheta, alpha) return Float32(Float32(Float32(alpha * alpha) - Float32(1.0)) / Float32(fma(Float32(-cosTheta), cosTheta, Float32(1.0)) * Float32(Float32(6.2831854820251465) * log(alpha)))) end
\frac{\alpha \cdot \alpha - 1}{\mathsf{fma}\left(-cosTheta, cosTheta, 1\right) \cdot \left(6.2831854820251465 \cdot \log \alpha\right)}
Initial program 98.5%
Taylor expanded in alpha around 0
Applied rewrites97.5%
Taylor expanded in alpha around 0
Applied rewrites97.4%
Applied rewrites97.4%
Evaluated real constant97.4%
(FPCore (cosTheta alpha)
:precision binary32
:pre (and (and (<= 0.0 cosTheta) (<= cosTheta 1.0))
(and (<= 0.0001 alpha) (<= alpha 1.0)))
(/ (/ (- (fma alpha alpha -0.5) 0.5) (* 2.0 (log alpha))) PI))float code(float cosTheta, float alpha) {
return ((fmaf(alpha, alpha, -0.5f) - 0.5f) / (2.0f * logf(alpha))) / ((float) M_PI);
}
function code(cosTheta, alpha) return Float32(Float32(Float32(fma(alpha, alpha, Float32(-0.5)) - Float32(0.5)) / Float32(Float32(2.0) * log(alpha))) / Float32(pi)) end
\frac{\frac{\mathsf{fma}\left(\alpha, \alpha, -0.5\right) - 0.5}{2 \cdot \log \alpha}}{\pi}
Initial program 98.5%
Applied rewrites98.4%
Taylor expanded in cosTheta around 0
Applied rewrites95.1%
Applied rewrites95.2%
Applied rewrites95.2%
(FPCore (cosTheta alpha)
:precision binary32
:pre (and (and (<= 0.0 cosTheta) (<= cosTheta 1.0))
(and (<= 0.0001 alpha) (<= alpha 1.0)))
(/ (/ (fma alpha alpha -1.0) (* 2.0 (log alpha))) PI))float code(float cosTheta, float alpha) {
return (fmaf(alpha, alpha, -1.0f) / (2.0f * logf(alpha))) / ((float) M_PI);
}
function code(cosTheta, alpha) return Float32(Float32(fma(alpha, alpha, Float32(-1.0)) / Float32(Float32(2.0) * log(alpha))) / Float32(pi)) end
\frac{\frac{\mathsf{fma}\left(\alpha, \alpha, -1\right)}{2 \cdot \log \alpha}}{\pi}
Initial program 98.5%
Applied rewrites98.4%
Taylor expanded in cosTheta around 0
Applied rewrites95.1%
Applied rewrites95.2%
(FPCore (cosTheta alpha)
:precision binary32
:pre (and (and (<= 0.0 cosTheta) (<= cosTheta 1.0))
(and (<= 0.0001 alpha) (<= alpha 1.0)))
(/ (fma alpha alpha -1.0) (* (* PI 2.0) (log alpha))))float code(float cosTheta, float alpha) {
return fmaf(alpha, alpha, -1.0f) / ((((float) M_PI) * 2.0f) * logf(alpha));
}
function code(cosTheta, alpha) return Float32(fma(alpha, alpha, Float32(-1.0)) / Float32(Float32(Float32(pi) * Float32(2.0)) * log(alpha))) end
\frac{\mathsf{fma}\left(\alpha, \alpha, -1\right)}{\left(\pi \cdot 2\right) \cdot \log \alpha}
Initial program 98.5%
Applied rewrites98.0%
Taylor expanded in cosTheta around 0
Applied rewrites94.7%
Applied rewrites95.1%
Applied rewrites95.2%
(FPCore (cosTheta alpha)
:precision binary32
:pre (and (and (<= 0.0 cosTheta) (<= cosTheta 1.0))
(and (<= 0.0001 alpha) (<= alpha 1.0)))
(* (/ (fma alpha alpha -1.0) (* 2.0 (log alpha))) 0.31830987334251404))float code(float cosTheta, float alpha) {
return (fmaf(alpha, alpha, -1.0f) / (2.0f * logf(alpha))) * 0.31830987334251404f;
}
function code(cosTheta, alpha) return Float32(Float32(fma(alpha, alpha, Float32(-1.0)) / Float32(Float32(2.0) * log(alpha))) * Float32(0.31830987334251404)) end
\frac{\mathsf{fma}\left(\alpha, \alpha, -1\right)}{2 \cdot \log \alpha} \cdot 0.31830987334251404
Initial program 98.5%
Applied rewrites98.2%
Evaluated real constant98.2%
Applied rewrites98.3%
Taylor expanded in cosTheta around 0
Applied rewrites95.0%
(FPCore (cosTheta alpha)
:precision binary32
:pre (and (and (<= 0.0 cosTheta) (<= cosTheta 1.0))
(and (<= 0.0001 alpha) (<= alpha 1.0)))
(/ (/ 1.0 PI) (* -1.0 (* (log alpha) 2.0))))float code(float cosTheta, float alpha) {
return (1.0f / ((float) M_PI)) / (-1.0f * (logf(alpha) * 2.0f));
}
function code(cosTheta, alpha) return Float32(Float32(Float32(1.0) / Float32(pi)) / Float32(Float32(-1.0) * Float32(log(alpha) * Float32(2.0)))) end
function tmp = code(cosTheta, alpha) tmp = (single(1.0) / single(pi)) / (single(-1.0) * (log(alpha) * single(2.0))); end
\frac{\frac{1}{\pi}}{-1 \cdot \left(\log \alpha \cdot 2\right)}
Initial program 98.5%
Applied rewrites98.5%
Taylor expanded in alpha around 0
Applied rewrites66.7%
Taylor expanded in cosTheta around 0
Applied rewrites65.4%
Applied rewrites65.4%
(FPCore (cosTheta alpha)
:precision binary32
:pre (and (and (<= 0.0 cosTheta) (<= cosTheta 1.0))
(and (<= 0.0001 alpha) (<= alpha 1.0)))
(/ 0.31830987334251404 (* -1.0 (log (* alpha alpha)))))float code(float cosTheta, float alpha) {
return 0.31830987334251404f / (-1.0f * logf((alpha * alpha)));
}
real(4) function code(costheta, alpha)
use fmin_fmax_functions
real(4), intent (in) :: costheta
real(4), intent (in) :: alpha
code = 0.31830987334251404e0 / ((-1.0e0) * log((alpha * alpha)))
end function
function code(cosTheta, alpha) return Float32(Float32(0.31830987334251404) / Float32(Float32(-1.0) * log(Float32(alpha * alpha)))) end
function tmp = code(cosTheta, alpha) tmp = single(0.31830987334251404) / (single(-1.0) * log((alpha * alpha))); end
\frac{0.31830987334251404}{-1 \cdot \log \left(\alpha \cdot \alpha\right)}
Initial program 98.5%
Applied rewrites98.5%
Taylor expanded in alpha around 0
Applied rewrites66.7%
Taylor expanded in cosTheta around 0
Applied rewrites65.4%
Evaluated real constant65.4%
herbie shell --seed 2026070
(FPCore (cosTheta alpha)
:name "GTR1 distribution"
:precision binary32
:pre (and (and (<= 0.0 cosTheta) (<= cosTheta 1.0)) (and (<= 0.0001 alpha) (<= alpha 1.0)))
(/ (- (* alpha alpha) 1.0) (* (* PI (log (* alpha alpha))) (+ 1.0 (* (* (- (* alpha alpha) 1.0) cosTheta) cosTheta)))))