
(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 8 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 (* angle (PI))) (t_1 (* (PI) angle)))
(if (<= y-scale_m 29000000.0)
(*
(hypot
(* a (cos (* 0.005555555555555556 t_0)))
(* (sin (* -0.005555555555555556 t_0)) b))
x-scale_m)
(/
(*
(*
(sqrt (/ 2.0 x-scale_m))
(* (* (* (sqrt 8.0) y-scale_m) x-scale_m) 0.25))
(hypot
(* (cos (* -0.005555555555555556 t_1)) b)
(* (sin (* t_1 0.005555555555555556)) a)))
(sqrt x-scale_m)))))\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
\begin{array}{l}
t_0 := angle \cdot \mathsf{PI}\left(\right)\\
t_1 := \mathsf{PI}\left(\right) \cdot angle\\
\mathbf{if}\;y-scale\_m \leq 29000000:\\
\;\;\;\;\mathsf{hypot}\left(a \cdot \cos \left(0.005555555555555556 \cdot t\_0\right), \sin \left(-0.005555555555555556 \cdot t\_0\right) \cdot b\right) \cdot x-scale\_m\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(\sqrt{\frac{2}{x-scale\_m}} \cdot \left(\left(\left(\sqrt{8} \cdot y-scale\_m\right) \cdot x-scale\_m\right) \cdot 0.25\right)\right) \cdot \mathsf{hypot}\left(\cos \left(-0.005555555555555556 \cdot t\_1\right) \cdot b, \sin \left(t\_1 \cdot 0.005555555555555556\right) \cdot a\right)}{\sqrt{x-scale\_m}}\\
\end{array}
\end{array}
if y-scale < 2.9e7Initial program 4.3%
Taylor expanded in y-scale around 0
Applied rewrites24.1%
Applied rewrites24.9%
Applied rewrites24.9%
Applied rewrites25.5%
if 2.9e7 < y-scale Initial program 1.7%
Taylor expanded in y-scale around inf
Applied rewrites20.2%
Applied rewrites27.4%
Applied rewrites30.6%
Final simplification26.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
(let* ((t_0 (* angle (PI))) (t_1 (* (PI) angle)))
(if (<= y-scale_m 29500000.0)
(*
(hypot
(* a (cos (* 0.005555555555555556 t_0)))
(* (sin (* -0.005555555555555556 t_0)) b))
x-scale_m)
(*
(*
(* (* (* (sqrt 8.0) y-scale_m) x-scale_m) 0.25)
(/
(hypot
(* (cos (* -0.005555555555555556 t_1)) b)
(* (sin (* t_1 0.005555555555555556)) a))
(sqrt x-scale_m)))
(sqrt (/ 2.0 x-scale_m))))))\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
\begin{array}{l}
t_0 := angle \cdot \mathsf{PI}\left(\right)\\
t_1 := \mathsf{PI}\left(\right) \cdot angle\\
\mathbf{if}\;y-scale\_m \leq 29500000:\\
\;\;\;\;\mathsf{hypot}\left(a \cdot \cos \left(0.005555555555555556 \cdot t\_0\right), \sin \left(-0.005555555555555556 \cdot t\_0\right) \cdot b\right) \cdot x-scale\_m\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\left(\left(\sqrt{8} \cdot y-scale\_m\right) \cdot x-scale\_m\right) \cdot 0.25\right) \cdot \frac{\mathsf{hypot}\left(\cos \left(-0.005555555555555556 \cdot t\_1\right) \cdot b, \sin \left(t\_1 \cdot 0.005555555555555556\right) \cdot a\right)}{\sqrt{x-scale\_m}}\right) \cdot \sqrt{\frac{2}{x-scale\_m}}\\
\end{array}
\end{array}
if y-scale < 2.95e7Initial program 4.3%
Taylor expanded in y-scale around 0
Applied rewrites24.1%
Applied rewrites24.9%
Applied rewrites24.9%
Applied rewrites25.5%
if 2.95e7 < y-scale Initial program 1.7%
Taylor expanded in y-scale around inf
Applied rewrites20.2%
Applied rewrites27.4%
Applied rewrites30.5%
Final simplification26.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
(let* ((t_0 (* angle (PI))) (t_1 (* 0.005555555555555556 (* (PI) angle))))
(if (<= y-scale_m 0.0038)
(*
(hypot
(* a (cos (* 0.005555555555555556 t_0)))
(* (sin (* -0.005555555555555556 t_0)) b))
x-scale_m)
(/
(*
(* (hypot (* a (sin t_1)) (* (cos t_1) b)) (sqrt 2.0))
(* (* (* (sqrt 8.0) y-scale_m) x-scale_m) 0.25))
(fabs x-scale_m)))))\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
\begin{array}{l}
t_0 := angle \cdot \mathsf{PI}\left(\right)\\
t_1 := 0.005555555555555556 \cdot \left(\mathsf{PI}\left(\right) \cdot angle\right)\\
\mathbf{if}\;y-scale\_m \leq 0.0038:\\
\;\;\;\;\mathsf{hypot}\left(a \cdot \cos \left(0.005555555555555556 \cdot t\_0\right), \sin \left(-0.005555555555555556 \cdot t\_0\right) \cdot b\right) \cdot x-scale\_m\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(\mathsf{hypot}\left(a \cdot \sin t\_1, \cos t\_1 \cdot b\right) \cdot \sqrt{2}\right) \cdot \left(\left(\left(\sqrt{8} \cdot y-scale\_m\right) \cdot x-scale\_m\right) \cdot 0.25\right)}{\left|x-scale\_m\right|}\\
\end{array}
\end{array}
if y-scale < 0.00379999999999999999Initial program 4.4%
Taylor expanded in y-scale around 0
Applied rewrites24.1%
Applied rewrites24.8%
Applied rewrites24.8%
Applied rewrites25.4%
if 0.00379999999999999999 < y-scale Initial program 1.6%
Taylor expanded in y-scale around inf
Applied rewrites19.3%
Applied rewrites30.9%
Final simplification27.0%
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 (* angle (PI))) (t_1 (* 0.005555555555555556 (* (PI) angle))))
(if (<= y-scale_m 29500000.0)
(*
(hypot
(* a (cos (* 0.005555555555555556 t_0)))
(* (sin (* -0.005555555555555556 t_0)) b))
x-scale_m)
(*
(* (* (sqrt 8.0) y-scale_m) 0.25)
(*
x-scale_m
(/
(* (hypot (* a (sin t_1)) (* (cos t_1) b)) (sqrt 2.0))
(fabs x-scale_m)))))))\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
\begin{array}{l}
t_0 := angle \cdot \mathsf{PI}\left(\right)\\
t_1 := 0.005555555555555556 \cdot \left(\mathsf{PI}\left(\right) \cdot angle\right)\\
\mathbf{if}\;y-scale\_m \leq 29500000:\\
\;\;\;\;\mathsf{hypot}\left(a \cdot \cos \left(0.005555555555555556 \cdot t\_0\right), \sin \left(-0.005555555555555556 \cdot t\_0\right) \cdot b\right) \cdot x-scale\_m\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\sqrt{8} \cdot y-scale\_m\right) \cdot 0.25\right) \cdot \left(x-scale\_m \cdot \frac{\mathsf{hypot}\left(a \cdot \sin t\_1, \cos t\_1 \cdot b\right) \cdot \sqrt{2}}{\left|x-scale\_m\right|}\right)\\
\end{array}
\end{array}
if y-scale < 2.95e7Initial program 4.3%
Taylor expanded in y-scale around 0
Applied rewrites24.1%
Applied rewrites24.9%
Applied rewrites24.9%
Applied rewrites25.5%
if 2.95e7 < y-scale Initial program 1.7%
Taylor expanded in y-scale around inf
Applied rewrites20.2%
Applied rewrites25.4%
Final simplification25.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
(let* ((t_0 (* angle (PI))))
(if (<= x-scale_m 8e-42)
(* b y-scale_m)
(*
(hypot
(* a (cos (* 0.005555555555555556 t_0)))
(* (sin (* -0.005555555555555556 t_0)) b))
x-scale_m))))\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
\begin{array}{l}
t_0 := angle \cdot \mathsf{PI}\left(\right)\\
\mathbf{if}\;x-scale\_m \leq 8 \cdot 10^{-42}:\\
\;\;\;\;b \cdot y-scale\_m\\
\mathbf{else}:\\
\;\;\;\;\mathsf{hypot}\left(a \cdot \cos \left(0.005555555555555556 \cdot t\_0\right), \sin \left(-0.005555555555555556 \cdot t\_0\right) \cdot b\right) \cdot x-scale\_m\\
\end{array}
\end{array}
if x-scale < 8.0000000000000003e-42Initial program 3.5%
Taylor expanded in angle around 0
Applied rewrites19.1%
Applied rewrites19.2%
Taylor expanded in b around 0
Applied rewrites19.2%
if 8.0000000000000003e-42 < x-scale Initial program 3.6%
Taylor expanded in y-scale around 0
Applied rewrites52.6%
Applied rewrites52.9%
Applied rewrites52.9%
Applied rewrites56.6%
Final simplification28.7%
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 8e-42)
(* b y-scale_m)
(*
(sqrt 2.0)
(*
(* (sqrt 8.0) 0.25)
(*
x-scale_m
(hypot
(* (sin (* -0.005555555555555556 (* (PI) angle))) b)
(* 1.0 a)))))))\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 8 \cdot 10^{-42}:\\
\;\;\;\;b \cdot y-scale\_m\\
\mathbf{else}:\\
\;\;\;\;\sqrt{2} \cdot \left(\left(\sqrt{8} \cdot 0.25\right) \cdot \left(x-scale\_m \cdot \mathsf{hypot}\left(\sin \left(-0.005555555555555556 \cdot \left(\mathsf{PI}\left(\right) \cdot angle\right)\right) \cdot b, 1 \cdot a\right)\right)\right)\\
\end{array}
\end{array}
if x-scale < 8.0000000000000003e-42Initial program 3.5%
Taylor expanded in angle around 0
Applied rewrites19.1%
Applied rewrites19.2%
Taylor expanded in b around 0
Applied rewrites19.2%
if 8.0000000000000003e-42 < x-scale Initial program 3.6%
Taylor expanded in y-scale around 0
Applied rewrites52.6%
Applied rewrites56.1%
Applied rewrites56.3%
Taylor expanded in angle around 0
Applied rewrites55.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 (<= x-scale_m 1.75e+96) (* b y-scale_m) (* (* 0.25 a) (* (* x-scale_m (sqrt 2.0)) (sqrt 8.0)))))
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 (x_45_scale_m <= 1.75e+96) {
tmp = b * y_45_scale_m;
} else {
tmp = (0.25 * a) * ((x_45_scale_m * sqrt(2.0)) * sqrt(8.0));
}
return tmp;
}
y-scale_m = private
x-scale_m = private
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(8) function code(a, b, angle, x_45scale_m, y_45scale_m)
use fmin_fmax_functions
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 (x_45scale_m <= 1.75d+96) then
tmp = b * y_45scale_m
else
tmp = (0.25d0 * a) * ((x_45scale_m * sqrt(2.0d0)) * sqrt(8.0d0))
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 (x_45_scale_m <= 1.75e+96) {
tmp = b * y_45_scale_m;
} else {
tmp = (0.25 * a) * ((x_45_scale_m * Math.sqrt(2.0)) * Math.sqrt(8.0));
}
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 x_45_scale_m <= 1.75e+96: tmp = b * y_45_scale_m else: tmp = (0.25 * a) * ((x_45_scale_m * math.sqrt(2.0)) * math.sqrt(8.0)) 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 (x_45_scale_m <= 1.75e+96) tmp = Float64(b * y_45_scale_m); else tmp = Float64(Float64(0.25 * a) * Float64(Float64(x_45_scale_m * sqrt(2.0)) * sqrt(8.0))); 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 (x_45_scale_m <= 1.75e+96) tmp = b * y_45_scale_m; else tmp = (0.25 * a) * ((x_45_scale_m * sqrt(2.0)) * sqrt(8.0)); 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[x$45$scale$95$m, 1.75e+96], N[(b * y$45$scale$95$m), $MachinePrecision], N[(N[(0.25 * a), $MachinePrecision] * N[(N[(x$45$scale$95$m * N[Sqrt[2.0], $MachinePrecision]), $MachinePrecision] * N[Sqrt[8.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\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 1.75 \cdot 10^{+96}:\\
\;\;\;\;b \cdot y-scale\_m\\
\mathbf{else}:\\
\;\;\;\;\left(0.25 \cdot a\right) \cdot \left(\left(x-scale\_m \cdot \sqrt{2}\right) \cdot \sqrt{8}\right)\\
\end{array}
\end{array}
if x-scale < 1.7499999999999999e96Initial program 3.1%
Taylor expanded in angle around 0
Applied rewrites19.2%
Applied rewrites19.3%
Taylor expanded in b around 0
Applied rewrites19.3%
if 1.7499999999999999e96 < x-scale Initial program 6.0%
Taylor expanded in y-scale around 0
Applied rewrites71.1%
Taylor expanded in angle around 0
Applied rewrites15.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 (* 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 = private
x-scale_m = private
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(8) function code(a, b, angle, x_45scale_m, y_45scale_m)
use fmin_fmax_functions
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 3.6%
Taylor expanded in angle around 0
Applied rewrites17.3%
Applied rewrites17.4%
Taylor expanded in b around 0
Applied rewrites17.4%
herbie shell --seed 2025018
(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))))