Migdal et al, Equation (51)

Percentage Accurate: 99.4% → 99.5%
Time: 11.8s
Alternatives: 16
Speedup: 0.9×

Specification

?
\[\begin{array}{l} \\ \frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \end{array} \]
(FPCore (k n)
 :precision binary64
 (* (/ 1.0 (sqrt k)) (pow (* (* 2.0 (PI)) n) (/ (- 1.0 k) 2.0))))
\begin{array}{l}

\\
\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)}
\end{array}

Sampling outcomes in binary64 precision:

Local Percentage Accuracy vs ?

The average percentage accuracy by input value. Horizontal axis shows value of an input variable; the variable is choosen in the title. Vertical axis is accuracy; higher is better. Red represent the original program, while blue represents Herbie's suggestion. These can be toggled with buttons below the plot. The line is an average while dots represent individual samples.

Accuracy vs Speed?

Herbie found 16 alternatives:

AlternativeAccuracySpeedup
The accuracy (vertical axis) and speed (horizontal axis) of each alternatives. Up and to the right is better. The red square shows the initial program, and each blue circle shows an alternative.The line shows the best available speed-accuracy tradeoffs.

Initial Program: 99.4% accurate, 1.0× speedup?

\[\begin{array}{l} \\ \frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \end{array} \]
(FPCore (k n)
 :precision binary64
 (* (/ 1.0 (sqrt k)) (pow (* (* 2.0 (PI)) n) (/ (- 1.0 k) 2.0))))
\begin{array}{l}

\\
\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)}
\end{array}

Alternative 1: 99.5% accurate, 0.9× speedup?

\[\begin{array}{l} \\ \begin{array}{l} t_0 := \mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\\ \frac{\sqrt{t\_0}}{{t\_0}^{\left(\frac{k}{2}\right)} \cdot \sqrt{k}} \end{array} \end{array} \]
(FPCore (k n)
 :precision binary64
 (let* ((t_0 (* (PI) (* n 2.0))))
   (/ (sqrt t_0) (* (pow t_0 (/ k 2.0)) (sqrt k)))))
\begin{array}{l}

\\
\begin{array}{l}
t_0 := \mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\\
\frac{\sqrt{t\_0}}{{t\_0}^{\left(\frac{k}{2}\right)} \cdot \sqrt{k}}
\end{array}
\end{array}
Derivation
  1. Initial program 99.5%

    \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
  2. Add Preprocessing
  3. Step-by-step derivation
    1. lift-*.f64N/A

      \[\leadsto \frac{1}{\sqrt{k}} \cdot {\color{blue}{\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}}^{\left(\frac{1 - k}{2}\right)} \]
    2. lift-*.f64N/A

      \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\color{blue}{\left(2 \cdot \mathsf{PI}\left(\right)\right)} \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
    3. associate-*l*N/A

      \[\leadsto \frac{1}{\sqrt{k}} \cdot {\color{blue}{\left(2 \cdot \left(\mathsf{PI}\left(\right) \cdot n\right)\right)}}^{\left(\frac{1 - k}{2}\right)} \]
    4. count-2-revN/A

      \[\leadsto \frac{1}{\sqrt{k}} \cdot {\color{blue}{\left(\mathsf{PI}\left(\right) \cdot n + \mathsf{PI}\left(\right) \cdot n\right)}}^{\left(\frac{1 - k}{2}\right)} \]
    5. lift-PI.f64N/A

      \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\color{blue}{\mathsf{PI}\left(\right)} \cdot n + \mathsf{PI}\left(\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
    6. add-sqr-sqrtN/A

      \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\color{blue}{\left(\sqrt{\mathsf{PI}\left(\right)} \cdot \sqrt{\mathsf{PI}\left(\right)}\right)} \cdot n + \mathsf{PI}\left(\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
    7. associate-*l*N/A

      \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\color{blue}{\sqrt{\mathsf{PI}\left(\right)} \cdot \left(\sqrt{\mathsf{PI}\left(\right)} \cdot n\right)} + \mathsf{PI}\left(\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
    8. *-commutativeN/A

      \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\color{blue}{\left(\sqrt{\mathsf{PI}\left(\right)} \cdot n\right) \cdot \sqrt{\mathsf{PI}\left(\right)}} + \mathsf{PI}\left(\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
    9. lower-fma.f64N/A

      \[\leadsto \frac{1}{\sqrt{k}} \cdot {\color{blue}{\left(\mathsf{fma}\left(\sqrt{\mathsf{PI}\left(\right)} \cdot n, \sqrt{\mathsf{PI}\left(\right)}, \mathsf{PI}\left(\right) \cdot n\right)\right)}}^{\left(\frac{1 - k}{2}\right)} \]
    10. lower-*.f64N/A

      \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\mathsf{fma}\left(\color{blue}{\sqrt{\mathsf{PI}\left(\right)} \cdot n}, \sqrt{\mathsf{PI}\left(\right)}, \mathsf{PI}\left(\right) \cdot n\right)\right)}^{\left(\frac{1 - k}{2}\right)} \]
    11. lift-PI.f64N/A

      \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\mathsf{fma}\left(\sqrt{\color{blue}{\mathsf{PI}\left(\right)}} \cdot n, \sqrt{\mathsf{PI}\left(\right)}, \mathsf{PI}\left(\right) \cdot n\right)\right)}^{\left(\frac{1 - k}{2}\right)} \]
    12. lower-sqrt.f64N/A

      \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\mathsf{fma}\left(\color{blue}{\sqrt{\mathsf{PI}\left(\right)}} \cdot n, \sqrt{\mathsf{PI}\left(\right)}, \mathsf{PI}\left(\right) \cdot n\right)\right)}^{\left(\frac{1 - k}{2}\right)} \]
    13. lift-PI.f64N/A

      \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\mathsf{fma}\left(\sqrt{\mathsf{PI}\left(\right)} \cdot n, \sqrt{\color{blue}{\mathsf{PI}\left(\right)}}, \mathsf{PI}\left(\right) \cdot n\right)\right)}^{\left(\frac{1 - k}{2}\right)} \]
    14. lower-sqrt.f64N/A

      \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\mathsf{fma}\left(\sqrt{\mathsf{PI}\left(\right)} \cdot n, \color{blue}{\sqrt{\mathsf{PI}\left(\right)}}, \mathsf{PI}\left(\right) \cdot n\right)\right)}^{\left(\frac{1 - k}{2}\right)} \]
    15. *-commutativeN/A

      \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\mathsf{fma}\left(\sqrt{\mathsf{PI}\left(\right)} \cdot n, \sqrt{\mathsf{PI}\left(\right)}, \color{blue}{n \cdot \mathsf{PI}\left(\right)}\right)\right)}^{\left(\frac{1 - k}{2}\right)} \]
    16. lower-*.f6499.5

      \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\mathsf{fma}\left(\sqrt{\mathsf{PI}\left(\right)} \cdot n, \sqrt{\mathsf{PI}\left(\right)}, \color{blue}{n \cdot \mathsf{PI}\left(\right)}\right)\right)}^{\left(\frac{1 - k}{2}\right)} \]
  4. Applied rewrites99.5%

    \[\leadsto \frac{1}{\sqrt{k}} \cdot {\color{blue}{\left(\mathsf{fma}\left(\sqrt{\mathsf{PI}\left(\right)} \cdot n, \sqrt{\mathsf{PI}\left(\right)}, n \cdot \mathsf{PI}\left(\right)\right)\right)}}^{\left(\frac{1 - k}{2}\right)} \]
  5. Applied rewrites99.7%

    \[\leadsto \color{blue}{\frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)} \cdot 1}{{\left(\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\right)}^{\left(\frac{k}{2}\right)} \cdot \sqrt{k}}} \]
  6. Final simplification99.7%

    \[\leadsto \frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{{\left(\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\right)}^{\left(\frac{k}{2}\right)} \cdot \sqrt{k}} \]
  7. Add Preprocessing

Alternative 2: 58.5% accurate, 0.3× speedup?

\[\begin{array}{l} \\ \begin{array}{l} t_0 := \frac{n}{k} \cdot 2\\ t_1 := {\left(\sqrt{k}\right)}^{-1} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)}\\ t_2 := n \cdot \mathsf{PI}\left(\right)\\ \mathbf{if}\;t\_1 \leq 0:\\ \;\;\;\;{\left(t\_0 \cdot t\_0\right)}^{0.25}\\ \mathbf{elif}\;t\_1 \leq 10^{+273}:\\ \;\;\;\;\frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{\sqrt{k}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(\sqrt{\sqrt{t\_2}} \cdot \sqrt{\sqrt{k \cdot \left(t\_2 \cdot k\right)}}\right) \cdot \sqrt{2}}{k}\\ \end{array} \end{array} \]
(FPCore (k n)
 :precision binary64
 (let* ((t_0 (* (/ n k) 2.0))
        (t_1
         (* (pow (sqrt k) -1.0) (pow (* (* 2.0 (PI)) n) (/ (- 1.0 k) 2.0))))
        (t_2 (* n (PI))))
   (if (<= t_1 0.0)
     (pow (* t_0 t_0) 0.25)
     (if (<= t_1 1e+273)
       (/ (sqrt (* (PI) (* n 2.0))) (sqrt k))
       (/
        (* (* (sqrt (sqrt t_2)) (sqrt (sqrt (* k (* t_2 k))))) (sqrt 2.0))
        k)))))
\begin{array}{l}

\\
\begin{array}{l}
t_0 := \frac{n}{k} \cdot 2\\
t_1 := {\left(\sqrt{k}\right)}^{-1} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)}\\
t_2 := n \cdot \mathsf{PI}\left(\right)\\
\mathbf{if}\;t\_1 \leq 0:\\
\;\;\;\;{\left(t\_0 \cdot t\_0\right)}^{0.25}\\

\mathbf{elif}\;t\_1 \leq 10^{+273}:\\
\;\;\;\;\frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{\sqrt{k}}\\

\mathbf{else}:\\
\;\;\;\;\frac{\left(\sqrt{\sqrt{t\_2}} \cdot \sqrt{\sqrt{k \cdot \left(t\_2 \cdot k\right)}}\right) \cdot \sqrt{2}}{k}\\


\end{array}
\end{array}
Derivation
  1. Split input into 3 regimes
  2. if (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 k)) (pow.f64 (*.f64 (*.f64 #s(literal 2 binary64) (PI.f64)) n) (/.f64 (-.f64 #s(literal 1 binary64) k) #s(literal 2 binary64)))) < 0.0

    1. Initial program 100.0%

      \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
    2. Add Preprocessing
    3. Taylor expanded in k around 0

      \[\leadsto \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \cdot \sqrt{2}} \]
    4. Step-by-step derivation
      1. *-commutativeN/A

        \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
      2. lower-*.f64N/A

        \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
      3. lower-sqrt.f64N/A

        \[\leadsto \color{blue}{\sqrt{2}} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \]
      4. lower-sqrt.f64N/A

        \[\leadsto \sqrt{2} \cdot \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
      5. lower-/.f64N/A

        \[\leadsto \sqrt{2} \cdot \sqrt{\color{blue}{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
      6. *-commutativeN/A

        \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
      7. lower-*.f64N/A

        \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
      8. lower-PI.f643.2

        \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right)} \cdot n}{k}} \]
    5. Applied rewrites3.2%

      \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k}}} \]
    6. Step-by-step derivation
      1. Applied rewrites3.2%

        \[\leadsto \color{blue}{\sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k} \cdot 2}} \]
      2. Step-by-step derivation
        1. Applied rewrites3.2%

          \[\leadsto \sqrt{\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot \frac{n}{k}} \]
        2. Applied rewrites20.3%

          \[\leadsto {\left(\left(\frac{n}{k} \cdot 2\right) \cdot \left(\frac{n}{k} \cdot 2\right)\right)}^{\color{blue}{0.25}} \]

        if 0.0 < (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 k)) (pow.f64 (*.f64 (*.f64 #s(literal 2 binary64) (PI.f64)) n) (/.f64 (-.f64 #s(literal 1 binary64) k) #s(literal 2 binary64)))) < 9.99999999999999945e272

        1. Initial program 99.0%

          \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
        2. Add Preprocessing
        3. Taylor expanded in k around 0

          \[\leadsto \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \cdot \sqrt{2}} \]
        4. Step-by-step derivation
          1. *-commutativeN/A

            \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
          2. lower-*.f64N/A

            \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
          3. lower-sqrt.f64N/A

            \[\leadsto \color{blue}{\sqrt{2}} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \]
          4. lower-sqrt.f64N/A

            \[\leadsto \sqrt{2} \cdot \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
          5. lower-/.f64N/A

            \[\leadsto \sqrt{2} \cdot \sqrt{\color{blue}{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
          6. *-commutativeN/A

            \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
          7. lower-*.f64N/A

            \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
          8. lower-PI.f6474.3

            \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right)} \cdot n}{k}} \]
        5. Applied rewrites74.3%

          \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k}}} \]
        6. Step-by-step derivation
          1. Applied rewrites95.9%

            \[\leadsto \frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{\color{blue}{\sqrt{k}}} \]

          if 9.99999999999999945e272 < (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 k)) (pow.f64 (*.f64 (*.f64 #s(literal 2 binary64) (PI.f64)) n) (/.f64 (-.f64 #s(literal 1 binary64) k) #s(literal 2 binary64))))

          1. Initial program 100.0%

            \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
          2. Add Preprocessing
          3. Taylor expanded in k around 0

            \[\leadsto \color{blue}{\frac{\frac{-1}{2} \cdot \left(\sqrt{{k}^{3} \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)} \cdot \left(\log \left(2 \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)\right) \cdot \sqrt{2}\right)\right) + \sqrt{k \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)} \cdot \sqrt{2}}{k}} \]
          4. Step-by-step derivation
            1. lower-/.f64N/A

              \[\leadsto \color{blue}{\frac{\frac{-1}{2} \cdot \left(\sqrt{{k}^{3} \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)} \cdot \left(\log \left(2 \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)\right) \cdot \sqrt{2}\right)\right) + \sqrt{k \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)} \cdot \sqrt{2}}{k}} \]
          5. Applied rewrites63.6%

            \[\leadsto \color{blue}{\frac{\sqrt{2} \cdot \mathsf{fma}\left(\log \left(\left(2 \cdot n\right) \cdot \mathsf{PI}\left(\right)\right) \cdot \sqrt{\left({k}^{3} \cdot \mathsf{PI}\left(\right)\right) \cdot n}, -0.5, \sqrt{\left(\mathsf{PI}\left(\right) \cdot n\right) \cdot k}\right)}{k}} \]
          6. Taylor expanded in k around 0

            \[\leadsto \frac{\sqrt{k \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)} \cdot \sqrt{2}}{k} \]
          7. Step-by-step derivation
            1. Applied rewrites2.2%

              \[\leadsto \frac{\sqrt{\left(n \cdot \mathsf{PI}\left(\right)\right) \cdot k} \cdot \sqrt{2}}{k} \]
            2. Step-by-step derivation
              1. Applied rewrites25.4%

                \[\leadsto \frac{\left(\sqrt{\sqrt{n \cdot \mathsf{PI}\left(\right)}} \cdot \sqrt{\sqrt{k \cdot \left(\left(n \cdot \mathsf{PI}\left(\right)\right) \cdot k\right)}}\right) \cdot \sqrt{2}}{k} \]
            3. Recombined 3 regimes into one program.
            4. Final simplification56.3%

              \[\leadsto \begin{array}{l} \mathbf{if}\;{\left(\sqrt{k}\right)}^{-1} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \leq 0:\\ \;\;\;\;{\left(\left(\frac{n}{k} \cdot 2\right) \cdot \left(\frac{n}{k} \cdot 2\right)\right)}^{0.25}\\ \mathbf{elif}\;{\left(\sqrt{k}\right)}^{-1} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \leq 10^{+273}:\\ \;\;\;\;\frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{\sqrt{k}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(\sqrt{\sqrt{n \cdot \mathsf{PI}\left(\right)}} \cdot \sqrt{\sqrt{k \cdot \left(\left(n \cdot \mathsf{PI}\left(\right)\right) \cdot k\right)}}\right) \cdot \sqrt{2}}{k}\\ \end{array} \]
            5. Add Preprocessing

            Alternative 3: 58.6% accurate, 0.3× speedup?

            \[\begin{array}{l} \\ \begin{array}{l} t_0 := {\left(\sqrt{k}\right)}^{-1} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)}\\ t_1 := n \cdot \mathsf{PI}\left(\right)\\ t_2 := t\_1 \cdot k\\ \mathbf{if}\;t\_0 \leq 0:\\ \;\;\;\;\sqrt{\frac{\mathsf{fma}\left(k \cdot n, \mathsf{PI}\left(\right), t\_2\right)}{k \cdot k}}\\ \mathbf{elif}\;t\_0 \leq 10^{+273}:\\ \;\;\;\;\frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{\sqrt{k}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(\sqrt{\sqrt{t\_1}} \cdot \sqrt{\sqrt{k \cdot t\_2}}\right) \cdot \sqrt{2}}{k}\\ \end{array} \end{array} \]
            (FPCore (k n)
             :precision binary64
             (let* ((t_0
                     (* (pow (sqrt k) -1.0) (pow (* (* 2.0 (PI)) n) (/ (- 1.0 k) 2.0))))
                    (t_1 (* n (PI)))
                    (t_2 (* t_1 k)))
               (if (<= t_0 0.0)
                 (sqrt (/ (fma (* k n) (PI) t_2) (* k k)))
                 (if (<= t_0 1e+273)
                   (/ (sqrt (* (PI) (* n 2.0))) (sqrt k))
                   (/ (* (* (sqrt (sqrt t_1)) (sqrt (sqrt (* k t_2)))) (sqrt 2.0)) k)))))
            \begin{array}{l}
            
            \\
            \begin{array}{l}
            t_0 := {\left(\sqrt{k}\right)}^{-1} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)}\\
            t_1 := n \cdot \mathsf{PI}\left(\right)\\
            t_2 := t\_1 \cdot k\\
            \mathbf{if}\;t\_0 \leq 0:\\
            \;\;\;\;\sqrt{\frac{\mathsf{fma}\left(k \cdot n, \mathsf{PI}\left(\right), t\_2\right)}{k \cdot k}}\\
            
            \mathbf{elif}\;t\_0 \leq 10^{+273}:\\
            \;\;\;\;\frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{\sqrt{k}}\\
            
            \mathbf{else}:\\
            \;\;\;\;\frac{\left(\sqrt{\sqrt{t\_1}} \cdot \sqrt{\sqrt{k \cdot t\_2}}\right) \cdot \sqrt{2}}{k}\\
            
            
            \end{array}
            \end{array}
            
            Derivation
            1. Split input into 3 regimes
            2. if (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 k)) (pow.f64 (*.f64 (*.f64 #s(literal 2 binary64) (PI.f64)) n) (/.f64 (-.f64 #s(literal 1 binary64) k) #s(literal 2 binary64)))) < 0.0

              1. Initial program 100.0%

                \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
              2. Add Preprocessing
              3. Taylor expanded in k around 0

                \[\leadsto \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \cdot \sqrt{2}} \]
              4. Step-by-step derivation
                1. *-commutativeN/A

                  \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                2. lower-*.f64N/A

                  \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                3. lower-sqrt.f64N/A

                  \[\leadsto \color{blue}{\sqrt{2}} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \]
                4. lower-sqrt.f64N/A

                  \[\leadsto \sqrt{2} \cdot \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                5. lower-/.f64N/A

                  \[\leadsto \sqrt{2} \cdot \sqrt{\color{blue}{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                6. *-commutativeN/A

                  \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                7. lower-*.f64N/A

                  \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                8. lower-PI.f643.2

                  \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right)} \cdot n}{k}} \]
              5. Applied rewrites3.2%

                \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k}}} \]
              6. Step-by-step derivation
                1. Applied rewrites3.2%

                  \[\leadsto \color{blue}{\sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k} \cdot 2}} \]
                2. Step-by-step derivation
                  1. Applied rewrites10.0%

                    \[\leadsto \sqrt{\frac{\mathsf{fma}\left(k \cdot n, \mathsf{PI}\left(\right), \left(n \cdot \mathsf{PI}\left(\right)\right) \cdot k\right)}{k \cdot k}} \]

                  if 0.0 < (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 k)) (pow.f64 (*.f64 (*.f64 #s(literal 2 binary64) (PI.f64)) n) (/.f64 (-.f64 #s(literal 1 binary64) k) #s(literal 2 binary64)))) < 9.99999999999999945e272

                  1. Initial program 99.0%

                    \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                  2. Add Preprocessing
                  3. Taylor expanded in k around 0

                    \[\leadsto \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \cdot \sqrt{2}} \]
                  4. Step-by-step derivation
                    1. *-commutativeN/A

                      \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                    2. lower-*.f64N/A

                      \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                    3. lower-sqrt.f64N/A

                      \[\leadsto \color{blue}{\sqrt{2}} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \]
                    4. lower-sqrt.f64N/A

                      \[\leadsto \sqrt{2} \cdot \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                    5. lower-/.f64N/A

                      \[\leadsto \sqrt{2} \cdot \sqrt{\color{blue}{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                    6. *-commutativeN/A

                      \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                    7. lower-*.f64N/A

                      \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                    8. lower-PI.f6474.3

                      \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right)} \cdot n}{k}} \]
                  5. Applied rewrites74.3%

                    \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k}}} \]
                  6. Step-by-step derivation
                    1. Applied rewrites95.9%

                      \[\leadsto \frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{\color{blue}{\sqrt{k}}} \]

                    if 9.99999999999999945e272 < (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 k)) (pow.f64 (*.f64 (*.f64 #s(literal 2 binary64) (PI.f64)) n) (/.f64 (-.f64 #s(literal 1 binary64) k) #s(literal 2 binary64))))

                    1. Initial program 100.0%

                      \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                    2. Add Preprocessing
                    3. Taylor expanded in k around 0

                      \[\leadsto \color{blue}{\frac{\frac{-1}{2} \cdot \left(\sqrt{{k}^{3} \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)} \cdot \left(\log \left(2 \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)\right) \cdot \sqrt{2}\right)\right) + \sqrt{k \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)} \cdot \sqrt{2}}{k}} \]
                    4. Step-by-step derivation
                      1. lower-/.f64N/A

                        \[\leadsto \color{blue}{\frac{\frac{-1}{2} \cdot \left(\sqrt{{k}^{3} \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)} \cdot \left(\log \left(2 \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)\right) \cdot \sqrt{2}\right)\right) + \sqrt{k \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)} \cdot \sqrt{2}}{k}} \]
                    5. Applied rewrites63.6%

                      \[\leadsto \color{blue}{\frac{\sqrt{2} \cdot \mathsf{fma}\left(\log \left(\left(2 \cdot n\right) \cdot \mathsf{PI}\left(\right)\right) \cdot \sqrt{\left({k}^{3} \cdot \mathsf{PI}\left(\right)\right) \cdot n}, -0.5, \sqrt{\left(\mathsf{PI}\left(\right) \cdot n\right) \cdot k}\right)}{k}} \]
                    6. Taylor expanded in k around 0

                      \[\leadsto \frac{\sqrt{k \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)} \cdot \sqrt{2}}{k} \]
                    7. Step-by-step derivation
                      1. Applied rewrites2.2%

                        \[\leadsto \frac{\sqrt{\left(n \cdot \mathsf{PI}\left(\right)\right) \cdot k} \cdot \sqrt{2}}{k} \]
                      2. Step-by-step derivation
                        1. Applied rewrites25.4%

                          \[\leadsto \frac{\left(\sqrt{\sqrt{n \cdot \mathsf{PI}\left(\right)}} \cdot \sqrt{\sqrt{k \cdot \left(\left(n \cdot \mathsf{PI}\left(\right)\right) \cdot k\right)}}\right) \cdot \sqrt{2}}{k} \]
                      3. Recombined 3 regimes into one program.
                      4. Final simplification53.6%

                        \[\leadsto \begin{array}{l} \mathbf{if}\;{\left(\sqrt{k}\right)}^{-1} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \leq 0:\\ \;\;\;\;\sqrt{\frac{\mathsf{fma}\left(k \cdot n, \mathsf{PI}\left(\right), \left(n \cdot \mathsf{PI}\left(\right)\right) \cdot k\right)}{k \cdot k}}\\ \mathbf{elif}\;{\left(\sqrt{k}\right)}^{-1} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \leq 10^{+273}:\\ \;\;\;\;\frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{\sqrt{k}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(\sqrt{\sqrt{n \cdot \mathsf{PI}\left(\right)}} \cdot \sqrt{\sqrt{k \cdot \left(\left(n \cdot \mathsf{PI}\left(\right)\right) \cdot k\right)}}\right) \cdot \sqrt{2}}{k}\\ \end{array} \]
                      5. Add Preprocessing

                      Alternative 4: 51.9% accurate, 0.5× speedup?

                      \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;{\left(\sqrt{k}\right)}^{-1} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \leq 0:\\ \;\;\;\;\sqrt{\frac{\mathsf{fma}\left(k \cdot n, \mathsf{PI}\left(\right), \left(n \cdot \mathsf{PI}\left(\right)\right) \cdot k\right)}{k \cdot k}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{\sqrt{k}}\\ \end{array} \end{array} \]
                      (FPCore (k n)
                       :precision binary64
                       (if (<=
                            (* (pow (sqrt k) -1.0) (pow (* (* 2.0 (PI)) n) (/ (- 1.0 k) 2.0)))
                            0.0)
                         (sqrt (/ (fma (* k n) (PI) (* (* n (PI)) k)) (* k k)))
                         (/ (sqrt (* (PI) (* n 2.0))) (sqrt k))))
                      \begin{array}{l}
                      
                      \\
                      \begin{array}{l}
                      \mathbf{if}\;{\left(\sqrt{k}\right)}^{-1} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \leq 0:\\
                      \;\;\;\;\sqrt{\frac{\mathsf{fma}\left(k \cdot n, \mathsf{PI}\left(\right), \left(n \cdot \mathsf{PI}\left(\right)\right) \cdot k\right)}{k \cdot k}}\\
                      
                      \mathbf{else}:\\
                      \;\;\;\;\frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{\sqrt{k}}\\
                      
                      
                      \end{array}
                      \end{array}
                      
                      Derivation
                      1. Split input into 2 regimes
                      2. if (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 k)) (pow.f64 (*.f64 (*.f64 #s(literal 2 binary64) (PI.f64)) n) (/.f64 (-.f64 #s(literal 1 binary64) k) #s(literal 2 binary64)))) < 0.0

                        1. Initial program 100.0%

                          \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                        2. Add Preprocessing
                        3. Taylor expanded in k around 0

                          \[\leadsto \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \cdot \sqrt{2}} \]
                        4. Step-by-step derivation
                          1. *-commutativeN/A

                            \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                          2. lower-*.f64N/A

                            \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                          3. lower-sqrt.f64N/A

                            \[\leadsto \color{blue}{\sqrt{2}} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \]
                          4. lower-sqrt.f64N/A

                            \[\leadsto \sqrt{2} \cdot \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                          5. lower-/.f64N/A

                            \[\leadsto \sqrt{2} \cdot \sqrt{\color{blue}{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                          6. *-commutativeN/A

                            \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                          7. lower-*.f64N/A

                            \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                          8. lower-PI.f643.2

                            \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right)} \cdot n}{k}} \]
                        5. Applied rewrites3.2%

                          \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k}}} \]
                        6. Step-by-step derivation
                          1. Applied rewrites3.2%

                            \[\leadsto \color{blue}{\sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k} \cdot 2}} \]
                          2. Step-by-step derivation
                            1. Applied rewrites10.0%

                              \[\leadsto \sqrt{\frac{\mathsf{fma}\left(k \cdot n, \mathsf{PI}\left(\right), \left(n \cdot \mathsf{PI}\left(\right)\right) \cdot k\right)}{k \cdot k}} \]

                            if 0.0 < (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 k)) (pow.f64 (*.f64 (*.f64 #s(literal 2 binary64) (PI.f64)) n) (/.f64 (-.f64 #s(literal 1 binary64) k) #s(literal 2 binary64))))

                            1. Initial program 99.4%

                              \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                            2. Add Preprocessing
                            3. Taylor expanded in k around 0

                              \[\leadsto \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \cdot \sqrt{2}} \]
                            4. Step-by-step derivation
                              1. *-commutativeN/A

                                \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                              2. lower-*.f64N/A

                                \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                              3. lower-sqrt.f64N/A

                                \[\leadsto \color{blue}{\sqrt{2}} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \]
                              4. lower-sqrt.f64N/A

                                \[\leadsto \sqrt{2} \cdot \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                              5. lower-/.f64N/A

                                \[\leadsto \sqrt{2} \cdot \sqrt{\color{blue}{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                              6. *-commutativeN/A

                                \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                              7. lower-*.f64N/A

                                \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                              8. lower-PI.f6446.8

                                \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right)} \cdot n}{k}} \]
                            5. Applied rewrites46.8%

                              \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k}}} \]
                            6. Step-by-step derivation
                              1. Applied rewrites60.2%

                                \[\leadsto \frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{\color{blue}{\sqrt{k}}} \]
                            7. Recombined 2 regimes into one program.
                            8. Final simplification47.1%

                              \[\leadsto \begin{array}{l} \mathbf{if}\;{\left(\sqrt{k}\right)}^{-1} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \leq 0:\\ \;\;\;\;\sqrt{\frac{\mathsf{fma}\left(k \cdot n, \mathsf{PI}\left(\right), \left(n \cdot \mathsf{PI}\left(\right)\right) \cdot k\right)}{k \cdot k}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{\sqrt{k}}\\ \end{array} \]
                            9. Add Preprocessing

                            Alternative 5: 49.5% accurate, 0.5× speedup?

                            \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;{\left(\sqrt{k}\right)}^{-1} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \leq 5 \cdot 10^{+142}:\\ \;\;\;\;\sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k} \cdot 2}\\ \mathbf{else}:\\ \;\;\;\;\frac{\sqrt{\left(\left(n \cdot \mathsf{PI}\left(\right)\right) \cdot k\right) \cdot 2}}{k}\\ \end{array} \end{array} \]
                            (FPCore (k n)
                             :precision binary64
                             (if (<=
                                  (* (pow (sqrt k) -1.0) (pow (* (* 2.0 (PI)) n) (/ (- 1.0 k) 2.0)))
                                  5e+142)
                               (sqrt (* (/ (* (PI) n) k) 2.0))
                               (/ (sqrt (* (* (* n (PI)) k) 2.0)) k)))
                            \begin{array}{l}
                            
                            \\
                            \begin{array}{l}
                            \mathbf{if}\;{\left(\sqrt{k}\right)}^{-1} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \leq 5 \cdot 10^{+142}:\\
                            \;\;\;\;\sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k} \cdot 2}\\
                            
                            \mathbf{else}:\\
                            \;\;\;\;\frac{\sqrt{\left(\left(n \cdot \mathsf{PI}\left(\right)\right) \cdot k\right) \cdot 2}}{k}\\
                            
                            
                            \end{array}
                            \end{array}
                            
                            Derivation
                            1. Split input into 2 regimes
                            2. if (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 k)) (pow.f64 (*.f64 (*.f64 #s(literal 2 binary64) (PI.f64)) n) (/.f64 (-.f64 #s(literal 1 binary64) k) #s(literal 2 binary64)))) < 5.0000000000000001e142

                              1. Initial program 99.4%

                                \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                              2. Add Preprocessing
                              3. Taylor expanded in k around 0

                                \[\leadsto \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \cdot \sqrt{2}} \]
                              4. Step-by-step derivation
                                1. *-commutativeN/A

                                  \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                2. lower-*.f64N/A

                                  \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                3. lower-sqrt.f64N/A

                                  \[\leadsto \color{blue}{\sqrt{2}} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \]
                                4. lower-sqrt.f64N/A

                                  \[\leadsto \sqrt{2} \cdot \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                5. lower-/.f64N/A

                                  \[\leadsto \sqrt{2} \cdot \sqrt{\color{blue}{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                6. *-commutativeN/A

                                  \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                                7. lower-*.f64N/A

                                  \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                                8. lower-PI.f6454.9

                                  \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right)} \cdot n}{k}} \]
                              5. Applied rewrites54.9%

                                \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k}}} \]
                              6. Step-by-step derivation
                                1. Applied rewrites55.1%

                                  \[\leadsto \color{blue}{\sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k} \cdot 2}} \]

                                if 5.0000000000000001e142 < (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 k)) (pow.f64 (*.f64 (*.f64 #s(literal 2 binary64) (PI.f64)) n) (/.f64 (-.f64 #s(literal 1 binary64) k) #s(literal 2 binary64))))

                                1. Initial program 99.8%

                                  \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                2. Add Preprocessing
                                3. Taylor expanded in k around 0

                                  \[\leadsto \color{blue}{\frac{\frac{-1}{2} \cdot \left(\sqrt{{k}^{3} \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)} \cdot \left(\log \left(2 \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)\right) \cdot \sqrt{2}\right)\right) + \sqrt{k \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)} \cdot \sqrt{2}}{k}} \]
                                4. Step-by-step derivation
                                  1. lower-/.f64N/A

                                    \[\leadsto \color{blue}{\frac{\frac{-1}{2} \cdot \left(\sqrt{{k}^{3} \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)} \cdot \left(\log \left(2 \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)\right) \cdot \sqrt{2}\right)\right) + \sqrt{k \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)} \cdot \sqrt{2}}{k}} \]
                                5. Applied rewrites74.1%

                                  \[\leadsto \color{blue}{\frac{\sqrt{2} \cdot \mathsf{fma}\left(\log \left(\left(2 \cdot n\right) \cdot \mathsf{PI}\left(\right)\right) \cdot \sqrt{\left({k}^{3} \cdot \mathsf{PI}\left(\right)\right) \cdot n}, -0.5, \sqrt{\left(\mathsf{PI}\left(\right) \cdot n\right) \cdot k}\right)}{k}} \]
                                6. Taylor expanded in k around 0

                                  \[\leadsto \frac{\sqrt{k \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)} \cdot \sqrt{2}}{k} \]
                                7. Step-by-step derivation
                                  1. Applied rewrites30.8%

                                    \[\leadsto \frac{\sqrt{\left(n \cdot \mathsf{PI}\left(\right)\right) \cdot k} \cdot \sqrt{2}}{k} \]
                                  2. Step-by-step derivation
                                    1. Applied rewrites30.9%

                                      \[\leadsto \frac{\sqrt{\left(\left(n \cdot \mathsf{PI}\left(\right)\right) \cdot k\right) \cdot 2}}{k} \]
                                  3. Recombined 2 regimes into one program.
                                  4. Final simplification45.4%

                                    \[\leadsto \begin{array}{l} \mathbf{if}\;{\left(\sqrt{k}\right)}^{-1} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \leq 5 \cdot 10^{+142}:\\ \;\;\;\;\sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k} \cdot 2}\\ \mathbf{else}:\\ \;\;\;\;\frac{\sqrt{\left(\left(n \cdot \mathsf{PI}\left(\right)\right) \cdot k\right) \cdot 2}}{k}\\ \end{array} \]
                                  5. Add Preprocessing

                                  Alternative 6: 99.4% accurate, 0.6× speedup?

                                  \[\begin{array}{l} \\ \begin{array}{l} t_0 := \mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\\ \frac{\sqrt{t\_0}}{{t\_0}^{\left(0.5 \cdot k\right)}} \cdot \sqrt{{k}^{-1}} \end{array} \end{array} \]
                                  (FPCore (k n)
                                   :precision binary64
                                   (let* ((t_0 (* (PI) (* n 2.0))))
                                     (* (/ (sqrt t_0) (pow t_0 (* 0.5 k))) (sqrt (pow k -1.0)))))
                                  \begin{array}{l}
                                  
                                  \\
                                  \begin{array}{l}
                                  t_0 := \mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\\
                                  \frac{\sqrt{t\_0}}{{t\_0}^{\left(0.5 \cdot k\right)}} \cdot \sqrt{{k}^{-1}}
                                  \end{array}
                                  \end{array}
                                  
                                  Derivation
                                  1. Initial program 99.5%

                                    \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                  2. Add Preprocessing
                                  3. Taylor expanded in k around inf

                                    \[\leadsto \color{blue}{\sqrt{\frac{1}{k}} \cdot e^{\frac{1}{2} \cdot \left(\log \left(2 \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)\right) \cdot \left(1 - k\right)\right)}} \]
                                  4. Applied rewrites99.6%

                                    \[\leadsto \color{blue}{{\left(\left(2 \cdot n\right) \cdot \mathsf{PI}\left(\right)\right)}^{\left(\mathsf{fma}\left(-0.5, k, 0.5\right)\right)} \cdot \sqrt{\frac{1}{k}}} \]
                                  5. Step-by-step derivation
                                    1. Applied rewrites99.7%

                                      \[\leadsto \frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{{\left(\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\right)}^{\left(0.5 \cdot k\right)}} \cdot \sqrt{\color{blue}{\frac{1}{k}}} \]
                                    2. Final simplification99.7%

                                      \[\leadsto \frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{{\left(\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\right)}^{\left(0.5 \cdot k\right)}} \cdot \sqrt{{k}^{-1}} \]
                                    3. Add Preprocessing

                                    Alternative 7: 99.4% accurate, 0.6× speedup?

                                    \[\begin{array}{l} \\ {\left(\left(2 \cdot n\right) \cdot \mathsf{PI}\left(\right)\right)}^{\left(\mathsf{fma}\left(-0.5, k, 0.5\right)\right)} \cdot \sqrt{{k}^{-1}} \end{array} \]
                                    (FPCore (k n)
                                     :precision binary64
                                     (* (pow (* (* 2.0 n) (PI)) (fma -0.5 k 0.5)) (sqrt (pow k -1.0))))
                                    \begin{array}{l}
                                    
                                    \\
                                    {\left(\left(2 \cdot n\right) \cdot \mathsf{PI}\left(\right)\right)}^{\left(\mathsf{fma}\left(-0.5, k, 0.5\right)\right)} \cdot \sqrt{{k}^{-1}}
                                    \end{array}
                                    
                                    Derivation
                                    1. Initial program 99.5%

                                      \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                    2. Add Preprocessing
                                    3. Taylor expanded in k around inf

                                      \[\leadsto \color{blue}{\sqrt{\frac{1}{k}} \cdot e^{\frac{1}{2} \cdot \left(\log \left(2 \cdot \left(n \cdot \mathsf{PI}\left(\right)\right)\right) \cdot \left(1 - k\right)\right)}} \]
                                    4. Applied rewrites99.6%

                                      \[\leadsto \color{blue}{{\left(\left(2 \cdot n\right) \cdot \mathsf{PI}\left(\right)\right)}^{\left(\mathsf{fma}\left(-0.5, k, 0.5\right)\right)} \cdot \sqrt{\frac{1}{k}}} \]
                                    5. Final simplification99.6%

                                      \[\leadsto {\left(\left(2 \cdot n\right) \cdot \mathsf{PI}\left(\right)\right)}^{\left(\mathsf{fma}\left(-0.5, k, 0.5\right)\right)} \cdot \sqrt{{k}^{-1}} \]
                                    6. Add Preprocessing

                                    Alternative 8: 95.7% accurate, 1.0× speedup?

                                    \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;k \leq 2.3 \cdot 10^{+15}:\\ \;\;\;\;\frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{\sqrt{k}}\\ \mathbf{else}:\\ \;\;\;\;\frac{{\left(-2 \cdot n\right)}^{\left(\frac{1 - k}{2}\right)}}{\sqrt{k}}\\ \end{array} \end{array} \]
                                    (FPCore (k n)
                                     :precision binary64
                                     (if (<= k 2.3e+15)
                                       (/ (sqrt (* (PI) (* n 2.0))) (sqrt k))
                                       (/ (pow (* -2.0 n) (/ (- 1.0 k) 2.0)) (sqrt k))))
                                    \begin{array}{l}
                                    
                                    \\
                                    \begin{array}{l}
                                    \mathbf{if}\;k \leq 2.3 \cdot 10^{+15}:\\
                                    \;\;\;\;\frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{\sqrt{k}}\\
                                    
                                    \mathbf{else}:\\
                                    \;\;\;\;\frac{{\left(-2 \cdot n\right)}^{\left(\frac{1 - k}{2}\right)}}{\sqrt{k}}\\
                                    
                                    
                                    \end{array}
                                    \end{array}
                                    
                                    Derivation
                                    1. Split input into 2 regimes
                                    2. if k < 2.3e15

                                      1. Initial program 99.1%

                                        \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                      2. Add Preprocessing
                                      3. Taylor expanded in k around 0

                                        \[\leadsto \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \cdot \sqrt{2}} \]
                                      4. Step-by-step derivation
                                        1. *-commutativeN/A

                                          \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                        2. lower-*.f64N/A

                                          \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                        3. lower-sqrt.f64N/A

                                          \[\leadsto \color{blue}{\sqrt{2}} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \]
                                        4. lower-sqrt.f64N/A

                                          \[\leadsto \sqrt{2} \cdot \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                        5. lower-/.f64N/A

                                          \[\leadsto \sqrt{2} \cdot \sqrt{\color{blue}{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                        6. *-commutativeN/A

                                          \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                                        7. lower-*.f64N/A

                                          \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                                        8. lower-PI.f6471.3

                                          \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right)} \cdot n}{k}} \]
                                      5. Applied rewrites71.3%

                                        \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k}}} \]
                                      6. Step-by-step derivation
                                        1. Applied rewrites92.1%

                                          \[\leadsto \frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{\color{blue}{\sqrt{k}}} \]

                                        if 2.3e15 < k

                                        1. Initial program 100.0%

                                          \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                        2. Add Preprocessing
                                        3. Step-by-step derivation
                                          1. lift-*.f64N/A

                                            \[\leadsto \frac{1}{\sqrt{k}} \cdot {\color{blue}{\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}}^{\left(\frac{1 - k}{2}\right)} \]
                                          2. lift-*.f64N/A

                                            \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\color{blue}{\left(2 \cdot \mathsf{PI}\left(\right)\right)} \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                          3. associate-*l*N/A

                                            \[\leadsto \frac{1}{\sqrt{k}} \cdot {\color{blue}{\left(2 \cdot \left(\mathsf{PI}\left(\right) \cdot n\right)\right)}}^{\left(\frac{1 - k}{2}\right)} \]
                                          4. count-2-revN/A

                                            \[\leadsto \frac{1}{\sqrt{k}} \cdot {\color{blue}{\left(\mathsf{PI}\left(\right) \cdot n + \mathsf{PI}\left(\right) \cdot n\right)}}^{\left(\frac{1 - k}{2}\right)} \]
                                          5. lift-PI.f64N/A

                                            \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\color{blue}{\mathsf{PI}\left(\right)} \cdot n + \mathsf{PI}\left(\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                          6. add-sqr-sqrtN/A

                                            \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\color{blue}{\left(\sqrt{\mathsf{PI}\left(\right)} \cdot \sqrt{\mathsf{PI}\left(\right)}\right)} \cdot n + \mathsf{PI}\left(\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                          7. associate-*l*N/A

                                            \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\color{blue}{\sqrt{\mathsf{PI}\left(\right)} \cdot \left(\sqrt{\mathsf{PI}\left(\right)} \cdot n\right)} + \mathsf{PI}\left(\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                          8. *-commutativeN/A

                                            \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\color{blue}{\left(\sqrt{\mathsf{PI}\left(\right)} \cdot n\right) \cdot \sqrt{\mathsf{PI}\left(\right)}} + \mathsf{PI}\left(\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                          9. lower-fma.f64N/A

                                            \[\leadsto \frac{1}{\sqrt{k}} \cdot {\color{blue}{\left(\mathsf{fma}\left(\sqrt{\mathsf{PI}\left(\right)} \cdot n, \sqrt{\mathsf{PI}\left(\right)}, \mathsf{PI}\left(\right) \cdot n\right)\right)}}^{\left(\frac{1 - k}{2}\right)} \]
                                          10. lower-*.f64N/A

                                            \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\mathsf{fma}\left(\color{blue}{\sqrt{\mathsf{PI}\left(\right)} \cdot n}, \sqrt{\mathsf{PI}\left(\right)}, \mathsf{PI}\left(\right) \cdot n\right)\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                          11. lift-PI.f64N/A

                                            \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\mathsf{fma}\left(\sqrt{\color{blue}{\mathsf{PI}\left(\right)}} \cdot n, \sqrt{\mathsf{PI}\left(\right)}, \mathsf{PI}\left(\right) \cdot n\right)\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                          12. lower-sqrt.f64N/A

                                            \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\mathsf{fma}\left(\color{blue}{\sqrt{\mathsf{PI}\left(\right)}} \cdot n, \sqrt{\mathsf{PI}\left(\right)}, \mathsf{PI}\left(\right) \cdot n\right)\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                          13. lift-PI.f64N/A

                                            \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\mathsf{fma}\left(\sqrt{\mathsf{PI}\left(\right)} \cdot n, \sqrt{\color{blue}{\mathsf{PI}\left(\right)}}, \mathsf{PI}\left(\right) \cdot n\right)\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                          14. lower-sqrt.f64N/A

                                            \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\mathsf{fma}\left(\sqrt{\mathsf{PI}\left(\right)} \cdot n, \color{blue}{\sqrt{\mathsf{PI}\left(\right)}}, \mathsf{PI}\left(\right) \cdot n\right)\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                          15. *-commutativeN/A

                                            \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\mathsf{fma}\left(\sqrt{\mathsf{PI}\left(\right)} \cdot n, \sqrt{\mathsf{PI}\left(\right)}, \color{blue}{n \cdot \mathsf{PI}\left(\right)}\right)\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                          16. lower-*.f64100.0

                                            \[\leadsto \frac{1}{\sqrt{k}} \cdot {\left(\mathsf{fma}\left(\sqrt{\mathsf{PI}\left(\right)} \cdot n, \sqrt{\mathsf{PI}\left(\right)}, \color{blue}{n \cdot \mathsf{PI}\left(\right)}\right)\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                        4. Applied rewrites100.0%

                                          \[\leadsto \frac{1}{\sqrt{k}} \cdot {\color{blue}{\left(\mathsf{fma}\left(\sqrt{\mathsf{PI}\left(\right)} \cdot n, \sqrt{\mathsf{PI}\left(\right)}, n \cdot \mathsf{PI}\left(\right)\right)\right)}}^{\left(\frac{1 - k}{2}\right)} \]
                                        5. Applied rewrites100.0%

                                          \[\leadsto \color{blue}{\frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)} \cdot 1}{{\left(\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\right)}^{\left(\frac{k}{2}\right)} \cdot \sqrt{k}}} \]
                                        6. Step-by-step derivation
                                          1. lift-*.f64N/A

                                            \[\leadsto \frac{\color{blue}{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)} \cdot 1}}{{\left(\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\right)}^{\left(\frac{k}{2}\right)} \cdot \sqrt{k}} \]
                                          2. *-rgt-identity100.0

                                            \[\leadsto \frac{\color{blue}{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}}{{\left(\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\right)}^{\left(\frac{k}{2}\right)} \cdot \sqrt{k}} \]
                                          3. lift-sqrt.f64N/A

                                            \[\leadsto \frac{\color{blue}{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}}{{\left(\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\right)}^{\left(\frac{k}{2}\right)} \cdot \sqrt{k}} \]
                                          4. lift-*.f64N/A

                                            \[\leadsto \frac{\sqrt{\color{blue}{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}}{{\left(\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\right)}^{\left(\frac{k}{2}\right)} \cdot \sqrt{k}} \]
                                          5. lift-*.f64N/A

                                            \[\leadsto \frac{\sqrt{\mathsf{PI}\left(\right) \cdot \color{blue}{\left(n \cdot 2\right)}}}{{\left(\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\right)}^{\left(\frac{k}{2}\right)} \cdot \sqrt{k}} \]
                                          6. associate-*r*N/A

                                            \[\leadsto \frac{\sqrt{\color{blue}{\left(\mathsf{PI}\left(\right) \cdot n\right) \cdot 2}}}{{\left(\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\right)}^{\left(\frac{k}{2}\right)} \cdot \sqrt{k}} \]
                                          7. lift-*.f64N/A

                                            \[\leadsto \frac{\sqrt{\color{blue}{\left(\mathsf{PI}\left(\right) \cdot n\right)} \cdot 2}}{{\left(\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\right)}^{\left(\frac{k}{2}\right)} \cdot \sqrt{k}} \]
                                          8. sqrt-prodN/A

                                            \[\leadsto \frac{\color{blue}{\sqrt{\mathsf{PI}\left(\right) \cdot n} \cdot \sqrt{2}}}{{\left(\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\right)}^{\left(\frac{k}{2}\right)} \cdot \sqrt{k}} \]
                                          9. lift-sqrt.f64N/A

                                            \[\leadsto \frac{\color{blue}{\sqrt{\mathsf{PI}\left(\right) \cdot n}} \cdot \sqrt{2}}{{\left(\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\right)}^{\left(\frac{k}{2}\right)} \cdot \sqrt{k}} \]
                                          10. lift-sqrt.f64N/A

                                            \[\leadsto \frac{\sqrt{\mathsf{PI}\left(\right) \cdot n} \cdot \color{blue}{\sqrt{2}}}{{\left(\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\right)}^{\left(\frac{k}{2}\right)} \cdot \sqrt{k}} \]
                                          11. lower-*.f64100.0

                                            \[\leadsto \frac{\color{blue}{\sqrt{\mathsf{PI}\left(\right) \cdot n} \cdot \sqrt{2}}}{{\left(\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\right)}^{\left(\frac{k}{2}\right)} \cdot \sqrt{k}} \]
                                          12. lift-*.f64N/A

                                            \[\leadsto \frac{\sqrt{\color{blue}{\mathsf{PI}\left(\right) \cdot n}} \cdot \sqrt{2}}{{\left(\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\right)}^{\left(\frac{k}{2}\right)} \cdot \sqrt{k}} \]
                                          13. *-commutativeN/A

                                            \[\leadsto \frac{\sqrt{\color{blue}{n \cdot \mathsf{PI}\left(\right)}} \cdot \sqrt{2}}{{\left(\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\right)}^{\left(\frac{k}{2}\right)} \cdot \sqrt{k}} \]
                                          14. lift-*.f64100.0

                                            \[\leadsto \frac{\sqrt{\color{blue}{n \cdot \mathsf{PI}\left(\right)}} \cdot \sqrt{2}}{{\left(\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\right)}^{\left(\frac{k}{2}\right)} \cdot \sqrt{k}} \]
                                        7. Applied rewrites100.0%

                                          \[\leadsto \frac{\color{blue}{\sqrt{n \cdot \mathsf{PI}\left(\right)} \cdot \sqrt{2}}}{{\left(\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)\right)}^{\left(\frac{k}{2}\right)} \cdot \sqrt{k}} \]
                                        8. Applied rewrites100.0%

                                          \[\leadsto \color{blue}{\frac{{\left(-2 \cdot n\right)}^{\left(\frac{1 - k}{2}\right)}}{\sqrt{k}}} \]
                                      7. Recombined 2 regimes into one program.
                                      8. Add Preprocessing

                                      Alternative 9: 49.4% accurate, 3.6× speedup?

                                      \[\begin{array}{l} \\ \frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{\sqrt{k}} \end{array} \]
                                      (FPCore (k n) :precision binary64 (/ (sqrt (* (PI) (* n 2.0))) (sqrt k)))
                                      \begin{array}{l}
                                      
                                      \\
                                      \frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{\sqrt{k}}
                                      \end{array}
                                      
                                      Derivation
                                      1. Initial program 99.5%

                                        \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                      2. Add Preprocessing
                                      3. Taylor expanded in k around 0

                                        \[\leadsto \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \cdot \sqrt{2}} \]
                                      4. Step-by-step derivation
                                        1. *-commutativeN/A

                                          \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                        2. lower-*.f64N/A

                                          \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                        3. lower-sqrt.f64N/A

                                          \[\leadsto \color{blue}{\sqrt{2}} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \]
                                        4. lower-sqrt.f64N/A

                                          \[\leadsto \sqrt{2} \cdot \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                        5. lower-/.f64N/A

                                          \[\leadsto \sqrt{2} \cdot \sqrt{\color{blue}{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                        6. *-commutativeN/A

                                          \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                                        7. lower-*.f64N/A

                                          \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                                        8. lower-PI.f6435.4

                                          \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right)} \cdot n}{k}} \]
                                      5. Applied rewrites35.4%

                                        \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k}}} \]
                                      6. Step-by-step derivation
                                        1. Applied rewrites45.3%

                                          \[\leadsto \frac{\sqrt{\mathsf{PI}\left(\right) \cdot \left(n \cdot 2\right)}}{\color{blue}{\sqrt{k}}} \]
                                        2. Add Preprocessing

                                        Alternative 10: 49.4% accurate, 3.6× speedup?

                                        \[\begin{array}{l} \\ \sqrt{n \cdot \mathsf{PI}\left(\right)} \cdot \sqrt{\frac{2}{k}} \end{array} \]
                                        (FPCore (k n) :precision binary64 (* (sqrt (* n (PI))) (sqrt (/ 2.0 k))))
                                        \begin{array}{l}
                                        
                                        \\
                                        \sqrt{n \cdot \mathsf{PI}\left(\right)} \cdot \sqrt{\frac{2}{k}}
                                        \end{array}
                                        
                                        Derivation
                                        1. Initial program 99.5%

                                          \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                        2. Add Preprocessing
                                        3. Taylor expanded in k around 0

                                          \[\leadsto \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \cdot \sqrt{2}} \]
                                        4. Step-by-step derivation
                                          1. *-commutativeN/A

                                            \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                          2. lower-*.f64N/A

                                            \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                          3. lower-sqrt.f64N/A

                                            \[\leadsto \color{blue}{\sqrt{2}} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \]
                                          4. lower-sqrt.f64N/A

                                            \[\leadsto \sqrt{2} \cdot \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                          5. lower-/.f64N/A

                                            \[\leadsto \sqrt{2} \cdot \sqrt{\color{blue}{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                          6. *-commutativeN/A

                                            \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                                          7. lower-*.f64N/A

                                            \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                                          8. lower-PI.f6435.4

                                            \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right)} \cdot n}{k}} \]
                                        5. Applied rewrites35.4%

                                          \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k}}} \]
                                        6. Step-by-step derivation
                                          1. Applied rewrites35.5%

                                            \[\leadsto \color{blue}{\sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k} \cdot 2}} \]
                                          2. Step-by-step derivation
                                            1. Applied rewrites45.3%

                                              \[\leadsto \sqrt{n \cdot \mathsf{PI}\left(\right)} \cdot \color{blue}{\sqrt{\frac{2}{k}}} \]
                                            2. Add Preprocessing

                                            Alternative 11: 49.4% accurate, 3.6× speedup?

                                            \[\begin{array}{l} \\ \sqrt{n} \cdot \sqrt{\frac{2 \cdot \mathsf{PI}\left(\right)}{k}} \end{array} \]
                                            (FPCore (k n) :precision binary64 (* (sqrt n) (sqrt (/ (* 2.0 (PI)) k))))
                                            \begin{array}{l}
                                            
                                            \\
                                            \sqrt{n} \cdot \sqrt{\frac{2 \cdot \mathsf{PI}\left(\right)}{k}}
                                            \end{array}
                                            
                                            Derivation
                                            1. Initial program 99.5%

                                              \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                            2. Add Preprocessing
                                            3. Taylor expanded in k around 0

                                              \[\leadsto \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \cdot \sqrt{2}} \]
                                            4. Step-by-step derivation
                                              1. *-commutativeN/A

                                                \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                              2. lower-*.f64N/A

                                                \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                              3. lower-sqrt.f64N/A

                                                \[\leadsto \color{blue}{\sqrt{2}} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \]
                                              4. lower-sqrt.f64N/A

                                                \[\leadsto \sqrt{2} \cdot \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                              5. lower-/.f64N/A

                                                \[\leadsto \sqrt{2} \cdot \sqrt{\color{blue}{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                              6. *-commutativeN/A

                                                \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                                              7. lower-*.f64N/A

                                                \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                                              8. lower-PI.f6435.4

                                                \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right)} \cdot n}{k}} \]
                                            5. Applied rewrites35.4%

                                              \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k}}} \]
                                            6. Step-by-step derivation
                                              1. Applied rewrites35.5%

                                                \[\leadsto \color{blue}{\sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k} \cdot 2}} \]
                                              2. Step-by-step derivation
                                                1. Applied rewrites45.3%

                                                  \[\leadsto \sqrt{n} \cdot \color{blue}{\sqrt{\frac{2 \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                2. Add Preprocessing

                                                Alternative 12: 38.1% accurate, 4.8× speedup?

                                                \[\begin{array}{l} \\ \sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k} \cdot 2} \end{array} \]
                                                (FPCore (k n) :precision binary64 (sqrt (* (/ (* (PI) n) k) 2.0)))
                                                \begin{array}{l}
                                                
                                                \\
                                                \sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k} \cdot 2}
                                                \end{array}
                                                
                                                Derivation
                                                1. Initial program 99.5%

                                                  \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                                2. Add Preprocessing
                                                3. Taylor expanded in k around 0

                                                  \[\leadsto \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \cdot \sqrt{2}} \]
                                                4. Step-by-step derivation
                                                  1. *-commutativeN/A

                                                    \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                  2. lower-*.f64N/A

                                                    \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                  3. lower-sqrt.f64N/A

                                                    \[\leadsto \color{blue}{\sqrt{2}} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \]
                                                  4. lower-sqrt.f64N/A

                                                    \[\leadsto \sqrt{2} \cdot \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                  5. lower-/.f64N/A

                                                    \[\leadsto \sqrt{2} \cdot \sqrt{\color{blue}{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                  6. *-commutativeN/A

                                                    \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                                                  7. lower-*.f64N/A

                                                    \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                                                  8. lower-PI.f6435.4

                                                    \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right)} \cdot n}{k}} \]
                                                5. Applied rewrites35.4%

                                                  \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k}}} \]
                                                6. Step-by-step derivation
                                                  1. Applied rewrites35.5%

                                                    \[\leadsto \color{blue}{\sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k} \cdot 2}} \]
                                                  2. Add Preprocessing

                                                  Alternative 13: 38.1% accurate, 4.8× speedup?

                                                  \[\begin{array}{l} \\ \sqrt{\left(n \cdot \frac{\mathsf{PI}\left(\right)}{k}\right) \cdot 2} \end{array} \]
                                                  (FPCore (k n) :precision binary64 (sqrt (* (* n (/ (PI) k)) 2.0)))
                                                  \begin{array}{l}
                                                  
                                                  \\
                                                  \sqrt{\left(n \cdot \frac{\mathsf{PI}\left(\right)}{k}\right) \cdot 2}
                                                  \end{array}
                                                  
                                                  Derivation
                                                  1. Initial program 99.5%

                                                    \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                                  2. Add Preprocessing
                                                  3. Taylor expanded in k around 0

                                                    \[\leadsto \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \cdot \sqrt{2}} \]
                                                  4. Step-by-step derivation
                                                    1. *-commutativeN/A

                                                      \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                    2. lower-*.f64N/A

                                                      \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                    3. lower-sqrt.f64N/A

                                                      \[\leadsto \color{blue}{\sqrt{2}} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \]
                                                    4. lower-sqrt.f64N/A

                                                      \[\leadsto \sqrt{2} \cdot \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                    5. lower-/.f64N/A

                                                      \[\leadsto \sqrt{2} \cdot \sqrt{\color{blue}{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                    6. *-commutativeN/A

                                                      \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                                                    7. lower-*.f64N/A

                                                      \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                                                    8. lower-PI.f6435.4

                                                      \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right)} \cdot n}{k}} \]
                                                  5. Applied rewrites35.4%

                                                    \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k}}} \]
                                                  6. Step-by-step derivation
                                                    1. Applied rewrites35.5%

                                                      \[\leadsto \color{blue}{\sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k} \cdot 2}} \]
                                                    2. Step-by-step derivation
                                                      1. Applied rewrites35.5%

                                                        \[\leadsto \sqrt{\left(n \cdot \frac{\mathsf{PI}\left(\right)}{k}\right) \cdot 2} \]
                                                      2. Add Preprocessing

                                                      Alternative 14: 38.1% accurate, 5.1× speedup?

                                                      \[\begin{array}{l} \\ \sqrt{\left(\mathsf{PI}\left(\right) + \mathsf{PI}\left(\right)\right) \cdot \frac{n}{k}} \end{array} \]
                                                      (FPCore (k n) :precision binary64 (sqrt (* (+ (PI) (PI)) (/ n k))))
                                                      \begin{array}{l}
                                                      
                                                      \\
                                                      \sqrt{\left(\mathsf{PI}\left(\right) + \mathsf{PI}\left(\right)\right) \cdot \frac{n}{k}}
                                                      \end{array}
                                                      
                                                      Derivation
                                                      1. Initial program 99.5%

                                                        \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                                      2. Add Preprocessing
                                                      3. Taylor expanded in k around 0

                                                        \[\leadsto \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \cdot \sqrt{2}} \]
                                                      4. Step-by-step derivation
                                                        1. *-commutativeN/A

                                                          \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                        2. lower-*.f64N/A

                                                          \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                        3. lower-sqrt.f64N/A

                                                          \[\leadsto \color{blue}{\sqrt{2}} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \]
                                                        4. lower-sqrt.f64N/A

                                                          \[\leadsto \sqrt{2} \cdot \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                        5. lower-/.f64N/A

                                                          \[\leadsto \sqrt{2} \cdot \sqrt{\color{blue}{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                        6. *-commutativeN/A

                                                          \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                                                        7. lower-*.f64N/A

                                                          \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                                                        8. lower-PI.f6435.4

                                                          \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right)} \cdot n}{k}} \]
                                                      5. Applied rewrites35.4%

                                                        \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k}}} \]
                                                      6. Step-by-step derivation
                                                        1. Applied rewrites35.5%

                                                          \[\leadsto \color{blue}{\sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k} \cdot 2}} \]
                                                        2. Step-by-step derivation
                                                          1. Applied rewrites35.5%

                                                            \[\leadsto \sqrt{\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot \frac{n}{k}} \]
                                                          2. Step-by-step derivation
                                                            1. Applied rewrites35.5%

                                                              \[\leadsto \sqrt{\left(\mathsf{PI}\left(\right) + \mathsf{PI}\left(\right)\right) \cdot \frac{n}{k}} \]
                                                            2. Add Preprocessing

                                                            Alternative 15: 9.2% accurate, 5.6× speedup?

                                                            \[\begin{array}{l} \\ \sqrt{\frac{n}{k} \cdot 2} \end{array} \]
                                                            (FPCore (k n) :precision binary64 (sqrt (* (/ n k) 2.0)))
                                                            double code(double k, double n) {
                                                            	return sqrt(((n / k) * 2.0));
                                                            }
                                                            
                                                            module fmin_fmax_functions
                                                                implicit none
                                                                private
                                                                public fmax
                                                                public fmin
                                                            
                                                                interface fmax
                                                                    module procedure fmax88
                                                                    module procedure fmax44
                                                                    module procedure fmax84
                                                                    module procedure fmax48
                                                                end interface
                                                                interface fmin
                                                                    module procedure fmin88
                                                                    module procedure fmin44
                                                                    module procedure fmin84
                                                                    module procedure fmin48
                                                                end interface
                                                            contains
                                                                real(8) function fmax88(x, y) result (res)
                                                                    real(8), intent (in) :: x
                                                                    real(8), intent (in) :: y
                                                                    res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                                                                end function
                                                                real(4) function fmax44(x, y) result (res)
                                                                    real(4), intent (in) :: x
                                                                    real(4), intent (in) :: y
                                                                    res = merge(y, merge(x, max(x, y), y /= y), x /= x)
                                                                end function
                                                                real(8) function fmax84(x, y) result(res)
                                                                    real(8), intent (in) :: x
                                                                    real(4), intent (in) :: y
                                                                    res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
                                                                end function
                                                                real(8) function fmax48(x, y) result(res)
                                                                    real(4), intent (in) :: x
                                                                    real(8), intent (in) :: y
                                                                    res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
                                                                end function
                                                                real(8) function fmin88(x, y) result (res)
                                                                    real(8), intent (in) :: x
                                                                    real(8), intent (in) :: y
                                                                    res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                                                                end function
                                                                real(4) function fmin44(x, y) result (res)
                                                                    real(4), intent (in) :: x
                                                                    real(4), intent (in) :: y
                                                                    res = merge(y, merge(x, min(x, y), y /= y), x /= x)
                                                                end function
                                                                real(8) function fmin84(x, y) result(res)
                                                                    real(8), intent (in) :: x
                                                                    real(4), intent (in) :: y
                                                                    res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
                                                                end function
                                                                real(8) function fmin48(x, y) result(res)
                                                                    real(4), intent (in) :: x
                                                                    real(8), intent (in) :: y
                                                                    res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
                                                                end function
                                                            end module
                                                            
                                                            real(8) function code(k, n)
                                                            use fmin_fmax_functions
                                                                real(8), intent (in) :: k
                                                                real(8), intent (in) :: n
                                                                code = sqrt(((n / k) * 2.0d0))
                                                            end function
                                                            
                                                            public static double code(double k, double n) {
                                                            	return Math.sqrt(((n / k) * 2.0));
                                                            }
                                                            
                                                            def code(k, n):
                                                            	return math.sqrt(((n / k) * 2.0))
                                                            
                                                            function code(k, n)
                                                            	return sqrt(Float64(Float64(n / k) * 2.0))
                                                            end
                                                            
                                                            function tmp = code(k, n)
                                                            	tmp = sqrt(((n / k) * 2.0));
                                                            end
                                                            
                                                            code[k_, n_] := N[Sqrt[N[(N[(n / k), $MachinePrecision] * 2.0), $MachinePrecision]], $MachinePrecision]
                                                            
                                                            \begin{array}{l}
                                                            
                                                            \\
                                                            \sqrt{\frac{n}{k} \cdot 2}
                                                            \end{array}
                                                            
                                                            Derivation
                                                            1. Initial program 99.5%

                                                              \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                                            2. Add Preprocessing
                                                            3. Taylor expanded in k around 0

                                                              \[\leadsto \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \cdot \sqrt{2}} \]
                                                            4. Step-by-step derivation
                                                              1. *-commutativeN/A

                                                                \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                              2. lower-*.f64N/A

                                                                \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                              3. lower-sqrt.f64N/A

                                                                \[\leadsto \color{blue}{\sqrt{2}} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \]
                                                              4. lower-sqrt.f64N/A

                                                                \[\leadsto \sqrt{2} \cdot \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                              5. lower-/.f64N/A

                                                                \[\leadsto \sqrt{2} \cdot \sqrt{\color{blue}{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                              6. *-commutativeN/A

                                                                \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                                                              7. lower-*.f64N/A

                                                                \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                                                              8. lower-PI.f6435.4

                                                                \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right)} \cdot n}{k}} \]
                                                            5. Applied rewrites35.4%

                                                              \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k}}} \]
                                                            6. Step-by-step derivation
                                                              1. Applied rewrites35.5%

                                                                \[\leadsto \color{blue}{\sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k} \cdot 2}} \]
                                                              2. Step-by-step derivation
                                                                1. Applied rewrites35.5%

                                                                  \[\leadsto \sqrt{\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot \frac{n}{k}} \]
                                                                2. Applied rewrites8.7%

                                                                  \[\leadsto \color{blue}{\sqrt{\frac{n}{k} \cdot 2}} \]
                                                                3. Add Preprocessing

                                                                Alternative 16: 5.1% accurate, 5.6× speedup?

                                                                \[\begin{array}{l} \\ \sqrt{\frac{2}{k} \cdot \mathsf{PI}\left(\right)} \end{array} \]
                                                                (FPCore (k n) :precision binary64 (sqrt (* (/ 2.0 k) (PI))))
                                                                \begin{array}{l}
                                                                
                                                                \\
                                                                \sqrt{\frac{2}{k} \cdot \mathsf{PI}\left(\right)}
                                                                \end{array}
                                                                
                                                                Derivation
                                                                1. Initial program 99.5%

                                                                  \[\frac{1}{\sqrt{k}} \cdot {\left(\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot n\right)}^{\left(\frac{1 - k}{2}\right)} \]
                                                                2. Add Preprocessing
                                                                3. Taylor expanded in k around 0

                                                                  \[\leadsto \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \cdot \sqrt{2}} \]
                                                                4. Step-by-step derivation
                                                                  1. *-commutativeN/A

                                                                    \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                                  2. lower-*.f64N/A

                                                                    \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                                  3. lower-sqrt.f64N/A

                                                                    \[\leadsto \color{blue}{\sqrt{2}} \cdot \sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}} \]
                                                                  4. lower-sqrt.f64N/A

                                                                    \[\leadsto \sqrt{2} \cdot \color{blue}{\sqrt{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                                  5. lower-/.f64N/A

                                                                    \[\leadsto \sqrt{2} \cdot \sqrt{\color{blue}{\frac{n \cdot \mathsf{PI}\left(\right)}{k}}} \]
                                                                  6. *-commutativeN/A

                                                                    \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                                                                  7. lower-*.f64N/A

                                                                    \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right) \cdot n}}{k}} \]
                                                                  8. lower-PI.f6435.4

                                                                    \[\leadsto \sqrt{2} \cdot \sqrt{\frac{\color{blue}{\mathsf{PI}\left(\right)} \cdot n}{k}} \]
                                                                5. Applied rewrites35.4%

                                                                  \[\leadsto \color{blue}{\sqrt{2} \cdot \sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k}}} \]
                                                                6. Step-by-step derivation
                                                                  1. Applied rewrites35.5%

                                                                    \[\leadsto \color{blue}{\sqrt{\frac{\mathsf{PI}\left(\right) \cdot n}{k} \cdot 2}} \]
                                                                  2. Step-by-step derivation
                                                                    1. Applied rewrites35.5%

                                                                      \[\leadsto \sqrt{\left(2 \cdot \mathsf{PI}\left(\right)\right) \cdot \frac{n}{k}} \]
                                                                    2. Applied rewrites4.9%

                                                                      \[\leadsto \sqrt{\frac{2}{k} \cdot \mathsf{PI}\left(\right)} \]
                                                                    3. Add Preprocessing

                                                                    Reproduce

                                                                    ?
                                                                    herbie shell --seed 2024364 
                                                                    (FPCore (k n)
                                                                      :name "Migdal et al, Equation (51)"
                                                                      :precision binary64
                                                                      (* (/ 1.0 (sqrt k)) (pow (* (* 2.0 (PI)) n) (/ (- 1.0 k) 2.0))))