{\left(a \cdot \sin \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2} + {\left(b \cdot \cos \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2}
\begin{array}{l}
t_0 := \sqrt[3]{angle} \cdot \sqrt[3]{angle}\\
{\left(a \cdot \sin \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2} + {\left(b \cdot \cos \left(t_0 \cdot \left(\pi \cdot \frac{\sqrt[3]{\sqrt[3]{angle} \cdot t_0}}{180}\right)\right)\right)}^{2}
\end{array}
(FPCore (a b angle) :precision binary64 (+ (pow (* a (sin (* (/ angle 180.0) PI))) 2.0) (pow (* b (cos (* (/ angle 180.0) PI))) 2.0)))
(FPCore (a b angle)
:precision binary64
(let* ((t_0 (* (cbrt angle) (cbrt angle))))
(+
(pow (* a (sin (* (/ angle 180.0) PI))) 2.0)
(pow
(* b (cos (* t_0 (* PI (/ (cbrt (* (cbrt angle) t_0)) 180.0)))))
2.0))))double code(double a, double b, double angle) {
return pow((a * sin((angle / 180.0) * ((double) M_PI))), 2.0) + pow((b * cos((angle / 180.0) * ((double) M_PI))), 2.0);
}
double code(double a, double b, double angle) {
double t_0 = cbrt(angle) * cbrt(angle);
return pow((a * sin((angle / 180.0) * ((double) M_PI))), 2.0) + pow((b * cos(t_0 * (((double) M_PI) * (cbrt(cbrt(angle) * t_0) / 180.0)))), 2.0);
}



Bits error versus a



Bits error versus b



Bits error versus angle
Results
Initial program 20.2
Applied *-un-lft-identity_binary6420.2
Applied add-cube-cbrt_binary6420.3
Applied times-frac_binary6420.3
Applied associate-*l*_binary6420.3
Applied add-cbrt-cube_binary6420.2
Final simplification20.2
herbie shell --seed 2022055
(FPCore (a b angle)
:name "ab-angle->ABCF A"
:precision binary64
(+ (pow (* a (sin (* (/ angle 180.0) PI))) 2.0) (pow (* b (cos (* (/ angle 180.0) PI))) 2.0)))