
(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);
}
real(4) function code(normangle, u, n0_i, n1_i)
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:
Herbie found 6 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(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);
}
real(4) function code(normangle, u, n0_i, n1_i)
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}
(FPCore (normAngle u n0_i n1_i)
:precision binary32
(+
n0_i
(*
u
(+
(- n1_i n0_i)
(*
(* normAngle normAngle)
(+
(* n1_i 0.16666666666666666)
(+ (* n0_i 0.5) (* n0_i -0.16666666666666666))))))))
float code(float normAngle, float u, float n0_i, float n1_i) {
return n0_i + (u * ((n1_i - n0_i) + ((normAngle * normAngle) * ((n1_i * 0.16666666666666666f) + ((n0_i * 0.5f) + (n0_i * -0.16666666666666666f))))));
}
real(4) function code(normangle, u, n0_i, n1_i)
real(4), intent (in) :: normangle
real(4), intent (in) :: u
real(4), intent (in) :: n0_i
real(4), intent (in) :: n1_i
code = n0_i + (u * ((n1_i - n0_i) + ((normangle * normangle) * ((n1_i * 0.16666666666666666e0) + ((n0_i * 0.5e0) + (n0_i * (-0.16666666666666666e0)))))))
end function
function code(normAngle, u, n0_i, n1_i) return Float32(n0_i + Float32(u * Float32(Float32(n1_i - n0_i) + Float32(Float32(normAngle * normAngle) * Float32(Float32(n1_i * Float32(0.16666666666666666)) + Float32(Float32(n0_i * Float32(0.5)) + Float32(n0_i * Float32(-0.16666666666666666)))))))) end
function tmp = code(normAngle, u, n0_i, n1_i) tmp = n0_i + (u * ((n1_i - n0_i) + ((normAngle * normAngle) * ((n1_i * single(0.16666666666666666)) + ((n0_i * single(0.5)) + (n0_i * single(-0.16666666666666666))))))); end
\begin{array}{l}
\\
n0\_i + u \cdot \left(\left(n1\_i - n0\_i\right) + \left(normAngle \cdot normAngle\right) \cdot \left(n1\_i \cdot 0.16666666666666666 + \left(n0\_i \cdot 0.5 + n0\_i \cdot -0.16666666666666666\right)\right)\right)
\end{array}
Initial program 97.5%
Taylor expanded in normAngle around 0
Simplified98.8%
Taylor expanded in u around 0
+-lowering-+.f32N/A
*-lowering-*.f32N/A
associate-+r+N/A
+-lowering-+.f32N/A
mul-1-negN/A
unsub-negN/A
--lowering--.f32N/A
*-lowering-*.f32N/A
unpow2N/A
*-lowering-*.f32N/A
associate--l+N/A
+-lowering-+.f32N/A
*-commutativeN/A
*-lowering-*.f32N/A
cancel-sign-sub-invN/A
metadata-evalN/A
+-lowering-+.f32N/A
*-commutativeN/A
*-lowering-*.f32N/A
*-commutativeN/A
*-lowering-*.f3299.0%
Simplified99.0%
(FPCore (normAngle u n0_i n1_i)
:precision binary32
(let* ((t_0 (* n0_i (- 1.0 u))))
(if (<= n0_i -4.999999918875795e-18)
t_0
(if (<= n0_i 1.500000029312222e-25) (* u n1_i) t_0))))
float code(float normAngle, float u, float n0_i, float n1_i) {
float t_0 = n0_i * (1.0f - u);
float tmp;
if (n0_i <= -4.999999918875795e-18f) {
tmp = t_0;
} else if (n0_i <= 1.500000029312222e-25f) {
tmp = u * n1_i;
} else {
tmp = t_0;
}
return tmp;
}
real(4) function code(normangle, u, n0_i, n1_i)
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
real(4) :: tmp
t_0 = n0_i * (1.0e0 - u)
if (n0_i <= (-4.999999918875795e-18)) then
tmp = t_0
else if (n0_i <= 1.500000029312222e-25) then
tmp = u * n1_i
else
tmp = t_0
end if
code = tmp
end function
function code(normAngle, u, n0_i, n1_i) t_0 = Float32(n0_i * Float32(Float32(1.0) - u)) tmp = Float32(0.0) if (n0_i <= Float32(-4.999999918875795e-18)) tmp = t_0; elseif (n0_i <= Float32(1.500000029312222e-25)) tmp = Float32(u * n1_i); else tmp = t_0; end return tmp end
function tmp_2 = code(normAngle, u, n0_i, n1_i) t_0 = n0_i * (single(1.0) - u); tmp = single(0.0); if (n0_i <= single(-4.999999918875795e-18)) tmp = t_0; elseif (n0_i <= single(1.500000029312222e-25)) tmp = u * n1_i; else tmp = t_0; end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
t_0 := n0\_i \cdot \left(1 - u\right)\\
\mathbf{if}\;n0\_i \leq -4.999999918875795 \cdot 10^{-18}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;n0\_i \leq 1.500000029312222 \cdot 10^{-25}:\\
\;\;\;\;u \cdot n1\_i\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if n0_i < -4.99999992e-18 or 1.50000003e-25 < n0_i Initial program 97.9%
Taylor expanded in n0_i around inf
*-commutativeN/A
associate-/l*N/A
*-lowering-*.f32N/A
sin-lowering-sin.f32N/A
*-lowering-*.f32N/A
--lowering--.f32N/A
/-lowering-/.f32N/A
sin-lowering-sin.f3278.6%
Simplified78.6%
Taylor expanded in normAngle around 0
*-lowering-*.f32N/A
--lowering--.f3278.5%
Simplified78.5%
if -4.99999992e-18 < n0_i < 1.50000003e-25Initial program 97.0%
Taylor expanded in normAngle around 0
Simplified98.8%
Taylor expanded in n0_i around -inf
Simplified98.6%
Taylor expanded in normAngle around 0
mul-1-negN/A
*-commutativeN/A
distribute-rgt-neg-inN/A
*-lowering-*.f32N/A
--lowering--.f32N/A
+-lowering-+.f32N/A
/-lowering-/.f32N/A
*-commutativeN/A
*-lowering-*.f32N/A
neg-lowering-neg.f3298.1%
Simplified98.1%
Taylor expanded in n1_i around inf
*-commutativeN/A
*-lowering-*.f3265.6%
Simplified65.6%
(FPCore (normAngle u n0_i n1_i) :precision binary32 (if (<= n0_i -4.999999918875795e-18) n0_i (if (<= n0_i 1.500000029312222e-25) (* u n1_i) n0_i)))
float code(float normAngle, float u, float n0_i, float n1_i) {
float tmp;
if (n0_i <= -4.999999918875795e-18f) {
tmp = n0_i;
} else if (n0_i <= 1.500000029312222e-25f) {
tmp = u * n1_i;
} else {
tmp = n0_i;
}
return tmp;
}
real(4) function code(normangle, u, n0_i, n1_i)
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 (n0_i <= (-4.999999918875795e-18)) then
tmp = n0_i
else if (n0_i <= 1.500000029312222e-25) then
tmp = u * n1_i
else
tmp = n0_i
end if
code = tmp
end function
function code(normAngle, u, n0_i, n1_i) tmp = Float32(0.0) if (n0_i <= Float32(-4.999999918875795e-18)) tmp = n0_i; elseif (n0_i <= Float32(1.500000029312222e-25)) tmp = Float32(u * n1_i); else tmp = n0_i; end return tmp end
function tmp_2 = code(normAngle, u, n0_i, n1_i) tmp = single(0.0); if (n0_i <= single(-4.999999918875795e-18)) tmp = n0_i; elseif (n0_i <= single(1.500000029312222e-25)) tmp = u * n1_i; else tmp = n0_i; end tmp_2 = tmp; end
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;n0\_i \leq -4.999999918875795 \cdot 10^{-18}:\\
\;\;\;\;n0\_i\\
\mathbf{elif}\;n0\_i \leq 1.500000029312222 \cdot 10^{-25}:\\
\;\;\;\;u \cdot n1\_i\\
\mathbf{else}:\\
\;\;\;\;n0\_i\\
\end{array}
\end{array}
if n0_i < -4.99999992e-18 or 1.50000003e-25 < n0_i Initial program 97.9%
Taylor expanded in u around 0
Simplified62.7%
if -4.99999992e-18 < n0_i < 1.50000003e-25Initial program 97.0%
Taylor expanded in normAngle around 0
Simplified98.8%
Taylor expanded in n0_i around -inf
Simplified98.6%
Taylor expanded in normAngle around 0
mul-1-negN/A
*-commutativeN/A
distribute-rgt-neg-inN/A
*-lowering-*.f32N/A
--lowering--.f32N/A
+-lowering-+.f32N/A
/-lowering-/.f32N/A
*-commutativeN/A
*-lowering-*.f32N/A
neg-lowering-neg.f3298.1%
Simplified98.1%
Taylor expanded in n1_i around inf
*-commutativeN/A
*-lowering-*.f3265.6%
Simplified65.6%
(FPCore (normAngle u n0_i n1_i) :precision binary32 (+ n0_i (* u (- n1_i n0_i))))
float code(float normAngle, float u, float n0_i, float n1_i) {
return n0_i + (u * (n1_i - n0_i));
}
real(4) function code(normangle, u, n0_i, n1_i)
real(4), intent (in) :: normangle
real(4), intent (in) :: u
real(4), intent (in) :: n0_i
real(4), intent (in) :: n1_i
code = n0_i + (u * (n1_i - n0_i))
end function
function code(normAngle, u, n0_i, n1_i) return Float32(n0_i + Float32(u * Float32(n1_i - n0_i))) end
function tmp = code(normAngle, u, n0_i, n1_i) tmp = n0_i + (u * (n1_i - n0_i)); end
\begin{array}{l}
\\
n0\_i + u \cdot \left(n1\_i - n0\_i\right)
\end{array}
Initial program 97.5%
Taylor expanded in normAngle around 0
Simplified98.8%
Taylor expanded in u around 0
+-lowering-+.f32N/A
*-lowering-*.f32N/A
associate-+r+N/A
+-lowering-+.f32N/A
mul-1-negN/A
unsub-negN/A
--lowering--.f32N/A
*-lowering-*.f32N/A
unpow2N/A
*-lowering-*.f32N/A
associate--l+N/A
+-lowering-+.f32N/A
*-commutativeN/A
*-lowering-*.f32N/A
cancel-sign-sub-invN/A
metadata-evalN/A
+-lowering-+.f32N/A
*-commutativeN/A
*-lowering-*.f32N/A
*-commutativeN/A
*-lowering-*.f3299.0%
Simplified99.0%
Taylor expanded in normAngle around 0
+-lowering-+.f32N/A
*-lowering-*.f32N/A
--lowering--.f3298.5%
Simplified98.5%
(FPCore (normAngle u n0_i n1_i) :precision binary32 (+ n0_i (* u n1_i)))
float code(float normAngle, float u, float n0_i, float n1_i) {
return n0_i + (u * n1_i);
}
real(4) function code(normangle, u, n0_i, n1_i)
real(4), intent (in) :: normangle
real(4), intent (in) :: u
real(4), intent (in) :: n0_i
real(4), intent (in) :: n1_i
code = n0_i + (u * n1_i)
end function
function code(normAngle, u, n0_i, n1_i) return Float32(n0_i + Float32(u * n1_i)) end
function tmp = code(normAngle, u, n0_i, n1_i) tmp = n0_i + (u * n1_i); end
\begin{array}{l}
\\
n0\_i + u \cdot n1\_i
\end{array}
Initial program 97.5%
Taylor expanded in normAngle around 0
Simplified98.8%
Taylor expanded in u around 0
Simplified84.8%
Final simplification84.8%
(FPCore (normAngle u n0_i n1_i) :precision binary32 n0_i)
float code(float normAngle, float u, float n0_i, float n1_i) {
return n0_i;
}
real(4) function code(normangle, u, n0_i, n1_i)
real(4), intent (in) :: normangle
real(4), intent (in) :: u
real(4), intent (in) :: n0_i
real(4), intent (in) :: n1_i
code = n0_i
end function
function code(normAngle, u, n0_i, n1_i) return n0_i end
function tmp = code(normAngle, u, n0_i, n1_i) tmp = n0_i; end
\begin{array}{l}
\\
n0\_i
\end{array}
Initial program 97.5%
Taylor expanded in u around 0
Simplified45.6%
herbie shell --seed 2024155
(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)))