Average Error: 16.6 → 5.8
Time: 1.3m
Precision: 64
Internal Precision: 320
\[\left(\left(-2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\]
↓
\[\begin{array}{l} \mathbf{if}\;\left(\left(\left(J \cdot -2\right) \cdot \left(\sqrt[3]{\cos \left(\frac{K}{2}\right)} \cdot \sqrt[3]{\cos \left(\frac{K}{2}\right)}\right)\right) \cdot \left(\sqrt[3]{\sqrt[3]{\cos \left(\frac{K}{2}\right)} \cdot \sqrt[3]{\cos \left(\frac{K}{2}\right)}} \cdot \sqrt[3]{\sqrt[3]{\cos \left(\frac{K}{2}\right)}}\right)\right) \cdot \sqrt{1^2 + \left(\frac{\frac{\frac{U}{2}}{J}}{\cos \left(\frac{K}{2}\right)}\right)^2}^* = -\infty:\\ \;\;\;\;-2 \cdot \left(\frac{1}{2} \cdot U\right)\\ \mathbf{if}\;\left(\left(\left(J \cdot -2\right) \cdot \left(\sqrt[3]{\cos \left(\frac{K}{2}\right)} \cdot \sqrt[3]{\cos \left(\frac{K}{2}\right)}\right)\right) \cdot \left(\sqrt[3]{\sqrt[3]{\cos \left(\frac{K}{2}\right)} \cdot \sqrt[3]{\cos \left(\frac{K}{2}\right)}} \cdot \sqrt[3]{\sqrt[3]{\cos \left(\frac{K}{2}\right)}}\right)\right) \cdot \sqrt{1^2 + \left(\frac{\frac{\frac{U}{2}}{J}}{\cos \left(\frac{K}{2}\right)}\right)^2}^* \le +\infty:\\ \;\;\;\;\left(J \cdot -2\right) \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \sqrt{1^2 + \left(\frac{\frac{\frac{U}{2}}{J}}{\cos \left(\frac{K}{2}\right)}\right)^2}^*\right)\\ \mathbf{else}:\\ \;\;\;\;-2 \cdot \left(\frac{1}{2} \cdot U\right)\\ \end{array}\]

Error

Bits error versus J

Bits error versus K

Bits error versus U

Derivation

  1. Split input into 2 regimes

  2. if (* (* (* (* J -2) (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2))))) (* (cbrt (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2))))) (cbrt (cbrt (cos (/ K 2)))))) (hypot 1 (/ (/ (/ U 2) J) (cos (/ K 2))))) < -inf.0 or +inf.0 < (* (* (* (* J -2) (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2))))) (* (cbrt (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2))))) (cbrt (cbrt (cos (/ K 2)))))) (hypot 1 (/ (/ (/ U 2) J) (cos (/ K 2)))))

    1. Initial program 59.8

      \[\left(\left(-2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\]

    2. Applied simplify59.8

      \[\leadsto \color{blue}{\left(\left(J \cdot -2\right) \cdot \cos \left(\frac{K}{2}\right)\right) \cdot \sqrt{1^2 + \left(\frac{\frac{\frac{U}{2}}{J}}{\cos \left(\frac{K}{2}\right)}\right)^2}^*}\]
    3. Using strategy rm

    4. Applied associate-*l*59.8

      \[\leadsto \color{blue}{\left(J \cdot -2\right) \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \sqrt{1^2 + \left(\frac{\frac{\frac{U}{2}}{J}}{\cos \left(\frac{K}{2}\right)}\right)^2}^*\right)}\]

    5. Taylor expanded around inf 61.9

      \[\leadsto \left(J \cdot -2\right) \cdot \color{blue}{\left(\frac{1}{2} \cdot \frac{U}{J}\right)}\]

    6. Applied simplify32.9

      \[\leadsto \color{blue}{-2 \cdot \left(\frac{1}{2} \cdot U\right)}\]

    if -inf.0 < (* (* (* (* J -2) (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2))))) (* (cbrt (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2))))) (cbrt (cbrt (cos (/ K 2)))))) (hypot 1 (/ (/ (/ U 2) J) (cos (/ K 2))))) < +inf.0

    1. Initial program 13.6

      \[\left(\left(-2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)\right) \cdot \sqrt{1 + {\left(\frac{U}{\left(2 \cdot J\right) \cdot \cos \left(\frac{K}{2}\right)}\right)}^{2}}\]

    2. Applied simplify4.0

      \[\leadsto \color{blue}{\left(\left(J \cdot -2\right) \cdot \cos \left(\frac{K}{2}\right)\right) \cdot \sqrt{1^2 + \left(\frac{\frac{\frac{U}{2}}{J}}{\cos \left(\frac{K}{2}\right)}\right)^2}^*}\]
    3. Using strategy rm

    4. Applied associate-*l*4.0

      \[\leadsto \color{blue}{\left(J \cdot -2\right) \cdot \left(\cos \left(\frac{K}{2}\right) \cdot \sqrt{1^2 + \left(\frac{\frac{\frac{U}{2}}{J}}{\cos \left(\frac{K}{2}\right)}\right)^2}^*\right)}\]
  3. Recombined 2 regimes into one program.

Runtime

Time bar (total: 1.3m)Debug logProfile

herbie shell --seed '#(1072330854 3074818769 591214268 3603999196 3863745332 3332387116)' +o rules:numerics
(FPCore (J K U)
  :name "Maksimov and Kolovsky, Equation (3)"
  (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))