Curve intersection, scale width based on ribbon orientation

Percentage Accurate: 97.3% → 99.2%
Time: 11.1s
Alternatives: 7
Speedup: 45.9×

Specification

?
\[\left(\left(\left(0 \leq normAngle \land normAngle \leq \frac{\mathsf{PI}\left(\right)}{2}\right) \land \left(-1 \leq n0\_i \land n0\_i \leq 1\right)\right) \land \left(-1 \leq n1\_i \land n1\_i \leq 1\right)\right) \land \left(2.328306437 \cdot 10^{-10} \leq u \land u \leq 1\right)\]
\[\begin{array}{l} \\ \begin{array}{l} t_0 := \frac{1}{\sin normAngle}\\ \left(\sin \left(\left(1 - u\right) \cdot normAngle\right) \cdot t\_0\right) \cdot n0\_i + \left(\sin \left(u \cdot normAngle\right) \cdot t\_0\right) \cdot n1\_i \end{array} \end{array} \]
(FPCore (normAngle u n0_i n1_i)
 :precision binary32
 (let* ((t_0 (/ 1.0 (sin normAngle))))
   (+
    (* (* (sin (* (- 1.0 u) normAngle)) t_0) n0_i)
    (* (* (sin (* u normAngle)) t_0) n1_i))))
float code(float normAngle, float u, float n0_i, float n1_i) {
	float t_0 = 1.0f / sinf(normAngle);
	return ((sinf(((1.0f - u) * normAngle)) * t_0) * n0_i) + ((sinf((u * normAngle)) * t_0) * n1_i);
}
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(normangle, u, n0_i, n1_i)
use fmin_fmax_functions
    real(4), intent (in) :: normangle
    real(4), intent (in) :: u
    real(4), intent (in) :: n0_i
    real(4), intent (in) :: n1_i
    real(4) :: t_0
    t_0 = 1.0e0 / sin(normangle)
    code = ((sin(((1.0e0 - u) * normangle)) * t_0) * n0_i) + ((sin((u * normangle)) * t_0) * n1_i)
end function
function code(normAngle, u, n0_i, n1_i)
	t_0 = Float32(Float32(1.0) / sin(normAngle))
	return Float32(Float32(Float32(sin(Float32(Float32(Float32(1.0) - u) * normAngle)) * t_0) * n0_i) + Float32(Float32(sin(Float32(u * normAngle)) * t_0) * n1_i))
end
function tmp = code(normAngle, u, n0_i, n1_i)
	t_0 = single(1.0) / sin(normAngle);
	tmp = ((sin(((single(1.0) - u) * normAngle)) * t_0) * n0_i) + ((sin((u * normAngle)) * t_0) * n1_i);
end
\begin{array}{l}

\\
\begin{array}{l}
t_0 := \frac{1}{\sin normAngle}\\
\left(\sin \left(\left(1 - u\right) \cdot normAngle\right) \cdot t\_0\right) \cdot n0\_i + \left(\sin \left(u \cdot normAngle\right) \cdot t\_0\right) \cdot n1\_i
\end{array}
\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 7 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: 97.3% accurate, 1.0× speedup?

\[\begin{array}{l} \\ \begin{array}{l} t_0 := \frac{1}{\sin normAngle}\\ \left(\sin \left(\left(1 - u\right) \cdot normAngle\right) \cdot t\_0\right) \cdot n0\_i + \left(\sin \left(u \cdot normAngle\right) \cdot t\_0\right) \cdot n1\_i \end{array} \end{array} \]
(FPCore (normAngle u n0_i n1_i)
 :precision binary32
 (let* ((t_0 (/ 1.0 (sin normAngle))))
   (+
    (* (* (sin (* (- 1.0 u) normAngle)) t_0) n0_i)
    (* (* (sin (* u normAngle)) t_0) n1_i))))
float code(float normAngle, float u, float n0_i, float n1_i) {
	float t_0 = 1.0f / sinf(normAngle);
	return ((sinf(((1.0f - u) * normAngle)) * t_0) * n0_i) + ((sinf((u * normAngle)) * t_0) * n1_i);
}
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(normangle, u, n0_i, n1_i)
use fmin_fmax_functions
    real(4), intent (in) :: normangle
    real(4), intent (in) :: u
    real(4), intent (in) :: n0_i
    real(4), intent (in) :: n1_i
    real(4) :: t_0
    t_0 = 1.0e0 / sin(normangle)
    code = ((sin(((1.0e0 - u) * normangle)) * t_0) * n0_i) + ((sin((u * normangle)) * t_0) * n1_i)
end function
function code(normAngle, u, n0_i, n1_i)
	t_0 = Float32(Float32(1.0) / sin(normAngle))
	return Float32(Float32(Float32(sin(Float32(Float32(Float32(1.0) - u) * normAngle)) * t_0) * n0_i) + Float32(Float32(sin(Float32(u * normAngle)) * t_0) * n1_i))
end
function tmp = code(normAngle, u, n0_i, n1_i)
	t_0 = single(1.0) / sin(normAngle);
	tmp = ((sin(((single(1.0) - u) * normAngle)) * t_0) * n0_i) + ((sin((u * normAngle)) * t_0) * n1_i);
end
\begin{array}{l}

\\
\begin{array}{l}
t_0 := \frac{1}{\sin normAngle}\\
\left(\sin \left(\left(1 - u\right) \cdot normAngle\right) \cdot t\_0\right) \cdot n0\_i + \left(\sin \left(u \cdot normAngle\right) \cdot t\_0\right) \cdot n1\_i
\end{array}
\end{array}

Alternative 1: 99.2% accurate, 5.5× speedup?

\[\begin{array}{l} \\ \begin{array}{l} t_0 := -0.16666666666666666 \cdot \left(normAngle \cdot normAngle\right)\\ \mathsf{fma}\left(\mathsf{fma}\left(t\_0, -3 \cdot n0\_i - \left(n1\_i - n0\_i\right), \mathsf{fma}\left(\mathsf{fma}\left(t\_0, \left(n1\_i - n0\_i\right) \cdot u, \left(\left(normAngle \cdot normAngle\right) \cdot n0\_i\right) \cdot -0.5\right), u, -n0\_i\right)\right) + n1\_i, u, n0\_i\right) \end{array} \end{array} \]
(FPCore (normAngle u n0_i n1_i)
 :precision binary32
 (let* ((t_0 (* -0.16666666666666666 (* normAngle normAngle))))
   (fma
    (+
     (fma
      t_0
      (- (* -3.0 n0_i) (- n1_i n0_i))
      (fma
       (fma t_0 (* (- n1_i n0_i) u) (* (* (* normAngle normAngle) n0_i) -0.5))
       u
       (- n0_i)))
     n1_i)
    u
    n0_i)))
float code(float normAngle, float u, float n0_i, float n1_i) {
	float t_0 = -0.16666666666666666f * (normAngle * normAngle);
	return fmaf((fmaf(t_0, ((-3.0f * n0_i) - (n1_i - n0_i)), fmaf(fmaf(t_0, ((n1_i - n0_i) * u), (((normAngle * normAngle) * n0_i) * -0.5f)), u, -n0_i)) + n1_i), u, n0_i);
}
function code(normAngle, u, n0_i, n1_i)
	t_0 = Float32(Float32(-0.16666666666666666) * Float32(normAngle * normAngle))
	return fma(Float32(fma(t_0, Float32(Float32(Float32(-3.0) * n0_i) - Float32(n1_i - n0_i)), fma(fma(t_0, Float32(Float32(n1_i - n0_i) * u), Float32(Float32(Float32(normAngle * normAngle) * n0_i) * Float32(-0.5))), u, Float32(-n0_i))) + n1_i), u, n0_i)
end
\begin{array}{l}

\\
\begin{array}{l}
t_0 := -0.16666666666666666 \cdot \left(normAngle \cdot normAngle\right)\\
\mathsf{fma}\left(\mathsf{fma}\left(t\_0, -3 \cdot n0\_i - \left(n1\_i - n0\_i\right), \mathsf{fma}\left(\mathsf{fma}\left(t\_0, \left(n1\_i - n0\_i\right) \cdot u, \left(\left(normAngle \cdot normAngle\right) \cdot n0\_i\right) \cdot -0.5\right), u, -n0\_i\right)\right) + n1\_i, u, n0\_i\right)
\end{array}
\end{array}
Derivation
  1. Initial program 96.7%

    \[\left(\sin \left(\left(1 - u\right) \cdot normAngle\right) \cdot \frac{1}{\sin normAngle}\right) \cdot n0\_i + \left(\sin \left(u \cdot normAngle\right) \cdot \frac{1}{\sin normAngle}\right) \cdot n1\_i \]
  2. Add Preprocessing
  3. Taylor expanded in normAngle around 0

    \[\leadsto \color{blue}{n0\_i \cdot \left(1 - u\right) + \left(n1\_i \cdot u + {normAngle}^{2} \cdot \left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right)\right)} \]
  4. Step-by-step derivation
    1. associate-+r+N/A

      \[\leadsto \color{blue}{\left(n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right) + {normAngle}^{2} \cdot \left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right)} \]
    2. +-commutativeN/A

      \[\leadsto \color{blue}{{normAngle}^{2} \cdot \left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right) + \left(n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right)} \]
    3. *-commutativeN/A

      \[\leadsto \color{blue}{\left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right) \cdot {normAngle}^{2}} + \left(n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right) \]
    4. lower-fma.f32N/A

      \[\leadsto \color{blue}{\mathsf{fma}\left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right), {normAngle}^{2}, n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right)} \]
  5. Applied rewrites98.9%

    \[\leadsto \color{blue}{\mathsf{fma}\left(-0.16666666666666666 \cdot \mathsf{fma}\left({\left(1 - u\right)}^{3}, n0\_i, {u}^{3} \cdot n1\_i - \mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)\right), normAngle \cdot normAngle, \mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)\right)} \]
  6. Taylor expanded in u around 0

    \[\leadsto n0\_i + \color{blue}{u \cdot \left(n1\_i + \left(-1 \cdot n0\_i + \left(\frac{-1}{6} \cdot \left({normAngle}^{2} \cdot \left(-3 \cdot n0\_i - \left(n1\_i + -1 \cdot n0\_i\right)\right)\right) + u \cdot \left(\frac{-1}{2} \cdot \left(n0\_i \cdot {normAngle}^{2}\right) + \frac{-1}{6} \cdot \left({normAngle}^{2} \cdot \left(u \cdot \left(n1\_i + -1 \cdot n0\_i\right)\right)\right)\right)\right)\right)\right)} \]
  7. Step-by-step derivation
    1. Applied rewrites99.2%

      \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666 \cdot \left(normAngle \cdot normAngle\right), -3 \cdot n0\_i - \left(n1\_i - n0\_i\right), \mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666 \cdot \left(normAngle \cdot normAngle\right), \left(n1\_i - n0\_i\right) \cdot u, \left(\left(normAngle \cdot normAngle\right) \cdot n0\_i\right) \cdot -0.5\right), u, -n0\_i\right)\right) + n1\_i, \color{blue}{u}, n0\_i\right) \]
    2. Add Preprocessing

    Alternative 2: 99.0% accurate, 11.8× speedup?

    \[\begin{array}{l} \\ \mathsf{fma}\left(-0.16666666666666666 \cdot \left(\left(-2 \cdot n0\_i - n1\_i\right) \cdot u\right), normAngle \cdot normAngle, \mathsf{fma}\left(n1\_i - n0\_i, u, n0\_i\right)\right) \end{array} \]
    (FPCore (normAngle u n0_i n1_i)
     :precision binary32
     (fma
      (* -0.16666666666666666 (* (- (* -2.0 n0_i) n1_i) u))
      (* normAngle normAngle)
      (fma (- n1_i n0_i) u n0_i)))
    float code(float normAngle, float u, float n0_i, float n1_i) {
    	return fmaf((-0.16666666666666666f * (((-2.0f * n0_i) - n1_i) * u)), (normAngle * normAngle), fmaf((n1_i - n0_i), u, n0_i));
    }
    
    function code(normAngle, u, n0_i, n1_i)
    	return fma(Float32(Float32(-0.16666666666666666) * Float32(Float32(Float32(Float32(-2.0) * n0_i) - n1_i) * u)), Float32(normAngle * normAngle), fma(Float32(n1_i - n0_i), u, n0_i))
    end
    
    \begin{array}{l}
    
    \\
    \mathsf{fma}\left(-0.16666666666666666 \cdot \left(\left(-2 \cdot n0\_i - n1\_i\right) \cdot u\right), normAngle \cdot normAngle, \mathsf{fma}\left(n1\_i - n0\_i, u, n0\_i\right)\right)
    \end{array}
    
    Derivation
    1. Initial program 96.7%

      \[\left(\sin \left(\left(1 - u\right) \cdot normAngle\right) \cdot \frac{1}{\sin normAngle}\right) \cdot n0\_i + \left(\sin \left(u \cdot normAngle\right) \cdot \frac{1}{\sin normAngle}\right) \cdot n1\_i \]
    2. Add Preprocessing
    3. Taylor expanded in normAngle around 0

      \[\leadsto \color{blue}{n0\_i \cdot \left(1 - u\right) + \left(n1\_i \cdot u + {normAngle}^{2} \cdot \left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right)\right)} \]
    4. Step-by-step derivation
      1. associate-+r+N/A

        \[\leadsto \color{blue}{\left(n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right) + {normAngle}^{2} \cdot \left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right)} \]
      2. +-commutativeN/A

        \[\leadsto \color{blue}{{normAngle}^{2} \cdot \left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right) + \left(n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right)} \]
      3. *-commutativeN/A

        \[\leadsto \color{blue}{\left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right) \cdot {normAngle}^{2}} + \left(n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right) \]
      4. lower-fma.f32N/A

        \[\leadsto \color{blue}{\mathsf{fma}\left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right), {normAngle}^{2}, n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right)} \]
    5. Applied rewrites98.9%

      \[\leadsto \color{blue}{\mathsf{fma}\left(-0.16666666666666666 \cdot \mathsf{fma}\left({\left(1 - u\right)}^{3}, n0\_i, {u}^{3} \cdot n1\_i - \mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)\right), normAngle \cdot normAngle, \mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)\right)} \]
    6. Taylor expanded in u around 0

      \[\leadsto \mathsf{fma}\left(\frac{-1}{6} \cdot \left(u \cdot \left(\left(-3 \cdot n0\_i + u \cdot \left(3 \cdot n0\_i + u \cdot \left(n1\_i + -1 \cdot n0\_i\right)\right)\right) - \left(n1\_i + -1 \cdot n0\_i\right)\right)\right), normAngle \cdot normAngle, \mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)\right) \]
    7. Step-by-step derivation
      1. Applied rewrites98.9%

        \[\leadsto \mathsf{fma}\left(-0.16666666666666666 \cdot \left(\left(\mathsf{fma}\left(\mathsf{fma}\left(n1\_i - n0\_i, u, 3 \cdot n0\_i\right), u, -3 \cdot n0\_i\right) - \left(n1\_i - n0\_i\right)\right) \cdot u\right), normAngle \cdot normAngle, \mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)\right) \]
      2. Taylor expanded in u around 0

        \[\leadsto \mathsf{fma}\left(\frac{-1}{6} \cdot \left(\left(\left(n0\_i + -3 \cdot n0\_i\right) - n1\_i\right) \cdot u\right), normAngle \cdot normAngle, \mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)\right) \]
      3. Step-by-step derivation
        1. Applied rewrites98.8%

          \[\leadsto \mathsf{fma}\left(-0.16666666666666666 \cdot \left(\left(-2 \cdot n0\_i - n1\_i\right) \cdot u\right), normAngle \cdot normAngle, \mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)\right) \]
        2. Taylor expanded in u around 0

          \[\leadsto \mathsf{fma}\left(\frac{-1}{6} \cdot \left(\left(-2 \cdot n0\_i - n1\_i\right) \cdot u\right), normAngle \cdot normAngle, n0\_i + u \cdot \left(n1\_i + -1 \cdot n0\_i\right)\right) \]
        3. Step-by-step derivation
          1. Applied rewrites99.1%

            \[\leadsto \mathsf{fma}\left(-0.16666666666666666 \cdot \left(\left(-2 \cdot n0\_i - n1\_i\right) \cdot u\right), normAngle \cdot normAngle, \mathsf{fma}\left(n1\_i - n0\_i, u, n0\_i\right)\right) \]
          2. Add Preprocessing

          Alternative 3: 99.0% accurate, 13.5× speedup?

          \[\begin{array}{l} \\ \mathsf{fma}\left(\mathsf{fma}\left(\left(normAngle \cdot normAngle\right) \cdot -0.16666666666666666, -2 \cdot n0\_i - n1\_i, n1\_i\right) - n0\_i, u, n0\_i\right) \end{array} \]
          (FPCore (normAngle u n0_i n1_i)
           :precision binary32
           (fma
            (-
             (fma
              (* (* normAngle normAngle) -0.16666666666666666)
              (- (* -2.0 n0_i) n1_i)
              n1_i)
             n0_i)
            u
            n0_i))
          float code(float normAngle, float u, float n0_i, float n1_i) {
          	return fmaf((fmaf(((normAngle * normAngle) * -0.16666666666666666f), ((-2.0f * n0_i) - n1_i), n1_i) - n0_i), u, n0_i);
          }
          
          function code(normAngle, u, n0_i, n1_i)
          	return fma(Float32(fma(Float32(Float32(normAngle * normAngle) * Float32(-0.16666666666666666)), Float32(Float32(Float32(-2.0) * n0_i) - n1_i), n1_i) - n0_i), u, n0_i)
          end
          
          \begin{array}{l}
          
          \\
          \mathsf{fma}\left(\mathsf{fma}\left(\left(normAngle \cdot normAngle\right) \cdot -0.16666666666666666, -2 \cdot n0\_i - n1\_i, n1\_i\right) - n0\_i, u, n0\_i\right)
          \end{array}
          
          Derivation
          1. Initial program 96.7%

            \[\left(\sin \left(\left(1 - u\right) \cdot normAngle\right) \cdot \frac{1}{\sin normAngle}\right) \cdot n0\_i + \left(\sin \left(u \cdot normAngle\right) \cdot \frac{1}{\sin normAngle}\right) \cdot n1\_i \]
          2. Add Preprocessing
          3. Taylor expanded in normAngle around 0

            \[\leadsto \color{blue}{n0\_i \cdot \left(1 - u\right) + \left(n1\_i \cdot u + {normAngle}^{2} \cdot \left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right)\right)} \]
          4. Step-by-step derivation
            1. associate-+r+N/A

              \[\leadsto \color{blue}{\left(n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right) + {normAngle}^{2} \cdot \left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right)} \]
            2. +-commutativeN/A

              \[\leadsto \color{blue}{{normAngle}^{2} \cdot \left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right) + \left(n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right)} \]
            3. *-commutativeN/A

              \[\leadsto \color{blue}{\left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right) \cdot {normAngle}^{2}} + \left(n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right) \]
            4. lower-fma.f32N/A

              \[\leadsto \color{blue}{\mathsf{fma}\left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right), {normAngle}^{2}, n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right)} \]
          5. Applied rewrites98.9%

            \[\leadsto \color{blue}{\mathsf{fma}\left(-0.16666666666666666 \cdot \mathsf{fma}\left({\left(1 - u\right)}^{3}, n0\_i, {u}^{3} \cdot n1\_i - \mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)\right), normAngle \cdot normAngle, \mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)\right)} \]
          6. Taylor expanded in u around 0

            \[\leadsto n0\_i + \color{blue}{u \cdot \left(n1\_i + \left(-1 \cdot n0\_i + \left(\frac{-1}{6} \cdot \left({normAngle}^{2} \cdot \left(-3 \cdot n0\_i - \left(n1\_i + -1 \cdot n0\_i\right)\right)\right) + u \cdot \left(\frac{-1}{2} \cdot \left(n0\_i \cdot {normAngle}^{2}\right) + \frac{-1}{6} \cdot \left({normAngle}^{2} \cdot \left(u \cdot \left(n1\_i + -1 \cdot n0\_i\right)\right)\right)\right)\right)\right)\right)} \]
          7. Step-by-step derivation
            1. Applied rewrites99.2%

              \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666 \cdot \left(normAngle \cdot normAngle\right), -3 \cdot n0\_i - \left(n1\_i - n0\_i\right), \mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666 \cdot \left(normAngle \cdot normAngle\right), \left(n1\_i - n0\_i\right) \cdot u, \left(\left(normAngle \cdot normAngle\right) \cdot n0\_i\right) \cdot -0.5\right), u, -n0\_i\right)\right) + n1\_i, \color{blue}{u}, n0\_i\right) \]
            2. Taylor expanded in u around 0

              \[\leadsto \mathsf{fma}\left(\left(n1\_i + \frac{-1}{6} \cdot \left({normAngle}^{2} \cdot \left(\left(n0\_i + -3 \cdot n0\_i\right) - n1\_i\right)\right)\right) - n0\_i, u, n0\_i\right) \]
            3. Step-by-step derivation
              1. Applied rewrites99.1%

                \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\left(normAngle \cdot normAngle\right) \cdot -0.16666666666666666, -2 \cdot n0\_i - n1\_i, n1\_i\right) - n0\_i, u, n0\_i\right) \]
              2. Add Preprocessing

              Alternative 4: 71.1% accurate, 21.8× speedup?

              \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;n1\_i \leq -5.000000018137469 \cdot 10^{-16} \lor \neg \left(n1\_i \leq 1.99999996490334 \cdot 10^{-14}\right):\\ \;\;\;\;u \cdot n1\_i\\ \mathbf{else}:\\ \;\;\;\;\left(1 - u\right) \cdot n0\_i\\ \end{array} \end{array} \]
              (FPCore (normAngle u n0_i n1_i)
               :precision binary32
               (if (or (<= n1_i -5.000000018137469e-16) (not (<= n1_i 1.99999996490334e-14)))
                 (* u n1_i)
                 (* (- 1.0 u) n0_i)))
              float code(float normAngle, float u, float n0_i, float n1_i) {
              	float tmp;
              	if ((n1_i <= -5.000000018137469e-16f) || !(n1_i <= 1.99999996490334e-14f)) {
              		tmp = u * n1_i;
              	} else {
              		tmp = (1.0f - u) * n0_i;
              	}
              	return tmp;
              }
              
              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(normangle, u, n0_i, n1_i)
              use fmin_fmax_functions
                  real(4), intent (in) :: normangle
                  real(4), intent (in) :: u
                  real(4), intent (in) :: n0_i
                  real(4), intent (in) :: n1_i
                  real(4) :: tmp
                  if ((n1_i <= (-5.000000018137469e-16)) .or. (.not. (n1_i <= 1.99999996490334e-14))) then
                      tmp = u * n1_i
                  else
                      tmp = (1.0e0 - u) * n0_i
                  end if
                  code = tmp
              end function
              
              function code(normAngle, u, n0_i, n1_i)
              	tmp = Float32(0.0)
              	if ((n1_i <= Float32(-5.000000018137469e-16)) || !(n1_i <= Float32(1.99999996490334e-14)))
              		tmp = Float32(u * n1_i);
              	else
              		tmp = Float32(Float32(Float32(1.0) - u) * n0_i);
              	end
              	return tmp
              end
              
              function tmp_2 = code(normAngle, u, n0_i, n1_i)
              	tmp = single(0.0);
              	if ((n1_i <= single(-5.000000018137469e-16)) || ~((n1_i <= single(1.99999996490334e-14))))
              		tmp = u * n1_i;
              	else
              		tmp = (single(1.0) - u) * n0_i;
              	end
              	tmp_2 = tmp;
              end
              
              \begin{array}{l}
              
              \\
              \begin{array}{l}
              \mathbf{if}\;n1\_i \leq -5.000000018137469 \cdot 10^{-16} \lor \neg \left(n1\_i \leq 1.99999996490334 \cdot 10^{-14}\right):\\
              \;\;\;\;u \cdot n1\_i\\
              
              \mathbf{else}:\\
              \;\;\;\;\left(1 - u\right) \cdot n0\_i\\
              
              
              \end{array}
              \end{array}
              
              Derivation
              1. Split input into 2 regimes
              2. if n1_i < -5.00000002e-16 or 1.99999996e-14 < n1_i

                1. Initial program 94.6%

                  \[\left(\sin \left(\left(1 - u\right) \cdot normAngle\right) \cdot \frac{1}{\sin normAngle}\right) \cdot n0\_i + \left(\sin \left(u \cdot normAngle\right) \cdot \frac{1}{\sin normAngle}\right) \cdot n1\_i \]
                2. Add Preprocessing
                3. Taylor expanded in normAngle around 0

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

                    \[\leadsto \color{blue}{\left(1 - u\right) \cdot n0\_i} + n1\_i \cdot u \]
                  2. lower-fma.f32N/A

                    \[\leadsto \color{blue}{\mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)} \]
                  3. lower--.f32N/A

                    \[\leadsto \mathsf{fma}\left(\color{blue}{1 - u}, n0\_i, n1\_i \cdot u\right) \]
                  4. lower-*.f3297.4

                    \[\leadsto \mathsf{fma}\left(1 - u, n0\_i, \color{blue}{n1\_i \cdot u}\right) \]
                5. Applied rewrites97.4%

                  \[\leadsto \color{blue}{\mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)} \]
                6. Taylor expanded in u around inf

                  \[\leadsto u \cdot \color{blue}{\left(n1\_i + -1 \cdot n0\_i\right)} \]
                7. Step-by-step derivation
                  1. Applied rewrites71.2%

                    \[\leadsto \left(n1\_i - n0\_i\right) \cdot \color{blue}{u} \]
                  2. Taylor expanded in n0_i around 0

                    \[\leadsto n1\_i \cdot \color{blue}{u} \]
                  3. Step-by-step derivation
                    1. Applied rewrites72.0%

                      \[\leadsto u \cdot \color{blue}{n1\_i} \]

                    if -5.00000002e-16 < n1_i < 1.99999996e-14

                    1. Initial program 98.0%

                      \[\left(\sin \left(\left(1 - u\right) \cdot normAngle\right) \cdot \frac{1}{\sin normAngle}\right) \cdot n0\_i + \left(\sin \left(u \cdot normAngle\right) \cdot \frac{1}{\sin normAngle}\right) \cdot n1\_i \]
                    2. Add Preprocessing
                    3. Taylor expanded in normAngle around 0

                      \[\leadsto \color{blue}{n0\_i \cdot \left(1 - u\right) + \left(n1\_i \cdot u + {normAngle}^{2} \cdot \left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right)\right)} \]
                    4. Step-by-step derivation
                      1. associate-+r+N/A

                        \[\leadsto \color{blue}{\left(n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right) + {normAngle}^{2} \cdot \left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right)} \]
                      2. +-commutativeN/A

                        \[\leadsto \color{blue}{{normAngle}^{2} \cdot \left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right) + \left(n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right)} \]
                      3. *-commutativeN/A

                        \[\leadsto \color{blue}{\left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right) \cdot {normAngle}^{2}} + \left(n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right) \]
                      4. lower-fma.f32N/A

                        \[\leadsto \color{blue}{\mathsf{fma}\left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right), {normAngle}^{2}, n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right)} \]
                    5. Applied rewrites98.7%

                      \[\leadsto \color{blue}{\mathsf{fma}\left(-0.16666666666666666 \cdot \mathsf{fma}\left({\left(1 - u\right)}^{3}, n0\_i, {u}^{3} \cdot n1\_i - \mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)\right), normAngle \cdot normAngle, \mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)\right)} \]
                    6. Taylor expanded in n0_i around inf

                      \[\leadsto n0\_i \cdot \color{blue}{\left(\left(1 + \frac{-1}{6} \cdot \left({normAngle}^{2} \cdot \left(\left(u + {\left(1 - u\right)}^{3}\right) - 1\right)\right)\right) - u\right)} \]
                    7. Step-by-step derivation
                      1. Applied rewrites75.7%

                        \[\leadsto \left(\mathsf{fma}\left(-0.16666666666666666 \cdot \left(normAngle \cdot normAngle\right), \left({\left(1 - u\right)}^{3} + u\right) - 1, 1\right) - u\right) \cdot \color{blue}{n0\_i} \]
                      2. Taylor expanded in normAngle around 0

                        \[\leadsto \left(1 - u\right) \cdot n0\_i \]
                      3. Step-by-step derivation
                        1. Applied rewrites75.2%

                          \[\leadsto \left(1 - u\right) \cdot n0\_i \]
                      4. Recombined 2 regimes into one program.
                      5. Final simplification73.9%

                        \[\leadsto \begin{array}{l} \mathbf{if}\;n1\_i \leq -5.000000018137469 \cdot 10^{-16} \lor \neg \left(n1\_i \leq 1.99999996490334 \cdot 10^{-14}\right):\\ \;\;\;\;u \cdot n1\_i\\ \mathbf{else}:\\ \;\;\;\;\left(1 - u\right) \cdot n0\_i\\ \end{array} \]
                      6. Add Preprocessing

                      Alternative 5: 60.5% accurate, 25.4× speedup?

                      \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;n1\_i \leq -5.000000018137469 \cdot 10^{-16} \lor \neg \left(n1\_i \leq 2.9999999050033628 \cdot 10^{-15}\right):\\ \;\;\;\;u \cdot n1\_i\\ \mathbf{else}:\\ \;\;\;\;1 \cdot n0\_i\\ \end{array} \end{array} \]
                      (FPCore (normAngle u n0_i n1_i)
                       :precision binary32
                       (if (or (<= n1_i -5.000000018137469e-16)
                               (not (<= n1_i 2.9999999050033628e-15)))
                         (* u n1_i)
                         (* 1.0 n0_i)))
                      float code(float normAngle, float u, float n0_i, float n1_i) {
                      	float tmp;
                      	if ((n1_i <= -5.000000018137469e-16f) || !(n1_i <= 2.9999999050033628e-15f)) {
                      		tmp = u * n1_i;
                      	} else {
                      		tmp = 1.0f * n0_i;
                      	}
                      	return tmp;
                      }
                      
                      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(normangle, u, n0_i, n1_i)
                      use fmin_fmax_functions
                          real(4), intent (in) :: normangle
                          real(4), intent (in) :: u
                          real(4), intent (in) :: n0_i
                          real(4), intent (in) :: n1_i
                          real(4) :: tmp
                          if ((n1_i <= (-5.000000018137469e-16)) .or. (.not. (n1_i <= 2.9999999050033628e-15))) then
                              tmp = u * n1_i
                          else
                              tmp = 1.0e0 * n0_i
                          end if
                          code = tmp
                      end function
                      
                      function code(normAngle, u, n0_i, n1_i)
                      	tmp = Float32(0.0)
                      	if ((n1_i <= Float32(-5.000000018137469e-16)) || !(n1_i <= Float32(2.9999999050033628e-15)))
                      		tmp = Float32(u * n1_i);
                      	else
                      		tmp = Float32(Float32(1.0) * n0_i);
                      	end
                      	return tmp
                      end
                      
                      function tmp_2 = code(normAngle, u, n0_i, n1_i)
                      	tmp = single(0.0);
                      	if ((n1_i <= single(-5.000000018137469e-16)) || ~((n1_i <= single(2.9999999050033628e-15))))
                      		tmp = u * n1_i;
                      	else
                      		tmp = single(1.0) * n0_i;
                      	end
                      	tmp_2 = tmp;
                      end
                      
                      \begin{array}{l}
                      
                      \\
                      \begin{array}{l}
                      \mathbf{if}\;n1\_i \leq -5.000000018137469 \cdot 10^{-16} \lor \neg \left(n1\_i \leq 2.9999999050033628 \cdot 10^{-15}\right):\\
                      \;\;\;\;u \cdot n1\_i\\
                      
                      \mathbf{else}:\\
                      \;\;\;\;1 \cdot n0\_i\\
                      
                      
                      \end{array}
                      \end{array}
                      
                      Derivation
                      1. Split input into 2 regimes
                      2. if n1_i < -5.00000002e-16 or 2.99999991e-15 < n1_i

                        1. Initial program 94.7%

                          \[\left(\sin \left(\left(1 - u\right) \cdot normAngle\right) \cdot \frac{1}{\sin normAngle}\right) \cdot n0\_i + \left(\sin \left(u \cdot normAngle\right) \cdot \frac{1}{\sin normAngle}\right) \cdot n1\_i \]
                        2. Add Preprocessing
                        3. Taylor expanded in normAngle around 0

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

                            \[\leadsto \color{blue}{\left(1 - u\right) \cdot n0\_i} + n1\_i \cdot u \]
                          2. lower-fma.f32N/A

                            \[\leadsto \color{blue}{\mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)} \]
                          3. lower--.f32N/A

                            \[\leadsto \mathsf{fma}\left(\color{blue}{1 - u}, n0\_i, n1\_i \cdot u\right) \]
                          4. lower-*.f3297.5

                            \[\leadsto \mathsf{fma}\left(1 - u, n0\_i, \color{blue}{n1\_i \cdot u}\right) \]
                        5. Applied rewrites97.5%

                          \[\leadsto \color{blue}{\mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)} \]
                        6. Taylor expanded in u around inf

                          \[\leadsto u \cdot \color{blue}{\left(n1\_i + -1 \cdot n0\_i\right)} \]
                        7. Step-by-step derivation
                          1. Applied rewrites70.8%

                            \[\leadsto \left(n1\_i - n0\_i\right) \cdot \color{blue}{u} \]
                          2. Taylor expanded in n0_i around 0

                            \[\leadsto n1\_i \cdot \color{blue}{u} \]
                          3. Step-by-step derivation
                            1. Applied rewrites71.6%

                              \[\leadsto u \cdot \color{blue}{n1\_i} \]

                            if -5.00000002e-16 < n1_i < 2.99999991e-15

                            1. Initial program 98.0%

                              \[\left(\sin \left(\left(1 - u\right) \cdot normAngle\right) \cdot \frac{1}{\sin normAngle}\right) \cdot n0\_i + \left(\sin \left(u \cdot normAngle\right) \cdot \frac{1}{\sin normAngle}\right) \cdot n1\_i \]
                            2. Add Preprocessing
                            3. Taylor expanded in normAngle around 0

                              \[\leadsto \color{blue}{n0\_i \cdot \left(1 - u\right) + \left(n1\_i \cdot u + {normAngle}^{2} \cdot \left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right)\right)} \]
                            4. Step-by-step derivation
                              1. associate-+r+N/A

                                \[\leadsto \color{blue}{\left(n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right) + {normAngle}^{2} \cdot \left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right)} \]
                              2. +-commutativeN/A

                                \[\leadsto \color{blue}{{normAngle}^{2} \cdot \left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right) + \left(n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right)} \]
                              3. *-commutativeN/A

                                \[\leadsto \color{blue}{\left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right) \cdot {normAngle}^{2}} + \left(n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right) \]
                              4. lower-fma.f32N/A

                                \[\leadsto \color{blue}{\mathsf{fma}\left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right), {normAngle}^{2}, n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right)} \]
                            5. Applied rewrites98.7%

                              \[\leadsto \color{blue}{\mathsf{fma}\left(-0.16666666666666666 \cdot \mathsf{fma}\left({\left(1 - u\right)}^{3}, n0\_i, {u}^{3} \cdot n1\_i - \mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)\right), normAngle \cdot normAngle, \mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)\right)} \]
                            6. Taylor expanded in n0_i around inf

                              \[\leadsto n0\_i \cdot \color{blue}{\left(\left(1 + \frac{-1}{6} \cdot \left({normAngle}^{2} \cdot \left(\left(u + {\left(1 - u\right)}^{3}\right) - 1\right)\right)\right) - u\right)} \]
                            7. Step-by-step derivation
                              1. Applied rewrites76.0%

                                \[\leadsto \left(\mathsf{fma}\left(-0.16666666666666666 \cdot \left(normAngle \cdot normAngle\right), \left({\left(1 - u\right)}^{3} + u\right) - 1, 1\right) - u\right) \cdot \color{blue}{n0\_i} \]
                              2. Taylor expanded in u around 0

                                \[\leadsto 1 \cdot n0\_i \]
                              3. Step-by-step derivation
                                1. Applied rewrites62.0%

                                  \[\leadsto 1 \cdot n0\_i \]
                              4. Recombined 2 regimes into one program.
                              5. Final simplification65.9%

                                \[\leadsto \begin{array}{l} \mathbf{if}\;n1\_i \leq -5.000000018137469 \cdot 10^{-16} \lor \neg \left(n1\_i \leq 2.9999999050033628 \cdot 10^{-15}\right):\\ \;\;\;\;u \cdot n1\_i\\ \mathbf{else}:\\ \;\;\;\;1 \cdot n0\_i\\ \end{array} \]
                              6. Add Preprocessing

                              Alternative 6: 98.1% accurate, 45.9× speedup?

                              \[\begin{array}{l} \\ \mathsf{fma}\left(n1\_i - n0\_i, u, n0\_i\right) \end{array} \]
                              (FPCore (normAngle u n0_i n1_i) :precision binary32 (fma (- n1_i n0_i) u n0_i))
                              float code(float normAngle, float u, float n0_i, float n1_i) {
                              	return fmaf((n1_i - n0_i), u, n0_i);
                              }
                              
                              function code(normAngle, u, n0_i, n1_i)
                              	return fma(Float32(n1_i - n0_i), u, n0_i)
                              end
                              
                              \begin{array}{l}
                              
                              \\
                              \mathsf{fma}\left(n1\_i - n0\_i, u, n0\_i\right)
                              \end{array}
                              
                              Derivation
                              1. Initial program 96.7%

                                \[\left(\sin \left(\left(1 - u\right) \cdot normAngle\right) \cdot \frac{1}{\sin normAngle}\right) \cdot n0\_i + \left(\sin \left(u \cdot normAngle\right) \cdot \frac{1}{\sin normAngle}\right) \cdot n1\_i \]
                              2. Add Preprocessing
                              3. Taylor expanded in normAngle around 0

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

                                  \[\leadsto \color{blue}{\left(1 - u\right) \cdot n0\_i} + n1\_i \cdot u \]
                                2. lower-fma.f32N/A

                                  \[\leadsto \color{blue}{\mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)} \]
                                3. lower--.f32N/A

                                  \[\leadsto \mathsf{fma}\left(\color{blue}{1 - u}, n0\_i, n1\_i \cdot u\right) \]
                                4. lower-*.f3297.8

                                  \[\leadsto \mathsf{fma}\left(1 - u, n0\_i, \color{blue}{n1\_i \cdot u}\right) \]
                              5. Applied rewrites97.8%

                                \[\leadsto \color{blue}{\mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)} \]
                              6. Taylor expanded in u around 0

                                \[\leadsto n0\_i + \color{blue}{u \cdot \left(n1\_i + -1 \cdot n0\_i\right)} \]
                              7. Step-by-step derivation
                                1. Applied rewrites98.1%

                                  \[\leadsto \mathsf{fma}\left(n1\_i - n0\_i, \color{blue}{u}, n0\_i\right) \]
                                2. Add Preprocessing

                                Alternative 7: 46.5% accurate, 76.5× speedup?

                                \[\begin{array}{l} \\ 1 \cdot n0\_i \end{array} \]
                                (FPCore (normAngle u n0_i n1_i) :precision binary32 (* 1.0 n0_i))
                                float code(float normAngle, float u, float n0_i, float n1_i) {
                                	return 1.0f * n0_i;
                                }
                                
                                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(normangle, u, n0_i, n1_i)
                                use fmin_fmax_functions
                                    real(4), intent (in) :: normangle
                                    real(4), intent (in) :: u
                                    real(4), intent (in) :: n0_i
                                    real(4), intent (in) :: n1_i
                                    code = 1.0e0 * n0_i
                                end function
                                
                                function code(normAngle, u, n0_i, n1_i)
                                	return Float32(Float32(1.0) * n0_i)
                                end
                                
                                function tmp = code(normAngle, u, n0_i, n1_i)
                                	tmp = single(1.0) * n0_i;
                                end
                                
                                \begin{array}{l}
                                
                                \\
                                1 \cdot n0\_i
                                \end{array}
                                
                                Derivation
                                1. Initial program 96.7%

                                  \[\left(\sin \left(\left(1 - u\right) \cdot normAngle\right) \cdot \frac{1}{\sin normAngle}\right) \cdot n0\_i + \left(\sin \left(u \cdot normAngle\right) \cdot \frac{1}{\sin normAngle}\right) \cdot n1\_i \]
                                2. Add Preprocessing
                                3. Taylor expanded in normAngle around 0

                                  \[\leadsto \color{blue}{n0\_i \cdot \left(1 - u\right) + \left(n1\_i \cdot u + {normAngle}^{2} \cdot \left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right)\right)} \]
                                4. Step-by-step derivation
                                  1. associate-+r+N/A

                                    \[\leadsto \color{blue}{\left(n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right) + {normAngle}^{2} \cdot \left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right)} \]
                                  2. +-commutativeN/A

                                    \[\leadsto \color{blue}{{normAngle}^{2} \cdot \left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right) + \left(n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right)} \]
                                  3. *-commutativeN/A

                                    \[\leadsto \color{blue}{\left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right)\right) \cdot {normAngle}^{2}} + \left(n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right) \]
                                  4. lower-fma.f32N/A

                                    \[\leadsto \color{blue}{\mathsf{fma}\left(\left(\frac{-1}{6} \cdot \left(n0\_i \cdot {\left(1 - u\right)}^{3}\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot {u}^{3}\right)\right) - \left(\frac{-1}{6} \cdot \left(n0\_i \cdot \left(1 - u\right)\right) + \frac{-1}{6} \cdot \left(n1\_i \cdot u\right)\right), {normAngle}^{2}, n0\_i \cdot \left(1 - u\right) + n1\_i \cdot u\right)} \]
                                5. Applied rewrites98.9%

                                  \[\leadsto \color{blue}{\mathsf{fma}\left(-0.16666666666666666 \cdot \mathsf{fma}\left({\left(1 - u\right)}^{3}, n0\_i, {u}^{3} \cdot n1\_i - \mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)\right), normAngle \cdot normAngle, \mathsf{fma}\left(1 - u, n0\_i, n1\_i \cdot u\right)\right)} \]
                                6. Taylor expanded in n0_i around inf

                                  \[\leadsto n0\_i \cdot \color{blue}{\left(\left(1 + \frac{-1}{6} \cdot \left({normAngle}^{2} \cdot \left(\left(u + {\left(1 - u\right)}^{3}\right) - 1\right)\right)\right) - u\right)} \]
                                7. Step-by-step derivation
                                  1. Applied rewrites54.8%

                                    \[\leadsto \left(\mathsf{fma}\left(-0.16666666666666666 \cdot \left(normAngle \cdot normAngle\right), \left({\left(1 - u\right)}^{3} + u\right) - 1, 1\right) - u\right) \cdot \color{blue}{n0\_i} \]
                                  2. Taylor expanded in u around 0

                                    \[\leadsto 1 \cdot n0\_i \]
                                  3. Step-by-step derivation
                                    1. Applied rewrites45.7%

                                      \[\leadsto 1 \cdot n0\_i \]
                                    2. Add Preprocessing

                                    Reproduce

                                    ?
                                    herbie shell --seed 2024364 
                                    (FPCore (normAngle u n0_i n1_i)
                                      :name "Curve intersection, scale width based on ribbon orientation"
                                      :precision binary32
                                      :pre (and (and (and (and (<= 0.0 normAngle) (<= normAngle (/ (PI) 2.0))) (and (<= -1.0 n0_i) (<= n0_i 1.0))) (and (<= -1.0 n1_i) (<= n1_i 1.0))) (and (<= 2.328306437e-10 u) (<= u 1.0)))
                                      (+ (* (* (sin (* (- 1.0 u) normAngle)) (/ 1.0 (sin normAngle))) n0_i) (* (* (sin (* u normAngle)) (/ 1.0 (sin normAngle))) n1_i)))