Disney BSSRDF, sample scattering profile, lower

Percentage Accurate: 61.9% → 99.3%
Time: 9.5s
Alternatives: 13
Speedup: 11.4×

Specification

?
\[\left(0 \leq s \land s \leq 256\right) \land \left(2.328306437 \cdot 10^{-10} \leq u \land u \leq 0.25\right)\]
\[\begin{array}{l} \\ s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right) \end{array} \]
(FPCore (s u) :precision binary32 (* s (log (/ 1.0 (- 1.0 (* 4.0 u))))))
float code(float s, float u) {
	return s * logf((1.0f / (1.0f - (4.0f * u))));
}
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(4) function code(s, u)
use fmin_fmax_functions
    real(4), intent (in) :: s
    real(4), intent (in) :: u
    code = s * log((1.0e0 / (1.0e0 - (4.0e0 * u))))
end function
function code(s, u)
	return Float32(s * log(Float32(Float32(1.0) / Float32(Float32(1.0) - Float32(Float32(4.0) * u)))))
end
function tmp = code(s, u)
	tmp = s * log((single(1.0) / (single(1.0) - (single(4.0) * u))));
end
\begin{array}{l}

\\
s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right)
\end{array}

Sampling outcomes in binary32 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 13 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: 61.9% accurate, 1.0× speedup?

\[\begin{array}{l} \\ s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right) \end{array} \]
(FPCore (s u) :precision binary32 (* s (log (/ 1.0 (- 1.0 (* 4.0 u))))))
float code(float s, float u) {
	return s * logf((1.0f / (1.0f - (4.0f * u))));
}
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(4) function code(s, u)
use fmin_fmax_functions
    real(4), intent (in) :: s
    real(4), intent (in) :: u
    code = s * log((1.0e0 / (1.0e0 - (4.0e0 * u))))
end function
function code(s, u)
	return Float32(s * log(Float32(Float32(1.0) / Float32(Float32(1.0) - Float32(Float32(4.0) * u)))))
end
function tmp = code(s, u)
	tmp = s * log((single(1.0) / (single(1.0) - (single(4.0) * u))));
end
\begin{array}{l}

\\
s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right)
\end{array}

Alternative 1: 99.3% accurate, 1.1× speedup?

\[\begin{array}{l} \\ \mathsf{log1p}\left(-4 \cdot u\right) \cdot \left(-s\right) \end{array} \]
(FPCore (s u) :precision binary32 (* (log1p (* -4.0 u)) (- s)))
float code(float s, float u) {
	return log1pf((-4.0f * u)) * -s;
}
function code(s, u)
	return Float32(log1p(Float32(Float32(-4.0) * u)) * Float32(-s))
end
\begin{array}{l}

\\
\mathsf{log1p}\left(-4 \cdot u\right) \cdot \left(-s\right)
\end{array}
Derivation
  1. Initial program 63.2%

    \[s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right) \]
  2. Add Preprocessing
  3. Applied rewrites99.2%

    \[\leadsto \color{blue}{\left(-\mathsf{log1p}\left(-4 \cdot u\right)\right) \cdot s} \]
  4. Final simplification99.2%

    \[\leadsto \mathsf{log1p}\left(-4 \cdot u\right) \cdot \left(-s\right) \]
  5. Add Preprocessing

Alternative 2: 93.6% accurate, 3.2× speedup?

\[\begin{array}{l} \\ \mathsf{fma}\left(4 \cdot s, u, \left(\left(s \cdot \mathsf{fma}\left(\mathsf{fma}\left(64, u, 21.333333333333332\right), u, 8\right)\right) \cdot u\right) \cdot u\right) \end{array} \]
(FPCore (s u)
 :precision binary32
 (fma
  (* 4.0 s)
  u
  (* (* (* s (fma (fma 64.0 u 21.333333333333332) u 8.0)) u) u)))
float code(float s, float u) {
	return fmaf((4.0f * s), u, (((s * fmaf(fmaf(64.0f, u, 21.333333333333332f), u, 8.0f)) * u) * u));
}
function code(s, u)
	return fma(Float32(Float32(4.0) * s), u, Float32(Float32(Float32(s * fma(fma(Float32(64.0), u, Float32(21.333333333333332)), u, Float32(8.0))) * u) * u))
end
\begin{array}{l}

\\
\mathsf{fma}\left(4 \cdot s, u, \left(\left(s \cdot \mathsf{fma}\left(\mathsf{fma}\left(64, u, 21.333333333333332\right), u, 8\right)\right) \cdot u\right) \cdot u\right)
\end{array}
Derivation
  1. Initial program 63.2%

    \[s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right) \]
  2. Add Preprocessing
  3. Taylor expanded in u around 0

    \[\leadsto \color{blue}{u \cdot \left(4 \cdot s + u \cdot \left(8 \cdot s + u \cdot \left(\frac{64}{3} \cdot s + 64 \cdot \left(s \cdot u\right)\right)\right)\right)} \]
  4. Step-by-step derivation
    1. *-commutativeN/A

      \[\leadsto \color{blue}{\left(4 \cdot s + u \cdot \left(8 \cdot s + u \cdot \left(\frac{64}{3} \cdot s + 64 \cdot \left(s \cdot u\right)\right)\right)\right) \cdot u} \]
    2. lower-*.f32N/A

      \[\leadsto \color{blue}{\left(4 \cdot s + u \cdot \left(8 \cdot s + u \cdot \left(\frac{64}{3} \cdot s + 64 \cdot \left(s \cdot u\right)\right)\right)\right) \cdot u} \]
  5. Applied rewrites93.9%

    \[\leadsto \color{blue}{\mathsf{fma}\left(\mathsf{fma}\left(s \cdot \mathsf{fma}\left(64, u, 21.333333333333332\right), u, 8 \cdot s\right), u, 4 \cdot s\right) \cdot u} \]
  6. Step-by-step derivation
    1. Applied rewrites94.4%

      \[\leadsto \mathsf{fma}\left(4 \cdot s, \color{blue}{u}, \left(\left(s \cdot \mathsf{fma}\left(\mathsf{fma}\left(64, u, 21.333333333333332\right), u, 8\right)\right) \cdot u\right) \cdot u\right) \]
    2. Add Preprocessing

    Alternative 3: 93.2% accurate, 3.7× speedup?

    \[\begin{array}{l} \\ \mathsf{fma}\left(s, 4, \left(s \cdot \mathsf{fma}\left(\mathsf{fma}\left(64, u, 21.333333333333332\right), u, 8\right)\right) \cdot u\right) \cdot u \end{array} \]
    (FPCore (s u)
     :precision binary32
     (* (fma s 4.0 (* (* s (fma (fma 64.0 u 21.333333333333332) u 8.0)) u)) u))
    float code(float s, float u) {
    	return fmaf(s, 4.0f, ((s * fmaf(fmaf(64.0f, u, 21.333333333333332f), u, 8.0f)) * u)) * u;
    }
    
    function code(s, u)
    	return Float32(fma(s, Float32(4.0), Float32(Float32(s * fma(fma(Float32(64.0), u, Float32(21.333333333333332)), u, Float32(8.0))) * u)) * u)
    end
    
    \begin{array}{l}
    
    \\
    \mathsf{fma}\left(s, 4, \left(s \cdot \mathsf{fma}\left(\mathsf{fma}\left(64, u, 21.333333333333332\right), u, 8\right)\right) \cdot u\right) \cdot u
    \end{array}
    
    Derivation
    1. Initial program 63.2%

      \[s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right) \]
    2. Add Preprocessing
    3. Taylor expanded in u around 0

      \[\leadsto \color{blue}{u \cdot \left(4 \cdot s + u \cdot \left(8 \cdot s + u \cdot \left(\frac{64}{3} \cdot s + 64 \cdot \left(s \cdot u\right)\right)\right)\right)} \]
    4. Step-by-step derivation
      1. *-commutativeN/A

        \[\leadsto \color{blue}{\left(4 \cdot s + u \cdot \left(8 \cdot s + u \cdot \left(\frac{64}{3} \cdot s + 64 \cdot \left(s \cdot u\right)\right)\right)\right) \cdot u} \]
      2. lower-*.f32N/A

        \[\leadsto \color{blue}{\left(4 \cdot s + u \cdot \left(8 \cdot s + u \cdot \left(\frac{64}{3} \cdot s + 64 \cdot \left(s \cdot u\right)\right)\right)\right) \cdot u} \]
    5. Applied rewrites93.9%

      \[\leadsto \color{blue}{\mathsf{fma}\left(\mathsf{fma}\left(s \cdot \mathsf{fma}\left(64, u, 21.333333333333332\right), u, 8 \cdot s\right), u, 4 \cdot s\right) \cdot u} \]
    6. Step-by-step derivation
      1. Applied rewrites93.9%

        \[\leadsto \mathsf{fma}\left(s, 4, \left(s \cdot \mathsf{fma}\left(\mathsf{fma}\left(64, u, 21.333333333333332\right), u, 8\right)\right) \cdot u\right) \cdot u \]
      2. Add Preprocessing

      Alternative 4: 92.9% accurate, 4.3× speedup?

      \[\begin{array}{l} \\ \left(\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(64, u, 21.333333333333332\right), u, 8\right), u, 4\right) \cdot s\right) \cdot u \end{array} \]
      (FPCore (s u)
       :precision binary32
       (* (* (fma (fma (fma 64.0 u 21.333333333333332) u 8.0) u 4.0) s) u))
      float code(float s, float u) {
      	return (fmaf(fmaf(fmaf(64.0f, u, 21.333333333333332f), u, 8.0f), u, 4.0f) * s) * u;
      }
      
      function code(s, u)
      	return Float32(Float32(fma(fma(fma(Float32(64.0), u, Float32(21.333333333333332)), u, Float32(8.0)), u, Float32(4.0)) * s) * u)
      end
      
      \begin{array}{l}
      
      \\
      \left(\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(64, u, 21.333333333333332\right), u, 8\right), u, 4\right) \cdot s\right) \cdot u
      \end{array}
      
      Derivation
      1. Initial program 63.2%

        \[s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right) \]
      2. Add Preprocessing
      3. Applied rewrites98.7%

        \[\leadsto \color{blue}{\frac{{\left(-\mathsf{log1p}\left(-4 \cdot u\right)\right)}^{3}}{\mathsf{log1p}\left(-4 \cdot u\right)} \cdot \frac{s}{\mathsf{log1p}\left(-4 \cdot u\right)}} \]
      4. Taylor expanded in u around 0

        \[\leadsto \color{blue}{u \cdot \left(4 \cdot s + u \cdot \left(8 \cdot s + u \cdot \left(\frac{64}{3} \cdot s + 64 \cdot \left(s \cdot u\right)\right)\right)\right)} \]
      5. Step-by-step derivation
        1. *-commutativeN/A

          \[\leadsto \color{blue}{\left(4 \cdot s + u \cdot \left(8 \cdot s + u \cdot \left(\frac{64}{3} \cdot s + 64 \cdot \left(s \cdot u\right)\right)\right)\right) \cdot u} \]
        2. lower-*.f32N/A

          \[\leadsto \color{blue}{\left(4 \cdot s + u \cdot \left(8 \cdot s + u \cdot \left(\frac{64}{3} \cdot s + 64 \cdot \left(s \cdot u\right)\right)\right)\right) \cdot u} \]
      6. Applied rewrites93.5%

        \[\leadsto \color{blue}{\left(\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(64, u, 21.333333333333332\right), u, 8\right), u, 4\right) \cdot s\right) \cdot u} \]
      7. Final simplification93.5%

        \[\leadsto \left(\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(64, u, 21.333333333333332\right), u, 8\right), u, 4\right) \cdot s\right) \cdot u \]
      8. Add Preprocessing

      Alternative 5: 91.1% accurate, 4.5× speedup?

      \[\begin{array}{l} \\ \mathsf{fma}\left(\mathsf{fma}\left(21.333333333333332, u, 8\right) \cdot u, s, 4 \cdot s\right) \cdot u \end{array} \]
      (FPCore (s u)
       :precision binary32
       (* (fma (* (fma 21.333333333333332 u 8.0) u) s (* 4.0 s)) u))
      float code(float s, float u) {
      	return fmaf((fmaf(21.333333333333332f, u, 8.0f) * u), s, (4.0f * s)) * u;
      }
      
      function code(s, u)
      	return Float32(fma(Float32(fma(Float32(21.333333333333332), u, Float32(8.0)) * u), s, Float32(Float32(4.0) * s)) * u)
      end
      
      \begin{array}{l}
      
      \\
      \mathsf{fma}\left(\mathsf{fma}\left(21.333333333333332, u, 8\right) \cdot u, s, 4 \cdot s\right) \cdot u
      \end{array}
      
      Derivation
      1. Initial program 63.2%

        \[s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right) \]
      2. Add Preprocessing
      3. Taylor expanded in u around 0

        \[\leadsto \color{blue}{u \cdot \left(4 \cdot s + u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right)\right)} \]
      4. Step-by-step derivation
        1. *-commutativeN/A

          \[\leadsto \color{blue}{\left(4 \cdot s + u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right)\right) \cdot u} \]
        2. lower-*.f32N/A

          \[\leadsto \color{blue}{\left(4 \cdot s + u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right)\right) \cdot u} \]
        3. +-commutativeN/A

          \[\leadsto \color{blue}{\left(u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right) + 4 \cdot s\right)} \cdot u \]
        4. *-commutativeN/A

          \[\leadsto \left(\color{blue}{\left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right) \cdot u} + 4 \cdot s\right) \cdot u \]
        5. lower-fma.f32N/A

          \[\leadsto \color{blue}{\mathsf{fma}\left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right), u, 4 \cdot s\right)} \cdot u \]
        6. *-commutativeN/A

          \[\leadsto \mathsf{fma}\left(8 \cdot s + \frac{64}{3} \cdot \color{blue}{\left(u \cdot s\right)}, u, 4 \cdot s\right) \cdot u \]
        7. associate-*r*N/A

          \[\leadsto \mathsf{fma}\left(8 \cdot s + \color{blue}{\left(\frac{64}{3} \cdot u\right) \cdot s}, u, 4 \cdot s\right) \cdot u \]
        8. distribute-rgt-outN/A

          \[\leadsto \mathsf{fma}\left(\color{blue}{s \cdot \left(8 + \frac{64}{3} \cdot u\right)}, u, 4 \cdot s\right) \cdot u \]
        9. lower-*.f32N/A

          \[\leadsto \mathsf{fma}\left(\color{blue}{s \cdot \left(8 + \frac{64}{3} \cdot u\right)}, u, 4 \cdot s\right) \cdot u \]
        10. +-commutativeN/A

          \[\leadsto \mathsf{fma}\left(s \cdot \color{blue}{\left(\frac{64}{3} \cdot u + 8\right)}, u, 4 \cdot s\right) \cdot u \]
        11. lower-fma.f32N/A

          \[\leadsto \mathsf{fma}\left(s \cdot \color{blue}{\mathsf{fma}\left(\frac{64}{3}, u, 8\right)}, u, 4 \cdot s\right) \cdot u \]
        12. lower-*.f3291.5

          \[\leadsto \mathsf{fma}\left(s \cdot \mathsf{fma}\left(21.333333333333332, u, 8\right), u, \color{blue}{4 \cdot s}\right) \cdot u \]
      5. Applied rewrites91.5%

        \[\leadsto \color{blue}{\mathsf{fma}\left(s \cdot \mathsf{fma}\left(21.333333333333332, u, 8\right), u, 4 \cdot s\right) \cdot u} \]
      6. Step-by-step derivation
        1. Applied rewrites91.5%

          \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(21.333333333333332, u, 8\right) \cdot u, s, 4 \cdot s\right) \cdot u \]
        2. Add Preprocessing

        Alternative 6: 91.1% accurate, 4.5× speedup?

        \[\begin{array}{l} \\ \mathsf{fma}\left(s \cdot \mathsf{fma}\left(21.333333333333332, u, 8\right), u, 4 \cdot s\right) \cdot u \end{array} \]
        (FPCore (s u)
         :precision binary32
         (* (fma (* s (fma 21.333333333333332 u 8.0)) u (* 4.0 s)) u))
        float code(float s, float u) {
        	return fmaf((s * fmaf(21.333333333333332f, u, 8.0f)), u, (4.0f * s)) * u;
        }
        
        function code(s, u)
        	return Float32(fma(Float32(s * fma(Float32(21.333333333333332), u, Float32(8.0))), u, Float32(Float32(4.0) * s)) * u)
        end
        
        \begin{array}{l}
        
        \\
        \mathsf{fma}\left(s \cdot \mathsf{fma}\left(21.333333333333332, u, 8\right), u, 4 \cdot s\right) \cdot u
        \end{array}
        
        Derivation
        1. Initial program 63.2%

          \[s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right) \]
        2. Add Preprocessing
        3. Taylor expanded in u around 0

          \[\leadsto \color{blue}{u \cdot \left(4 \cdot s + u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right)\right)} \]
        4. Step-by-step derivation
          1. *-commutativeN/A

            \[\leadsto \color{blue}{\left(4 \cdot s + u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right)\right) \cdot u} \]
          2. lower-*.f32N/A

            \[\leadsto \color{blue}{\left(4 \cdot s + u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right)\right) \cdot u} \]
          3. +-commutativeN/A

            \[\leadsto \color{blue}{\left(u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right) + 4 \cdot s\right)} \cdot u \]
          4. *-commutativeN/A

            \[\leadsto \left(\color{blue}{\left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right) \cdot u} + 4 \cdot s\right) \cdot u \]
          5. lower-fma.f32N/A

            \[\leadsto \color{blue}{\mathsf{fma}\left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right), u, 4 \cdot s\right)} \cdot u \]
          6. *-commutativeN/A

            \[\leadsto \mathsf{fma}\left(8 \cdot s + \frac{64}{3} \cdot \color{blue}{\left(u \cdot s\right)}, u, 4 \cdot s\right) \cdot u \]
          7. associate-*r*N/A

            \[\leadsto \mathsf{fma}\left(8 \cdot s + \color{blue}{\left(\frac{64}{3} \cdot u\right) \cdot s}, u, 4 \cdot s\right) \cdot u \]
          8. distribute-rgt-outN/A

            \[\leadsto \mathsf{fma}\left(\color{blue}{s \cdot \left(8 + \frac{64}{3} \cdot u\right)}, u, 4 \cdot s\right) \cdot u \]
          9. lower-*.f32N/A

            \[\leadsto \mathsf{fma}\left(\color{blue}{s \cdot \left(8 + \frac{64}{3} \cdot u\right)}, u, 4 \cdot s\right) \cdot u \]
          10. +-commutativeN/A

            \[\leadsto \mathsf{fma}\left(s \cdot \color{blue}{\left(\frac{64}{3} \cdot u + 8\right)}, u, 4 \cdot s\right) \cdot u \]
          11. lower-fma.f32N/A

            \[\leadsto \mathsf{fma}\left(s \cdot \color{blue}{\mathsf{fma}\left(\frac{64}{3}, u, 8\right)}, u, 4 \cdot s\right) \cdot u \]
          12. lower-*.f3291.5

            \[\leadsto \mathsf{fma}\left(s \cdot \mathsf{fma}\left(21.333333333333332, u, 8\right), u, \color{blue}{4 \cdot s}\right) \cdot u \]
        5. Applied rewrites91.5%

          \[\leadsto \color{blue}{\mathsf{fma}\left(s \cdot \mathsf{fma}\left(21.333333333333332, u, 8\right), u, 4 \cdot s\right) \cdot u} \]
        6. Add Preprocessing

        Alternative 7: 90.8% accurate, 5.0× speedup?

        \[\begin{array}{l} \\ \left(s \cdot \left(4 + \mathsf{fma}\left(21.333333333333332, u, 8\right) \cdot u\right)\right) \cdot u \end{array} \]
        (FPCore (s u)
         :precision binary32
         (* (* s (+ 4.0 (* (fma 21.333333333333332 u 8.0) u))) u))
        float code(float s, float u) {
        	return (s * (4.0f + (fmaf(21.333333333333332f, u, 8.0f) * u))) * u;
        }
        
        function code(s, u)
        	return Float32(Float32(s * Float32(Float32(4.0) + Float32(fma(Float32(21.333333333333332), u, Float32(8.0)) * u))) * u)
        end
        
        \begin{array}{l}
        
        \\
        \left(s \cdot \left(4 + \mathsf{fma}\left(21.333333333333332, u, 8\right) \cdot u\right)\right) \cdot u
        \end{array}
        
        Derivation
        1. Initial program 63.2%

          \[s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right) \]
        2. Add Preprocessing
        3. Taylor expanded in u around 0

          \[\leadsto \color{blue}{u \cdot \left(4 \cdot s + u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right)\right)} \]
        4. Step-by-step derivation
          1. *-commutativeN/A

            \[\leadsto \color{blue}{\left(4 \cdot s + u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right)\right) \cdot u} \]
          2. lower-*.f32N/A

            \[\leadsto \color{blue}{\left(4 \cdot s + u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right)\right) \cdot u} \]
          3. +-commutativeN/A

            \[\leadsto \color{blue}{\left(u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right) + 4 \cdot s\right)} \cdot u \]
          4. *-commutativeN/A

            \[\leadsto \left(\color{blue}{\left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right) \cdot u} + 4 \cdot s\right) \cdot u \]
          5. lower-fma.f32N/A

            \[\leadsto \color{blue}{\mathsf{fma}\left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right), u, 4 \cdot s\right)} \cdot u \]
          6. *-commutativeN/A

            \[\leadsto \mathsf{fma}\left(8 \cdot s + \frac{64}{3} \cdot \color{blue}{\left(u \cdot s\right)}, u, 4 \cdot s\right) \cdot u \]
          7. associate-*r*N/A

            \[\leadsto \mathsf{fma}\left(8 \cdot s + \color{blue}{\left(\frac{64}{3} \cdot u\right) \cdot s}, u, 4 \cdot s\right) \cdot u \]
          8. distribute-rgt-outN/A

            \[\leadsto \mathsf{fma}\left(\color{blue}{s \cdot \left(8 + \frac{64}{3} \cdot u\right)}, u, 4 \cdot s\right) \cdot u \]
          9. lower-*.f32N/A

            \[\leadsto \mathsf{fma}\left(\color{blue}{s \cdot \left(8 + \frac{64}{3} \cdot u\right)}, u, 4 \cdot s\right) \cdot u \]
          10. +-commutativeN/A

            \[\leadsto \mathsf{fma}\left(s \cdot \color{blue}{\left(\frac{64}{3} \cdot u + 8\right)}, u, 4 \cdot s\right) \cdot u \]
          11. lower-fma.f32N/A

            \[\leadsto \mathsf{fma}\left(s \cdot \color{blue}{\mathsf{fma}\left(\frac{64}{3}, u, 8\right)}, u, 4 \cdot s\right) \cdot u \]
          12. lower-*.f3291.5

            \[\leadsto \mathsf{fma}\left(s \cdot \mathsf{fma}\left(21.333333333333332, u, 8\right), u, \color{blue}{4 \cdot s}\right) \cdot u \]
        5. Applied rewrites91.5%

          \[\leadsto \color{blue}{\mathsf{fma}\left(s \cdot \mathsf{fma}\left(21.333333333333332, u, 8\right), u, 4 \cdot s\right) \cdot u} \]
        6. Step-by-step derivation
          1. Applied rewrites91.1%

            \[\leadsto \left(s \cdot \left(4 + \mathsf{fma}\left(21.333333333333332, u, 8\right) \cdot u\right)\right) \cdot u \]
          2. Add Preprocessing

          Alternative 8: 90.8% accurate, 5.4× speedup?

          \[\begin{array}{l} \\ \left(\mathsf{fma}\left(\mathsf{fma}\left(21.333333333333332, u, 8\right), u, 4\right) \cdot s\right) \cdot u \end{array} \]
          (FPCore (s u)
           :precision binary32
           (* (* (fma (fma 21.333333333333332 u 8.0) u 4.0) s) u))
          float code(float s, float u) {
          	return (fmaf(fmaf(21.333333333333332f, u, 8.0f), u, 4.0f) * s) * u;
          }
          
          function code(s, u)
          	return Float32(Float32(fma(fma(Float32(21.333333333333332), u, Float32(8.0)), u, Float32(4.0)) * s) * u)
          end
          
          \begin{array}{l}
          
          \\
          \left(\mathsf{fma}\left(\mathsf{fma}\left(21.333333333333332, u, 8\right), u, 4\right) \cdot s\right) \cdot u
          \end{array}
          
          Derivation
          1. Initial program 63.2%

            \[s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right) \]
          2. Add Preprocessing
          3. Applied rewrites99.2%

            \[\leadsto \color{blue}{\left(-\mathsf{log1p}\left(-4 \cdot u\right)\right) \cdot s} \]
          4. Taylor expanded in u around 0

            \[\leadsto \color{blue}{u \cdot \left(4 \cdot s + u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right)\right)} \]
          5. Step-by-step derivation
            1. *-commutativeN/A

              \[\leadsto \color{blue}{\left(4 \cdot s + u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right)\right) \cdot u} \]
            2. lower-*.f32N/A

              \[\leadsto \color{blue}{\left(4 \cdot s + u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right)\right) \cdot u} \]
          6. Applied rewrites91.1%

            \[\leadsto \color{blue}{\left(\mathsf{fma}\left(\mathsf{fma}\left(21.333333333333332, u, 8\right), u, 4\right) \cdot s\right) \cdot u} \]
          7. Add Preprocessing

          Alternative 9: 90.5% accurate, 5.4× speedup?

          \[\begin{array}{l} \\ \mathsf{fma}\left(\mathsf{fma}\left(21.333333333333332, u, 8\right), u, 4\right) \cdot \left(s \cdot u\right) \end{array} \]
          (FPCore (s u)
           :precision binary32
           (* (fma (fma 21.333333333333332 u 8.0) u 4.0) (* s u)))
          float code(float s, float u) {
          	return fmaf(fmaf(21.333333333333332f, u, 8.0f), u, 4.0f) * (s * u);
          }
          
          function code(s, u)
          	return Float32(fma(fma(Float32(21.333333333333332), u, Float32(8.0)), u, Float32(4.0)) * Float32(s * u))
          end
          
          \begin{array}{l}
          
          \\
          \mathsf{fma}\left(\mathsf{fma}\left(21.333333333333332, u, 8\right), u, 4\right) \cdot \left(s \cdot u\right)
          \end{array}
          
          Derivation
          1. Initial program 63.2%

            \[s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right) \]
          2. Add Preprocessing
          3. Taylor expanded in u around 0

            \[\leadsto \color{blue}{u \cdot \left(4 \cdot s + u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right)\right)} \]
          4. Step-by-step derivation
            1. *-commutativeN/A

              \[\leadsto \color{blue}{\left(4 \cdot s + u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right)\right) \cdot u} \]
            2. lower-*.f32N/A

              \[\leadsto \color{blue}{\left(4 \cdot s + u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right)\right) \cdot u} \]
            3. +-commutativeN/A

              \[\leadsto \color{blue}{\left(u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right) + 4 \cdot s\right)} \cdot u \]
            4. *-commutativeN/A

              \[\leadsto \left(\color{blue}{\left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right) \cdot u} + 4 \cdot s\right) \cdot u \]
            5. lower-fma.f32N/A

              \[\leadsto \color{blue}{\mathsf{fma}\left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right), u, 4 \cdot s\right)} \cdot u \]
            6. *-commutativeN/A

              \[\leadsto \mathsf{fma}\left(8 \cdot s + \frac{64}{3} \cdot \color{blue}{\left(u \cdot s\right)}, u, 4 \cdot s\right) \cdot u \]
            7. associate-*r*N/A

              \[\leadsto \mathsf{fma}\left(8 \cdot s + \color{blue}{\left(\frac{64}{3} \cdot u\right) \cdot s}, u, 4 \cdot s\right) \cdot u \]
            8. distribute-rgt-outN/A

              \[\leadsto \mathsf{fma}\left(\color{blue}{s \cdot \left(8 + \frac{64}{3} \cdot u\right)}, u, 4 \cdot s\right) \cdot u \]
            9. lower-*.f32N/A

              \[\leadsto \mathsf{fma}\left(\color{blue}{s \cdot \left(8 + \frac{64}{3} \cdot u\right)}, u, 4 \cdot s\right) \cdot u \]
            10. +-commutativeN/A

              \[\leadsto \mathsf{fma}\left(s \cdot \color{blue}{\left(\frac{64}{3} \cdot u + 8\right)}, u, 4 \cdot s\right) \cdot u \]
            11. lower-fma.f32N/A

              \[\leadsto \mathsf{fma}\left(s \cdot \color{blue}{\mathsf{fma}\left(\frac{64}{3}, u, 8\right)}, u, 4 \cdot s\right) \cdot u \]
            12. lower-*.f3291.5

              \[\leadsto \mathsf{fma}\left(s \cdot \mathsf{fma}\left(21.333333333333332, u, 8\right), u, \color{blue}{4 \cdot s}\right) \cdot u \]
          5. Applied rewrites91.5%

            \[\leadsto \color{blue}{\mathsf{fma}\left(s \cdot \mathsf{fma}\left(21.333333333333332, u, 8\right), u, 4 \cdot s\right) \cdot u} \]
          6. Step-by-step derivation
            1. Applied rewrites91.1%

              \[\leadsto \left(s \cdot \left(4 + \mathsf{fma}\left(21.333333333333332, u, 8\right) \cdot u\right)\right) \cdot u \]
            2. Step-by-step derivation
              1. Applied rewrites90.8%

                \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(21.333333333333332, u, 8\right), u, 4\right) \cdot \color{blue}{\left(s \cdot u\right)} \]
              2. Add Preprocessing

              Alternative 10: 86.7% accurate, 5.7× speedup?

              \[\begin{array}{l} \\ \mathsf{fma}\left(8 \cdot s, u, 4 \cdot s\right) \cdot u \end{array} \]
              (FPCore (s u) :precision binary32 (* (fma (* 8.0 s) u (* 4.0 s)) u))
              float code(float s, float u) {
              	return fmaf((8.0f * s), u, (4.0f * s)) * u;
              }
              
              function code(s, u)
              	return Float32(fma(Float32(Float32(8.0) * s), u, Float32(Float32(4.0) * s)) * u)
              end
              
              \begin{array}{l}
              
              \\
              \mathsf{fma}\left(8 \cdot s, u, 4 \cdot s\right) \cdot u
              \end{array}
              
              Derivation
              1. Initial program 63.2%

                \[s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right) \]
              2. Add Preprocessing
              3. Taylor expanded in u around 0

                \[\leadsto \color{blue}{u \cdot \left(4 \cdot s + u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right)\right)} \]
              4. Step-by-step derivation
                1. *-commutativeN/A

                  \[\leadsto \color{blue}{\left(4 \cdot s + u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right)\right) \cdot u} \]
                2. lower-*.f32N/A

                  \[\leadsto \color{blue}{\left(4 \cdot s + u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right)\right) \cdot u} \]
                3. +-commutativeN/A

                  \[\leadsto \color{blue}{\left(u \cdot \left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right) + 4 \cdot s\right)} \cdot u \]
                4. *-commutativeN/A

                  \[\leadsto \left(\color{blue}{\left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right)\right) \cdot u} + 4 \cdot s\right) \cdot u \]
                5. lower-fma.f32N/A

                  \[\leadsto \color{blue}{\mathsf{fma}\left(8 \cdot s + \frac{64}{3} \cdot \left(s \cdot u\right), u, 4 \cdot s\right)} \cdot u \]
                6. *-commutativeN/A

                  \[\leadsto \mathsf{fma}\left(8 \cdot s + \frac{64}{3} \cdot \color{blue}{\left(u \cdot s\right)}, u, 4 \cdot s\right) \cdot u \]
                7. associate-*r*N/A

                  \[\leadsto \mathsf{fma}\left(8 \cdot s + \color{blue}{\left(\frac{64}{3} \cdot u\right) \cdot s}, u, 4 \cdot s\right) \cdot u \]
                8. distribute-rgt-outN/A

                  \[\leadsto \mathsf{fma}\left(\color{blue}{s \cdot \left(8 + \frac{64}{3} \cdot u\right)}, u, 4 \cdot s\right) \cdot u \]
                9. lower-*.f32N/A

                  \[\leadsto \mathsf{fma}\left(\color{blue}{s \cdot \left(8 + \frac{64}{3} \cdot u\right)}, u, 4 \cdot s\right) \cdot u \]
                10. +-commutativeN/A

                  \[\leadsto \mathsf{fma}\left(s \cdot \color{blue}{\left(\frac{64}{3} \cdot u + 8\right)}, u, 4 \cdot s\right) \cdot u \]
                11. lower-fma.f32N/A

                  \[\leadsto \mathsf{fma}\left(s \cdot \color{blue}{\mathsf{fma}\left(\frac{64}{3}, u, 8\right)}, u, 4 \cdot s\right) \cdot u \]
                12. lower-*.f3291.5

                  \[\leadsto \mathsf{fma}\left(s \cdot \mathsf{fma}\left(21.333333333333332, u, 8\right), u, \color{blue}{4 \cdot s}\right) \cdot u \]
              5. Applied rewrites91.5%

                \[\leadsto \color{blue}{\mathsf{fma}\left(s \cdot \mathsf{fma}\left(21.333333333333332, u, 8\right), u, 4 \cdot s\right) \cdot u} \]
              6. Taylor expanded in u around 0

                \[\leadsto \mathsf{fma}\left(8 \cdot s, u, 4 \cdot s\right) \cdot u \]
              7. Step-by-step derivation
                1. Applied rewrites86.7%

                  \[\leadsto \mathsf{fma}\left(8 \cdot s, u, 4 \cdot s\right) \cdot u \]
                2. Add Preprocessing

                Alternative 11: 86.5% accurate, 7.4× speedup?

                \[\begin{array}{l} \\ \left(s \cdot \mathsf{fma}\left(8, u, 4\right)\right) \cdot u \end{array} \]
                (FPCore (s u) :precision binary32 (* (* s (fma 8.0 u 4.0)) u))
                float code(float s, float u) {
                	return (s * fmaf(8.0f, u, 4.0f)) * u;
                }
                
                function code(s, u)
                	return Float32(Float32(s * fma(Float32(8.0), u, Float32(4.0))) * u)
                end
                
                \begin{array}{l}
                
                \\
                \left(s \cdot \mathsf{fma}\left(8, u, 4\right)\right) \cdot u
                \end{array}
                
                Derivation
                1. Initial program 63.2%

                  \[s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right) \]
                2. Add Preprocessing
                3. Taylor expanded in u around 0

                  \[\leadsto \color{blue}{u \cdot \left(4 \cdot s + 8 \cdot \left(s \cdot u\right)\right)} \]
                4. Step-by-step derivation
                  1. *-commutativeN/A

                    \[\leadsto \color{blue}{\left(4 \cdot s + 8 \cdot \left(s \cdot u\right)\right) \cdot u} \]
                  2. lower-*.f32N/A

                    \[\leadsto \color{blue}{\left(4 \cdot s + 8 \cdot \left(s \cdot u\right)\right) \cdot u} \]
                  3. *-commutativeN/A

                    \[\leadsto \left(4 \cdot s + 8 \cdot \color{blue}{\left(u \cdot s\right)}\right) \cdot u \]
                  4. associate-*r*N/A

                    \[\leadsto \left(4 \cdot s + \color{blue}{\left(8 \cdot u\right) \cdot s}\right) \cdot u \]
                  5. distribute-rgt-outN/A

                    \[\leadsto \color{blue}{\left(s \cdot \left(4 + 8 \cdot u\right)\right)} \cdot u \]
                  6. lower-*.f32N/A

                    \[\leadsto \color{blue}{\left(s \cdot \left(4 + 8 \cdot u\right)\right)} \cdot u \]
                  7. +-commutativeN/A

                    \[\leadsto \left(s \cdot \color{blue}{\left(8 \cdot u + 4\right)}\right) \cdot u \]
                  8. lower-fma.f3286.4

                    \[\leadsto \left(s \cdot \color{blue}{\mathsf{fma}\left(8, u, 4\right)}\right) \cdot u \]
                5. Applied rewrites86.4%

                  \[\leadsto \color{blue}{\left(s \cdot \mathsf{fma}\left(8, u, 4\right)\right) \cdot u} \]
                6. Add Preprocessing

                Alternative 12: 73.4% accurate, 11.4× speedup?

                \[\begin{array}{l} \\ s \cdot \left(4 \cdot u\right) \end{array} \]
                (FPCore (s u) :precision binary32 (* s (* 4.0 u)))
                float code(float s, float u) {
                	return s * (4.0f * u);
                }
                
                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(4) function code(s, u)
                use fmin_fmax_functions
                    real(4), intent (in) :: s
                    real(4), intent (in) :: u
                    code = s * (4.0e0 * u)
                end function
                
                function code(s, u)
                	return Float32(s * Float32(Float32(4.0) * u))
                end
                
                function tmp = code(s, u)
                	tmp = s * (single(4.0) * u);
                end
                
                \begin{array}{l}
                
                \\
                s \cdot \left(4 \cdot u\right)
                \end{array}
                
                Derivation
                1. Initial program 63.2%

                  \[s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right) \]
                2. Add Preprocessing
                3. Taylor expanded in u around 0

                  \[\leadsto s \cdot \color{blue}{\left(4 \cdot u\right)} \]
                4. Step-by-step derivation
                  1. lower-*.f3273.1

                    \[\leadsto s \cdot \color{blue}{\left(4 \cdot u\right)} \]
                5. Applied rewrites73.1%

                  \[\leadsto s \cdot \color{blue}{\left(4 \cdot u\right)} \]
                6. Add Preprocessing

                Alternative 13: 73.2% accurate, 11.4× speedup?

                \[\begin{array}{l} \\ 4 \cdot \left(s \cdot u\right) \end{array} \]
                (FPCore (s u) :precision binary32 (* 4.0 (* s u)))
                float code(float s, float u) {
                	return 4.0f * (s * u);
                }
                
                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(4) function code(s, u)
                use fmin_fmax_functions
                    real(4), intent (in) :: s
                    real(4), intent (in) :: u
                    code = 4.0e0 * (s * u)
                end function
                
                function code(s, u)
                	return Float32(Float32(4.0) * Float32(s * u))
                end
                
                function tmp = code(s, u)
                	tmp = single(4.0) * (s * u);
                end
                
                \begin{array}{l}
                
                \\
                4 \cdot \left(s \cdot u\right)
                \end{array}
                
                Derivation
                1. Initial program 63.2%

                  \[s \cdot \log \left(\frac{1}{1 - 4 \cdot u}\right) \]
                2. Add Preprocessing
                3. Taylor expanded in u around 0

                  \[\leadsto \color{blue}{u \cdot \left(4 \cdot s + 8 \cdot \left(s \cdot u\right)\right)} \]
                4. Step-by-step derivation
                  1. *-commutativeN/A

                    \[\leadsto \color{blue}{\left(4 \cdot s + 8 \cdot \left(s \cdot u\right)\right) \cdot u} \]
                  2. lower-*.f32N/A

                    \[\leadsto \color{blue}{\left(4 \cdot s + 8 \cdot \left(s \cdot u\right)\right) \cdot u} \]
                  3. *-commutativeN/A

                    \[\leadsto \left(4 \cdot s + 8 \cdot \color{blue}{\left(u \cdot s\right)}\right) \cdot u \]
                  4. associate-*r*N/A

                    \[\leadsto \left(4 \cdot s + \color{blue}{\left(8 \cdot u\right) \cdot s}\right) \cdot u \]
                  5. distribute-rgt-outN/A

                    \[\leadsto \color{blue}{\left(s \cdot \left(4 + 8 \cdot u\right)\right)} \cdot u \]
                  6. lower-*.f32N/A

                    \[\leadsto \color{blue}{\left(s \cdot \left(4 + 8 \cdot u\right)\right)} \cdot u \]
                  7. +-commutativeN/A

                    \[\leadsto \left(s \cdot \color{blue}{\left(8 \cdot u + 4\right)}\right) \cdot u \]
                  8. lower-fma.f3286.4

                    \[\leadsto \left(s \cdot \color{blue}{\mathsf{fma}\left(8, u, 4\right)}\right) \cdot u \]
                5. Applied rewrites86.4%

                  \[\leadsto \color{blue}{\left(s \cdot \mathsf{fma}\left(8, u, 4\right)\right) \cdot u} \]
                6. Step-by-step derivation
                  1. Applied rewrites86.1%

                    \[\leadsto \mathsf{fma}\left(8, u, 4\right) \cdot \color{blue}{\left(s \cdot u\right)} \]
                  2. Taylor expanded in u around 0

                    \[\leadsto 4 \cdot \left(\color{blue}{s} \cdot u\right) \]
                  3. Step-by-step derivation
                    1. Applied rewrites72.7%

                      \[\leadsto 4 \cdot \left(\color{blue}{s} \cdot u\right) \]
                    2. Add Preprocessing

                    Reproduce

                    ?
                    herbie shell --seed 2024358 
                    (FPCore (s u)
                      :name "Disney BSSRDF, sample scattering profile, lower"
                      :precision binary32
                      :pre (and (and (<= 0.0 s) (<= s 256.0)) (and (<= 2.328306437e-10 u) (<= u 0.25)))
                      (* s (log (/ 1.0 (- 1.0 (* 4.0 u))))))