Average Error: 15.3 → 0.4
Time: 13.8s
Precision: 64
\[r \cdot \frac{\sin b}{\cos \left(a + b\right)}\]
↓
\[\frac{r}{\frac{\cos a \cdot \cos b}{\sin b} - \sin a}\]
r \cdot \frac{\sin b}{\cos \left(a + b\right)}
↓
\frac{r}{\frac{\cos a \cdot \cos b}{\sin b} - \sin a}
double f(double r, double a, double b) {
        double r15964 = r;
        double r15965 = b;
        double r15966 = sin(r15965);
        double r15967 = a;
        double r15968 = r15967 + r15965;
        double r15969 = cos(r15968);
        double r15970 = r15966 / r15969;
        double r15971 = r15964 * r15970;
        return r15971;
}
↓
double f(double r, double a, double b) {
        double r15972 = r;
        double r15973 = a;
        double r15974 = cos(r15973);
        double r15975 = b;
        double r15976 = cos(r15975);
        double r15977 = r15974 * r15976;
        double r15978 = sin(r15975);
        double r15979 = r15977 / r15978;
        double r15980 = sin(r15973);
        double r15981 = r15979 - r15980;
        double r15982 = r15972 / r15981;
        return r15982;
}

Error

Bits error versus r

Bits error versus a

Bits error versus b

Try it out

Your Program's Arguments

Results

Enter valid numbers for all inputs

Derivation

  1. Initial program 15.3

    \[r \cdot \frac{\sin b}{\cos \left(a + b\right)}\]
  2. Using strategy rm

  3. Applied cos-sum0.3

    \[\leadsto r \cdot \frac{\sin b}{\color{blue}{\cos a \cdot \cos b - \sin a \cdot \sin b}}\]
  4. Using strategy rm

  5. Applied *-un-lft-identity0.3

    \[\leadsto \color{blue}{\left(1 \cdot r\right)} \cdot \frac{\sin b}{\cos a \cdot \cos b - \sin a \cdot \sin b}\]

  6. Applied associate-*l*0.3

    \[\leadsto \color{blue}{1 \cdot \left(r \cdot \frac{\sin b}{\cos a \cdot \cos b - \sin a \cdot \sin b}\right)}\]

  7. Simplified0.4

    \[\leadsto 1 \cdot \color{blue}{\frac{r}{\frac{\cos a \cdot \cos b}{\sin b} - \sin a}}\]

  8. Final simplification0.4

    \[\leadsto \frac{r}{\frac{\cos a \cdot \cos b}{\sin b} - \sin a}\]

Reproduce

herbie shell --seed 2020042 
(FPCore (r a b)
  :name "r*sin(b)/cos(a+b), B"
  :precision binary64
  (* r (/ (sin b) (cos (+ a b)))))