Hyperbolic arc-(co)secant

Average Error: 0.1 → 0.2

Time: 24.6s

Precision: 64

Math

\[\log \left(\frac{1}{x} + \frac{\sqrt{1 - x \cdot x}}{x}\right)\]

↓

\[\log \left(\frac{1}{\sqrt{x}} + \frac{\sqrt{1 - x \cdot x}}{\sqrt{x}}\right) + \log \left(\frac{1}{\sqrt{x}}\right)\]

C

double f(double x) {
        double r2573378 = 1.0;
        double r2573379 = x;
        double r2573380 = r2573378 / r2573379;
        double r2573381 = r2573379 * r2573379;
        double r2573382 = r2573378 - r2573381;
        double r2573383 = sqrt(r2573382);
        double r2573384 = r2573383 / r2573379;
        double r2573385 = r2573380 + r2573384;
        double r2573386 = log(r2573385);
        return r2573386;
}

↓

double f(double x) {
        double r2573387 = 1.0;
        double r2573388 = x;
        double r2573389 = sqrt(r2573388);
        double r2573390 = r2573387 / r2573389;
        double r2573391 = r2573388 * r2573388;
        double r2573392 = r2573387 - r2573391;
        double r2573393 = sqrt(r2573392);
        double r2573394 = r2573393 / r2573389;
        double r2573395 = r2573390 + r2573394;
        double r2573396 = log(r2573395);
        double r2573397 = log(r2573390);
        double r2573398 = r2573396 + r2573397;
        return r2573398;
}

Error

Bits error versus x

Derivation

1. Initial program 0.1

   \[\log \left(\frac{1}{x} + \frac{\sqrt{1 - x \cdot x}}{x}\right)\]
2. Using strategy rm

3. Applied add-sqr-sqrt 0.1

   \[\leadsto \log \left(\frac{1}{x} + \frac{\sqrt{1 - x \cdot x}}{\color{blue}{\sqrt{x} \cdot \sqrt{x}}}\right)\]

4. Applied *-un-lft-identity 0.1

   \[\leadsto \log \left(\frac{1}{x} + \frac{\color{blue}{1 \cdot \sqrt{1 - x \cdot x}}}{\sqrt{x} \cdot \sqrt{x}}\right)\]

5. Applied times-frac 0.1

   \[\leadsto \log \left(\frac{1}{x} + \color{blue}{\frac{1}{\sqrt{x}} \cdot \frac{\sqrt{1 - x \cdot x}}{\sqrt{x}}}\right)\]

6. Applied add-sqr-sqrt 0.1

   \[\leadsto \log \left(\frac{1}{\color{blue}{\sqrt{x} \cdot \sqrt{x}}} + \frac{1}{\sqrt{x}} \cdot \frac{\sqrt{1 - x \cdot x}}{\sqrt{x}}\right)\]

7. Applied *-un-lft-identity 0.1

   \[\leadsto \log \left(\frac{\color{blue}{1 \cdot 1}}{\sqrt{x} \cdot \sqrt{x}} + \frac{1}{\sqrt{x}} \cdot \frac{\sqrt{1 - x \cdot x}}{\sqrt{x}}\right)\]

8. Applied times-frac 0.1

   \[\leadsto \log \left(\color{blue}{\frac{1}{\sqrt{x}} \cdot \frac{1}{\sqrt{x}}} + \frac{1}{\sqrt{x}} \cdot \frac{\sqrt{1 - x \cdot x}}{\sqrt{x}}\right)\]

9. Applied distribute-lft-out 0.1

   \[\leadsto \log \color{blue}{\left(\frac{1}{\sqrt{x}} \cdot \left(\frac{1}{\sqrt{x}} + \frac{\sqrt{1 - x \cdot x}}{\sqrt{x}}\right)\right)}\]

10. Applied log-prod 0.2

    \[\leadsto \color{blue}{\log \left(\frac{1}{\sqrt{x}}\right) + \log \left(\frac{1}{\sqrt{x}} + \frac{\sqrt{1 - x \cdot x}}{\sqrt{x}}\right)}\]

11. Final simplification 0.2

    \[\leadsto \log \left(\frac{1}{\sqrt{x}} + \frac{\sqrt{1 - x \cdot x}}{\sqrt{x}}\right) + \log \left(\frac{1}{\sqrt{x}}\right)\]

Reproduce

herbie shell --seed 2019152 
(FPCore (x)
  :name "Hyperbolic arc-(co)secant"
  (log (+ (/ 1 x) (/ (sqrt (- 1 (* x x))) x))))