
(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 11 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}
y-scale_m = (fabs.f64 y-scale)
x-scale_m = (fabs.f64 x-scale)
(FPCore (a b angle x-scale_m y-scale_m)
:precision binary64
(let* ((t_0 (sqrt (PI))) (t_1 (* (* (PI) angle) 0.005555555555555556)))
(if (<= y-scale_m 7.6e+32)
(*
(*
(* 0.25 (* (sqrt 8.0) x-scale_m))
(hypot
(* (sin (* (* t_0 t_0) (* 0.005555555555555556 angle))) b)
(* (cos (* (PI) (* 0.005555555555555556 angle))) a)))
(sqrt 2.0))
(*
(hypot (* (cos t_1) b) (* (sin t_1) a))
(* (* (* (sqrt 2.0) y-scale_m) (sqrt 8.0)) 0.25)))))\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
\begin{array}{l}
t_0 := \sqrt{\mathsf{PI}\left(\right)}\\
t_1 := \left(\mathsf{PI}\left(\right) \cdot angle\right) \cdot 0.005555555555555556\\
\mathbf{if}\;y-scale\_m \leq 7.6 \cdot 10^{+32}:\\
\;\;\;\;\left(\left(0.25 \cdot \left(\sqrt{8} \cdot x-scale\_m\right)\right) \cdot \mathsf{hypot}\left(\sin \left(\left(t\_0 \cdot t\_0\right) \cdot \left(0.005555555555555556 \cdot angle\right)\right) \cdot b, \cos \left(\mathsf{PI}\left(\right) \cdot \left(0.005555555555555556 \cdot angle\right)\right) \cdot a\right)\right) \cdot \sqrt{2}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{hypot}\left(\cos t\_1 \cdot b, \sin t\_1 \cdot a\right) \cdot \left(\left(\left(\sqrt{2} \cdot y-scale\_m\right) \cdot \sqrt{8}\right) \cdot 0.25\right)\\
\end{array}
\end{array}
if y-scale < 7.6000000000000006e32Initial program 1.8%
Taylor expanded in y-scale around 0
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
distribute-lft-outN/A
lower-*.f64N/A
Applied rewrites23.4%
Applied rewrites25.6%
Applied rewrites25.6%
if 7.6000000000000006e32 < y-scale Initial program 0.5%
Taylor expanded in y-scale around inf
Applied rewrites39.4%
Taylor expanded in a around -inf
Applied rewrites17.6%
Taylor expanded in x-scale around 0
Applied rewrites70.5%
Final simplification32.6%
y-scale_m = (fabs.f64 y-scale)
x-scale_m = (fabs.f64 x-scale)
(FPCore (a b angle x-scale_m y-scale_m)
:precision binary64
(let* ((t_0 (* (* (PI) angle) 0.005555555555555556)) (t_1 (sin t_0)))
(if (<= y-scale_m 7.6e+32)
(*
(*
(hypot (* t_1 b) (* (cos (* (PI) (* 0.005555555555555556 angle))) a))
(* 0.25 (* (sqrt 8.0) x-scale_m)))
(sqrt 2.0))
(*
(hypot (* (cos t_0) b) (* t_1 a))
(* (* (* (sqrt 2.0) y-scale_m) (sqrt 8.0)) 0.25)))))\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
\begin{array}{l}
t_0 := \left(\mathsf{PI}\left(\right) \cdot angle\right) \cdot 0.005555555555555556\\
t_1 := \sin t\_0\\
\mathbf{if}\;y-scale\_m \leq 7.6 \cdot 10^{+32}:\\
\;\;\;\;\left(\mathsf{hypot}\left(t\_1 \cdot b, \cos \left(\mathsf{PI}\left(\right) \cdot \left(0.005555555555555556 \cdot angle\right)\right) \cdot a\right) \cdot \left(0.25 \cdot \left(\sqrt{8} \cdot x-scale\_m\right)\right)\right) \cdot \sqrt{2}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{hypot}\left(\cos t\_0 \cdot b, t\_1 \cdot a\right) \cdot \left(\left(\left(\sqrt{2} \cdot y-scale\_m\right) \cdot \sqrt{8}\right) \cdot 0.25\right)\\
\end{array}
\end{array}
if y-scale < 7.6000000000000006e32Initial program 1.8%
Taylor expanded in y-scale around 0
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
distribute-lft-outN/A
lower-*.f64N/A
Applied rewrites23.4%
Applied rewrites25.6%
Taylor expanded in angle around inf
Applied rewrites25.6%
if 7.6000000000000006e32 < y-scale Initial program 0.5%
Taylor expanded in y-scale around inf
Applied rewrites39.4%
Taylor expanded in a around -inf
Applied rewrites17.6%
Taylor expanded in x-scale around 0
Applied rewrites70.5%
Final simplification32.6%
y-scale_m = (fabs.f64 y-scale)
x-scale_m = (fabs.f64 x-scale)
(FPCore (a b angle x-scale_m y-scale_m)
:precision binary64
(let* ((t_0 (* (* (PI) angle) 0.005555555555555556)))
(if (<= y-scale_m 7.6e+32)
(*
(*
(* 0.25 (sqrt 8.0))
(*
(hypot (* 1.0 a) (* (sin (* (PI) (* 0.005555555555555556 angle))) b))
(sqrt 2.0)))
x-scale_m)
(*
(hypot (* (cos t_0) b) (* (sin t_0) a))
(* (* (* (sqrt 2.0) y-scale_m) (sqrt 8.0)) 0.25)))))\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
\begin{array}{l}
t_0 := \left(\mathsf{PI}\left(\right) \cdot angle\right) \cdot 0.005555555555555556\\
\mathbf{if}\;y-scale\_m \leq 7.6 \cdot 10^{+32}:\\
\;\;\;\;\left(\left(0.25 \cdot \sqrt{8}\right) \cdot \left(\mathsf{hypot}\left(1 \cdot a, \sin \left(\mathsf{PI}\left(\right) \cdot \left(0.005555555555555556 \cdot angle\right)\right) \cdot b\right) \cdot \sqrt{2}\right)\right) \cdot x-scale\_m\\
\mathbf{else}:\\
\;\;\;\;\mathsf{hypot}\left(\cos t\_0 \cdot b, \sin t\_0 \cdot a\right) \cdot \left(\left(\left(\sqrt{2} \cdot y-scale\_m\right) \cdot \sqrt{8}\right) \cdot 0.25\right)\\
\end{array}
\end{array}
if y-scale < 7.6000000000000006e32Initial program 1.8%
Taylor expanded in y-scale around 0
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
distribute-lft-outN/A
lower-*.f64N/A
Applied rewrites23.4%
Taylor expanded in angle around 0
Applied rewrites23.5%
Applied rewrites25.9%
if 7.6000000000000006e32 < y-scale Initial program 0.5%
Taylor expanded in y-scale around inf
Applied rewrites39.4%
Taylor expanded in a around -inf
Applied rewrites17.6%
Taylor expanded in x-scale around 0
Applied rewrites70.5%
Final simplification32.9%
y-scale_m = (fabs.f64 y-scale)
x-scale_m = (fabs.f64 x-scale)
(FPCore (a b angle x-scale_m y-scale_m)
:precision binary64
(if (<= y-scale_m 7.6e+32)
(*
(*
(* 0.25 (sqrt 8.0))
(*
(hypot (* 1.0 a) (* (sin (* (PI) (* 0.005555555555555556 angle))) b))
(sqrt 2.0)))
x-scale_m)
(*
(*
(* (sqrt 8.0) (sqrt 2.0))
(*
(fma
(fma
(* (* angle angle) 3.969161205100849e-11)
(pow (PI) 4.0)
(* (* (PI) (PI)) -1.54320987654321e-5))
(* angle angle)
1.0)
y-scale_m))
(* 0.25 b))))\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
\begin{array}{l}
\mathbf{if}\;y-scale\_m \leq 7.6 \cdot 10^{+32}:\\
\;\;\;\;\left(\left(0.25 \cdot \sqrt{8}\right) \cdot \left(\mathsf{hypot}\left(1 \cdot a, \sin \left(\mathsf{PI}\left(\right) \cdot \left(0.005555555555555556 \cdot angle\right)\right) \cdot b\right) \cdot \sqrt{2}\right)\right) \cdot x-scale\_m\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\sqrt{8} \cdot \sqrt{2}\right) \cdot \left(\mathsf{fma}\left(\mathsf{fma}\left(\left(angle \cdot angle\right) \cdot 3.969161205100849 \cdot 10^{-11}, {\mathsf{PI}\left(\right)}^{4}, \left(\mathsf{PI}\left(\right) \cdot \mathsf{PI}\left(\right)\right) \cdot -1.54320987654321 \cdot 10^{-5}\right), angle \cdot angle, 1\right) \cdot y-scale\_m\right)\right) \cdot \left(0.25 \cdot b\right)\\
\end{array}
\end{array}
if y-scale < 7.6000000000000006e32Initial program 1.8%
Taylor expanded in y-scale around 0
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
distribute-lft-outN/A
lower-*.f64N/A
Applied rewrites23.4%
Taylor expanded in angle around 0
Applied rewrites23.5%
Applied rewrites25.9%
if 7.6000000000000006e32 < y-scale Initial program 0.5%
Taylor expanded in y-scale around inf
Applied rewrites39.4%
Taylor expanded in b around inf
Applied rewrites23.3%
Taylor expanded in angle around 0
Applied rewrites33.2%
Final simplification27.1%
y-scale_m = (fabs.f64 y-scale)
x-scale_m = (fabs.f64 x-scale)
(FPCore (a b angle x-scale_m y-scale_m)
:precision binary64
(if (<= y-scale_m 7.6e+32)
(*
(*
(*
(hypot (* 1.0 a) (* (sin (* (PI) (* 0.005555555555555556 angle))) b))
(sqrt 2.0))
x-scale_m)
(* 0.25 (sqrt 8.0)))
(*
(*
(* (sqrt 8.0) (sqrt 2.0))
(*
(fma
(fma
(* (* angle angle) 3.969161205100849e-11)
(pow (PI) 4.0)
(* (* (PI) (PI)) -1.54320987654321e-5))
(* angle angle)
1.0)
y-scale_m))
(* 0.25 b))))\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
\begin{array}{l}
\mathbf{if}\;y-scale\_m \leq 7.6 \cdot 10^{+32}:\\
\;\;\;\;\left(\left(\mathsf{hypot}\left(1 \cdot a, \sin \left(\mathsf{PI}\left(\right) \cdot \left(0.005555555555555556 \cdot angle\right)\right) \cdot b\right) \cdot \sqrt{2}\right) \cdot x-scale\_m\right) \cdot \left(0.25 \cdot \sqrt{8}\right)\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\sqrt{8} \cdot \sqrt{2}\right) \cdot \left(\mathsf{fma}\left(\mathsf{fma}\left(\left(angle \cdot angle\right) \cdot 3.969161205100849 \cdot 10^{-11}, {\mathsf{PI}\left(\right)}^{4}, \left(\mathsf{PI}\left(\right) \cdot \mathsf{PI}\left(\right)\right) \cdot -1.54320987654321 \cdot 10^{-5}\right), angle \cdot angle, 1\right) \cdot y-scale\_m\right)\right) \cdot \left(0.25 \cdot b\right)\\
\end{array}
\end{array}
if y-scale < 7.6000000000000006e32Initial program 1.8%
Taylor expanded in y-scale around 0
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
distribute-lft-outN/A
lower-*.f64N/A
Applied rewrites23.4%
Taylor expanded in angle around 0
Applied rewrites23.5%
Applied rewrites25.9%
if 7.6000000000000006e32 < y-scale Initial program 0.5%
Taylor expanded in y-scale around inf
Applied rewrites39.4%
Taylor expanded in b around inf
Applied rewrites23.3%
Taylor expanded in angle around 0
Applied rewrites33.2%
Final simplification27.1%
y-scale_m = (fabs.f64 y-scale)
x-scale_m = (fabs.f64 x-scale)
(FPCore (a b angle x-scale_m y-scale_m)
:precision binary64
(if (<= y-scale_m 6e+79)
(*
(*
(hypot (* (* (* (PI) angle) 0.005555555555555556) b) (* 1.0 a))
(* 0.25 (* (sqrt 8.0) x-scale_m)))
(sqrt 2.0))
(*
(*
(* (sqrt 8.0) (sqrt 2.0))
(*
(fma
(fma
(* (* angle angle) 3.969161205100849e-11)
(pow (PI) 4.0)
(* (* (PI) (PI)) -1.54320987654321e-5))
(* angle angle)
1.0)
y-scale_m))
(* 0.25 b))))\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
\begin{array}{l}
\mathbf{if}\;y-scale\_m \leq 6 \cdot 10^{+79}:\\
\;\;\;\;\left(\mathsf{hypot}\left(\left(\left(\mathsf{PI}\left(\right) \cdot angle\right) \cdot 0.005555555555555556\right) \cdot b, 1 \cdot a\right) \cdot \left(0.25 \cdot \left(\sqrt{8} \cdot x-scale\_m\right)\right)\right) \cdot \sqrt{2}\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\sqrt{8} \cdot \sqrt{2}\right) \cdot \left(\mathsf{fma}\left(\mathsf{fma}\left(\left(angle \cdot angle\right) \cdot 3.969161205100849 \cdot 10^{-11}, {\mathsf{PI}\left(\right)}^{4}, \left(\mathsf{PI}\left(\right) \cdot \mathsf{PI}\left(\right)\right) \cdot -1.54320987654321 \cdot 10^{-5}\right), angle \cdot angle, 1\right) \cdot y-scale\_m\right)\right) \cdot \left(0.25 \cdot b\right)\\
\end{array}
\end{array}
if y-scale < 5.99999999999999948e79Initial program 1.8%
Taylor expanded in y-scale around 0
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
distribute-lft-outN/A
lower-*.f64N/A
Applied rewrites24.1%
Applied rewrites25.3%
Taylor expanded in angle around 0
Applied rewrites25.3%
Taylor expanded in angle around 0
Applied rewrites25.6%
if 5.99999999999999948e79 < y-scale Initial program 0.5%
Taylor expanded in y-scale around inf
Applied rewrites38.8%
Taylor expanded in b around inf
Applied rewrites27.0%
Taylor expanded in angle around 0
Applied rewrites40.9%
Final simplification27.5%
y-scale_m = (fabs.f64 y-scale)
x-scale_m = (fabs.f64 x-scale)
(FPCore (a b angle x-scale_m y-scale_m)
:precision binary64
(if (<= x-scale_m 5e-153)
(* b y-scale_m)
(*
(*
(hypot (* (* (* (PI) angle) 0.005555555555555556) b) (* 1.0 a))
(* 0.25 (* (sqrt 8.0) x-scale_m)))
(sqrt 2.0))))\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
\begin{array}{l}
\mathbf{if}\;x-scale\_m \leq 5 \cdot 10^{-153}:\\
\;\;\;\;b \cdot y-scale\_m\\
\mathbf{else}:\\
\;\;\;\;\left(\mathsf{hypot}\left(\left(\left(\mathsf{PI}\left(\right) \cdot angle\right) \cdot 0.005555555555555556\right) \cdot b, 1 \cdot a\right) \cdot \left(0.25 \cdot \left(\sqrt{8} \cdot x-scale\_m\right)\right)\right) \cdot \sqrt{2}\\
\end{array}
\end{array}
if x-scale < 5.00000000000000033e-153Initial program 1.6%
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.f6418.1
Applied rewrites18.1%
Applied rewrites18.2%
Taylor expanded in b around 0
Applied rewrites18.2%
if 5.00000000000000033e-153 < x-scale Initial program 1.6%
Taylor expanded in y-scale around 0
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
distribute-lft-outN/A
lower-*.f64N/A
Applied rewrites55.3%
Applied rewrites59.0%
Taylor expanded in angle around 0
Applied rewrites59.4%
Taylor expanded in angle around 0
Applied rewrites60.1%
Final simplification33.4%
y-scale_m = (fabs.f64 y-scale)
x-scale_m = (fabs.f64 x-scale)
(FPCore (a b angle x-scale_m y-scale_m)
:precision binary64
(if (<= y-scale_m 7.6e+32)
(* (* (* (* (sqrt 8.0) x-scale_m) a) 0.25) (sqrt 2.0))
(*
(/ (* (sqrt 2.0) b) x-scale_m)
(* (* (* (sqrt 8.0) y-scale_m) x-scale_m) 0.25))))y-scale_m = fabs(y_45_scale);
x-scale_m = fabs(x_45_scale);
double code(double a, double b, double angle, double x_45_scale_m, double y_45_scale_m) {
double tmp;
if (y_45_scale_m <= 7.6e+32) {
tmp = (((sqrt(8.0) * x_45_scale_m) * a) * 0.25) * sqrt(2.0);
} else {
tmp = ((sqrt(2.0) * b) / x_45_scale_m) * (((sqrt(8.0) * y_45_scale_m) * x_45_scale_m) * 0.25);
}
return tmp;
}
y-scale_m = abs(y_45scale)
x-scale_m = abs(x_45scale)
real(8) function code(a, b, angle, x_45scale_m, y_45scale_m)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: angle
real(8), intent (in) :: x_45scale_m
real(8), intent (in) :: y_45scale_m
real(8) :: tmp
if (y_45scale_m <= 7.6d+32) then
tmp = (((sqrt(8.0d0) * x_45scale_m) * a) * 0.25d0) * sqrt(2.0d0)
else
tmp = ((sqrt(2.0d0) * b) / x_45scale_m) * (((sqrt(8.0d0) * y_45scale_m) * x_45scale_m) * 0.25d0)
end if
code = tmp
end function
y-scale_m = Math.abs(y_45_scale);
x-scale_m = Math.abs(x_45_scale);
public static double code(double a, double b, double angle, double x_45_scale_m, double y_45_scale_m) {
double tmp;
if (y_45_scale_m <= 7.6e+32) {
tmp = (((Math.sqrt(8.0) * x_45_scale_m) * a) * 0.25) * Math.sqrt(2.0);
} else {
tmp = ((Math.sqrt(2.0) * b) / x_45_scale_m) * (((Math.sqrt(8.0) * y_45_scale_m) * x_45_scale_m) * 0.25);
}
return tmp;
}
y-scale_m = math.fabs(y_45_scale) x-scale_m = math.fabs(x_45_scale) def code(a, b, angle, x_45_scale_m, y_45_scale_m): tmp = 0 if y_45_scale_m <= 7.6e+32: tmp = (((math.sqrt(8.0) * x_45_scale_m) * a) * 0.25) * math.sqrt(2.0) else: tmp = ((math.sqrt(2.0) * b) / x_45_scale_m) * (((math.sqrt(8.0) * y_45_scale_m) * x_45_scale_m) * 0.25) return tmp
y-scale_m = abs(y_45_scale) x-scale_m = abs(x_45_scale) function code(a, b, angle, x_45_scale_m, y_45_scale_m) tmp = 0.0 if (y_45_scale_m <= 7.6e+32) tmp = Float64(Float64(Float64(Float64(sqrt(8.0) * x_45_scale_m) * a) * 0.25) * sqrt(2.0)); else tmp = Float64(Float64(Float64(sqrt(2.0) * b) / x_45_scale_m) * Float64(Float64(Float64(sqrt(8.0) * y_45_scale_m) * x_45_scale_m) * 0.25)); end return tmp end
y-scale_m = abs(y_45_scale); x-scale_m = abs(x_45_scale); function tmp_2 = code(a, b, angle, x_45_scale_m, y_45_scale_m) tmp = 0.0; if (y_45_scale_m <= 7.6e+32) tmp = (((sqrt(8.0) * x_45_scale_m) * a) * 0.25) * sqrt(2.0); else tmp = ((sqrt(2.0) * b) / x_45_scale_m) * (((sqrt(8.0) * y_45_scale_m) * x_45_scale_m) * 0.25); end tmp_2 = tmp; end
y-scale_m = N[Abs[y$45$scale], $MachinePrecision] x-scale_m = N[Abs[x$45$scale], $MachinePrecision] code[a_, b_, angle_, x$45$scale$95$m_, y$45$scale$95$m_] := If[LessEqual[y$45$scale$95$m, 7.6e+32], N[(N[(N[(N[(N[Sqrt[8.0], $MachinePrecision] * x$45$scale$95$m), $MachinePrecision] * a), $MachinePrecision] * 0.25), $MachinePrecision] * N[Sqrt[2.0], $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[Sqrt[2.0], $MachinePrecision] * b), $MachinePrecision] / x$45$scale$95$m), $MachinePrecision] * N[(N[(N[(N[Sqrt[8.0], $MachinePrecision] * y$45$scale$95$m), $MachinePrecision] * x$45$scale$95$m), $MachinePrecision] * 0.25), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
\begin{array}{l}
\mathbf{if}\;y-scale\_m \leq 7.6 \cdot 10^{+32}:\\
\;\;\;\;\left(\left(\left(\sqrt{8} \cdot x-scale\_m\right) \cdot a\right) \cdot 0.25\right) \cdot \sqrt{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{\sqrt{2} \cdot b}{x-scale\_m} \cdot \left(\left(\left(\sqrt{8} \cdot y-scale\_m\right) \cdot x-scale\_m\right) \cdot 0.25\right)\\
\end{array}
\end{array}
if y-scale < 7.6000000000000006e32Initial program 1.8%
Taylor expanded in y-scale around 0
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
distribute-lft-outN/A
lower-*.f64N/A
Applied rewrites23.4%
Applied rewrites25.6%
Taylor expanded in angle around 0
Applied rewrites18.6%
if 7.6000000000000006e32 < y-scale Initial program 0.5%
Taylor expanded in y-scale around inf
Applied rewrites39.4%
Taylor expanded in angle around 0
Applied rewrites27.0%
Final simplification19.9%
y-scale_m = (fabs.f64 y-scale) x-scale_m = (fabs.f64 x-scale) (FPCore (a b angle x-scale_m y-scale_m) :precision binary64 (if (<= y-scale_m 7.6e+32) (* (* (* (* (sqrt 8.0) x-scale_m) a) 0.25) (sqrt 2.0)) (* b y-scale_m)))
y-scale_m = fabs(y_45_scale);
x-scale_m = fabs(x_45_scale);
double code(double a, double b, double angle, double x_45_scale_m, double y_45_scale_m) {
double tmp;
if (y_45_scale_m <= 7.6e+32) {
tmp = (((sqrt(8.0) * x_45_scale_m) * a) * 0.25) * sqrt(2.0);
} else {
tmp = b * y_45_scale_m;
}
return tmp;
}
y-scale_m = abs(y_45scale)
x-scale_m = abs(x_45scale)
real(8) function code(a, b, angle, x_45scale_m, y_45scale_m)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: angle
real(8), intent (in) :: x_45scale_m
real(8), intent (in) :: y_45scale_m
real(8) :: tmp
if (y_45scale_m <= 7.6d+32) then
tmp = (((sqrt(8.0d0) * x_45scale_m) * a) * 0.25d0) * sqrt(2.0d0)
else
tmp = b * y_45scale_m
end if
code = tmp
end function
y-scale_m = Math.abs(y_45_scale);
x-scale_m = Math.abs(x_45_scale);
public static double code(double a, double b, double angle, double x_45_scale_m, double y_45_scale_m) {
double tmp;
if (y_45_scale_m <= 7.6e+32) {
tmp = (((Math.sqrt(8.0) * x_45_scale_m) * a) * 0.25) * Math.sqrt(2.0);
} else {
tmp = b * y_45_scale_m;
}
return tmp;
}
y-scale_m = math.fabs(y_45_scale) x-scale_m = math.fabs(x_45_scale) def code(a, b, angle, x_45_scale_m, y_45_scale_m): tmp = 0 if y_45_scale_m <= 7.6e+32: tmp = (((math.sqrt(8.0) * x_45_scale_m) * a) * 0.25) * math.sqrt(2.0) else: tmp = b * y_45_scale_m return tmp
y-scale_m = abs(y_45_scale) x-scale_m = abs(x_45_scale) function code(a, b, angle, x_45_scale_m, y_45_scale_m) tmp = 0.0 if (y_45_scale_m <= 7.6e+32) tmp = Float64(Float64(Float64(Float64(sqrt(8.0) * x_45_scale_m) * a) * 0.25) * sqrt(2.0)); else tmp = Float64(b * y_45_scale_m); end return tmp end
y-scale_m = abs(y_45_scale); x-scale_m = abs(x_45_scale); function tmp_2 = code(a, b, angle, x_45_scale_m, y_45_scale_m) tmp = 0.0; if (y_45_scale_m <= 7.6e+32) tmp = (((sqrt(8.0) * x_45_scale_m) * a) * 0.25) * sqrt(2.0); else tmp = b * y_45_scale_m; end tmp_2 = tmp; end
y-scale_m = N[Abs[y$45$scale], $MachinePrecision] x-scale_m = N[Abs[x$45$scale], $MachinePrecision] code[a_, b_, angle_, x$45$scale$95$m_, y$45$scale$95$m_] := If[LessEqual[y$45$scale$95$m, 7.6e+32], N[(N[(N[(N[(N[Sqrt[8.0], $MachinePrecision] * x$45$scale$95$m), $MachinePrecision] * a), $MachinePrecision] * 0.25), $MachinePrecision] * N[Sqrt[2.0], $MachinePrecision]), $MachinePrecision], N[(b * y$45$scale$95$m), $MachinePrecision]]
\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
\begin{array}{l}
\mathbf{if}\;y-scale\_m \leq 7.6 \cdot 10^{+32}:\\
\;\;\;\;\left(\left(\left(\sqrt{8} \cdot x-scale\_m\right) \cdot a\right) \cdot 0.25\right) \cdot \sqrt{2}\\
\mathbf{else}:\\
\;\;\;\;b \cdot y-scale\_m\\
\end{array}
\end{array}
if y-scale < 7.6000000000000006e32Initial program 1.8%
Taylor expanded in y-scale around 0
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
distribute-lft-outN/A
lower-*.f64N/A
Applied rewrites23.4%
Applied rewrites25.6%
Taylor expanded in angle around 0
Applied rewrites18.6%
if 7.6000000000000006e32 < y-scale Initial program 0.5%
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.3%
Taylor expanded in b around 0
Applied rewrites25.3%
Final simplification19.6%
y-scale_m = (fabs.f64 y-scale) x-scale_m = (fabs.f64 x-scale) (FPCore (a b angle x-scale_m y-scale_m) :precision binary64 (if (<= y-scale_m 7.6e+32) (* (* (* (sqrt 2.0) x-scale_m) (sqrt 8.0)) (* 0.25 a)) (* b y-scale_m)))
y-scale_m = fabs(y_45_scale);
x-scale_m = fabs(x_45_scale);
double code(double a, double b, double angle, double x_45_scale_m, double y_45_scale_m) {
double tmp;
if (y_45_scale_m <= 7.6e+32) {
tmp = ((sqrt(2.0) * x_45_scale_m) * sqrt(8.0)) * (0.25 * a);
} else {
tmp = b * y_45_scale_m;
}
return tmp;
}
y-scale_m = abs(y_45scale)
x-scale_m = abs(x_45scale)
real(8) function code(a, b, angle, x_45scale_m, y_45scale_m)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: angle
real(8), intent (in) :: x_45scale_m
real(8), intent (in) :: y_45scale_m
real(8) :: tmp
if (y_45scale_m <= 7.6d+32) then
tmp = ((sqrt(2.0d0) * x_45scale_m) * sqrt(8.0d0)) * (0.25d0 * a)
else
tmp = b * y_45scale_m
end if
code = tmp
end function
y-scale_m = Math.abs(y_45_scale);
x-scale_m = Math.abs(x_45_scale);
public static double code(double a, double b, double angle, double x_45_scale_m, double y_45_scale_m) {
double tmp;
if (y_45_scale_m <= 7.6e+32) {
tmp = ((Math.sqrt(2.0) * x_45_scale_m) * Math.sqrt(8.0)) * (0.25 * a);
} else {
tmp = b * y_45_scale_m;
}
return tmp;
}
y-scale_m = math.fabs(y_45_scale) x-scale_m = math.fabs(x_45_scale) def code(a, b, angle, x_45_scale_m, y_45_scale_m): tmp = 0 if y_45_scale_m <= 7.6e+32: tmp = ((math.sqrt(2.0) * x_45_scale_m) * math.sqrt(8.0)) * (0.25 * a) else: tmp = b * y_45_scale_m return tmp
y-scale_m = abs(y_45_scale) x-scale_m = abs(x_45_scale) function code(a, b, angle, x_45_scale_m, y_45_scale_m) tmp = 0.0 if (y_45_scale_m <= 7.6e+32) tmp = Float64(Float64(Float64(sqrt(2.0) * x_45_scale_m) * sqrt(8.0)) * Float64(0.25 * a)); else tmp = Float64(b * y_45_scale_m); end return tmp end
y-scale_m = abs(y_45_scale); x-scale_m = abs(x_45_scale); function tmp_2 = code(a, b, angle, x_45_scale_m, y_45_scale_m) tmp = 0.0; if (y_45_scale_m <= 7.6e+32) tmp = ((sqrt(2.0) * x_45_scale_m) * sqrt(8.0)) * (0.25 * a); else tmp = b * y_45_scale_m; end tmp_2 = tmp; end
y-scale_m = N[Abs[y$45$scale], $MachinePrecision] x-scale_m = N[Abs[x$45$scale], $MachinePrecision] code[a_, b_, angle_, x$45$scale$95$m_, y$45$scale$95$m_] := If[LessEqual[y$45$scale$95$m, 7.6e+32], N[(N[(N[(N[Sqrt[2.0], $MachinePrecision] * x$45$scale$95$m), $MachinePrecision] * N[Sqrt[8.0], $MachinePrecision]), $MachinePrecision] * N[(0.25 * a), $MachinePrecision]), $MachinePrecision], N[(b * y$45$scale$95$m), $MachinePrecision]]
\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
\begin{array}{l}
\mathbf{if}\;y-scale\_m \leq 7.6 \cdot 10^{+32}:\\
\;\;\;\;\left(\left(\sqrt{2} \cdot x-scale\_m\right) \cdot \sqrt{8}\right) \cdot \left(0.25 \cdot a\right)\\
\mathbf{else}:\\
\;\;\;\;b \cdot y-scale\_m\\
\end{array}
\end{array}
if y-scale < 7.6000000000000006e32Initial program 1.8%
Taylor expanded in y-scale around 0
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
distribute-lft-outN/A
lower-*.f64N/A
Applied rewrites23.4%
Taylor expanded in angle around 0
Applied rewrites18.6%
if 7.6000000000000006e32 < y-scale Initial program 0.5%
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.3%
Taylor expanded in b around 0
Applied rewrites25.3%
Final simplification19.6%
y-scale_m = (fabs.f64 y-scale) x-scale_m = (fabs.f64 x-scale) (FPCore (a b angle x-scale_m y-scale_m) :precision binary64 (* b y-scale_m))
y-scale_m = fabs(y_45_scale);
x-scale_m = fabs(x_45_scale);
double code(double a, double b, double angle, double x_45_scale_m, double y_45_scale_m) {
return b * y_45_scale_m;
}
y-scale_m = abs(y_45scale)
x-scale_m = abs(x_45scale)
real(8) function code(a, b, angle, x_45scale_m, y_45scale_m)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: angle
real(8), intent (in) :: x_45scale_m
real(8), intent (in) :: y_45scale_m
code = b * y_45scale_m
end function
y-scale_m = Math.abs(y_45_scale);
x-scale_m = Math.abs(x_45_scale);
public static double code(double a, double b, double angle, double x_45_scale_m, double y_45_scale_m) {
return b * y_45_scale_m;
}
y-scale_m = math.fabs(y_45_scale) x-scale_m = math.fabs(x_45_scale) def code(a, b, angle, x_45_scale_m, y_45_scale_m): return b * y_45_scale_m
y-scale_m = abs(y_45_scale) x-scale_m = abs(x_45_scale) function code(a, b, angle, x_45_scale_m, y_45_scale_m) return Float64(b * y_45_scale_m) end
y-scale_m = abs(y_45_scale); x-scale_m = abs(x_45_scale); function tmp = code(a, b, angle, x_45_scale_m, y_45_scale_m) tmp = b * y_45_scale_m; end
y-scale_m = N[Abs[y$45$scale], $MachinePrecision] x-scale_m = N[Abs[x$45$scale], $MachinePrecision] code[a_, b_, angle_, x$45$scale$95$m_, y$45$scale$95$m_] := N[(b * y$45$scale$95$m), $MachinePrecision]
\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
b \cdot y-scale\_m
\end{array}
Initial program 1.6%
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.f6414.7
Applied rewrites14.7%
Applied rewrites14.8%
Taylor expanded in b around 0
Applied rewrites14.8%
herbie shell --seed 2024268
(FPCore (a b angle x-scale y-scale)
:name "a 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))))