
(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)))
double code(double a, double b, double angle, double x_45_scale, double y_45_scale) {
double t_0 = (angle / 180.0) * ((double) M_PI);
double t_1 = sin(t_0);
double t_2 = cos(t_0);
double t_3 = ((pow((a * t_2), 2.0) + pow((b * t_1), 2.0)) / y_45_scale) / y_45_scale;
double t_4 = ((pow((a * t_1), 2.0) + pow((b * t_2), 2.0)) / x_45_scale) / x_45_scale;
double t_5 = (b * a) * (b * -a);
double t_6 = (4.0 * t_5) / pow((x_45_scale * y_45_scale), 2.0);
return -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_45_scale) / y_45_scale), 2.0)))))) / t_6;
}
public static double code(double a, double b, double angle, double x_45_scale, double y_45_scale) {
double t_0 = (angle / 180.0) * Math.PI;
double t_1 = Math.sin(t_0);
double t_2 = Math.cos(t_0);
double t_3 = ((Math.pow((a * t_2), 2.0) + Math.pow((b * t_1), 2.0)) / y_45_scale) / y_45_scale;
double t_4 = ((Math.pow((a * t_1), 2.0) + Math.pow((b * t_2), 2.0)) / x_45_scale) / x_45_scale;
double t_5 = (b * a) * (b * -a);
double t_6 = (4.0 * t_5) / Math.pow((x_45_scale * y_45_scale), 2.0);
return -Math.sqrt((((2.0 * t_6) * t_5) * ((t_4 + t_3) + Math.sqrt((Math.pow((t_4 - t_3), 2.0) + Math.pow((((((2.0 * (Math.pow(b, 2.0) - Math.pow(a, 2.0))) * t_1) * t_2) / x_45_scale) / y_45_scale), 2.0)))))) / t_6;
}
def code(a, b, angle, x_45_scale, y_45_scale): t_0 = (angle / 180.0) * math.pi t_1 = math.sin(t_0) t_2 = math.cos(t_0) t_3 = ((math.pow((a * t_2), 2.0) + math.pow((b * t_1), 2.0)) / y_45_scale) / y_45_scale t_4 = ((math.pow((a * t_1), 2.0) + math.pow((b * t_2), 2.0)) / x_45_scale) / x_45_scale t_5 = (b * a) * (b * -a) t_6 = (4.0 * t_5) / math.pow((x_45_scale * y_45_scale), 2.0) return -math.sqrt((((2.0 * t_6) * t_5) * ((t_4 + t_3) + math.sqrt((math.pow((t_4 - t_3), 2.0) + math.pow((((((2.0 * (math.pow(b, 2.0) - math.pow(a, 2.0))) * t_1) * t_2) / x_45_scale) / y_45_scale), 2.0)))))) / t_6
function code(a, b, angle, x_45_scale, y_45_scale) t_0 = Float64(Float64(angle / 180.0) * pi) t_1 = sin(t_0) t_2 = cos(t_0) t_3 = Float64(Float64(Float64((Float64(a * t_2) ^ 2.0) + (Float64(b * t_1) ^ 2.0)) / y_45_scale) / y_45_scale) t_4 = Float64(Float64(Float64((Float64(a * t_1) ^ 2.0) + (Float64(b * t_2) ^ 2.0)) / x_45_scale) / x_45_scale) t_5 = Float64(Float64(b * a) * Float64(b * Float64(-a))) t_6 = Float64(Float64(4.0 * t_5) / (Float64(x_45_scale * y_45_scale) ^ 2.0)) return Float64(Float64(-sqrt(Float64(Float64(Float64(2.0 * t_6) * t_5) * Float64(Float64(t_4 + t_3) + sqrt(Float64((Float64(t_4 - t_3) ^ 2.0) + (Float64(Float64(Float64(Float64(Float64(2.0 * Float64((b ^ 2.0) - (a ^ 2.0))) * t_1) * t_2) / x_45_scale) / y_45_scale) ^ 2.0))))))) / t_6) end
function tmp = code(a, b, angle, x_45_scale, y_45_scale) t_0 = (angle / 180.0) * pi; t_1 = sin(t_0); t_2 = cos(t_0); t_3 = ((((a * t_2) ^ 2.0) + ((b * t_1) ^ 2.0)) / y_45_scale) / y_45_scale; t_4 = ((((a * t_1) ^ 2.0) + ((b * t_2) ^ 2.0)) / x_45_scale) / x_45_scale; t_5 = (b * a) * (b * -a); t_6 = (4.0 * t_5) / ((x_45_scale * y_45_scale) ^ 2.0); tmp = -sqrt((((2.0 * t_6) * t_5) * ((t_4 + t_3) + sqrt((((t_4 - t_3) ^ 2.0) + ((((((2.0 * ((b ^ 2.0) - (a ^ 2.0))) * t_1) * t_2) / x_45_scale) / y_45_scale) ^ 2.0)))))) / t_6; end
code[a_, b_, angle_, x$45$scale_, y$45$scale_] := Block[{t$95$0 = N[(N[(angle / 180.0), $MachinePrecision] * Pi), $MachinePrecision]}, Block[{t$95$1 = N[Sin[t$95$0], $MachinePrecision]}, Block[{t$95$2 = N[Cos[t$95$0], $MachinePrecision]}, Block[{t$95$3 = N[(N[(N[(N[Power[N[(a * t$95$2), $MachinePrecision], 2.0], $MachinePrecision] + N[Power[N[(b * t$95$1), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] / y$45$scale), $MachinePrecision] / y$45$scale), $MachinePrecision]}, Block[{t$95$4 = N[(N[(N[(N[Power[N[(a * t$95$1), $MachinePrecision], 2.0], $MachinePrecision] + N[Power[N[(b * t$95$2), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] / x$45$scale), $MachinePrecision] / x$45$scale), $MachinePrecision]}, Block[{t$95$5 = N[(N[(b * a), $MachinePrecision] * N[(b * (-a)), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(N[(4.0 * t$95$5), $MachinePrecision] / N[Power[N[(x$45$scale * y$45$scale), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]}, N[((-N[Sqrt[N[(N[(N[(2.0 * t$95$6), $MachinePrecision] * t$95$5), $MachinePrecision] * N[(N[(t$95$4 + t$95$3), $MachinePrecision] + N[Sqrt[N[(N[Power[N[(t$95$4 - t$95$3), $MachinePrecision], 2.0], $MachinePrecision] + N[Power[N[(N[(N[(N[(N[(2.0 * N[(N[Power[b, 2.0], $MachinePrecision] - N[Power[a, 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * t$95$1), $MachinePrecision] * t$95$2), $MachinePrecision] / x$45$scale), $MachinePrecision] / y$45$scale), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]) / t$95$6), $MachinePrecision]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{angle}{180} \cdot \pi\\
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)))
double code(double a, double b, double angle, double x_45_scale, double y_45_scale) {
double t_0 = (angle / 180.0) * ((double) M_PI);
double t_1 = sin(t_0);
double t_2 = cos(t_0);
double t_3 = ((pow((a * t_2), 2.0) + pow((b * t_1), 2.0)) / y_45_scale) / y_45_scale;
double t_4 = ((pow((a * t_1), 2.0) + pow((b * t_2), 2.0)) / x_45_scale) / x_45_scale;
double t_5 = (b * a) * (b * -a);
double t_6 = (4.0 * t_5) / pow((x_45_scale * y_45_scale), 2.0);
return -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_45_scale) / y_45_scale), 2.0)))))) / t_6;
}
public static double code(double a, double b, double angle, double x_45_scale, double y_45_scale) {
double t_0 = (angle / 180.0) * Math.PI;
double t_1 = Math.sin(t_0);
double t_2 = Math.cos(t_0);
double t_3 = ((Math.pow((a * t_2), 2.0) + Math.pow((b * t_1), 2.0)) / y_45_scale) / y_45_scale;
double t_4 = ((Math.pow((a * t_1), 2.0) + Math.pow((b * t_2), 2.0)) / x_45_scale) / x_45_scale;
double t_5 = (b * a) * (b * -a);
double t_6 = (4.0 * t_5) / Math.pow((x_45_scale * y_45_scale), 2.0);
return -Math.sqrt((((2.0 * t_6) * t_5) * ((t_4 + t_3) + Math.sqrt((Math.pow((t_4 - t_3), 2.0) + Math.pow((((((2.0 * (Math.pow(b, 2.0) - Math.pow(a, 2.0))) * t_1) * t_2) / x_45_scale) / y_45_scale), 2.0)))))) / t_6;
}
def code(a, b, angle, x_45_scale, y_45_scale): t_0 = (angle / 180.0) * math.pi t_1 = math.sin(t_0) t_2 = math.cos(t_0) t_3 = ((math.pow((a * t_2), 2.0) + math.pow((b * t_1), 2.0)) / y_45_scale) / y_45_scale t_4 = ((math.pow((a * t_1), 2.0) + math.pow((b * t_2), 2.0)) / x_45_scale) / x_45_scale t_5 = (b * a) * (b * -a) t_6 = (4.0 * t_5) / math.pow((x_45_scale * y_45_scale), 2.0) return -math.sqrt((((2.0 * t_6) * t_5) * ((t_4 + t_3) + math.sqrt((math.pow((t_4 - t_3), 2.0) + math.pow((((((2.0 * (math.pow(b, 2.0) - math.pow(a, 2.0))) * t_1) * t_2) / x_45_scale) / y_45_scale), 2.0)))))) / t_6
function code(a, b, angle, x_45_scale, y_45_scale) t_0 = Float64(Float64(angle / 180.0) * pi) t_1 = sin(t_0) t_2 = cos(t_0) t_3 = Float64(Float64(Float64((Float64(a * t_2) ^ 2.0) + (Float64(b * t_1) ^ 2.0)) / y_45_scale) / y_45_scale) t_4 = Float64(Float64(Float64((Float64(a * t_1) ^ 2.0) + (Float64(b * t_2) ^ 2.0)) / x_45_scale) / x_45_scale) t_5 = Float64(Float64(b * a) * Float64(b * Float64(-a))) t_6 = Float64(Float64(4.0 * t_5) / (Float64(x_45_scale * y_45_scale) ^ 2.0)) return Float64(Float64(-sqrt(Float64(Float64(Float64(2.0 * t_6) * t_5) * Float64(Float64(t_4 + t_3) + sqrt(Float64((Float64(t_4 - t_3) ^ 2.0) + (Float64(Float64(Float64(Float64(Float64(2.0 * Float64((b ^ 2.0) - (a ^ 2.0))) * t_1) * t_2) / x_45_scale) / y_45_scale) ^ 2.0))))))) / t_6) end
function tmp = code(a, b, angle, x_45_scale, y_45_scale) t_0 = (angle / 180.0) * pi; t_1 = sin(t_0); t_2 = cos(t_0); t_3 = ((((a * t_2) ^ 2.0) + ((b * t_1) ^ 2.0)) / y_45_scale) / y_45_scale; t_4 = ((((a * t_1) ^ 2.0) + ((b * t_2) ^ 2.0)) / x_45_scale) / x_45_scale; t_5 = (b * a) * (b * -a); t_6 = (4.0 * t_5) / ((x_45_scale * y_45_scale) ^ 2.0); tmp = -sqrt((((2.0 * t_6) * t_5) * ((t_4 + t_3) + sqrt((((t_4 - t_3) ^ 2.0) + ((((((2.0 * ((b ^ 2.0) - (a ^ 2.0))) * t_1) * t_2) / x_45_scale) / y_45_scale) ^ 2.0)))))) / t_6; end
code[a_, b_, angle_, x$45$scale_, y$45$scale_] := Block[{t$95$0 = N[(N[(angle / 180.0), $MachinePrecision] * Pi), $MachinePrecision]}, Block[{t$95$1 = N[Sin[t$95$0], $MachinePrecision]}, Block[{t$95$2 = N[Cos[t$95$0], $MachinePrecision]}, Block[{t$95$3 = N[(N[(N[(N[Power[N[(a * t$95$2), $MachinePrecision], 2.0], $MachinePrecision] + N[Power[N[(b * t$95$1), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] / y$45$scale), $MachinePrecision] / y$45$scale), $MachinePrecision]}, Block[{t$95$4 = N[(N[(N[(N[Power[N[(a * t$95$1), $MachinePrecision], 2.0], $MachinePrecision] + N[Power[N[(b * t$95$2), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] / x$45$scale), $MachinePrecision] / x$45$scale), $MachinePrecision]}, Block[{t$95$5 = N[(N[(b * a), $MachinePrecision] * N[(b * (-a)), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(N[(4.0 * t$95$5), $MachinePrecision] / N[Power[N[(x$45$scale * y$45$scale), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]}, N[((-N[Sqrt[N[(N[(N[(2.0 * t$95$6), $MachinePrecision] * t$95$5), $MachinePrecision] * N[(N[(t$95$4 + t$95$3), $MachinePrecision] + N[Sqrt[N[(N[Power[N[(t$95$4 - t$95$3), $MachinePrecision], 2.0], $MachinePrecision] + N[Power[N[(N[(N[(N[(N[(2.0 * N[(N[Power[b, 2.0], $MachinePrecision] - N[Power[a, 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * t$95$1), $MachinePrecision] * t$95$2), $MachinePrecision] / x$45$scale), $MachinePrecision] / y$45$scale), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]) / t$95$6), $MachinePrecision]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{angle}{180} \cdot \pi\\
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)
y-scale_m = (fabs.f64 y-scale)
(FPCore (a b angle x-scale_m y-scale_m)
:precision binary64
(let* ((t_0 (* 0.005555555555555556 (* angle PI))) (t_1 (cos t_0)))
(if (<= y-scale_m 1.02e+32)
(*
0.25
(*
(* x-scale_m 4.0)
(hypot
(* a t_1)
(* (sin (* 0.005555555555555556 (* angle (cbrt (pow PI 3.0))))) b))))
(pow
(sqrt (* (* y-scale_m 0.25) (* 4.0 (hypot (* a (sin t_0)) (* t_1 b)))))
2.0))))x-scale_m = fabs(x_45_scale);
y-scale_m = fabs(y_45_scale);
double code(double a, double b, double angle, double x_45_scale_m, double y_45_scale_m) {
double t_0 = 0.005555555555555556 * (angle * ((double) M_PI));
double t_1 = cos(t_0);
double tmp;
if (y_45_scale_m <= 1.02e+32) {
tmp = 0.25 * ((x_45_scale_m * 4.0) * hypot((a * t_1), (sin((0.005555555555555556 * (angle * cbrt(pow(((double) M_PI), 3.0))))) * b)));
} else {
tmp = pow(sqrt(((y_45_scale_m * 0.25) * (4.0 * hypot((a * sin(t_0)), (t_1 * b))))), 2.0);
}
return tmp;
}
x-scale_m = Math.abs(x_45_scale);
y-scale_m = Math.abs(y_45_scale);
public static double code(double a, double b, double angle, double x_45_scale_m, double y_45_scale_m) {
double t_0 = 0.005555555555555556 * (angle * Math.PI);
double t_1 = Math.cos(t_0);
double tmp;
if (y_45_scale_m <= 1.02e+32) {
tmp = 0.25 * ((x_45_scale_m * 4.0) * Math.hypot((a * t_1), (Math.sin((0.005555555555555556 * (angle * Math.cbrt(Math.pow(Math.PI, 3.0))))) * b)));
} else {
tmp = Math.pow(Math.sqrt(((y_45_scale_m * 0.25) * (4.0 * Math.hypot((a * Math.sin(t_0)), (t_1 * b))))), 2.0);
}
return tmp;
}
x-scale_m = abs(x_45_scale) y-scale_m = abs(y_45_scale) function code(a, b, angle, x_45_scale_m, y_45_scale_m) t_0 = Float64(0.005555555555555556 * Float64(angle * pi)) t_1 = cos(t_0) tmp = 0.0 if (y_45_scale_m <= 1.02e+32) tmp = Float64(0.25 * Float64(Float64(x_45_scale_m * 4.0) * hypot(Float64(a * t_1), Float64(sin(Float64(0.005555555555555556 * Float64(angle * cbrt((pi ^ 3.0))))) * b)))); else tmp = sqrt(Float64(Float64(y_45_scale_m * 0.25) * Float64(4.0 * hypot(Float64(a * sin(t_0)), Float64(t_1 * b))))) ^ 2.0; end return tmp end
x-scale_m = N[Abs[x$45$scale], $MachinePrecision]
y-scale_m = N[Abs[y$45$scale], $MachinePrecision]
code[a_, b_, angle_, x$45$scale$95$m_, y$45$scale$95$m_] := Block[{t$95$0 = N[(0.005555555555555556 * N[(angle * Pi), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Cos[t$95$0], $MachinePrecision]}, If[LessEqual[y$45$scale$95$m, 1.02e+32], N[(0.25 * N[(N[(x$45$scale$95$m * 4.0), $MachinePrecision] * N[Sqrt[N[(a * t$95$1), $MachinePrecision] ^ 2 + N[(N[Sin[N[(0.005555555555555556 * N[(angle * N[Power[N[Power[Pi, 3.0], $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * b), $MachinePrecision] ^ 2], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[Power[N[Sqrt[N[(N[(y$45$scale$95$m * 0.25), $MachinePrecision] * N[(4.0 * N[Sqrt[N[(a * N[Sin[t$95$0], $MachinePrecision]), $MachinePrecision] ^ 2 + N[(t$95$1 * b), $MachinePrecision] ^ 2], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], 2.0], $MachinePrecision]]]]
\begin{array}{l}
x-scale_m = \left|x-scale\right|
\\
y-scale_m = \left|y-scale\right|
\\
\begin{array}{l}
t_0 := 0.005555555555555556 \cdot \left(angle \cdot \pi\right)\\
t_1 := \cos t\_0\\
\mathbf{if}\;y-scale\_m \leq 1.02 \cdot 10^{+32}:\\
\;\;\;\;0.25 \cdot \left(\left(x-scale\_m \cdot 4\right) \cdot \mathsf{hypot}\left(a \cdot t\_1, \sin \left(0.005555555555555556 \cdot \left(angle \cdot \sqrt[3]{{\pi}^{3}}\right)\right) \cdot b\right)\right)\\
\mathbf{else}:\\
\;\;\;\;{\left(\sqrt{\left(y-scale\_m \cdot 0.25\right) \cdot \left(4 \cdot \mathsf{hypot}\left(a \cdot \sin t\_0, t\_1 \cdot b\right)\right)}\right)}^{2}\\
\end{array}
\end{array}
if y-scale < 1.0199999999999999e32Initial program 3.0%
Simplified2.9%
Taylor expanded in y-scale around 0 16.9%
associate-*l*16.9%
distribute-lft-out16.9%
fma-define16.9%
*-commutative16.9%
Simplified16.9%
pow116.9%
Applied egg-rr17.2%
unpow117.2%
associate-*l*17.2%
associate-*r*17.2%
metadata-eval17.2%
Simplified17.2%
pow117.2%
Applied egg-rr24.6%
unpow124.6%
associate-*l*24.6%
associate-*r*24.6%
Simplified24.6%
add-cbrt-cube24.7%
pow324.7%
Applied egg-rr24.7%
if 1.0199999999999999e32 < y-scale Initial program 1.9%
Simplified1.9%
Taylor expanded in x-scale around 0 68.3%
associate-*l*68.4%
distribute-lft-out68.4%
fma-define68.4%
*-commutative68.4%
Simplified68.4%
expm1-log1p-u66.6%
expm1-undefine66.6%
Applied egg-rr69.1%
expm1-define69.1%
associate-*l*68.1%
associate-*r*68.1%
metadata-eval68.1%
Simplified68.1%
add-sqr-sqrt68.1%
pow268.1%
Applied egg-rr72.0%
Final simplification35.9%
x-scale_m = (fabs.f64 x-scale)
y-scale_m = (fabs.f64 y-scale)
(FPCore (a b angle x-scale_m y-scale_m)
:precision binary64
(let* ((t_0 (* 0.005555555555555556 (* angle PI))) (t_1 (cos t_0)))
(if (<= y-scale_m 3.6e+33)
(*
0.25
(*
(* x-scale_m 4.0)
(hypot
(* a t_1)
(* (sin (* 0.005555555555555556 (* angle (cbrt (pow PI 3.0))))) b))))
(pow
(cbrt (* (* y-scale_m 0.25) (* 4.0 (hypot (* a (sin t_0)) (* t_1 b)))))
3.0))))x-scale_m = fabs(x_45_scale);
y-scale_m = fabs(y_45_scale);
double code(double a, double b, double angle, double x_45_scale_m, double y_45_scale_m) {
double t_0 = 0.005555555555555556 * (angle * ((double) M_PI));
double t_1 = cos(t_0);
double tmp;
if (y_45_scale_m <= 3.6e+33) {
tmp = 0.25 * ((x_45_scale_m * 4.0) * hypot((a * t_1), (sin((0.005555555555555556 * (angle * cbrt(pow(((double) M_PI), 3.0))))) * b)));
} else {
tmp = pow(cbrt(((y_45_scale_m * 0.25) * (4.0 * hypot((a * sin(t_0)), (t_1 * b))))), 3.0);
}
return tmp;
}
x-scale_m = Math.abs(x_45_scale);
y-scale_m = Math.abs(y_45_scale);
public static double code(double a, double b, double angle, double x_45_scale_m, double y_45_scale_m) {
double t_0 = 0.005555555555555556 * (angle * Math.PI);
double t_1 = Math.cos(t_0);
double tmp;
if (y_45_scale_m <= 3.6e+33) {
tmp = 0.25 * ((x_45_scale_m * 4.0) * Math.hypot((a * t_1), (Math.sin((0.005555555555555556 * (angle * Math.cbrt(Math.pow(Math.PI, 3.0))))) * b)));
} else {
tmp = Math.pow(Math.cbrt(((y_45_scale_m * 0.25) * (4.0 * Math.hypot((a * Math.sin(t_0)), (t_1 * b))))), 3.0);
}
return tmp;
}
x-scale_m = abs(x_45_scale) y-scale_m = abs(y_45_scale) function code(a, b, angle, x_45_scale_m, y_45_scale_m) t_0 = Float64(0.005555555555555556 * Float64(angle * pi)) t_1 = cos(t_0) tmp = 0.0 if (y_45_scale_m <= 3.6e+33) tmp = Float64(0.25 * Float64(Float64(x_45_scale_m * 4.0) * hypot(Float64(a * t_1), Float64(sin(Float64(0.005555555555555556 * Float64(angle * cbrt((pi ^ 3.0))))) * b)))); else tmp = cbrt(Float64(Float64(y_45_scale_m * 0.25) * Float64(4.0 * hypot(Float64(a * sin(t_0)), Float64(t_1 * b))))) ^ 3.0; end return tmp end
x-scale_m = N[Abs[x$45$scale], $MachinePrecision]
y-scale_m = N[Abs[y$45$scale], $MachinePrecision]
code[a_, b_, angle_, x$45$scale$95$m_, y$45$scale$95$m_] := Block[{t$95$0 = N[(0.005555555555555556 * N[(angle * Pi), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Cos[t$95$0], $MachinePrecision]}, If[LessEqual[y$45$scale$95$m, 3.6e+33], N[(0.25 * N[(N[(x$45$scale$95$m * 4.0), $MachinePrecision] * N[Sqrt[N[(a * t$95$1), $MachinePrecision] ^ 2 + N[(N[Sin[N[(0.005555555555555556 * N[(angle * N[Power[N[Power[Pi, 3.0], $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * b), $MachinePrecision] ^ 2], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[Power[N[Power[N[(N[(y$45$scale$95$m * 0.25), $MachinePrecision] * N[(4.0 * N[Sqrt[N[(a * N[Sin[t$95$0], $MachinePrecision]), $MachinePrecision] ^ 2 + N[(t$95$1 * b), $MachinePrecision] ^ 2], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision], 3.0], $MachinePrecision]]]]
\begin{array}{l}
x-scale_m = \left|x-scale\right|
\\
y-scale_m = \left|y-scale\right|
\\
\begin{array}{l}
t_0 := 0.005555555555555556 \cdot \left(angle \cdot \pi\right)\\
t_1 := \cos t\_0\\
\mathbf{if}\;y-scale\_m \leq 3.6 \cdot 10^{+33}:\\
\;\;\;\;0.25 \cdot \left(\left(x-scale\_m \cdot 4\right) \cdot \mathsf{hypot}\left(a \cdot t\_1, \sin \left(0.005555555555555556 \cdot \left(angle \cdot \sqrt[3]{{\pi}^{3}}\right)\right) \cdot b\right)\right)\\
\mathbf{else}:\\
\;\;\;\;{\left(\sqrt[3]{\left(y-scale\_m \cdot 0.25\right) \cdot \left(4 \cdot \mathsf{hypot}\left(a \cdot \sin t\_0, t\_1 \cdot b\right)\right)}\right)}^{3}\\
\end{array}
\end{array}
if y-scale < 3.6000000000000003e33Initial program 3.0%
Simplified2.9%
Taylor expanded in y-scale around 0 16.9%
associate-*l*16.9%
distribute-lft-out16.9%
fma-define16.9%
*-commutative16.9%
Simplified16.9%
pow116.9%
Applied egg-rr17.2%
unpow117.2%
associate-*l*17.2%
associate-*r*17.2%
metadata-eval17.2%
Simplified17.2%
pow117.2%
Applied egg-rr24.6%
unpow124.6%
associate-*l*24.6%
associate-*r*24.6%
Simplified24.6%
add-cbrt-cube24.7%
pow324.7%
Applied egg-rr24.7%
if 3.6000000000000003e33 < y-scale Initial program 1.9%
Simplified1.9%
Taylor expanded in x-scale around 0 68.3%
associate-*l*68.4%
distribute-lft-out68.4%
fma-define68.4%
*-commutative68.4%
Simplified68.4%
expm1-log1p-u66.6%
expm1-undefine66.6%
Applied egg-rr69.1%
expm1-define69.1%
associate-*l*68.1%
associate-*r*68.1%
metadata-eval68.1%
Simplified68.1%
add-cube-cbrt68.1%
pow368.1%
Applied egg-rr71.8%
Final simplification35.9%
x-scale_m = (fabs.f64 x-scale)
y-scale_m = (fabs.f64 y-scale)
(FPCore (a b angle x-scale_m y-scale_m)
:precision binary64
(let* ((t_0 (* 0.005555555555555556 (* angle PI))) (t_1 (cos t_0)))
(if (<= y-scale_m 9e+30)
(*
0.25
(*
(* x-scale_m 4.0)
(hypot
(* a t_1)
(* (sin (* 0.005555555555555556 (* angle (cbrt (pow PI 3.0))))) b))))
(* 0.25 (* y-scale_m (* 4.0 (hypot (* a (sin t_0)) (* t_1 b))))))))x-scale_m = fabs(x_45_scale);
y-scale_m = fabs(y_45_scale);
double code(double a, double b, double angle, double x_45_scale_m, double y_45_scale_m) {
double t_0 = 0.005555555555555556 * (angle * ((double) M_PI));
double t_1 = cos(t_0);
double tmp;
if (y_45_scale_m <= 9e+30) {
tmp = 0.25 * ((x_45_scale_m * 4.0) * hypot((a * t_1), (sin((0.005555555555555556 * (angle * cbrt(pow(((double) M_PI), 3.0))))) * b)));
} else {
tmp = 0.25 * (y_45_scale_m * (4.0 * hypot((a * sin(t_0)), (t_1 * b))));
}
return tmp;
}
x-scale_m = Math.abs(x_45_scale);
y-scale_m = Math.abs(y_45_scale);
public static double code(double a, double b, double angle, double x_45_scale_m, double y_45_scale_m) {
double t_0 = 0.005555555555555556 * (angle * Math.PI);
double t_1 = Math.cos(t_0);
double tmp;
if (y_45_scale_m <= 9e+30) {
tmp = 0.25 * ((x_45_scale_m * 4.0) * Math.hypot((a * t_1), (Math.sin((0.005555555555555556 * (angle * Math.cbrt(Math.pow(Math.PI, 3.0))))) * b)));
} else {
tmp = 0.25 * (y_45_scale_m * (4.0 * Math.hypot((a * Math.sin(t_0)), (t_1 * b))));
}
return tmp;
}
x-scale_m = abs(x_45_scale) y-scale_m = abs(y_45_scale) function code(a, b, angle, x_45_scale_m, y_45_scale_m) t_0 = Float64(0.005555555555555556 * Float64(angle * pi)) t_1 = cos(t_0) tmp = 0.0 if (y_45_scale_m <= 9e+30) tmp = Float64(0.25 * Float64(Float64(x_45_scale_m * 4.0) * hypot(Float64(a * t_1), Float64(sin(Float64(0.005555555555555556 * Float64(angle * cbrt((pi ^ 3.0))))) * b)))); else tmp = Float64(0.25 * Float64(y_45_scale_m * Float64(4.0 * hypot(Float64(a * sin(t_0)), Float64(t_1 * b))))); end return tmp end
x-scale_m = N[Abs[x$45$scale], $MachinePrecision]
y-scale_m = N[Abs[y$45$scale], $MachinePrecision]
code[a_, b_, angle_, x$45$scale$95$m_, y$45$scale$95$m_] := Block[{t$95$0 = N[(0.005555555555555556 * N[(angle * Pi), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Cos[t$95$0], $MachinePrecision]}, If[LessEqual[y$45$scale$95$m, 9e+30], N[(0.25 * N[(N[(x$45$scale$95$m * 4.0), $MachinePrecision] * N[Sqrt[N[(a * t$95$1), $MachinePrecision] ^ 2 + N[(N[Sin[N[(0.005555555555555556 * N[(angle * N[Power[N[Power[Pi, 3.0], $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * b), $MachinePrecision] ^ 2], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(0.25 * N[(y$45$scale$95$m * N[(4.0 * N[Sqrt[N[(a * N[Sin[t$95$0], $MachinePrecision]), $MachinePrecision] ^ 2 + N[(t$95$1 * b), $MachinePrecision] ^ 2], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
x-scale_m = \left|x-scale\right|
\\
y-scale_m = \left|y-scale\right|
\\
\begin{array}{l}
t_0 := 0.005555555555555556 \cdot \left(angle \cdot \pi\right)\\
t_1 := \cos t\_0\\
\mathbf{if}\;y-scale\_m \leq 9 \cdot 10^{+30}:\\
\;\;\;\;0.25 \cdot \left(\left(x-scale\_m \cdot 4\right) \cdot \mathsf{hypot}\left(a \cdot t\_1, \sin \left(0.005555555555555556 \cdot \left(angle \cdot \sqrt[3]{{\pi}^{3}}\right)\right) \cdot b\right)\right)\\
\mathbf{else}:\\
\;\;\;\;0.25 \cdot \left(y-scale\_m \cdot \left(4 \cdot \mathsf{hypot}\left(a \cdot \sin t\_0, t\_1 \cdot b\right)\right)\right)\\
\end{array}
\end{array}
if y-scale < 8.9999999999999999e30Initial program 3.0%
Simplified2.9%
Taylor expanded in y-scale around 0 16.9%
associate-*l*16.9%
distribute-lft-out16.9%
fma-define16.9%
*-commutative16.9%
Simplified16.9%
pow116.9%
Applied egg-rr17.2%
unpow117.2%
associate-*l*17.2%
associate-*r*17.2%
metadata-eval17.2%
Simplified17.2%
pow117.2%
Applied egg-rr24.6%
unpow124.6%
associate-*l*24.6%
associate-*r*24.6%
Simplified24.6%
add-cbrt-cube24.7%
pow324.7%
Applied egg-rr24.7%
if 8.9999999999999999e30 < y-scale Initial program 1.9%
Simplified1.9%
Taylor expanded in x-scale around 0 68.3%
associate-*l*68.4%
distribute-lft-out68.4%
fma-define68.4%
*-commutative68.4%
Simplified68.4%
expm1-log1p-u66.6%
expm1-undefine66.6%
Applied egg-rr69.1%
expm1-define69.1%
associate-*l*68.1%
associate-*r*68.1%
metadata-eval68.1%
Simplified68.1%
expm1-log1p-u70.1%
*-commutative70.1%
Applied egg-rr71.0%
Final simplification35.7%
x-scale_m = (fabs.f64 x-scale)
y-scale_m = (fabs.f64 y-scale)
(FPCore (a b angle x-scale_m y-scale_m)
:precision binary64
(let* ((t_0 (* 0.005555555555555556 (* angle PI)))
(t_1 (sin t_0))
(t_2 (cos t_0)))
(if (<= y-scale_m 5.2e+30)
(* x-scale_m (hypot (* a t_2) (* b t_1)))
(* 0.25 (* y-scale_m (* 4.0 (hypot (* a t_1) (* t_2 b))))))))x-scale_m = fabs(x_45_scale);
y-scale_m = fabs(y_45_scale);
double code(double a, double b, double angle, double x_45_scale_m, double y_45_scale_m) {
double t_0 = 0.005555555555555556 * (angle * ((double) M_PI));
double t_1 = sin(t_0);
double t_2 = cos(t_0);
double tmp;
if (y_45_scale_m <= 5.2e+30) {
tmp = x_45_scale_m * hypot((a * t_2), (b * t_1));
} else {
tmp = 0.25 * (y_45_scale_m * (4.0 * hypot((a * t_1), (t_2 * b))));
}
return tmp;
}
x-scale_m = Math.abs(x_45_scale);
y-scale_m = Math.abs(y_45_scale);
public static double code(double a, double b, double angle, double x_45_scale_m, double y_45_scale_m) {
double t_0 = 0.005555555555555556 * (angle * Math.PI);
double t_1 = Math.sin(t_0);
double t_2 = Math.cos(t_0);
double tmp;
if (y_45_scale_m <= 5.2e+30) {
tmp = x_45_scale_m * Math.hypot((a * t_2), (b * t_1));
} else {
tmp = 0.25 * (y_45_scale_m * (4.0 * Math.hypot((a * t_1), (t_2 * b))));
}
return tmp;
}
x-scale_m = math.fabs(x_45_scale) y-scale_m = math.fabs(y_45_scale) def code(a, b, angle, x_45_scale_m, y_45_scale_m): t_0 = 0.005555555555555556 * (angle * math.pi) t_1 = math.sin(t_0) t_2 = math.cos(t_0) tmp = 0 if y_45_scale_m <= 5.2e+30: tmp = x_45_scale_m * math.hypot((a * t_2), (b * t_1)) else: tmp = 0.25 * (y_45_scale_m * (4.0 * math.hypot((a * t_1), (t_2 * b)))) return tmp
x-scale_m = abs(x_45_scale) y-scale_m = abs(y_45_scale) function code(a, b, angle, x_45_scale_m, y_45_scale_m) t_0 = Float64(0.005555555555555556 * Float64(angle * pi)) t_1 = sin(t_0) t_2 = cos(t_0) tmp = 0.0 if (y_45_scale_m <= 5.2e+30) tmp = Float64(x_45_scale_m * hypot(Float64(a * t_2), Float64(b * t_1))); else tmp = Float64(0.25 * Float64(y_45_scale_m * Float64(4.0 * hypot(Float64(a * t_1), Float64(t_2 * b))))); end return tmp end
x-scale_m = abs(x_45_scale); y-scale_m = abs(y_45_scale); function tmp_2 = code(a, b, angle, x_45_scale_m, y_45_scale_m) t_0 = 0.005555555555555556 * (angle * pi); t_1 = sin(t_0); t_2 = cos(t_0); tmp = 0.0; if (y_45_scale_m <= 5.2e+30) tmp = x_45_scale_m * hypot((a * t_2), (b * t_1)); else tmp = 0.25 * (y_45_scale_m * (4.0 * hypot((a * t_1), (t_2 * b)))); end tmp_2 = tmp; end
x-scale_m = N[Abs[x$45$scale], $MachinePrecision]
y-scale_m = N[Abs[y$45$scale], $MachinePrecision]
code[a_, b_, angle_, x$45$scale$95$m_, y$45$scale$95$m_] := Block[{t$95$0 = N[(0.005555555555555556 * N[(angle * Pi), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Sin[t$95$0], $MachinePrecision]}, Block[{t$95$2 = N[Cos[t$95$0], $MachinePrecision]}, If[LessEqual[y$45$scale$95$m, 5.2e+30], N[(x$45$scale$95$m * N[Sqrt[N[(a * t$95$2), $MachinePrecision] ^ 2 + N[(b * t$95$1), $MachinePrecision] ^ 2], $MachinePrecision]), $MachinePrecision], N[(0.25 * N[(y$45$scale$95$m * N[(4.0 * N[Sqrt[N[(a * t$95$1), $MachinePrecision] ^ 2 + N[(t$95$2 * b), $MachinePrecision] ^ 2], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
x-scale_m = \left|x-scale\right|
\\
y-scale_m = \left|y-scale\right|
\\
\begin{array}{l}
t_0 := 0.005555555555555556 \cdot \left(angle \cdot \pi\right)\\
t_1 := \sin t\_0\\
t_2 := \cos t\_0\\
\mathbf{if}\;y-scale\_m \leq 5.2 \cdot 10^{+30}:\\
\;\;\;\;x-scale\_m \cdot \mathsf{hypot}\left(a \cdot t\_2, b \cdot t\_1\right)\\
\mathbf{else}:\\
\;\;\;\;0.25 \cdot \left(y-scale\_m \cdot \left(4 \cdot \mathsf{hypot}\left(a \cdot t\_1, t\_2 \cdot b\right)\right)\right)\\
\end{array}
\end{array}
if y-scale < 5.19999999999999977e30Initial program 3.0%
Simplified2.9%
Taylor expanded in y-scale around 0 16.9%
associate-*l*16.9%
distribute-lft-out16.9%
fma-define16.9%
*-commutative16.9%
Simplified16.9%
pow116.9%
Applied egg-rr17.2%
unpow117.2%
associate-*l*17.2%
associate-*r*17.2%
metadata-eval17.2%
Simplified17.2%
pow117.2%
Applied egg-rr24.6%
unpow124.6%
associate-*l*24.6%
associate-*r*24.6%
Simplified24.6%
Taylor expanded in x-scale around 0 17.0%
unpow217.0%
unpow217.0%
swap-sqr17.0%
*-commutative17.0%
unpow217.0%
unpow217.0%
swap-sqr17.2%
hypot-undefine24.6%
*-commutative24.6%
Simplified24.6%
if 5.19999999999999977e30 < y-scale Initial program 1.9%
Simplified1.9%
Taylor expanded in x-scale around 0 68.3%
associate-*l*68.4%
distribute-lft-out68.4%
fma-define68.4%
*-commutative68.4%
Simplified68.4%
expm1-log1p-u66.6%
expm1-undefine66.6%
Applied egg-rr69.1%
expm1-define69.1%
associate-*l*68.1%
associate-*r*68.1%
metadata-eval68.1%
Simplified68.1%
expm1-log1p-u70.1%
*-commutative70.1%
Applied egg-rr71.0%
Final simplification35.7%
x-scale_m = (fabs.f64 x-scale)
y-scale_m = (fabs.f64 y-scale)
(FPCore (a b angle x-scale_m y-scale_m)
:precision binary64
(let* ((t_0 (* 0.005555555555555556 (* angle PI))))
(if (<= y-scale_m 1.75e+24)
(* x-scale_m (hypot (* a (cos t_0)) (* b (sin t_0))))
(* 0.25 (* b (* y-scale_m 4.0))))))x-scale_m = fabs(x_45_scale);
y-scale_m = fabs(y_45_scale);
double code(double a, double b, double angle, double x_45_scale_m, double y_45_scale_m) {
double t_0 = 0.005555555555555556 * (angle * ((double) M_PI));
double tmp;
if (y_45_scale_m <= 1.75e+24) {
tmp = x_45_scale_m * hypot((a * cos(t_0)), (b * sin(t_0)));
} else {
tmp = 0.25 * (b * (y_45_scale_m * 4.0));
}
return tmp;
}
x-scale_m = Math.abs(x_45_scale);
y-scale_m = Math.abs(y_45_scale);
public static double code(double a, double b, double angle, double x_45_scale_m, double y_45_scale_m) {
double t_0 = 0.005555555555555556 * (angle * Math.PI);
double tmp;
if (y_45_scale_m <= 1.75e+24) {
tmp = x_45_scale_m * Math.hypot((a * Math.cos(t_0)), (b * Math.sin(t_0)));
} else {
tmp = 0.25 * (b * (y_45_scale_m * 4.0));
}
return tmp;
}
x-scale_m = math.fabs(x_45_scale) y-scale_m = math.fabs(y_45_scale) def code(a, b, angle, x_45_scale_m, y_45_scale_m): t_0 = 0.005555555555555556 * (angle * math.pi) tmp = 0 if y_45_scale_m <= 1.75e+24: tmp = x_45_scale_m * math.hypot((a * math.cos(t_0)), (b * math.sin(t_0))) else: tmp = 0.25 * (b * (y_45_scale_m * 4.0)) return tmp
x-scale_m = abs(x_45_scale) y-scale_m = abs(y_45_scale) function code(a, b, angle, x_45_scale_m, y_45_scale_m) t_0 = Float64(0.005555555555555556 * Float64(angle * pi)) tmp = 0.0 if (y_45_scale_m <= 1.75e+24) tmp = Float64(x_45_scale_m * hypot(Float64(a * cos(t_0)), Float64(b * sin(t_0)))); else tmp = Float64(0.25 * Float64(b * Float64(y_45_scale_m * 4.0))); end return tmp end
x-scale_m = abs(x_45_scale); y-scale_m = abs(y_45_scale); function tmp_2 = code(a, b, angle, x_45_scale_m, y_45_scale_m) t_0 = 0.005555555555555556 * (angle * pi); tmp = 0.0; if (y_45_scale_m <= 1.75e+24) tmp = x_45_scale_m * hypot((a * cos(t_0)), (b * sin(t_0))); else tmp = 0.25 * (b * (y_45_scale_m * 4.0)); end tmp_2 = tmp; end
x-scale_m = N[Abs[x$45$scale], $MachinePrecision]
y-scale_m = N[Abs[y$45$scale], $MachinePrecision]
code[a_, b_, angle_, x$45$scale$95$m_, y$45$scale$95$m_] := Block[{t$95$0 = N[(0.005555555555555556 * N[(angle * Pi), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y$45$scale$95$m, 1.75e+24], N[(x$45$scale$95$m * N[Sqrt[N[(a * N[Cos[t$95$0], $MachinePrecision]), $MachinePrecision] ^ 2 + N[(b * N[Sin[t$95$0], $MachinePrecision]), $MachinePrecision] ^ 2], $MachinePrecision]), $MachinePrecision], N[(0.25 * N[(b * N[(y$45$scale$95$m * 4.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
x-scale_m = \left|x-scale\right|
\\
y-scale_m = \left|y-scale\right|
\\
\begin{array}{l}
t_0 := 0.005555555555555556 \cdot \left(angle \cdot \pi\right)\\
\mathbf{if}\;y-scale\_m \leq 1.75 \cdot 10^{+24}:\\
\;\;\;\;x-scale\_m \cdot \mathsf{hypot}\left(a \cdot \cos t\_0, b \cdot \sin t\_0\right)\\
\mathbf{else}:\\
\;\;\;\;0.25 \cdot \left(b \cdot \left(y-scale\_m \cdot 4\right)\right)\\
\end{array}
\end{array}
if y-scale < 1.7500000000000001e24Initial program 3.0%
Simplified2.9%
Taylor expanded in y-scale around 0 17.2%
associate-*l*17.2%
distribute-lft-out17.2%
fma-define17.2%
*-commutative17.2%
Simplified17.2%
pow117.2%
Applied egg-rr17.5%
unpow117.5%
associate-*l*17.5%
associate-*r*17.5%
metadata-eval17.5%
Simplified17.5%
pow117.5%
Applied egg-rr25.0%
unpow125.0%
associate-*l*25.0%
associate-*r*25.0%
Simplified25.0%
Taylor expanded in x-scale around 0 17.2%
unpow217.2%
unpow217.2%
swap-sqr17.2%
*-commutative17.2%
unpow217.2%
unpow217.2%
swap-sqr17.5%
hypot-undefine25.0%
*-commutative25.0%
Simplified25.0%
if 1.7500000000000001e24 < y-scale Initial program 2.0%
Simplified2.1%
Taylor expanded in angle around 0 38.1%
*-commutative38.1%
Simplified38.1%
pow138.1%
associate-*r*36.6%
sqrt-unprod36.8%
metadata-eval36.8%
metadata-eval36.8%
Applied egg-rr36.8%
unpow136.8%
associate-*l*38.3%
Simplified38.3%
x-scale_m = (fabs.f64 x-scale) y-scale_m = (fabs.f64 y-scale) (FPCore (a b angle x-scale_m y-scale_m) :precision binary64 (if (<= y-scale_m 1.25e+24) (* x-scale_m a) (* 0.25 (* b (* y-scale_m 4.0)))))
x-scale_m = fabs(x_45_scale);
y-scale_m = fabs(y_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 <= 1.25e+24) {
tmp = x_45_scale_m * a;
} else {
tmp = 0.25 * (b * (y_45_scale_m * 4.0));
}
return tmp;
}
x-scale_m = abs(x_45scale)
y-scale_m = abs(y_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 <= 1.25d+24) then
tmp = x_45scale_m * a
else
tmp = 0.25d0 * (b * (y_45scale_m * 4.0d0))
end if
code = tmp
end function
x-scale_m = Math.abs(x_45_scale);
y-scale_m = Math.abs(y_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 <= 1.25e+24) {
tmp = x_45_scale_m * a;
} else {
tmp = 0.25 * (b * (y_45_scale_m * 4.0));
}
return tmp;
}
x-scale_m = math.fabs(x_45_scale) y-scale_m = math.fabs(y_45_scale) def code(a, b, angle, x_45_scale_m, y_45_scale_m): tmp = 0 if y_45_scale_m <= 1.25e+24: tmp = x_45_scale_m * a else: tmp = 0.25 * (b * (y_45_scale_m * 4.0)) return tmp
x-scale_m = abs(x_45_scale) y-scale_m = abs(y_45_scale) function code(a, b, angle, x_45_scale_m, y_45_scale_m) tmp = 0.0 if (y_45_scale_m <= 1.25e+24) tmp = Float64(x_45_scale_m * a); else tmp = Float64(0.25 * Float64(b * Float64(y_45_scale_m * 4.0))); end return tmp end
x-scale_m = abs(x_45_scale); y-scale_m = abs(y_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 <= 1.25e+24) tmp = x_45_scale_m * a; else tmp = 0.25 * (b * (y_45_scale_m * 4.0)); end tmp_2 = tmp; end
x-scale_m = N[Abs[x$45$scale], $MachinePrecision] y-scale_m = N[Abs[y$45$scale], $MachinePrecision] code[a_, b_, angle_, x$45$scale$95$m_, y$45$scale$95$m_] := If[LessEqual[y$45$scale$95$m, 1.25e+24], N[(x$45$scale$95$m * a), $MachinePrecision], N[(0.25 * N[(b * N[(y$45$scale$95$m * 4.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
x-scale_m = \left|x-scale\right|
\\
y-scale_m = \left|y-scale\right|
\\
\begin{array}{l}
\mathbf{if}\;y-scale\_m \leq 1.25 \cdot 10^{+24}:\\
\;\;\;\;x-scale\_m \cdot a\\
\mathbf{else}:\\
\;\;\;\;0.25 \cdot \left(b \cdot \left(y-scale\_m \cdot 4\right)\right)\\
\end{array}
\end{array}
if y-scale < 1.25000000000000011e24Initial program 3.0%
Simplified2.9%
Taylor expanded in y-scale around 0 17.2%
associate-*l*17.2%
distribute-lft-out17.2%
fma-define17.2%
*-commutative17.2%
Simplified17.2%
pow117.2%
Applied egg-rr17.5%
unpow117.5%
associate-*l*17.5%
associate-*r*17.5%
metadata-eval17.5%
Simplified17.5%
Taylor expanded in angle around 0 20.2%
if 1.25000000000000011e24 < y-scale Initial program 2.0%
Simplified2.1%
Taylor expanded in angle around 0 38.1%
*-commutative38.1%
Simplified38.1%
pow138.1%
associate-*r*36.6%
sqrt-unprod36.8%
metadata-eval36.8%
metadata-eval36.8%
Applied egg-rr36.8%
unpow136.8%
associate-*l*38.3%
Simplified38.3%
Final simplification24.7%
x-scale_m = (fabs.f64 x-scale) y-scale_m = (fabs.f64 y-scale) (FPCore (a b angle x-scale_m y-scale_m) :precision binary64 (if (<= y-scale_m 9.4e+23) (* x-scale_m a) (* y-scale_m b)))
x-scale_m = fabs(x_45_scale);
y-scale_m = fabs(y_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 <= 9.4e+23) {
tmp = x_45_scale_m * a;
} else {
tmp = y_45_scale_m * b;
}
return tmp;
}
x-scale_m = abs(x_45scale)
y-scale_m = abs(y_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 <= 9.4d+23) then
tmp = x_45scale_m * a
else
tmp = y_45scale_m * b
end if
code = tmp
end function
x-scale_m = Math.abs(x_45_scale);
y-scale_m = Math.abs(y_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 <= 9.4e+23) {
tmp = x_45_scale_m * a;
} else {
tmp = y_45_scale_m * b;
}
return tmp;
}
x-scale_m = math.fabs(x_45_scale) y-scale_m = math.fabs(y_45_scale) def code(a, b, angle, x_45_scale_m, y_45_scale_m): tmp = 0 if y_45_scale_m <= 9.4e+23: tmp = x_45_scale_m * a else: tmp = y_45_scale_m * b return tmp
x-scale_m = abs(x_45_scale) y-scale_m = abs(y_45_scale) function code(a, b, angle, x_45_scale_m, y_45_scale_m) tmp = 0.0 if (y_45_scale_m <= 9.4e+23) tmp = Float64(x_45_scale_m * a); else tmp = Float64(y_45_scale_m * b); end return tmp end
x-scale_m = abs(x_45_scale); y-scale_m = abs(y_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 <= 9.4e+23) tmp = x_45_scale_m * a; else tmp = y_45_scale_m * b; end tmp_2 = tmp; end
x-scale_m = N[Abs[x$45$scale], $MachinePrecision] y-scale_m = N[Abs[y$45$scale], $MachinePrecision] code[a_, b_, angle_, x$45$scale$95$m_, y$45$scale$95$m_] := If[LessEqual[y$45$scale$95$m, 9.4e+23], N[(x$45$scale$95$m * a), $MachinePrecision], N[(y$45$scale$95$m * b), $MachinePrecision]]
\begin{array}{l}
x-scale_m = \left|x-scale\right|
\\
y-scale_m = \left|y-scale\right|
\\
\begin{array}{l}
\mathbf{if}\;y-scale\_m \leq 9.4 \cdot 10^{+23}:\\
\;\;\;\;x-scale\_m \cdot a\\
\mathbf{else}:\\
\;\;\;\;y-scale\_m \cdot b\\
\end{array}
\end{array}
if y-scale < 9.3999999999999994e23Initial program 3.0%
Simplified2.9%
Taylor expanded in y-scale around 0 17.2%
associate-*l*17.2%
distribute-lft-out17.2%
fma-define17.2%
*-commutative17.2%
Simplified17.2%
pow117.2%
Applied egg-rr17.5%
unpow117.5%
associate-*l*17.5%
associate-*r*17.5%
metadata-eval17.5%
Simplified17.5%
Taylor expanded in angle around 0 20.2%
if 9.3999999999999994e23 < y-scale Initial program 2.0%
Simplified2.1%
Taylor expanded in angle around 0 38.1%
*-commutative38.1%
Simplified38.1%
pow138.1%
associate-*r*36.6%
sqrt-unprod36.8%
metadata-eval36.8%
metadata-eval36.8%
Applied egg-rr36.8%
unpow136.8%
associate-*l*38.3%
Simplified38.3%
Taylor expanded in b around 0 36.8%
Final simplification24.3%
x-scale_m = (fabs.f64 x-scale) y-scale_m = (fabs.f64 y-scale) (FPCore (a b angle x-scale_m y-scale_m) :precision binary64 (* x-scale_m a))
x-scale_m = fabs(x_45_scale);
y-scale_m = fabs(y_45_scale);
double code(double a, double b, double angle, double x_45_scale_m, double y_45_scale_m) {
return x_45_scale_m * a;
}
x-scale_m = abs(x_45scale)
y-scale_m = abs(y_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 = x_45scale_m * a
end function
x-scale_m = Math.abs(x_45_scale);
y-scale_m = Math.abs(y_45_scale);
public static double code(double a, double b, double angle, double x_45_scale_m, double y_45_scale_m) {
return x_45_scale_m * a;
}
x-scale_m = math.fabs(x_45_scale) y-scale_m = math.fabs(y_45_scale) def code(a, b, angle, x_45_scale_m, y_45_scale_m): return x_45_scale_m * a
x-scale_m = abs(x_45_scale) y-scale_m = abs(y_45_scale) function code(a, b, angle, x_45_scale_m, y_45_scale_m) return Float64(x_45_scale_m * a) end
x-scale_m = abs(x_45_scale); y-scale_m = abs(y_45_scale); function tmp = code(a, b, angle, x_45_scale_m, y_45_scale_m) tmp = x_45_scale_m * a; end
x-scale_m = N[Abs[x$45$scale], $MachinePrecision] y-scale_m = N[Abs[y$45$scale], $MachinePrecision] code[a_, b_, angle_, x$45$scale$95$m_, y$45$scale$95$m_] := N[(x$45$scale$95$m * a), $MachinePrecision]
\begin{array}{l}
x-scale_m = \left|x-scale\right|
\\
y-scale_m = \left|y-scale\right|
\\
x-scale\_m \cdot a
\end{array}
Initial program 2.7%
Simplified2.7%
Taylor expanded in y-scale around 0 18.4%
associate-*l*18.4%
distribute-lft-out18.4%
fma-define18.4%
*-commutative18.4%
Simplified18.4%
pow118.4%
Applied egg-rr18.6%
unpow118.6%
associate-*l*18.6%
associate-*r*18.6%
metadata-eval18.6%
Simplified18.6%
Taylor expanded in angle around 0 18.0%
Final simplification18.0%
herbie shell --seed 2024165
(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))))