
(FPCore (a b angle x-scale y-scale)
:precision binary64
(let* ((t_0 (* (/ angle 180.0) (PI)))
(t_1 (sin t_0))
(t_2 (cos t_0))
(t_3
(/ (/ (+ (pow (* a t_2) 2.0) (pow (* b t_1) 2.0)) y-scale) y-scale))
(t_4
(/ (/ (+ (pow (* a t_1) 2.0) (pow (* b t_2) 2.0)) x-scale) x-scale))
(t_5 (* (* b a) (* b (- a))))
(t_6 (/ (* 4.0 t_5) (pow (* x-scale y-scale) 2.0))))
(/
(-
(sqrt
(*
(* (* 2.0 t_6) t_5)
(-
(+ t_4 t_3)
(sqrt
(+
(pow (- t_4 t_3) 2.0)
(pow
(/
(/ (* (* (* 2.0 (- (pow b 2.0) (pow a 2.0))) t_1) t_2) x-scale)
y-scale)
2.0)))))))
t_6)))\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{angle}{180} \cdot \mathsf{PI}\left(\right)\\
t_1 := \sin t\_0\\
t_2 := \cos t\_0\\
t_3 := \frac{\frac{{\left(a \cdot t\_2\right)}^{2} + {\left(b \cdot t\_1\right)}^{2}}{y-scale}}{y-scale}\\
t_4 := \frac{\frac{{\left(a \cdot t\_1\right)}^{2} + {\left(b \cdot t\_2\right)}^{2}}{x-scale}}{x-scale}\\
t_5 := \left(b \cdot a\right) \cdot \left(b \cdot \left(-a\right)\right)\\
t_6 := \frac{4 \cdot t\_5}{{\left(x-scale \cdot y-scale\right)}^{2}}\\
\frac{-\sqrt{\left(\left(2 \cdot t\_6\right) \cdot t\_5\right) \cdot \left(\left(t\_4 + t\_3\right) - \sqrt{{\left(t\_4 - t\_3\right)}^{2} + {\left(\frac{\frac{\left(\left(2 \cdot \left({b}^{2} - {a}^{2}\right)\right) \cdot t\_1\right) \cdot t\_2}{x-scale}}{y-scale}\right)}^{2}}\right)}}{t\_6}
\end{array}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 5 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (a b angle x-scale y-scale)
:precision binary64
(let* ((t_0 (* (/ angle 180.0) (PI)))
(t_1 (sin t_0))
(t_2 (cos t_0))
(t_3
(/ (/ (+ (pow (* a t_2) 2.0) (pow (* b t_1) 2.0)) y-scale) y-scale))
(t_4
(/ (/ (+ (pow (* a t_1) 2.0) (pow (* b t_2) 2.0)) x-scale) x-scale))
(t_5 (* (* b a) (* b (- a))))
(t_6 (/ (* 4.0 t_5) (pow (* x-scale y-scale) 2.0))))
(/
(-
(sqrt
(*
(* (* 2.0 t_6) t_5)
(-
(+ t_4 t_3)
(sqrt
(+
(pow (- t_4 t_3) 2.0)
(pow
(/
(/ (* (* (* 2.0 (- (pow b 2.0) (pow a 2.0))) t_1) t_2) x-scale)
y-scale)
2.0)))))))
t_6)))\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{angle}{180} \cdot \mathsf{PI}\left(\right)\\
t_1 := \sin t\_0\\
t_2 := \cos t\_0\\
t_3 := \frac{\frac{{\left(a \cdot t\_2\right)}^{2} + {\left(b \cdot t\_1\right)}^{2}}{y-scale}}{y-scale}\\
t_4 := \frac{\frac{{\left(a \cdot t\_1\right)}^{2} + {\left(b \cdot t\_2\right)}^{2}}{x-scale}}{x-scale}\\
t_5 := \left(b \cdot a\right) \cdot \left(b \cdot \left(-a\right)\right)\\
t_6 := \frac{4 \cdot t\_5}{{\left(x-scale \cdot y-scale\right)}^{2}}\\
\frac{-\sqrt{\left(\left(2 \cdot t\_6\right) \cdot t\_5\right) \cdot \left(\left(t\_4 + t\_3\right) - \sqrt{{\left(t\_4 - t\_3\right)}^{2} + {\left(\frac{\frac{\left(\left(2 \cdot \left({b}^{2} - {a}^{2}\right)\right) \cdot t\_1\right) \cdot t\_2}{x-scale}}{y-scale}\right)}^{2}}\right)}}{t\_6}
\end{array}
\end{array}
x-scale_m = (fabs.f64 x-scale)
b_m = (fabs.f64 b)
a_m = (fabs.f64 a)
(FPCore (a_m b_m angle x-scale_m y-scale)
:precision binary64
(if (<= b_m 5.2e-75)
(*
(sqrt
(*
(* (pow (sin (* (* (PI) angle) 0.005555555555555556)) 2.0) (* b_m b_m))
0.0))
(* (* (sqrt 8.0) x-scale_m) 0.25))
(* x-scale_m a_m)))\begin{array}{l}
x-scale_m = \left|x-scale\right|
\\
b_m = \left|b\right|
\\
a_m = \left|a\right|
\\
\begin{array}{l}
\mathbf{if}\;b\_m \leq 5.2 \cdot 10^{-75}:\\
\;\;\;\;\sqrt{\left({\sin \left(\left(\mathsf{PI}\left(\right) \cdot angle\right) \cdot 0.005555555555555556\right)}^{2} \cdot \left(b\_m \cdot b\_m\right)\right) \cdot 0} \cdot \left(\left(\sqrt{8} \cdot x-scale\_m\right) \cdot 0.25\right)\\
\mathbf{else}:\\
\;\;\;\;x-scale\_m \cdot a\_m\\
\end{array}
\end{array}
if b < 5.2e-75Initial program 0.1%
Taylor expanded in x-scale around 0
Applied rewrites4.9%
Taylor expanded in a around 0
Applied rewrites3.9%
Taylor expanded in y-scale around 0
Applied rewrites37.5%
if 5.2e-75 < b Initial program 0.1%
Taylor expanded in angle around 0
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f6425.8
Applied rewrites25.8%
Applied rewrites25.9%
Applied rewrites25.9%
Final simplification34.3%
x-scale_m = (fabs.f64 x-scale)
b_m = (fabs.f64 b)
a_m = (fabs.f64 a)
(FPCore (a_m b_m angle x-scale_m y-scale)
:precision binary64
(if (<= y-scale 6.2e-42)
(*
(sqrt (* (pow (sin (* (* (PI) angle) 0.005555555555555556)) 2.0) 0.0))
(* (* (* (sqrt 8.0) y-scale) a_m) 0.25))
(* x-scale_m a_m)))\begin{array}{l}
x-scale_m = \left|x-scale\right|
\\
b_m = \left|b\right|
\\
a_m = \left|a\right|
\\
\begin{array}{l}
\mathbf{if}\;y-scale \leq 6.2 \cdot 10^{-42}:\\
\;\;\;\;\sqrt{{\sin \left(\left(\mathsf{PI}\left(\right) \cdot angle\right) \cdot 0.005555555555555556\right)}^{2} \cdot 0} \cdot \left(\left(\left(\sqrt{8} \cdot y-scale\right) \cdot a\_m\right) \cdot 0.25\right)\\
\mathbf{else}:\\
\;\;\;\;x-scale\_m \cdot a\_m\\
\end{array}
\end{array}
if y-scale < 6.2000000000000005e-42Initial program 0.1%
Taylor expanded in b around 0
Applied rewrites4.9%
Taylor expanded in x-scale around inf
Applied rewrites2.1%
Taylor expanded in a around 0
Applied rewrites38.2%
if 6.2000000000000005e-42 < y-scale Initial program 0.1%
Taylor expanded in angle around 0
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f6425.7
Applied rewrites25.7%
Applied rewrites25.9%
Applied rewrites25.9%
Final simplification34.8%
x-scale_m = (fabs.f64 x-scale)
b_m = (fabs.f64 b)
a_m = (fabs.f64 a)
(FPCore (a_m b_m angle x-scale_m y-scale)
:precision binary64
(let* ((t_0 (* (sqrt 8.0) y-scale)) (t_1 (* (PI) (PI))))
(if (<= y-scale 2e-147)
(* (sqrt (* (* t_1 (* a_m a_m)) 0.0)) (* (* t_0 angle) 0.25))
(if (<= y-scale 5.3e-92)
(*
(sqrt (* (/ (* t_1 (* b_m b_m)) (* y-scale y-scale)) 0.0))
(* (* (* t_0 x-scale_m) angle) 0.25))
(* x-scale_m a_m)))))\begin{array}{l}
x-scale_m = \left|x-scale\right|
\\
b_m = \left|b\right|
\\
a_m = \left|a\right|
\\
\begin{array}{l}
t_0 := \sqrt{8} \cdot y-scale\\
t_1 := \mathsf{PI}\left(\right) \cdot \mathsf{PI}\left(\right)\\
\mathbf{if}\;y-scale \leq 2 \cdot 10^{-147}:\\
\;\;\;\;\sqrt{\left(t\_1 \cdot \left(a\_m \cdot a\_m\right)\right) \cdot 0} \cdot \left(\left(t\_0 \cdot angle\right) \cdot 0.25\right)\\
\mathbf{elif}\;y-scale \leq 5.3 \cdot 10^{-92}:\\
\;\;\;\;\sqrt{\frac{t\_1 \cdot \left(b\_m \cdot b\_m\right)}{y-scale \cdot y-scale} \cdot 0} \cdot \left(\left(\left(t\_0 \cdot x-scale\_m\right) \cdot angle\right) \cdot 0.25\right)\\
\mathbf{else}:\\
\;\;\;\;x-scale\_m \cdot a\_m\\
\end{array}
\end{array}
if y-scale < 1.9999999999999999e-147Initial program 0.1%
Taylor expanded in b around 0
Applied rewrites5.5%
Taylor expanded in x-scale around inf
Applied rewrites1.0%
Taylor expanded in angle around 0
Applied rewrites30.6%
if 1.9999999999999999e-147 < y-scale < 5.30000000000000029e-92Initial program 0.0%
Taylor expanded in x-scale around 0
Applied rewrites1.2%
Taylor expanded in a around 0
Applied rewrites1.5%
Taylor expanded in angle around 0
Applied rewrites34.3%
if 5.30000000000000029e-92 < y-scale Initial program 0.1%
Taylor expanded in angle around 0
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f6427.1
Applied rewrites27.1%
Applied rewrites27.2%
Applied rewrites27.2%
Final simplification29.8%
x-scale_m = (fabs.f64 x-scale)
b_m = (fabs.f64 b)
a_m = (fabs.f64 a)
(FPCore (a_m b_m angle x-scale_m y-scale)
:precision binary64
(if (<= y-scale 2.2e-147)
(*
(sqrt (* (* (* (PI) (PI)) (* a_m a_m)) 0.0))
(* (* (* (sqrt 8.0) y-scale) angle) 0.25))
(* x-scale_m a_m)))\begin{array}{l}
x-scale_m = \left|x-scale\right|
\\
b_m = \left|b\right|
\\
a_m = \left|a\right|
\\
\begin{array}{l}
\mathbf{if}\;y-scale \leq 2.2 \cdot 10^{-147}:\\
\;\;\;\;\sqrt{\left(\left(\mathsf{PI}\left(\right) \cdot \mathsf{PI}\left(\right)\right) \cdot \left(a\_m \cdot a\_m\right)\right) \cdot 0} \cdot \left(\left(\left(\sqrt{8} \cdot y-scale\right) \cdot angle\right) \cdot 0.25\right)\\
\mathbf{else}:\\
\;\;\;\;x-scale\_m \cdot a\_m\\
\end{array}
\end{array}
if y-scale < 2.2000000000000001e-147Initial program 0.1%
Taylor expanded in b around 0
Applied rewrites5.5%
Taylor expanded in x-scale around inf
Applied rewrites1.0%
Taylor expanded in angle around 0
Applied rewrites30.6%
if 2.2000000000000001e-147 < y-scale Initial program 0.1%
Taylor expanded in angle around 0
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f6425.1
Applied rewrites25.1%
Applied rewrites25.2%
Applied rewrites25.2%
Final simplification28.7%
x-scale_m = (fabs.f64 x-scale) b_m = (fabs.f64 b) a_m = (fabs.f64 a) (FPCore (a_m b_m angle x-scale_m y-scale) :precision binary64 (* x-scale_m a_m))
x-scale_m = fabs(x_45_scale);
b_m = fabs(b);
a_m = fabs(a);
double code(double a_m, double b_m, double angle, double x_45_scale_m, double y_45_scale) {
return x_45_scale_m * a_m;
}
x-scale_m = abs(x_45scale)
b_m = abs(b)
a_m = abs(a)
real(8) function code(a_m, b_m, angle, x_45scale_m, y_45scale)
real(8), intent (in) :: a_m
real(8), intent (in) :: b_m
real(8), intent (in) :: angle
real(8), intent (in) :: x_45scale_m
real(8), intent (in) :: y_45scale
code = x_45scale_m * a_m
end function
x-scale_m = Math.abs(x_45_scale);
b_m = Math.abs(b);
a_m = Math.abs(a);
public static double code(double a_m, double b_m, double angle, double x_45_scale_m, double y_45_scale) {
return x_45_scale_m * a_m;
}
x-scale_m = math.fabs(x_45_scale) b_m = math.fabs(b) a_m = math.fabs(a) def code(a_m, b_m, angle, x_45_scale_m, y_45_scale): return x_45_scale_m * a_m
x-scale_m = abs(x_45_scale) b_m = abs(b) a_m = abs(a) function code(a_m, b_m, angle, x_45_scale_m, y_45_scale) return Float64(x_45_scale_m * a_m) end
x-scale_m = abs(x_45_scale); b_m = abs(b); a_m = abs(a); function tmp = code(a_m, b_m, angle, x_45_scale_m, y_45_scale) tmp = x_45_scale_m * a_m; end
x-scale_m = N[Abs[x$45$scale], $MachinePrecision] b_m = N[Abs[b], $MachinePrecision] a_m = N[Abs[a], $MachinePrecision] code[a$95$m_, b$95$m_, angle_, x$45$scale$95$m_, y$45$scale_] := N[(x$45$scale$95$m * a$95$m), $MachinePrecision]
\begin{array}{l}
x-scale_m = \left|x-scale\right|
\\
b_m = \left|b\right|
\\
a_m = \left|a\right|
\\
x-scale\_m \cdot a\_m
\end{array}
Initial program 0.1%
Taylor expanded in angle around 0
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f6421.5
Applied rewrites21.5%
Applied rewrites21.6%
Applied rewrites21.6%
herbie shell --seed 2024332
(FPCore (a b angle x-scale y-scale)
:name "b from scale-rotated-ellipse"
:precision binary64
(/ (- (sqrt (* (* (* 2.0 (/ (* 4.0 (* (* b a) (* b (- a)))) (pow (* x-scale y-scale) 2.0))) (* (* b a) (* b (- a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180.0) (PI)))) 2.0) (pow (* b (cos (* (/ angle 180.0) (PI)))) 2.0)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180.0) (PI)))) 2.0) (pow (* b (sin (* (/ angle 180.0) (PI)))) 2.0)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180.0) (PI)))) 2.0) (pow (* b (cos (* (/ angle 180.0) (PI)))) 2.0)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180.0) (PI)))) 2.0) (pow (* b (sin (* (/ angle 180.0) (PI)))) 2.0)) y-scale) y-scale)) 2.0) (pow (/ (/ (* (* (* 2.0 (- (pow b 2.0) (pow a 2.0))) (sin (* (/ angle 180.0) (PI)))) (cos (* (/ angle 180.0) (PI)))) x-scale) y-scale) 2.0))))))) (/ (* 4.0 (* (* b a) (* b (- a)))) (pow (* x-scale y-scale) 2.0))))