
(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 6 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)
b_m = (fabs.f64 b)
a_m = (fabs.f64 a)
(FPCore (a_m b_m angle x-scale_m y-scale_m)
:precision binary64
(let* ((t_0 (* 0.25 (* b_m (* x-scale_m (* y-scale_m (sqrt 8.0))))))
(t_1 (* angle (PI)))
(t_2 (pow (sin (* 0.005555555555555556 t_1)) 2.0))
(t_3 (pow (cos (* -0.005555555555555556 t_1)) 2.0))
(t_4 (* t_3 t_2)))
(if (<= y-scale_m 1.55e-153)
(*
t_0
(sqrt
(-
(/ t_3 (* x-scale_m x-scale_m))
(* 0.5 (/ (* (/ t_4 (* x-scale_m x-scale_m)) 2.0) t_2)))))
(if (<= y-scale_m 3.4e-58)
(*
t_0
(sqrt
(-
(/ t_2 (* y-scale_m y-scale_m))
(* 0.5 (/ (* (/ t_4 (* y-scale_m y-scale_m)) 2.0) t_3)))))
(* (* (* 0.25 a_m) x-scale_m) 4.0)))))\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
b_m = \left|b\right|
\\
a_m = \left|a\right|
\\
\begin{array}{l}
t_0 := 0.25 \cdot \left(b\_m \cdot \left(x-scale\_m \cdot \left(y-scale\_m \cdot \sqrt{8}\right)\right)\right)\\
t_1 := angle \cdot \mathsf{PI}\left(\right)\\
t_2 := {\sin \left(0.005555555555555556 \cdot t\_1\right)}^{2}\\
t_3 := {\cos \left(-0.005555555555555556 \cdot t\_1\right)}^{2}\\
t_4 := t\_3 \cdot t\_2\\
\mathbf{if}\;y-scale\_m \leq 1.55 \cdot 10^{-153}:\\
\;\;\;\;t\_0 \cdot \sqrt{\frac{t\_3}{x-scale\_m \cdot x-scale\_m} - 0.5 \cdot \frac{\frac{t\_4}{x-scale\_m \cdot x-scale\_m} \cdot 2}{t\_2}}\\
\mathbf{elif}\;y-scale\_m \leq 3.4 \cdot 10^{-58}:\\
\;\;\;\;t\_0 \cdot \sqrt{\frac{t\_2}{y-scale\_m \cdot y-scale\_m} - 0.5 \cdot \frac{\frac{t\_4}{y-scale\_m \cdot y-scale\_m} \cdot 2}{t\_3}}\\
\mathbf{else}:\\
\;\;\;\;\left(\left(0.25 \cdot a\_m\right) \cdot x-scale\_m\right) \cdot 4\\
\end{array}
\end{array}
if y-scale < 1.54999999999999997e-153Initial program 0.0%
Taylor expanded in b around inf
Applied rewrites1.5%
Taylor expanded in y-scale around 0
Applied rewrites17.1%
if 1.54999999999999997e-153 < y-scale < 3.39999999999999973e-58Initial program 0.0%
Taylor expanded in b around inf
Applied rewrites21.2%
Taylor expanded in x-scale around 0
Applied rewrites51.3%
if 3.39999999999999973e-58 < y-scale Initial program 0.1%
Taylor expanded in angle around 0
Applied rewrites21.9%
Applied rewrites22.0%
y-scale_m = (fabs.f64 y-scale)
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_m)
:precision binary64
(let* ((t_0 (* y-scale_m (sqrt 8.0)))
(t_1 (* angle (PI)))
(t_2 (pow (sin (* 0.005555555555555556 t_1)) 2.0))
(t_3 (pow (cos (* -0.005555555555555556 t_1)) 2.0)))
(if (<= y-scale_m 3.1e-125)
(*
(* 0.25 (* b_m (* x-scale_m t_0)))
(sqrt
(-
(/ t_3 (* x-scale_m x-scale_m))
(* 0.5 (/ (* (/ (* t_3 t_2) (* x-scale_m x-scale_m)) 2.0) t_2)))))
(if (<= y-scale_m 1.18e-110)
(*
(* 0.25 (* b_m t_0))
(sqrt
(-
t_3
(*
0.5
(*
(* y-scale_m y-scale_m)
(/ (* (* t_3 (/ t_2 (* y-scale_m y-scale_m))) 2.0) t_2))))))
(* (* (* 0.25 a_m) x-scale_m) 4.0)))))\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
b_m = \left|b\right|
\\
a_m = \left|a\right|
\\
\begin{array}{l}
t_0 := y-scale\_m \cdot \sqrt{8}\\
t_1 := angle \cdot \mathsf{PI}\left(\right)\\
t_2 := {\sin \left(0.005555555555555556 \cdot t\_1\right)}^{2}\\
t_3 := {\cos \left(-0.005555555555555556 \cdot t\_1\right)}^{2}\\
\mathbf{if}\;y-scale\_m \leq 3.1 \cdot 10^{-125}:\\
\;\;\;\;\left(0.25 \cdot \left(b\_m \cdot \left(x-scale\_m \cdot t\_0\right)\right)\right) \cdot \sqrt{\frac{t\_3}{x-scale\_m \cdot x-scale\_m} - 0.5 \cdot \frac{\frac{t\_3 \cdot t\_2}{x-scale\_m \cdot x-scale\_m} \cdot 2}{t\_2}}\\
\mathbf{elif}\;y-scale\_m \leq 1.18 \cdot 10^{-110}:\\
\;\;\;\;\left(0.25 \cdot \left(b\_m \cdot t\_0\right)\right) \cdot \sqrt{t\_3 - 0.5 \cdot \left(\left(y-scale\_m \cdot y-scale\_m\right) \cdot \frac{\left(t\_3 \cdot \frac{t\_2}{y-scale\_m \cdot y-scale\_m}\right) \cdot 2}{t\_2}\right)}\\
\mathbf{else}:\\
\;\;\;\;\left(\left(0.25 \cdot a\_m\right) \cdot x-scale\_m\right) \cdot 4\\
\end{array}
\end{array}
if y-scale < 3.10000000000000013e-125Initial program 0.0%
Taylor expanded in b around inf
Applied rewrites1.5%
Taylor expanded in y-scale around 0
Applied rewrites16.9%
if 3.10000000000000013e-125 < y-scale < 1.18e-110Initial program 0.0%
Taylor expanded in b around inf
Applied rewrites14.6%
Taylor expanded in angle around 0
Applied rewrites14.6%
Taylor expanded in x-scale around inf
Applied rewrites72.8%
if 1.18e-110 < y-scale Initial program 0.0%
Taylor expanded in angle around 0
Applied rewrites21.9%
Applied rewrites22.0%
y-scale_m = (fabs.f64 y-scale)
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_m)
:precision binary64
(let* ((t_0 (* angle (PI)))
(t_1 (pow (cos (* -0.005555555555555556 t_0)) 2.0))
(t_2 (pow (sin (* 0.005555555555555556 t_0)) 2.0)))
(if (<= y-scale_m 8.5e-154)
(*
(* 0.25 (* b_m (* x-scale_m (sqrt 8.0))))
(sqrt
(-
t_2
(*
0.5
(*
(* x-scale_m x-scale_m)
(/ (* (* t_1 (/ t_2 (* x-scale_m x-scale_m))) 2.0) t_1))))))
(if (<= y-scale_m 1.18e-110)
(*
(* 0.25 (* b_m (* y-scale_m (sqrt 8.0))))
(sqrt
(-
t_1
(*
0.5
(*
(* y-scale_m y-scale_m)
(/ (* (* t_1 (/ t_2 (* y-scale_m y-scale_m))) 2.0) t_2))))))
(* (* (* 0.25 a_m) x-scale_m) 4.0)))))\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
b_m = \left|b\right|
\\
a_m = \left|a\right|
\\
\begin{array}{l}
t_0 := angle \cdot \mathsf{PI}\left(\right)\\
t_1 := {\cos \left(-0.005555555555555556 \cdot t\_0\right)}^{2}\\
t_2 := {\sin \left(0.005555555555555556 \cdot t\_0\right)}^{2}\\
\mathbf{if}\;y-scale\_m \leq 8.5 \cdot 10^{-154}:\\
\;\;\;\;\left(0.25 \cdot \left(b\_m \cdot \left(x-scale\_m \cdot \sqrt{8}\right)\right)\right) \cdot \sqrt{t\_2 - 0.5 \cdot \left(\left(x-scale\_m \cdot x-scale\_m\right) \cdot \frac{\left(t\_1 \cdot \frac{t\_2}{x-scale\_m \cdot x-scale\_m}\right) \cdot 2}{t\_1}\right)}\\
\mathbf{elif}\;y-scale\_m \leq 1.18 \cdot 10^{-110}:\\
\;\;\;\;\left(0.25 \cdot \left(b\_m \cdot \left(y-scale\_m \cdot \sqrt{8}\right)\right)\right) \cdot \sqrt{t\_1 - 0.5 \cdot \left(\left(y-scale\_m \cdot y-scale\_m\right) \cdot \frac{\left(t\_1 \cdot \frac{t\_2}{y-scale\_m \cdot y-scale\_m}\right) \cdot 2}{t\_2}\right)}\\
\mathbf{else}:\\
\;\;\;\;\left(\left(0.25 \cdot a\_m\right) \cdot x-scale\_m\right) \cdot 4\\
\end{array}
\end{array}
if y-scale < 8.4999999999999996e-154Initial program 0.0%
Taylor expanded in b around inf
Applied rewrites1.5%
Taylor expanded in angle around 0
Applied rewrites0.9%
Taylor expanded in y-scale around inf
Applied rewrites15.3%
if 8.4999999999999996e-154 < y-scale < 1.18e-110Initial program 0.0%
Taylor expanded in b around inf
Applied rewrites11.4%
Taylor expanded in angle around 0
Applied rewrites11.4%
Taylor expanded in x-scale around inf
Applied rewrites57.0%
if 1.18e-110 < y-scale Initial program 0.0%
Taylor expanded in angle around 0
Applied rewrites21.9%
Applied rewrites22.0%
y-scale_m = (fabs.f64 y-scale)
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_m)
:precision binary64
(let* ((t_0 (* angle (PI)))
(t_1 (pow (cos (* -0.005555555555555556 t_0)) 2.0))
(t_2 (pow (sin (* 0.005555555555555556 t_0)) 2.0)))
(if (<= y-scale_m 2.15e-188)
(*
(* 0.25 (* b_m (* x-scale_m (sqrt 8.0))))
(sqrt
(-
t_2
(*
0.5
(*
(* x-scale_m x-scale_m)
(/ (* (* t_1 (/ t_2 (* x-scale_m x-scale_m))) 2.0) t_1))))))
(* (* (* 0.25 a_m) x-scale_m) 4.0))))\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
b_m = \left|b\right|
\\
a_m = \left|a\right|
\\
\begin{array}{l}
t_0 := angle \cdot \mathsf{PI}\left(\right)\\
t_1 := {\cos \left(-0.005555555555555556 \cdot t\_0\right)}^{2}\\
t_2 := {\sin \left(0.005555555555555556 \cdot t\_0\right)}^{2}\\
\mathbf{if}\;y-scale\_m \leq 2.15 \cdot 10^{-188}:\\
\;\;\;\;\left(0.25 \cdot \left(b\_m \cdot \left(x-scale\_m \cdot \sqrt{8}\right)\right)\right) \cdot \sqrt{t\_2 - 0.5 \cdot \left(\left(x-scale\_m \cdot x-scale\_m\right) \cdot \frac{\left(t\_1 \cdot \frac{t\_2}{x-scale\_m \cdot x-scale\_m}\right) \cdot 2}{t\_1}\right)}\\
\mathbf{else}:\\
\;\;\;\;\left(\left(0.25 \cdot a\_m\right) \cdot x-scale\_m\right) \cdot 4\\
\end{array}
\end{array}
if y-scale < 2.14999999999999994e-188Initial program 0.0%
Taylor expanded in b around inf
Applied rewrites1.6%
Taylor expanded in angle around 0
Applied rewrites1.0%
Taylor expanded in y-scale around inf
Applied rewrites15.9%
if 2.14999999999999994e-188 < y-scale Initial program 0.0%
Taylor expanded in angle around 0
Applied rewrites21.1%
Applied rewrites21.2%
y-scale_m = (fabs.f64 y-scale) 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_m) :precision binary64 (* (* (* 0.25 a_m) x-scale_m) 4.0))
y-scale_m = fabs(y_45_scale);
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_m) {
return ((0.25 * a_m) * x_45_scale_m) * 4.0;
}
y-scale_m = private
x-scale_m = private
b_m = private
a_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_m, b_m, angle, x_45scale_m, y_45scale_m)
use fmin_fmax_functions
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_m
code = ((0.25d0 * a_m) * x_45scale_m) * 4.0d0
end function
y-scale_m = Math.abs(y_45_scale);
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_m) {
return ((0.25 * a_m) * x_45_scale_m) * 4.0;
}
y-scale_m = math.fabs(y_45_scale) 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_m): return ((0.25 * a_m) * x_45_scale_m) * 4.0
y-scale_m = abs(y_45_scale) 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_m) return Float64(Float64(Float64(0.25 * a_m) * x_45_scale_m) * 4.0) end
y-scale_m = abs(y_45_scale); 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_m) tmp = ((0.25 * a_m) * x_45_scale_m) * 4.0; end
y-scale_m = N[Abs[y$45$scale], $MachinePrecision] 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$95$m_] := N[(N[(N[(0.25 * a$95$m), $MachinePrecision] * x$45$scale$95$m), $MachinePrecision] * 4.0), $MachinePrecision]
\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
x-scale_m = \left|x-scale\right|
\\
b_m = \left|b\right|
\\
a_m = \left|a\right|
\\
\left(\left(0.25 \cdot a\_m\right) \cdot x-scale\_m\right) \cdot 4
\end{array}
Initial program 0.0%
Taylor expanded in angle around 0
Applied rewrites19.9%
Applied rewrites20.0%
y-scale_m = (fabs.f64 y-scale) 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_m) :precision binary64 (* x-scale_m a_m))
y-scale_m = fabs(y_45_scale);
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_m) {
return x_45_scale_m * a_m;
}
y-scale_m = private
x-scale_m = private
b_m = private
a_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_m, b_m, angle, x_45scale_m, y_45scale_m)
use fmin_fmax_functions
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_m
code = x_45scale_m * a_m
end function
y-scale_m = Math.abs(y_45_scale);
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_m) {
return x_45_scale_m * a_m;
}
y-scale_m = math.fabs(y_45_scale) 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_m): return x_45_scale_m * a_m
y-scale_m = abs(y_45_scale) 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_m) return Float64(x_45_scale_m * a_m) end
y-scale_m = abs(y_45_scale); 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_m) tmp = x_45_scale_m * a_m; end
y-scale_m = N[Abs[y$45$scale], $MachinePrecision] 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$95$m_] := N[(x$45$scale$95$m * a$95$m), $MachinePrecision]
\begin{array}{l}
y-scale_m = \left|y-scale\right|
\\
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.0%
Taylor expanded in angle around 0
Applied rewrites19.9%
Applied rewrites20.0%
Taylor expanded in a around 0
Applied rewrites20.0%
herbie shell --seed 2025019
(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))))