Toniolo and Linder, Equation (10-)

Average Error: 48.5 → 11.9

Time: 27.5s

Precision: 64

Math

\[\frac{2}{\left(\left(\frac{{t}^{3}}{\ell \cdot \ell} \cdot \sin k\right) \cdot \tan k\right) \cdot \left(\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) - 1\right)}\]

↓

\[\begin{array}{l} \mathbf{if}\;k \le -1.185645327564341143203632358110072828545 \cdot 10^{154} \lor \neg \left(k \le -1.476065503841205309663593145594549954724 \cdot 10^{-156} \lor \neg \left(k \le 8.218377655060683457062239770930352631713 \cdot 10^{-159} \lor \neg \left(k \le 1.122770281998579057887676424890933450481 \cdot 10^{142}\right)\right)\right):\\ \;\;\;\;2 \cdot \left({\left(\frac{\sqrt[3]{1} \cdot \sqrt[3]{1}}{{k}^{\left(\frac{2}{2}\right)}}\right)}^{1} \cdot \left({\left(\frac{\sqrt[3]{1}}{{k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}}\right)}^{1} \cdot \left(\frac{\cos k}{\sin k} \cdot \frac{\ell}{\frac{\sin k}{\ell}}\right)\right)\right)\\ \mathbf{else}:\\ \;\;\;\;2 \cdot \frac{\left({\left(\frac{1}{{k}^{2} \cdot {t}^{1}}\right)}^{1} \cdot \ell\right) \cdot \cos k}{\sin k \cdot \frac{\sin k}{\ell}}\\ \end{array}\]

C

double f(double t, double l, double k) {
        double r96025 = 2.0;
        double r96026 = t;
        double r96027 = 3.0;
        double r96028 = pow(r96026, r96027);
        double r96029 = l;
        double r96030 = r96029 * r96029;
        double r96031 = r96028 / r96030;
        double r96032 = k;
        double r96033 = sin(r96032);
        double r96034 = r96031 * r96033;
        double r96035 = tan(r96032);
        double r96036 = r96034 * r96035;
        double r96037 = 1.0;
        double r96038 = r96032 / r96026;
        double r96039 = pow(r96038, r96025);
        double r96040 = r96037 + r96039;
        double r96041 = r96040 - r96037;
        double r96042 = r96036 * r96041;
        double r96043 = r96025 / r96042;
        return r96043;
}

↓

double f(double t, double l, double k) {
        double r96044 = k;
        double r96045 = -1.1856453275643411e+154;
        bool r96046 = r96044 <= r96045;
        double r96047 = -1.4760655038412053e-156;
        bool r96048 = r96044 <= r96047;
        double r96049 = 8.218377655060683e-159;
        bool r96050 = r96044 <= r96049;
        double r96051 = 1.122770281998579e+142;
        bool r96052 = r96044 <= r96051;
        double r96053 = !r96052;
        bool r96054 = r96050 || r96053;
        double r96055 = !r96054;
        bool r96056 = r96048 || r96055;
        double r96057 = !r96056;
        bool r96058 = r96046 || r96057;
        double r96059 = 2.0;
        double r96060 = 1.0;
        double r96061 = cbrt(r96060);
        double r96062 = r96061 * r96061;
        double r96063 = 2.0;
        double r96064 = r96059 / r96063;
        double r96065 = pow(r96044, r96064);
        double r96066 = r96062 / r96065;
        double r96067 = 1.0;
        double r96068 = pow(r96066, r96067);
        double r96069 = t;
        double r96070 = pow(r96069, r96067);
        double r96071 = r96065 * r96070;
        double r96072 = r96061 / r96071;
        double r96073 = pow(r96072, r96067);
        double r96074 = cos(r96044);
        double r96075 = sin(r96044);
        double r96076 = r96074 / r96075;
        double r96077 = l;
        double r96078 = r96075 / r96077;
        double r96079 = r96077 / r96078;
        double r96080 = r96076 * r96079;
        double r96081 = r96073 * r96080;
        double r96082 = r96068 * r96081;
        double r96083 = r96059 * r96082;
        double r96084 = pow(r96044, r96059);
        double r96085 = r96084 * r96070;
        double r96086 = r96060 / r96085;
        double r96087 = pow(r96086, r96067);
        double r96088 = r96087 * r96077;
        double r96089 = r96088 * r96074;
        double r96090 = r96075 * r96078;
        double r96091 = r96089 / r96090;
        double r96092 = r96059 * r96091;
        double r96093 = r96058 ? r96083 : r96092;
        return r96093;
}

Error

Bits error versus t

Bits error versus l

Bits error versus k

Derivation

1. Split input into 2 regimes

2. if k < -1.1856453275643411e+154 or -1.4760655038412053e-156 < k < 8.218377655060683e-159 or 1.122770281998579e+142 < k

   1. Initial program 41.5

      \[\frac{2}{\left(\left(\frac{{t}^{3}}{\ell \cdot \ell} \cdot \sin k\right) \cdot \tan k\right) \cdot \left(\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) - 1\right)}\]

   2. Simplified 36.2

      \[\leadsto \color{blue}{\frac{2 \cdot \left(\ell \cdot \ell\right)}{\left({\left(\frac{k}{t}\right)}^{2} \cdot \left({t}^{3} \cdot \tan k\right)\right) \cdot \sin k}}\]

   3. Taylor expanded around inf 26.9

      \[\leadsto \color{blue}{2 \cdot \left({\left(\frac{1}{{k}^{2} \cdot {t}^{1}}\right)}^{1} \cdot \frac{\cos k \cdot {\ell}^{2}}{{\left(\sin k\right)}^{2}}\right)}\]
   4. Using strategy rm

   5. Applied sqr-pow 26.9

      \[\leadsto 2 \cdot \left({\left(\frac{1}{\color{blue}{\left({k}^{\left(\frac{2}{2}\right)} \cdot {k}^{\left(\frac{2}{2}\right)}\right)} \cdot {t}^{1}}\right)}^{1} \cdot \frac{\cos k \cdot {\ell}^{2}}{{\left(\sin k\right)}^{2}}\right)\]

   6. Applied associate-*l* 22.1

      \[\leadsto 2 \cdot \left({\left(\frac{1}{\color{blue}{{k}^{\left(\frac{2}{2}\right)} \cdot \left({k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}\right)}}\right)}^{1} \cdot \frac{\cos k \cdot {\ell}^{2}}{{\left(\sin k\right)}^{2}}\right)\]
   7. Using strategy rm

   8. Applied add-sqr-sqrt 42.8

      \[\leadsto 2 \cdot \left({\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)} \cdot \left({k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}\right)}\right)}^{1} \cdot \frac{\cos k \cdot {\ell}^{2}}{{\color{blue}{\left(\sqrt{\sin k} \cdot \sqrt{\sin k}\right)}}^{2}}\right)\]

   9. Applied unpow-prod-down 42.8

      \[\leadsto 2 \cdot \left({\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)} \cdot \left({k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}\right)}\right)}^{1} \cdot \frac{\cos k \cdot {\ell}^{2}}{\color{blue}{{\left(\sqrt{\sin k}\right)}^{2} \cdot {\left(\sqrt{\sin k}\right)}^{2}}}\right)\]

   10. Applied times-frac 42.6

       \[\leadsto 2 \cdot \left({\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)} \cdot \left({k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}\right)}\right)}^{1} \cdot \color{blue}{\left(\frac{\cos k}{{\left(\sqrt{\sin k}\right)}^{2}} \cdot \frac{{\ell}^{2}}{{\left(\sqrt{\sin k}\right)}^{2}}\right)}\right)\]

   11. Simplified 42.6

       \[\leadsto 2 \cdot \left({\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)} \cdot \left({k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}\right)}\right)}^{1} \cdot \left(\color{blue}{\frac{\cos k}{\sin k}} \cdot \frac{{\ell}^{2}}{{\left(\sqrt{\sin k}\right)}^{2}}\right)\right)\]

   12. Simplified 19.7

       \[\leadsto 2 \cdot \left({\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)} \cdot \left({k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}\right)}\right)}^{1} \cdot \left(\frac{\cos k}{\sin k} \cdot \color{blue}{\frac{\ell}{\frac{\sin k}{\ell}}}\right)\right)\]
   13. Using strategy rm

   14. Applied add-cube-cbrt 19.7

       \[\leadsto 2 \cdot \left({\left(\frac{\color{blue}{\left(\sqrt[3]{1} \cdot \sqrt[3]{1}\right) \cdot \sqrt[3]{1}}}{{k}^{\left(\frac{2}{2}\right)} \cdot \left({k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}\right)}\right)}^{1} \cdot \left(\frac{\cos k}{\sin k} \cdot \frac{\ell}{\frac{\sin k}{\ell}}\right)\right)\]

   15. Applied times-frac 19.6

       \[\leadsto 2 \cdot \left({\color{blue}{\left(\frac{\sqrt[3]{1} \cdot \sqrt[3]{1}}{{k}^{\left(\frac{2}{2}\right)}} \cdot \frac{\sqrt[3]{1}}{{k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}}\right)}}^{1} \cdot \left(\frac{\cos k}{\sin k} \cdot \frac{\ell}{\frac{\sin k}{\ell}}\right)\right)\]

   16. Applied unpow-prod-down 19.6

       \[\leadsto 2 \cdot \left(\color{blue}{\left({\left(\frac{\sqrt[3]{1} \cdot \sqrt[3]{1}}{{k}^{\left(\frac{2}{2}\right)}}\right)}^{1} \cdot {\left(\frac{\sqrt[3]{1}}{{k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}}\right)}^{1}\right)} \cdot \left(\frac{\cos k}{\sin k} \cdot \frac{\ell}{\frac{\sin k}{\ell}}\right)\right)\]

   17. Applied associate-*l* 16.5

       \[\leadsto 2 \cdot \color{blue}{\left({\left(\frac{\sqrt[3]{1} \cdot \sqrt[3]{1}}{{k}^{\left(\frac{2}{2}\right)}}\right)}^{1} \cdot \left({\left(\frac{\sqrt[3]{1}}{{k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}}\right)}^{1} \cdot \left(\frac{\cos k}{\sin k} \cdot \frac{\ell}{\frac{\sin k}{\ell}}\right)\right)\right)}\]

   if -1.1856453275643411e+154 < k < -1.4760655038412053e-156 or 8.218377655060683e-159 < k < 1.122770281998579e+142

   1. Initial program 54.3

      \[\frac{2}{\left(\left(\frac{{t}^{3}}{\ell \cdot \ell} \cdot \sin k\right) \cdot \tan k\right) \cdot \left(\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) - 1\right)}\]

   2. Simplified 43.8

      \[\leadsto \color{blue}{\frac{2 \cdot \left(\ell \cdot \ell\right)}{\left({\left(\frac{k}{t}\right)}^{2} \cdot \left({t}^{3} \cdot \tan k\right)\right) \cdot \sin k}}\]

   3. Taylor expanded around inf 18.0

      \[\leadsto \color{blue}{2 \cdot \left({\left(\frac{1}{{k}^{2} \cdot {t}^{1}}\right)}^{1} \cdot \frac{\cos k \cdot {\ell}^{2}}{{\left(\sin k\right)}^{2}}\right)}\]
   4. Using strategy rm

   5. Applied sqr-pow 18.0

      \[\leadsto 2 \cdot \left({\left(\frac{1}{\color{blue}{\left({k}^{\left(\frac{2}{2}\right)} \cdot {k}^{\left(\frac{2}{2}\right)}\right)} \cdot {t}^{1}}\right)}^{1} \cdot \frac{\cos k \cdot {\ell}^{2}}{{\left(\sin k\right)}^{2}}\right)\]

   6. Applied associate-*l* 18.0

      \[\leadsto 2 \cdot \left({\left(\frac{1}{\color{blue}{{k}^{\left(\frac{2}{2}\right)} \cdot \left({k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}\right)}}\right)}^{1} \cdot \frac{\cos k \cdot {\ell}^{2}}{{\left(\sin k\right)}^{2}}\right)\]
   7. Using strategy rm

   8. Applied add-sqr-sqrt 41.7

      \[\leadsto 2 \cdot \left({\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)} \cdot \left({k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}\right)}\right)}^{1} \cdot \frac{\cos k \cdot {\ell}^{2}}{{\color{blue}{\left(\sqrt{\sin k} \cdot \sqrt{\sin k}\right)}}^{2}}\right)\]

   9. Applied unpow-prod-down 41.7

      \[\leadsto 2 \cdot \left({\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)} \cdot \left({k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}\right)}\right)}^{1} \cdot \frac{\cos k \cdot {\ell}^{2}}{\color{blue}{{\left(\sqrt{\sin k}\right)}^{2} \cdot {\left(\sqrt{\sin k}\right)}^{2}}}\right)\]

   10. Applied times-frac 41.7

       \[\leadsto 2 \cdot \left({\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)} \cdot \left({k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}\right)}\right)}^{1} \cdot \color{blue}{\left(\frac{\cos k}{{\left(\sqrt{\sin k}\right)}^{2}} \cdot \frac{{\ell}^{2}}{{\left(\sqrt{\sin k}\right)}^{2}}\right)}\right)\]

   11. Simplified 41.6

       \[\leadsto 2 \cdot \left({\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)} \cdot \left({k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}\right)}\right)}^{1} \cdot \left(\color{blue}{\frac{\cos k}{\sin k}} \cdot \frac{{\ell}^{2}}{{\left(\sqrt{\sin k}\right)}^{2}}\right)\right)\]

   12. Simplified 16.2

       \[\leadsto 2 \cdot \left({\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)} \cdot \left({k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}\right)}\right)}^{1} \cdot \left(\frac{\cos k}{\sin k} \cdot \color{blue}{\frac{\ell}{\frac{\sin k}{\ell}}}\right)\right)\]
   13. Using strategy rm

   14. Applied frac-times 14.6

       \[\leadsto 2 \cdot \left({\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)} \cdot \left({k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}\right)}\right)}^{1} \cdot \color{blue}{\frac{\cos k \cdot \ell}{\sin k \cdot \frac{\sin k}{\ell}}}\right)\]

   15. Applied associate-*r/ 8.0

       \[\leadsto 2 \cdot \color{blue}{\frac{{\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)} \cdot \left({k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}\right)}\right)}^{1} \cdot \left(\cos k \cdot \ell\right)}{\sin k \cdot \frac{\sin k}{\ell}}}\]

   16. Simplified 8.0

       \[\leadsto 2 \cdot \frac{\color{blue}{\left({\left(\frac{1}{{k}^{2} \cdot {t}^{1}}\right)}^{1} \cdot \ell\right) \cdot \cos k}}{\sin k \cdot \frac{\sin k}{\ell}}\]
3. Recombined 2 regimes into one program.

4. Final simplification 11.9

   \[\leadsto \begin{array}{l} \mathbf{if}\;k \le -1.185645327564341143203632358110072828545 \cdot 10^{154} \lor \neg \left(k \le -1.476065503841205309663593145594549954724 \cdot 10^{-156} \lor \neg \left(k \le 8.218377655060683457062239770930352631713 \cdot 10^{-159} \lor \neg \left(k \le 1.122770281998579057887676424890933450481 \cdot 10^{142}\right)\right)\right):\\ \;\;\;\;2 \cdot \left({\left(\frac{\sqrt[3]{1} \cdot \sqrt[3]{1}}{{k}^{\left(\frac{2}{2}\right)}}\right)}^{1} \cdot \left({\left(\frac{\sqrt[3]{1}}{{k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}}\right)}^{1} \cdot \left(\frac{\cos k}{\sin k} \cdot \frac{\ell}{\frac{\sin k}{\ell}}\right)\right)\right)\\ \mathbf{else}:\\ \;\;\;\;2 \cdot \frac{\left({\left(\frac{1}{{k}^{2} \cdot {t}^{1}}\right)}^{1} \cdot \ell\right) \cdot \cos k}{\sin k \cdot \frac{\sin k}{\ell}}\\ \end{array}\]

Reproduce

herbie shell --seed 2019344 +o rules:numerics
(FPCore (t l k)
  :name "Toniolo and Linder, Equation (10-)"
  :precision binary64
  (/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))))