
(FPCore (w h d dX.u dX.v dX.w dY.u dY.v dY.w)
:precision binary32
(let* ((t_0 (* (floor w) dY.u))
(t_1 (* (floor h) dY.v))
(t_2 (* (floor h) dX.v))
(t_3 (* (floor d) dY.w))
(t_4 (* (floor d) dX.w))
(t_5 (* (floor w) dX.u)))
(log2
(sqrt
(fmax
(+ (+ (* t_5 t_5) (* t_2 t_2)) (* t_4 t_4))
(+ (+ (* t_0 t_0) (* t_1 t_1)) (* t_3 t_3)))))))float code(float w, float h, float d, float dX_46_u, float dX_46_v, float dX_46_w, float dY_46_u, float dY_46_v, float dY_46_w) {
float t_0 = floorf(w) * dY_46_u;
float t_1 = floorf(h) * dY_46_v;
float t_2 = floorf(h) * dX_46_v;
float t_3 = floorf(d) * dY_46_w;
float t_4 = floorf(d) * dX_46_w;
float t_5 = floorf(w) * dX_46_u;
return log2f(sqrtf(fmaxf((((t_5 * t_5) + (t_2 * t_2)) + (t_4 * t_4)), (((t_0 * t_0) + (t_1 * t_1)) + (t_3 * t_3)))));
}
function code(w, h, d, dX_46_u, dX_46_v, dX_46_w, dY_46_u, dY_46_v, dY_46_w) t_0 = Float32(floor(w) * dY_46_u) t_1 = Float32(floor(h) * dY_46_v) t_2 = Float32(floor(h) * dX_46_v) t_3 = Float32(floor(d) * dY_46_w) t_4 = Float32(floor(d) * dX_46_w) t_5 = Float32(floor(w) * dX_46_u) return log2(sqrt(fmax(Float32(Float32(Float32(t_5 * t_5) + Float32(t_2 * t_2)) + Float32(t_4 * t_4)), Float32(Float32(Float32(t_0 * t_0) + Float32(t_1 * t_1)) + Float32(t_3 * t_3))))) end
function tmp = code(w, h, d, dX_46_u, dX_46_v, dX_46_w, dY_46_u, dY_46_v, dY_46_w) t_0 = floor(w) * dY_46_u; t_1 = floor(h) * dY_46_v; t_2 = floor(h) * dX_46_v; t_3 = floor(d) * dY_46_w; t_4 = floor(d) * dX_46_w; t_5 = floor(w) * dX_46_u; tmp = log2(sqrt(max((((t_5 * t_5) + (t_2 * t_2)) + (t_4 * t_4)), (((t_0 * t_0) + (t_1 * t_1)) + (t_3 * t_3))))); end
\begin{array}{l}
t_0 := \left\lfloor w\right\rfloor \cdot dY.u\\
t_1 := \left\lfloor h\right\rfloor \cdot dY.v\\
t_2 := \left\lfloor h\right\rfloor \cdot dX.v\\
t_3 := \left\lfloor d\right\rfloor \cdot dY.w\\
t_4 := \left\lfloor d\right\rfloor \cdot dX.w\\
t_5 := \left\lfloor w\right\rfloor \cdot dX.u\\
\log_{2} \left(\sqrt{\mathsf{max}\left(\left(t\_5 \cdot t\_5 + t\_2 \cdot t\_2\right) + t\_4 \cdot t\_4, \left(t\_0 \cdot t\_0 + t\_1 \cdot t\_1\right) + t\_3 \cdot t\_3\right)}\right)
\end{array}
Herbie found 7 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (w h d dX.u dX.v dX.w dY.u dY.v dY.w)
:precision binary32
(let* ((t_0 (* (floor w) dY.u))
(t_1 (* (floor h) dY.v))
(t_2 (* (floor h) dX.v))
(t_3 (* (floor d) dY.w))
(t_4 (* (floor d) dX.w))
(t_5 (* (floor w) dX.u)))
(log2
(sqrt
(fmax
(+ (+ (* t_5 t_5) (* t_2 t_2)) (* t_4 t_4))
(+ (+ (* t_0 t_0) (* t_1 t_1)) (* t_3 t_3)))))))float code(float w, float h, float d, float dX_46_u, float dX_46_v, float dX_46_w, float dY_46_u, float dY_46_v, float dY_46_w) {
float t_0 = floorf(w) * dY_46_u;
float t_1 = floorf(h) * dY_46_v;
float t_2 = floorf(h) * dX_46_v;
float t_3 = floorf(d) * dY_46_w;
float t_4 = floorf(d) * dX_46_w;
float t_5 = floorf(w) * dX_46_u;
return log2f(sqrtf(fmaxf((((t_5 * t_5) + (t_2 * t_2)) + (t_4 * t_4)), (((t_0 * t_0) + (t_1 * t_1)) + (t_3 * t_3)))));
}
function code(w, h, d, dX_46_u, dX_46_v, dX_46_w, dY_46_u, dY_46_v, dY_46_w) t_0 = Float32(floor(w) * dY_46_u) t_1 = Float32(floor(h) * dY_46_v) t_2 = Float32(floor(h) * dX_46_v) t_3 = Float32(floor(d) * dY_46_w) t_4 = Float32(floor(d) * dX_46_w) t_5 = Float32(floor(w) * dX_46_u) return log2(sqrt(fmax(Float32(Float32(Float32(t_5 * t_5) + Float32(t_2 * t_2)) + Float32(t_4 * t_4)), Float32(Float32(Float32(t_0 * t_0) + Float32(t_1 * t_1)) + Float32(t_3 * t_3))))) end
function tmp = code(w, h, d, dX_46_u, dX_46_v, dX_46_w, dY_46_u, dY_46_v, dY_46_w) t_0 = floor(w) * dY_46_u; t_1 = floor(h) * dY_46_v; t_2 = floor(h) * dX_46_v; t_3 = floor(d) * dY_46_w; t_4 = floor(d) * dX_46_w; t_5 = floor(w) * dX_46_u; tmp = log2(sqrt(max((((t_5 * t_5) + (t_2 * t_2)) + (t_4 * t_4)), (((t_0 * t_0) + (t_1 * t_1)) + (t_3 * t_3))))); end
\begin{array}{l}
t_0 := \left\lfloor w\right\rfloor \cdot dY.u\\
t_1 := \left\lfloor h\right\rfloor \cdot dY.v\\
t_2 := \left\lfloor h\right\rfloor \cdot dX.v\\
t_3 := \left\lfloor d\right\rfloor \cdot dY.w\\
t_4 := \left\lfloor d\right\rfloor \cdot dX.w\\
t_5 := \left\lfloor w\right\rfloor \cdot dX.u\\
\log_{2} \left(\sqrt{\mathsf{max}\left(\left(t\_5 \cdot t\_5 + t\_2 \cdot t\_2\right) + t\_4 \cdot t\_4, \left(t\_0 \cdot t\_0 + t\_1 \cdot t\_1\right) + t\_3 \cdot t\_3\right)}\right)
\end{array}
(FPCore (w h d dX.u dX.v dX.w dY.u dY.v dY.w)
:precision binary32
(let* ((t_0 (* (floor w) (floor w)))
(t_1 (* (floor w) dX.u))
(t_2 (* (floor w) dY.u))
(t_3 (* (floor h) dY.v))
(t_4 (* (floor h) dX.v))
(t_5 (* (floor d) dY.w))
(t_6 (* dY.v (floor h)))
(t_7 (* dY.w (floor d)))
(t_8 (* (floor d) dX.w))
(t_9 (* (floor h) (floor h))))
(if (<=
(log2
(sqrt
(fmax
(+ (+ (* t_1 t_1) (* t_4 t_4)) (* t_8 t_8))
(+ (+ (* t_2 t_2) (* t_3 t_3)) (* t_5 t_5)))))
100.0)
(log2
(sqrt
(fmax
(fma
(* t_0 dX.u)
dX.u
(fma
(* (* dX.w (floor d)) (floor d))
dX.w
(* (* (* dX.v (floor h)) dX.v) (floor h))))
(fma
(* t_0 dY.u)
dY.u
(fma (* t_9 dY.v) dY.v (* (* t_7 dY.w) (floor d)))))))
(log2
(sqrt
(fmax
(fma
(* dY.u dY.u)
(exp (* (log (- (floor w))) 2.0))
(fma t_6 t_6 (* t_7 t_7)))
(fma (* t_9 dX.v) dX.v (* (* t_8 dX.w) (floor d)))))))))float code(float w, float h, float d, float dX_46_u, float dX_46_v, float dX_46_w, float dY_46_u, float dY_46_v, float dY_46_w) {
float t_0 = floorf(w) * floorf(w);
float t_1 = floorf(w) * dX_46_u;
float t_2 = floorf(w) * dY_46_u;
float t_3 = floorf(h) * dY_46_v;
float t_4 = floorf(h) * dX_46_v;
float t_5 = floorf(d) * dY_46_w;
float t_6 = dY_46_v * floorf(h);
float t_7 = dY_46_w * floorf(d);
float t_8 = floorf(d) * dX_46_w;
float t_9 = floorf(h) * floorf(h);
float tmp;
if (log2f(sqrtf(fmaxf((((t_1 * t_1) + (t_4 * t_4)) + (t_8 * t_8)), (((t_2 * t_2) + (t_3 * t_3)) + (t_5 * t_5))))) <= 100.0f) {
tmp = log2f(sqrtf(fmaxf(fmaf((t_0 * dX_46_u), dX_46_u, fmaf(((dX_46_w * floorf(d)) * floorf(d)), dX_46_w, (((dX_46_v * floorf(h)) * dX_46_v) * floorf(h)))), fmaf((t_0 * dY_46_u), dY_46_u, fmaf((t_9 * dY_46_v), dY_46_v, ((t_7 * dY_46_w) * floorf(d)))))));
} else {
tmp = log2f(sqrtf(fmaxf(fmaf((dY_46_u * dY_46_u), expf((logf(-floorf(w)) * 2.0f)), fmaf(t_6, t_6, (t_7 * t_7))), fmaf((t_9 * dX_46_v), dX_46_v, ((t_8 * dX_46_w) * floorf(d))))));
}
return tmp;
}
function code(w, h, d, dX_46_u, dX_46_v, dX_46_w, dY_46_u, dY_46_v, dY_46_w) t_0 = Float32(floor(w) * floor(w)) t_1 = Float32(floor(w) * dX_46_u) t_2 = Float32(floor(w) * dY_46_u) t_3 = Float32(floor(h) * dY_46_v) t_4 = Float32(floor(h) * dX_46_v) t_5 = Float32(floor(d) * dY_46_w) t_6 = Float32(dY_46_v * floor(h)) t_7 = Float32(dY_46_w * floor(d)) t_8 = Float32(floor(d) * dX_46_w) t_9 = Float32(floor(h) * floor(h)) tmp = Float32(0.0) if (log2(sqrt(fmax(Float32(Float32(Float32(t_1 * t_1) + Float32(t_4 * t_4)) + Float32(t_8 * t_8)), Float32(Float32(Float32(t_2 * t_2) + Float32(t_3 * t_3)) + Float32(t_5 * t_5))))) <= Float32(100.0)) tmp = log2(sqrt(fmax(fma(Float32(t_0 * dX_46_u), dX_46_u, fma(Float32(Float32(dX_46_w * floor(d)) * floor(d)), dX_46_w, Float32(Float32(Float32(dX_46_v * floor(h)) * dX_46_v) * floor(h)))), fma(Float32(t_0 * dY_46_u), dY_46_u, fma(Float32(t_9 * dY_46_v), dY_46_v, Float32(Float32(t_7 * dY_46_w) * floor(d))))))); else tmp = log2(sqrt(fmax(fma(Float32(dY_46_u * dY_46_u), exp(Float32(log(Float32(-floor(w))) * Float32(2.0))), fma(t_6, t_6, Float32(t_7 * t_7))), fma(Float32(t_9 * dX_46_v), dX_46_v, Float32(Float32(t_8 * dX_46_w) * floor(d)))))); end return tmp end
\begin{array}{l}
t_0 := \left\lfloor w\right\rfloor \cdot \left\lfloor w\right\rfloor \\
t_1 := \left\lfloor w\right\rfloor \cdot dX.u\\
t_2 := \left\lfloor w\right\rfloor \cdot dY.u\\
t_3 := \left\lfloor h\right\rfloor \cdot dY.v\\
t_4 := \left\lfloor h\right\rfloor \cdot dX.v\\
t_5 := \left\lfloor d\right\rfloor \cdot dY.w\\
t_6 := dY.v \cdot \left\lfloor h\right\rfloor \\
t_7 := dY.w \cdot \left\lfloor d\right\rfloor \\
t_8 := \left\lfloor d\right\rfloor \cdot dX.w\\
t_9 := \left\lfloor h\right\rfloor \cdot \left\lfloor h\right\rfloor \\
\mathbf{if}\;\log_{2} \left(\sqrt{\mathsf{max}\left(\left(t\_1 \cdot t\_1 + t\_4 \cdot t\_4\right) + t\_8 \cdot t\_8, \left(t\_2 \cdot t\_2 + t\_3 \cdot t\_3\right) + t\_5 \cdot t\_5\right)}\right) \leq 100:\\
\;\;\;\;\log_{2} \left(\sqrt{\mathsf{max}\left(\mathsf{fma}\left(t\_0 \cdot dX.u, dX.u, \mathsf{fma}\left(\left(dX.w \cdot \left\lfloor d\right\rfloor \right) \cdot \left\lfloor d\right\rfloor , dX.w, \left(\left(dX.v \cdot \left\lfloor h\right\rfloor \right) \cdot dX.v\right) \cdot \left\lfloor h\right\rfloor \right)\right), \mathsf{fma}\left(t\_0 \cdot dY.u, dY.u, \mathsf{fma}\left(t\_9 \cdot dY.v, dY.v, \left(t\_7 \cdot dY.w\right) \cdot \left\lfloor d\right\rfloor \right)\right)\right)}\right)\\
\mathbf{else}:\\
\;\;\;\;\log_{2} \left(\sqrt{\mathsf{max}\left(\mathsf{fma}\left(dY.u \cdot dY.u, e^{\log \left(-\left\lfloor w\right\rfloor \right) \cdot 2}, \mathsf{fma}\left(t\_6, t\_6, t\_7 \cdot t\_7\right)\right), \mathsf{fma}\left(t\_9 \cdot dX.v, dX.v, \left(t\_8 \cdot dX.w\right) \cdot \left\lfloor d\right\rfloor \right)\right)}\right)\\
\end{array}
if (log2.f32 (sqrt.f32 (fmax.f32 (+.f32 (+.f32 (*.f32 (*.f32 (floor.f32 w) dX.u) (*.f32 (floor.f32 w) dX.u)) (*.f32 (*.f32 (floor.f32 h) dX.v) (*.f32 (floor.f32 h) dX.v))) (*.f32 (*.f32 (floor.f32 d) dX.w) (*.f32 (floor.f32 d) dX.w))) (+.f32 (+.f32 (*.f32 (*.f32 (floor.f32 w) dY.u) (*.f32 (floor.f32 w) dY.u)) (*.f32 (*.f32 (floor.f32 h) dY.v) (*.f32 (floor.f32 h) dY.v))) (*.f32 (*.f32 (floor.f32 d) dY.w) (*.f32 (floor.f32 d) dY.w)))))) < 100Initial program 68.1%
Applied rewrites68.1%
Applied rewrites68.1%
if 100 < (log2.f32 (sqrt.f32 (fmax.f32 (+.f32 (+.f32 (*.f32 (*.f32 (floor.f32 w) dX.u) (*.f32 (floor.f32 w) dX.u)) (*.f32 (*.f32 (floor.f32 h) dX.v) (*.f32 (floor.f32 h) dX.v))) (*.f32 (*.f32 (floor.f32 d) dX.w) (*.f32 (floor.f32 d) dX.w))) (+.f32 (+.f32 (*.f32 (*.f32 (floor.f32 w) dY.u) (*.f32 (floor.f32 w) dY.u)) (*.f32 (*.f32 (floor.f32 h) dY.v) (*.f32 (floor.f32 h) dY.v))) (*.f32 (*.f32 (floor.f32 d) dY.w) (*.f32 (floor.f32 d) dY.w)))))) Initial program 68.1%
Taylor expanded in dX.u around 0
lower-fma.f32N/A
lower-pow.f32N/A
lower-pow.f32N/A
lower-floor.f32N/A
lower-*.f32N/A
lower-pow.f32N/A
lower-pow.f32N/A
lower-floor.f3261.0%
Applied rewrites61.0%
Applied rewrites61.0%
Applied rewrites61.0%
lift-*.f32N/A
sqr-neg-revN/A
pow2N/A
pow-to-expN/A
lower-unsound-exp.f32N/A
lower-unsound-*.f32N/A
lower-unsound-log.f32N/A
lower-neg.f3236.4%
Applied rewrites36.4%
(FPCore (w h d dX.u dX.v dX.w dY.u dY.v dY.w)
:precision binary32
(let* ((t_0 (* (floor w) (floor w)))
(t_1 (* (floor w) dY.u))
(t_2 (* (floor h) dY.v))
(t_3 (* (floor h) dX.v))
(t_4 (* (floor d) dY.w))
(t_5 (* dY.v (floor h)))
(t_6 (* (floor d) dX.w))
(t_7 (* dY.w (floor d)))
(t_8 (* (floor w) dX.u))
(t_9
(fma
(* (* dX.w (floor d)) (floor d))
dX.w
(* (* (* dX.v (floor h)) dX.v) (floor h)))))
(if (<=
(log2
(sqrt
(fmax
(+ (+ (* t_8 t_8) (* t_3 t_3)) (* t_6 t_6))
(+ (+ (* t_1 t_1) (* t_2 t_2)) (* t_4 t_4)))))
100.0)
(log2
(sqrt
(fmax
(fma (* t_0 dX.u) dX.u t_9)
(fma
(* t_0 dY.u)
dY.u
(fma
(* (* (floor h) (floor h)) dY.v)
dY.v
(* (* t_7 dY.w) (floor d)))))))
(log2
(sqrt
(fmax
(fma
(* dY.u dY.u)
(exp (* (log (- (floor w))) 2.0))
(fma t_5 t_5 (* t_7 t_7)))
t_9))))))float code(float w, float h, float d, float dX_46_u, float dX_46_v, float dX_46_w, float dY_46_u, float dY_46_v, float dY_46_w) {
float t_0 = floorf(w) * floorf(w);
float t_1 = floorf(w) * dY_46_u;
float t_2 = floorf(h) * dY_46_v;
float t_3 = floorf(h) * dX_46_v;
float t_4 = floorf(d) * dY_46_w;
float t_5 = dY_46_v * floorf(h);
float t_6 = floorf(d) * dX_46_w;
float t_7 = dY_46_w * floorf(d);
float t_8 = floorf(w) * dX_46_u;
float t_9 = fmaf(((dX_46_w * floorf(d)) * floorf(d)), dX_46_w, (((dX_46_v * floorf(h)) * dX_46_v) * floorf(h)));
float tmp;
if (log2f(sqrtf(fmaxf((((t_8 * t_8) + (t_3 * t_3)) + (t_6 * t_6)), (((t_1 * t_1) + (t_2 * t_2)) + (t_4 * t_4))))) <= 100.0f) {
tmp = log2f(sqrtf(fmaxf(fmaf((t_0 * dX_46_u), dX_46_u, t_9), fmaf((t_0 * dY_46_u), dY_46_u, fmaf(((floorf(h) * floorf(h)) * dY_46_v), dY_46_v, ((t_7 * dY_46_w) * floorf(d)))))));
} else {
tmp = log2f(sqrtf(fmaxf(fmaf((dY_46_u * dY_46_u), expf((logf(-floorf(w)) * 2.0f)), fmaf(t_5, t_5, (t_7 * t_7))), t_9)));
}
return tmp;
}
function code(w, h, d, dX_46_u, dX_46_v, dX_46_w, dY_46_u, dY_46_v, dY_46_w) t_0 = Float32(floor(w) * floor(w)) t_1 = Float32(floor(w) * dY_46_u) t_2 = Float32(floor(h) * dY_46_v) t_3 = Float32(floor(h) * dX_46_v) t_4 = Float32(floor(d) * dY_46_w) t_5 = Float32(dY_46_v * floor(h)) t_6 = Float32(floor(d) * dX_46_w) t_7 = Float32(dY_46_w * floor(d)) t_8 = Float32(floor(w) * dX_46_u) t_9 = fma(Float32(Float32(dX_46_w * floor(d)) * floor(d)), dX_46_w, Float32(Float32(Float32(dX_46_v * floor(h)) * dX_46_v) * floor(h))) tmp = Float32(0.0) if (log2(sqrt(fmax(Float32(Float32(Float32(t_8 * t_8) + Float32(t_3 * t_3)) + Float32(t_6 * t_6)), Float32(Float32(Float32(t_1 * t_1) + Float32(t_2 * t_2)) + Float32(t_4 * t_4))))) <= Float32(100.0)) tmp = log2(sqrt(fmax(fma(Float32(t_0 * dX_46_u), dX_46_u, t_9), fma(Float32(t_0 * dY_46_u), dY_46_u, fma(Float32(Float32(floor(h) * floor(h)) * dY_46_v), dY_46_v, Float32(Float32(t_7 * dY_46_w) * floor(d))))))); else tmp = log2(sqrt(fmax(fma(Float32(dY_46_u * dY_46_u), exp(Float32(log(Float32(-floor(w))) * Float32(2.0))), fma(t_5, t_5, Float32(t_7 * t_7))), t_9))); end return tmp end
\begin{array}{l}
t_0 := \left\lfloor w\right\rfloor \cdot \left\lfloor w\right\rfloor \\
t_1 := \left\lfloor w\right\rfloor \cdot dY.u\\
t_2 := \left\lfloor h\right\rfloor \cdot dY.v\\
t_3 := \left\lfloor h\right\rfloor \cdot dX.v\\
t_4 := \left\lfloor d\right\rfloor \cdot dY.w\\
t_5 := dY.v \cdot \left\lfloor h\right\rfloor \\
t_6 := \left\lfloor d\right\rfloor \cdot dX.w\\
t_7 := dY.w \cdot \left\lfloor d\right\rfloor \\
t_8 := \left\lfloor w\right\rfloor \cdot dX.u\\
t_9 := \mathsf{fma}\left(\left(dX.w \cdot \left\lfloor d\right\rfloor \right) \cdot \left\lfloor d\right\rfloor , dX.w, \left(\left(dX.v \cdot \left\lfloor h\right\rfloor \right) \cdot dX.v\right) \cdot \left\lfloor h\right\rfloor \right)\\
\mathbf{if}\;\log_{2} \left(\sqrt{\mathsf{max}\left(\left(t\_8 \cdot t\_8 + t\_3 \cdot t\_3\right) + t\_6 \cdot t\_6, \left(t\_1 \cdot t\_1 + t\_2 \cdot t\_2\right) + t\_4 \cdot t\_4\right)}\right) \leq 100:\\
\;\;\;\;\log_{2} \left(\sqrt{\mathsf{max}\left(\mathsf{fma}\left(t\_0 \cdot dX.u, dX.u, t\_9\right), \mathsf{fma}\left(t\_0 \cdot dY.u, dY.u, \mathsf{fma}\left(\left(\left\lfloor h\right\rfloor \cdot \left\lfloor h\right\rfloor \right) \cdot dY.v, dY.v, \left(t\_7 \cdot dY.w\right) \cdot \left\lfloor d\right\rfloor \right)\right)\right)}\right)\\
\mathbf{else}:\\
\;\;\;\;\log_{2} \left(\sqrt{\mathsf{max}\left(\mathsf{fma}\left(dY.u \cdot dY.u, e^{\log \left(-\left\lfloor w\right\rfloor \right) \cdot 2}, \mathsf{fma}\left(t\_5, t\_5, t\_7 \cdot t\_7\right)\right), t\_9\right)}\right)\\
\end{array}
if (log2.f32 (sqrt.f32 (fmax.f32 (+.f32 (+.f32 (*.f32 (*.f32 (floor.f32 w) dX.u) (*.f32 (floor.f32 w) dX.u)) (*.f32 (*.f32 (floor.f32 h) dX.v) (*.f32 (floor.f32 h) dX.v))) (*.f32 (*.f32 (floor.f32 d) dX.w) (*.f32 (floor.f32 d) dX.w))) (+.f32 (+.f32 (*.f32 (*.f32 (floor.f32 w) dY.u) (*.f32 (floor.f32 w) dY.u)) (*.f32 (*.f32 (floor.f32 h) dY.v) (*.f32 (floor.f32 h) dY.v))) (*.f32 (*.f32 (floor.f32 d) dY.w) (*.f32 (floor.f32 d) dY.w)))))) < 100Initial program 68.1%
Applied rewrites68.1%
Applied rewrites68.1%
if 100 < (log2.f32 (sqrt.f32 (fmax.f32 (+.f32 (+.f32 (*.f32 (*.f32 (floor.f32 w) dX.u) (*.f32 (floor.f32 w) dX.u)) (*.f32 (*.f32 (floor.f32 h) dX.v) (*.f32 (floor.f32 h) dX.v))) (*.f32 (*.f32 (floor.f32 d) dX.w) (*.f32 (floor.f32 d) dX.w))) (+.f32 (+.f32 (*.f32 (*.f32 (floor.f32 w) dY.u) (*.f32 (floor.f32 w) dY.u)) (*.f32 (*.f32 (floor.f32 h) dY.v) (*.f32 (floor.f32 h) dY.v))) (*.f32 (*.f32 (floor.f32 d) dY.w) (*.f32 (floor.f32 d) dY.w)))))) Initial program 68.1%
Taylor expanded in dX.u around 0
lower-fma.f32N/A
lower-pow.f32N/A
lower-pow.f32N/A
lower-floor.f32N/A
lower-*.f32N/A
lower-pow.f32N/A
lower-pow.f32N/A
lower-floor.f3261.0%
Applied rewrites61.0%
Applied rewrites61.0%
lift-*.f32N/A
sqr-neg-revN/A
pow2N/A
pow-to-expN/A
lower-unsound-exp.f32N/A
lower-unsound-*.f32N/A
lower-unsound-log.f32N/A
lower-neg.f3236.4%
Applied rewrites36.4%
(FPCore (w h d dX.u dX.v dX.w dY.u dY.v dY.w)
:precision binary32
(let* ((t_0 (* (floor w) (floor w))))
(log2
(sqrt
(fmax
(fma
(* t_0 dX.u)
dX.u
(fma
(* (* dX.w (floor d)) (floor d))
dX.w
(* (* (* dX.v (floor h)) dX.v) (floor h))))
(fma
(* t_0 dY.u)
dY.u
(fma
(* (* (floor h) (floor h)) dY.v)
dY.v
(* (* (* dY.w (floor d)) dY.w) (floor d)))))))))float code(float w, float h, float d, float dX_46_u, float dX_46_v, float dX_46_w, float dY_46_u, float dY_46_v, float dY_46_w) {
float t_0 = floorf(w) * floorf(w);
return log2f(sqrtf(fmaxf(fmaf((t_0 * dX_46_u), dX_46_u, fmaf(((dX_46_w * floorf(d)) * floorf(d)), dX_46_w, (((dX_46_v * floorf(h)) * dX_46_v) * floorf(h)))), fmaf((t_0 * dY_46_u), dY_46_u, fmaf(((floorf(h) * floorf(h)) * dY_46_v), dY_46_v, (((dY_46_w * floorf(d)) * dY_46_w) * floorf(d)))))));
}
function code(w, h, d, dX_46_u, dX_46_v, dX_46_w, dY_46_u, dY_46_v, dY_46_w) t_0 = Float32(floor(w) * floor(w)) return log2(sqrt(fmax(fma(Float32(t_0 * dX_46_u), dX_46_u, fma(Float32(Float32(dX_46_w * floor(d)) * floor(d)), dX_46_w, Float32(Float32(Float32(dX_46_v * floor(h)) * dX_46_v) * floor(h)))), fma(Float32(t_0 * dY_46_u), dY_46_u, fma(Float32(Float32(floor(h) * floor(h)) * dY_46_v), dY_46_v, Float32(Float32(Float32(dY_46_w * floor(d)) * dY_46_w) * floor(d))))))) end
\begin{array}{l}
t_0 := \left\lfloor w\right\rfloor \cdot \left\lfloor w\right\rfloor \\
\log_{2} \left(\sqrt{\mathsf{max}\left(\mathsf{fma}\left(t\_0 \cdot dX.u, dX.u, \mathsf{fma}\left(\left(dX.w \cdot \left\lfloor d\right\rfloor \right) \cdot \left\lfloor d\right\rfloor , dX.w, \left(\left(dX.v \cdot \left\lfloor h\right\rfloor \right) \cdot dX.v\right) \cdot \left\lfloor h\right\rfloor \right)\right), \mathsf{fma}\left(t\_0 \cdot dY.u, dY.u, \mathsf{fma}\left(\left(\left\lfloor h\right\rfloor \cdot \left\lfloor h\right\rfloor \right) \cdot dY.v, dY.v, \left(\left(dY.w \cdot \left\lfloor d\right\rfloor \right) \cdot dY.w\right) \cdot \left\lfloor d\right\rfloor \right)\right)\right)}\right)
\end{array}
Initial program 68.1%
Applied rewrites68.1%
Applied rewrites68.1%
(FPCore (w h d dX.u dX.v dX.w dY.u dY.v dY.w)
:precision binary32
(log2
(sqrt
(fmax
(fma
(* (* dY.w (floor d)) dY.w)
(floor d)
(fma
(* (* dY.u (floor w)) dY.u)
(floor w)
(* (* (* dY.v (floor h)) dY.v) (floor h))))
(fma
(* (* dX.w (floor d)) dX.w)
(floor d)
(fma
(* (* dX.u (floor w)) dX.u)
(floor w)
(* (* (* dX.v (floor h)) dX.v) (floor h))))))))float code(float w, float h, float d, float dX_46_u, float dX_46_v, float dX_46_w, float dY_46_u, float dY_46_v, float dY_46_w) {
return log2f(sqrtf(fmaxf(fmaf(((dY_46_w * floorf(d)) * dY_46_w), floorf(d), fmaf(((dY_46_u * floorf(w)) * dY_46_u), floorf(w), (((dY_46_v * floorf(h)) * dY_46_v) * floorf(h)))), fmaf(((dX_46_w * floorf(d)) * dX_46_w), floorf(d), fmaf(((dX_46_u * floorf(w)) * dX_46_u), floorf(w), (((dX_46_v * floorf(h)) * dX_46_v) * floorf(h)))))));
}
function code(w, h, d, dX_46_u, dX_46_v, dX_46_w, dY_46_u, dY_46_v, dY_46_w) return log2(sqrt(fmax(fma(Float32(Float32(dY_46_w * floor(d)) * dY_46_w), floor(d), fma(Float32(Float32(dY_46_u * floor(w)) * dY_46_u), floor(w), Float32(Float32(Float32(dY_46_v * floor(h)) * dY_46_v) * floor(h)))), fma(Float32(Float32(dX_46_w * floor(d)) * dX_46_w), floor(d), fma(Float32(Float32(dX_46_u * floor(w)) * dX_46_u), floor(w), Float32(Float32(Float32(dX_46_v * floor(h)) * dX_46_v) * floor(h))))))) end
\log_{2} \left(\sqrt{\mathsf{max}\left(\mathsf{fma}\left(\left(dY.w \cdot \left\lfloor d\right\rfloor \right) \cdot dY.w, \left\lfloor d\right\rfloor , \mathsf{fma}\left(\left(dY.u \cdot \left\lfloor w\right\rfloor \right) \cdot dY.u, \left\lfloor w\right\rfloor , \left(\left(dY.v \cdot \left\lfloor h\right\rfloor \right) \cdot dY.v\right) \cdot \left\lfloor h\right\rfloor \right)\right), \mathsf{fma}\left(\left(dX.w \cdot \left\lfloor d\right\rfloor \right) \cdot dX.w, \left\lfloor d\right\rfloor , \mathsf{fma}\left(\left(dX.u \cdot \left\lfloor w\right\rfloor \right) \cdot dX.u, \left\lfloor w\right\rfloor , \left(\left(dX.v \cdot \left\lfloor h\right\rfloor \right) \cdot dX.v\right) \cdot \left\lfloor h\right\rfloor \right)\right)\right)}\right)
Initial program 68.1%
Applied rewrites68.1%
(FPCore (w h d dX.u dX.v dX.w dY.u dY.v dY.w)
:precision binary32
(let* ((t_0 (* dY.v (floor h)))
(t_1 (* (floor h) (floor h)))
(t_2 (* (floor d) dX.w))
(t_3 (* dY.w (floor d)))
(t_4 (* (floor w) (floor w))))
(if (<= (fabs dX.v) 35000.0)
(log2
(sqrt
(fmax
(fma (* t_2 (floor d)) dX.w (* (* dX.u dX.u) t_4))
(fma
(* t_4 dY.u)
dY.u
(fma (* t_1 dY.v) dY.v (* (* t_3 dY.w) (floor d)))))))
(log2
(sqrt
(fmax
(fma (* dY.u dY.u) t_4 (fma t_0 t_0 (* t_3 t_3)))
(fma
(* t_1 (fabs dX.v))
(fabs dX.v)
(* (* t_2 dX.w) (floor d)))))))))float code(float w, float h, float d, float dX_46_u, float dX_46_v, float dX_46_w, float dY_46_u, float dY_46_v, float dY_46_w) {
float t_0 = dY_46_v * floorf(h);
float t_1 = floorf(h) * floorf(h);
float t_2 = floorf(d) * dX_46_w;
float t_3 = dY_46_w * floorf(d);
float t_4 = floorf(w) * floorf(w);
float tmp;
if (fabsf(dX_46_v) <= 35000.0f) {
tmp = log2f(sqrtf(fmaxf(fmaf((t_2 * floorf(d)), dX_46_w, ((dX_46_u * dX_46_u) * t_4)), fmaf((t_4 * dY_46_u), dY_46_u, fmaf((t_1 * dY_46_v), dY_46_v, ((t_3 * dY_46_w) * floorf(d)))))));
} else {
tmp = log2f(sqrtf(fmaxf(fmaf((dY_46_u * dY_46_u), t_4, fmaf(t_0, t_0, (t_3 * t_3))), fmaf((t_1 * fabsf(dX_46_v)), fabsf(dX_46_v), ((t_2 * dX_46_w) * floorf(d))))));
}
return tmp;
}
function code(w, h, d, dX_46_u, dX_46_v, dX_46_w, dY_46_u, dY_46_v, dY_46_w) t_0 = Float32(dY_46_v * floor(h)) t_1 = Float32(floor(h) * floor(h)) t_2 = Float32(floor(d) * dX_46_w) t_3 = Float32(dY_46_w * floor(d)) t_4 = Float32(floor(w) * floor(w)) tmp = Float32(0.0) if (abs(dX_46_v) <= Float32(35000.0)) tmp = log2(sqrt(fmax(fma(Float32(t_2 * floor(d)), dX_46_w, Float32(Float32(dX_46_u * dX_46_u) * t_4)), fma(Float32(t_4 * dY_46_u), dY_46_u, fma(Float32(t_1 * dY_46_v), dY_46_v, Float32(Float32(t_3 * dY_46_w) * floor(d))))))); else tmp = log2(sqrt(fmax(fma(Float32(dY_46_u * dY_46_u), t_4, fma(t_0, t_0, Float32(t_3 * t_3))), fma(Float32(t_1 * abs(dX_46_v)), abs(dX_46_v), Float32(Float32(t_2 * dX_46_w) * floor(d)))))); end return tmp end
\begin{array}{l}
t_0 := dY.v \cdot \left\lfloor h\right\rfloor \\
t_1 := \left\lfloor h\right\rfloor \cdot \left\lfloor h\right\rfloor \\
t_2 := \left\lfloor d\right\rfloor \cdot dX.w\\
t_3 := dY.w \cdot \left\lfloor d\right\rfloor \\
t_4 := \left\lfloor w\right\rfloor \cdot \left\lfloor w\right\rfloor \\
\mathbf{if}\;\left|dX.v\right| \leq 35000:\\
\;\;\;\;\log_{2} \left(\sqrt{\mathsf{max}\left(\mathsf{fma}\left(t\_2 \cdot \left\lfloor d\right\rfloor , dX.w, \left(dX.u \cdot dX.u\right) \cdot t\_4\right), \mathsf{fma}\left(t\_4 \cdot dY.u, dY.u, \mathsf{fma}\left(t\_1 \cdot dY.v, dY.v, \left(t\_3 \cdot dY.w\right) \cdot \left\lfloor d\right\rfloor \right)\right)\right)}\right)\\
\mathbf{else}:\\
\;\;\;\;\log_{2} \left(\sqrt{\mathsf{max}\left(\mathsf{fma}\left(dY.u \cdot dY.u, t\_4, \mathsf{fma}\left(t\_0, t\_0, t\_3 \cdot t\_3\right)\right), \mathsf{fma}\left(t\_1 \cdot \left|dX.v\right|, \left|dX.v\right|, \left(t\_2 \cdot dX.w\right) \cdot \left\lfloor d\right\rfloor \right)\right)}\right)\\
\end{array}
if dX.v < 35000Initial program 68.1%
Applied rewrites68.1%
Taylor expanded in dX.v around 0
lower-fma.f32N/A
lower-pow.f32N/A
lower-pow.f32N/A
lower-floor.f32N/A
lower-*.f32N/A
lower-pow.f32N/A
lower-pow.f32N/A
lower-floor.f3260.8%
Applied rewrites60.8%
lift-fma.f32N/A
+-commutativeN/A
lift-*.f32N/A
lift-pow.f32N/A
pow2N/A
lift-pow.f32N/A
unpow2N/A
unswap-sqrN/A
lift-*.f32N/A
*-commutativeN/A
associate-*l*N/A
lift-*.f32N/A
lift-pow.f32N/A
lift-pow.f32N/A
pow-prod-downN/A
*-commutativeN/A
lift-floor.f32N/A
pow2N/A
lower-fma.f32N/A
Applied rewrites60.8%
if 35000 < dX.v Initial program 68.1%
Taylor expanded in dX.u around 0
lower-fma.f32N/A
lower-pow.f32N/A
lower-pow.f32N/A
lower-floor.f32N/A
lower-*.f32N/A
lower-pow.f32N/A
lower-pow.f32N/A
lower-floor.f3261.0%
Applied rewrites61.0%
Applied rewrites61.0%
Applied rewrites61.0%
(FPCore (w h d dX.u dX.v dX.w dY.u dY.v dY.w)
:precision binary32
(let* ((t_0 (* dY.v (floor h)))
(t_1 (* dY.w (floor d)))
(t_2 (* (floor w) (floor w))))
(if (<= (fabs dX.v) 35000.0)
(log2
(sqrt
(fmax
(fma
(* (* (floor d) dX.w) (floor d))
dX.w
(* (* dX.u dX.u) t_2))
(fma
(* t_2 dY.u)
dY.u
(fma
(* (* (floor h) (floor h)) dY.v)
dY.v
(* (* t_1 dY.w) (floor d)))))))
(log2
(sqrt
(fmax
(fma (* dY.u dY.u) t_2 (fma t_0 t_0 (* t_1 t_1)))
(fma
(* (* dX.w (floor d)) (floor d))
dX.w
(* (* (* (fabs dX.v) (floor h)) (fabs dX.v)) (floor h)))))))))float code(float w, float h, float d, float dX_46_u, float dX_46_v, float dX_46_w, float dY_46_u, float dY_46_v, float dY_46_w) {
float t_0 = dY_46_v * floorf(h);
float t_1 = dY_46_w * floorf(d);
float t_2 = floorf(w) * floorf(w);
float tmp;
if (fabsf(dX_46_v) <= 35000.0f) {
tmp = log2f(sqrtf(fmaxf(fmaf(((floorf(d) * dX_46_w) * floorf(d)), dX_46_w, ((dX_46_u * dX_46_u) * t_2)), fmaf((t_2 * dY_46_u), dY_46_u, fmaf(((floorf(h) * floorf(h)) * dY_46_v), dY_46_v, ((t_1 * dY_46_w) * floorf(d)))))));
} else {
tmp = log2f(sqrtf(fmaxf(fmaf((dY_46_u * dY_46_u), t_2, fmaf(t_0, t_0, (t_1 * t_1))), fmaf(((dX_46_w * floorf(d)) * floorf(d)), dX_46_w, (((fabsf(dX_46_v) * floorf(h)) * fabsf(dX_46_v)) * floorf(h))))));
}
return tmp;
}
function code(w, h, d, dX_46_u, dX_46_v, dX_46_w, dY_46_u, dY_46_v, dY_46_w) t_0 = Float32(dY_46_v * floor(h)) t_1 = Float32(dY_46_w * floor(d)) t_2 = Float32(floor(w) * floor(w)) tmp = Float32(0.0) if (abs(dX_46_v) <= Float32(35000.0)) tmp = log2(sqrt(fmax(fma(Float32(Float32(floor(d) * dX_46_w) * floor(d)), dX_46_w, Float32(Float32(dX_46_u * dX_46_u) * t_2)), fma(Float32(t_2 * dY_46_u), dY_46_u, fma(Float32(Float32(floor(h) * floor(h)) * dY_46_v), dY_46_v, Float32(Float32(t_1 * dY_46_w) * floor(d))))))); else tmp = log2(sqrt(fmax(fma(Float32(dY_46_u * dY_46_u), t_2, fma(t_0, t_0, Float32(t_1 * t_1))), fma(Float32(Float32(dX_46_w * floor(d)) * floor(d)), dX_46_w, Float32(Float32(Float32(abs(dX_46_v) * floor(h)) * abs(dX_46_v)) * floor(h)))))); end return tmp end
\begin{array}{l}
t_0 := dY.v \cdot \left\lfloor h\right\rfloor \\
t_1 := dY.w \cdot \left\lfloor d\right\rfloor \\
t_2 := \left\lfloor w\right\rfloor \cdot \left\lfloor w\right\rfloor \\
\mathbf{if}\;\left|dX.v\right| \leq 35000:\\
\;\;\;\;\log_{2} \left(\sqrt{\mathsf{max}\left(\mathsf{fma}\left(\left(\left\lfloor d\right\rfloor \cdot dX.w\right) \cdot \left\lfloor d\right\rfloor , dX.w, \left(dX.u \cdot dX.u\right) \cdot t\_2\right), \mathsf{fma}\left(t\_2 \cdot dY.u, dY.u, \mathsf{fma}\left(\left(\left\lfloor h\right\rfloor \cdot \left\lfloor h\right\rfloor \right) \cdot dY.v, dY.v, \left(t\_1 \cdot dY.w\right) \cdot \left\lfloor d\right\rfloor \right)\right)\right)}\right)\\
\mathbf{else}:\\
\;\;\;\;\log_{2} \left(\sqrt{\mathsf{max}\left(\mathsf{fma}\left(dY.u \cdot dY.u, t\_2, \mathsf{fma}\left(t\_0, t\_0, t\_1 \cdot t\_1\right)\right), \mathsf{fma}\left(\left(dX.w \cdot \left\lfloor d\right\rfloor \right) \cdot \left\lfloor d\right\rfloor , dX.w, \left(\left(\left|dX.v\right| \cdot \left\lfloor h\right\rfloor \right) \cdot \left|dX.v\right|\right) \cdot \left\lfloor h\right\rfloor \right)\right)}\right)\\
\end{array}
if dX.v < 35000Initial program 68.1%
Applied rewrites68.1%
Taylor expanded in dX.v around 0
lower-fma.f32N/A
lower-pow.f32N/A
lower-pow.f32N/A
lower-floor.f32N/A
lower-*.f32N/A
lower-pow.f32N/A
lower-pow.f32N/A
lower-floor.f3260.8%
Applied rewrites60.8%
lift-fma.f32N/A
+-commutativeN/A
lift-*.f32N/A
lift-pow.f32N/A
pow2N/A
lift-pow.f32N/A
unpow2N/A
unswap-sqrN/A
lift-*.f32N/A
*-commutativeN/A
associate-*l*N/A
lift-*.f32N/A
lift-pow.f32N/A
lift-pow.f32N/A
pow-prod-downN/A
*-commutativeN/A
lift-floor.f32N/A
pow2N/A
lower-fma.f32N/A
Applied rewrites60.8%
if 35000 < dX.v Initial program 68.1%
Taylor expanded in dX.u around 0
lower-fma.f32N/A
lower-pow.f32N/A
lower-pow.f32N/A
lower-floor.f32N/A
lower-*.f32N/A
lower-pow.f32N/A
lower-pow.f32N/A
lower-floor.f3261.0%
Applied rewrites61.0%
Applied rewrites61.0%
(FPCore (w h d dX.u dX.v dX.w dY.u dY.v dY.w)
:precision binary32
(let* ((t_0 (* (floor w) (floor w))))
(log2
(sqrt
(fmax
(fma (* (* (floor d) dX.w) (floor d)) dX.w (* (* dX.u dX.u) t_0))
(fma
(* t_0 dY.u)
dY.u
(fma
(* (* (floor h) (floor h)) dY.v)
dY.v
(* (* (* dY.w (floor d)) dY.w) (floor d)))))))))float code(float w, float h, float d, float dX_46_u, float dX_46_v, float dX_46_w, float dY_46_u, float dY_46_v, float dY_46_w) {
float t_0 = floorf(w) * floorf(w);
return log2f(sqrtf(fmaxf(fmaf(((floorf(d) * dX_46_w) * floorf(d)), dX_46_w, ((dX_46_u * dX_46_u) * t_0)), fmaf((t_0 * dY_46_u), dY_46_u, fmaf(((floorf(h) * floorf(h)) * dY_46_v), dY_46_v, (((dY_46_w * floorf(d)) * dY_46_w) * floorf(d)))))));
}
function code(w, h, d, dX_46_u, dX_46_v, dX_46_w, dY_46_u, dY_46_v, dY_46_w) t_0 = Float32(floor(w) * floor(w)) return log2(sqrt(fmax(fma(Float32(Float32(floor(d) * dX_46_w) * floor(d)), dX_46_w, Float32(Float32(dX_46_u * dX_46_u) * t_0)), fma(Float32(t_0 * dY_46_u), dY_46_u, fma(Float32(Float32(floor(h) * floor(h)) * dY_46_v), dY_46_v, Float32(Float32(Float32(dY_46_w * floor(d)) * dY_46_w) * floor(d))))))) end
\begin{array}{l}
t_0 := \left\lfloor w\right\rfloor \cdot \left\lfloor w\right\rfloor \\
\log_{2} \left(\sqrt{\mathsf{max}\left(\mathsf{fma}\left(\left(\left\lfloor d\right\rfloor \cdot dX.w\right) \cdot \left\lfloor d\right\rfloor , dX.w, \left(dX.u \cdot dX.u\right) \cdot t\_0\right), \mathsf{fma}\left(t\_0 \cdot dY.u, dY.u, \mathsf{fma}\left(\left(\left\lfloor h\right\rfloor \cdot \left\lfloor h\right\rfloor \right) \cdot dY.v, dY.v, \left(\left(dY.w \cdot \left\lfloor d\right\rfloor \right) \cdot dY.w\right) \cdot \left\lfloor d\right\rfloor \right)\right)\right)}\right)
\end{array}
Initial program 68.1%
Applied rewrites68.1%
Taylor expanded in dX.v around 0
lower-fma.f32N/A
lower-pow.f32N/A
lower-pow.f32N/A
lower-floor.f32N/A
lower-*.f32N/A
lower-pow.f32N/A
lower-pow.f32N/A
lower-floor.f3260.8%
Applied rewrites60.8%
lift-fma.f32N/A
+-commutativeN/A
lift-*.f32N/A
lift-pow.f32N/A
pow2N/A
lift-pow.f32N/A
unpow2N/A
unswap-sqrN/A
lift-*.f32N/A
*-commutativeN/A
associate-*l*N/A
lift-*.f32N/A
lift-pow.f32N/A
lift-pow.f32N/A
pow-prod-downN/A
*-commutativeN/A
lift-floor.f32N/A
pow2N/A
lower-fma.f32N/A
Applied rewrites60.8%
herbie shell --seed 2025212
(FPCore (w h d dX.u dX.v dX.w dY.u dY.v dY.w)
:name "Isotropic LOD (LOD)"
:precision binary32
:pre (and (and (and (and (and (and (and (and (and (<= 1.0 w) (<= w 16384.0)) (and (<= 1.0 h) (<= h 16384.0))) (and (<= 1.0 d) (<= d 4096.0))) (and (<= 1e-20 (fabs dX.u)) (<= (fabs dX.u) 1e+20))) (and (<= 1e-20 (fabs dX.v)) (<= (fabs dX.v) 1e+20))) (and (<= 1e-20 (fabs dX.w)) (<= (fabs dX.w) 1e+20))) (and (<= 1e-20 (fabs dY.u)) (<= (fabs dY.u) 1e+20))) (and (<= 1e-20 (fabs dY.v)) (<= (fabs dY.v) 1e+20))) (and (<= 1e-20 (fabs dY.w)) (<= (fabs dY.w) 1e+20)))
(log2 (sqrt (fmax (+ (+ (* (* (floor w) dX.u) (* (floor w) dX.u)) (* (* (floor h) dX.v) (* (floor h) dX.v))) (* (* (floor d) dX.w) (* (floor d) dX.w))) (+ (+ (* (* (floor w) dY.u) (* (floor w) dY.u)) (* (* (floor h) dY.v) (* (floor h) dY.v))) (* (* (floor d) dY.w) (* (floor d) dY.w)))))))