\[\frac{1 - \cos x}{{x}^2}\]
Test:
NMSE problem 3.4.1
Bits:
128 bits
Bits error versus x
Time: 13.9 s
Input Error: 31.4
Output Error: 0.3
Log: ⚲
Profile: 🕒
\(\begin{cases} \frac{1}{x} \cdot \frac{1 - \cos x}{x} & \text{when } x \le -0.0003019673949516488 \\ \left(\frac{1}{720} \cdot {x}^{4} + \frac{1}{2}\right) - \frac{1}{24} \cdot {x}^2 & \text{when } x \le 36050.53017192879 \\ \frac{1}{x} \cdot \frac{1 - \cos x}{x} & \text{otherwise} \end{cases}\)

    if x < -0.0003019673949516488 or 36050.53017192879 < x

    1. Started with
      \[\frac{1 - \cos x}{{x}^2}\]
      1.1
    2. Using strategy rm
      1.1
    3. Applied square-mult to get
      \[\frac{1 - \cos x}{\color{red}{{x}^2}} \leadsto \frac{1 - \cos x}{\color{blue}{x \cdot x}}\]
      1.1
    4. Applied *-un-lft-identity to get
      \[\frac{\color{red}{1 - \cos x}}{x \cdot x} \leadsto \frac{\color{blue}{1 \cdot \left(1 - \cos x\right)}}{x \cdot x}\]
      1.1
    5. Applied times-frac to get
      \[\color{red}{\frac{1 \cdot \left(1 - \cos x\right)}{x \cdot x}} \leadsto \color{blue}{\frac{1}{x} \cdot \frac{1 - \cos x}{x}}\]
      0.5

    if -0.0003019673949516488 < x < 36050.53017192879

    1. Started with
      \[\frac{1 - \cos x}{{x}^2}\]
      61.3
    2. Applied taylor to get
      \[\frac{1 - \cos x}{{x}^2} \leadsto \left(\frac{1}{720} \cdot {x}^{4} + \frac{1}{2}\right) - \frac{1}{24} \cdot {x}^2\]
      0.0
    3. Taylor expanded around 0 to get
      \[\color{red}{\left(\frac{1}{720} \cdot {x}^{4} + \frac{1}{2}\right) - \frac{1}{24} \cdot {x}^2} \leadsto \color{blue}{\left(\frac{1}{720} \cdot {x}^{4} + \frac{1}{2}\right) - \frac{1}{24} \cdot {x}^2}\]
      0.0
  1. Removed slow pow expressions

Original test:


(lambda ((x default))
  #:name "NMSE problem 3.4.1"
  (/ (- 1 (cos x)) (sqr x)))