\[\frac{r \cdot \sin b}{\cos \left(a + b\right)}\]
Test:
r*sin(b)/cos(a+b), A
Bits:
128 bits
Bits error versus r
Bits error versus a
Bits error versus b
Time: 13.0 s
Input Error: 15.1
Output Error: 0.3
Log: ⚲
Profile: 🕒
\(\frac{r}{1} \cdot \frac{\sin b}{\cos a \cdot \cos b - \sin a \cdot \sin b}\)
  1. Started with
    \[\frac{r \cdot \sin b}{\cos \left(a + b\right)}\]
    15.1
  2. Using strategy rm
    15.1
  3. Applied cos-sum to get
    \[\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
  4. Using strategy rm
    0.3
  5. Applied *-un-lft-identity to get
    \[\frac{r \cdot \sin b}{\color{red}{\cos a \cdot \cos b - \sin a \cdot \sin b}} \leadsto \frac{r \cdot \sin b}{\color{blue}{1 \cdot \left(\cos a \cdot \cos b - \sin a \cdot \sin b\right)}}\]
    0.3
  6. Applied times-frac to get
    \[\color{red}{\frac{r \cdot \sin b}{1 \cdot \left(\cos a \cdot \cos b - \sin a \cdot \sin b\right)}} \leadsto \color{blue}{\frac{r}{1} \cdot \frac{\sin b}{\cos a \cdot \cos b - \sin a \cdot \sin b}}\]
    0.3
  7. 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))))