Average Error: 0.0 → 0.1
Time: 13.7s
Precision: 64
\[\frac{2}{e^{x} + e^{-x}}\]
\[\sqrt[3]{{\left(\frac{2}{e^{x} + e^{-x}}\right)}^{3}}\]
\frac{2}{e^{x} + e^{-x}}
\sqrt[3]{{\left(\frac{2}{e^{x} + e^{-x}}\right)}^{3}}
double f(double x) {
        double r62716 = 2.0;
        double r62717 = x;
        double r62718 = exp(r62717);
        double r62719 = -r62717;
        double r62720 = exp(r62719);
        double r62721 = r62718 + r62720;
        double r62722 = r62716 / r62721;
        return r62722;
}

double f(double x) {
        double r62723 = 2.0;
        double r62724 = x;
        double r62725 = exp(r62724);
        double r62726 = -r62724;
        double r62727 = exp(r62726);
        double r62728 = r62725 + r62727;
        double r62729 = r62723 / r62728;
        double r62730 = 3.0;
        double r62731 = pow(r62729, r62730);
        double r62732 = cbrt(r62731);
        return r62732;
}

Error

Bits error versus x

Try it out

Your Program's Arguments

Results

Enter valid numbers for all inputs

Derivation

  1. Initial program 0.0

    \[\frac{2}{e^{x} + e^{-x}}\]
  2. Using strategy rm
  3. Applied add-cbrt-cube0.1

    \[\leadsto \frac{2}{\color{blue}{\sqrt[3]{\left(\left(e^{x} + e^{-x}\right) \cdot \left(e^{x} + e^{-x}\right)\right) \cdot \left(e^{x} + e^{-x}\right)}}}\]
  4. Applied add-cbrt-cube0.1

    \[\leadsto \frac{\color{blue}{\sqrt[3]{\left(2 \cdot 2\right) \cdot 2}}}{\sqrt[3]{\left(\left(e^{x} + e^{-x}\right) \cdot \left(e^{x} + e^{-x}\right)\right) \cdot \left(e^{x} + e^{-x}\right)}}\]
  5. Applied cbrt-undiv0.1

    \[\leadsto \color{blue}{\sqrt[3]{\frac{\left(2 \cdot 2\right) \cdot 2}{\left(\left(e^{x} + e^{-x}\right) \cdot \left(e^{x} + e^{-x}\right)\right) \cdot \left(e^{x} + e^{-x}\right)}}}\]
  6. Simplified0.1

    \[\leadsto \sqrt[3]{\color{blue}{{\left(\frac{2}{e^{x} + e^{-x}}\right)}^{3}}}\]
  7. Final simplification0.1

    \[\leadsto \sqrt[3]{{\left(\frac{2}{e^{x} + e^{-x}}\right)}^{3}}\]

Reproduce

herbie shell --seed 2019325 +o rules:numerics
(FPCore (x)
  :name "Hyperbolic secant"
  :precision binary64
  (/ 2 (+ (exp x) (exp (- x)))))