\[\frac{r \cdot \sin b}{\color{red}{\cos \left(a + b\right)}} \leadsto \frac{r \cdot \sin b}{\color{blue}{\cos a \cdot \cos b - \sin a \cdot \sin b}}\]
0.3
Using strategy rm
0.3
Applied add-log-exp to get
\[\frac{r \cdot \sin b}{\cos a \cdot \cos b - \color{red}{\sin a \cdot \sin b}} \leadsto \frac{r \cdot \sin b}{\cos a \cdot \cos b - \color{blue}{\log \left(e^{\sin a \cdot \sin b}\right)}}\]
0.4
Removed slow pow expressions
Original test:
(lambda ((r default) (a default) (b default))
#:name "r*sin(b)/cos(a+b), A"
(/ (* r (sin b)) (cos (+ a b))))