
(FPCore (a b angle x-scale y-scale)
:precision binary64
(let* ((t_0 (* (/ angle 180.0) PI))
(t_1 (cos t_0))
(t_2 (sin t_0))
(t_3
(/
(/ (* (* (* 2.0 (- (pow b 2.0) (pow a 2.0))) t_2) t_1) x-scale)
y-scale))
(t_4
(/ (/ (+ (pow (* a t_1) 2.0) (pow (* b t_2) 2.0)) y-scale) y-scale))
(t_5
(/ (/ (+ (pow (* a t_2) 2.0) (pow (* b t_1) 2.0)) x-scale) x-scale)))
(*
180.0
(/
(atan
(/ (- (- t_4 t_5) (sqrt (+ (pow (- t_5 t_4) 2.0) (pow t_3 2.0)))) t_3))
PI))))
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 = cos(t_0);
double t_2 = sin(t_0);
double t_3 = ((((2.0 * (pow(b, 2.0) - pow(a, 2.0))) * t_2) * t_1) / x_45_scale) / y_45_scale;
double t_4 = ((pow((a * t_1), 2.0) + pow((b * t_2), 2.0)) / y_45_scale) / y_45_scale;
double t_5 = ((pow((a * t_2), 2.0) + pow((b * t_1), 2.0)) / x_45_scale) / x_45_scale;
return 180.0 * (atan((((t_4 - t_5) - sqrt((pow((t_5 - t_4), 2.0) + pow(t_3, 2.0)))) / t_3)) / ((double) M_PI));
}
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.cos(t_0);
double t_2 = Math.sin(t_0);
double t_3 = ((((2.0 * (Math.pow(b, 2.0) - Math.pow(a, 2.0))) * t_2) * t_1) / x_45_scale) / y_45_scale;
double t_4 = ((Math.pow((a * t_1), 2.0) + Math.pow((b * t_2), 2.0)) / y_45_scale) / y_45_scale;
double t_5 = ((Math.pow((a * t_2), 2.0) + Math.pow((b * t_1), 2.0)) / x_45_scale) / x_45_scale;
return 180.0 * (Math.atan((((t_4 - t_5) - Math.sqrt((Math.pow((t_5 - t_4), 2.0) + Math.pow(t_3, 2.0)))) / t_3)) / Math.PI);
}
def code(a, b, angle, x_45_scale, y_45_scale): t_0 = (angle / 180.0) * math.pi t_1 = math.cos(t_0) t_2 = math.sin(t_0) t_3 = ((((2.0 * (math.pow(b, 2.0) - math.pow(a, 2.0))) * t_2) * t_1) / x_45_scale) / y_45_scale t_4 = ((math.pow((a * t_1), 2.0) + math.pow((b * t_2), 2.0)) / y_45_scale) / y_45_scale t_5 = ((math.pow((a * t_2), 2.0) + math.pow((b * t_1), 2.0)) / x_45_scale) / x_45_scale return 180.0 * (math.atan((((t_4 - t_5) - math.sqrt((math.pow((t_5 - t_4), 2.0) + math.pow(t_3, 2.0)))) / t_3)) / math.pi)
function code(a, b, angle, x_45_scale, y_45_scale) t_0 = Float64(Float64(angle / 180.0) * pi) t_1 = cos(t_0) t_2 = sin(t_0) t_3 = Float64(Float64(Float64(Float64(Float64(2.0 * Float64((b ^ 2.0) - (a ^ 2.0))) * t_2) * t_1) / x_45_scale) / y_45_scale) t_4 = Float64(Float64(Float64((Float64(a * t_1) ^ 2.0) + (Float64(b * t_2) ^ 2.0)) / y_45_scale) / y_45_scale) t_5 = Float64(Float64(Float64((Float64(a * t_2) ^ 2.0) + (Float64(b * t_1) ^ 2.0)) / x_45_scale) / x_45_scale) return Float64(180.0 * Float64(atan(Float64(Float64(Float64(t_4 - t_5) - sqrt(Float64((Float64(t_5 - t_4) ^ 2.0) + (t_3 ^ 2.0)))) / t_3)) / pi)) end
function tmp = code(a, b, angle, x_45_scale, y_45_scale) t_0 = (angle / 180.0) * pi; t_1 = cos(t_0); t_2 = sin(t_0); t_3 = ((((2.0 * ((b ^ 2.0) - (a ^ 2.0))) * t_2) * t_1) / x_45_scale) / y_45_scale; t_4 = ((((a * t_1) ^ 2.0) + ((b * t_2) ^ 2.0)) / y_45_scale) / y_45_scale; t_5 = ((((a * t_2) ^ 2.0) + ((b * t_1) ^ 2.0)) / x_45_scale) / x_45_scale; tmp = 180.0 * (atan((((t_4 - t_5) - sqrt((((t_5 - t_4) ^ 2.0) + (t_3 ^ 2.0)))) / t_3)) / pi); 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[Cos[t$95$0], $MachinePrecision]}, Block[{t$95$2 = N[Sin[t$95$0], $MachinePrecision]}, Block[{t$95$3 = N[(N[(N[(N[(N[(2.0 * N[(N[Power[b, 2.0], $MachinePrecision] - N[Power[a, 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * t$95$2), $MachinePrecision] * t$95$1), $MachinePrecision] / x$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] / y$45$scale), $MachinePrecision] / y$45$scale), $MachinePrecision]}, Block[{t$95$5 = 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] / x$45$scale), $MachinePrecision] / x$45$scale), $MachinePrecision]}, N[(180.0 * N[(N[ArcTan[N[(N[(N[(t$95$4 - t$95$5), $MachinePrecision] - N[Sqrt[N[(N[Power[N[(t$95$5 - t$95$4), $MachinePrecision], 2.0], $MachinePrecision] + N[Power[t$95$3, 2.0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / t$95$3), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{angle}{180} \cdot \pi\\
t_1 := \cos t\_0\\
t_2 := \sin t\_0\\
t_3 := \frac{\frac{\left(\left(2 \cdot \left({b}^{2} - {a}^{2}\right)\right) \cdot t\_2\right) \cdot t\_1}{x-scale}}{y-scale}\\
t_4 := \frac{\frac{{\left(a \cdot t\_1\right)}^{2} + {\left(b \cdot t\_2\right)}^{2}}{y-scale}}{y-scale}\\
t_5 := \frac{\frac{{\left(a \cdot t\_2\right)}^{2} + {\left(b \cdot t\_1\right)}^{2}}{x-scale}}{x-scale}\\
180 \cdot \frac{\tan^{-1} \left(\frac{\left(t\_4 - t\_5\right) - \sqrt{{\left(t\_5 - t\_4\right)}^{2} + {t\_3}^{2}}}{t\_3}\right)}{\pi}
\end{array}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 20 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (a b angle x-scale y-scale)
:precision binary64
(let* ((t_0 (* (/ angle 180.0) PI))
(t_1 (cos t_0))
(t_2 (sin t_0))
(t_3
(/
(/ (* (* (* 2.0 (- (pow b 2.0) (pow a 2.0))) t_2) t_1) x-scale)
y-scale))
(t_4
(/ (/ (+ (pow (* a t_1) 2.0) (pow (* b t_2) 2.0)) y-scale) y-scale))
(t_5
(/ (/ (+ (pow (* a t_2) 2.0) (pow (* b t_1) 2.0)) x-scale) x-scale)))
(*
180.0
(/
(atan
(/ (- (- t_4 t_5) (sqrt (+ (pow (- t_5 t_4) 2.0) (pow t_3 2.0)))) t_3))
PI))))
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 = cos(t_0);
double t_2 = sin(t_0);
double t_3 = ((((2.0 * (pow(b, 2.0) - pow(a, 2.0))) * t_2) * t_1) / x_45_scale) / y_45_scale;
double t_4 = ((pow((a * t_1), 2.0) + pow((b * t_2), 2.0)) / y_45_scale) / y_45_scale;
double t_5 = ((pow((a * t_2), 2.0) + pow((b * t_1), 2.0)) / x_45_scale) / x_45_scale;
return 180.0 * (atan((((t_4 - t_5) - sqrt((pow((t_5 - t_4), 2.0) + pow(t_3, 2.0)))) / t_3)) / ((double) M_PI));
}
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.cos(t_0);
double t_2 = Math.sin(t_0);
double t_3 = ((((2.0 * (Math.pow(b, 2.0) - Math.pow(a, 2.0))) * t_2) * t_1) / x_45_scale) / y_45_scale;
double t_4 = ((Math.pow((a * t_1), 2.0) + Math.pow((b * t_2), 2.0)) / y_45_scale) / y_45_scale;
double t_5 = ((Math.pow((a * t_2), 2.0) + Math.pow((b * t_1), 2.0)) / x_45_scale) / x_45_scale;
return 180.0 * (Math.atan((((t_4 - t_5) - Math.sqrt((Math.pow((t_5 - t_4), 2.0) + Math.pow(t_3, 2.0)))) / t_3)) / Math.PI);
}
def code(a, b, angle, x_45_scale, y_45_scale): t_0 = (angle / 180.0) * math.pi t_1 = math.cos(t_0) t_2 = math.sin(t_0) t_3 = ((((2.0 * (math.pow(b, 2.0) - math.pow(a, 2.0))) * t_2) * t_1) / x_45_scale) / y_45_scale t_4 = ((math.pow((a * t_1), 2.0) + math.pow((b * t_2), 2.0)) / y_45_scale) / y_45_scale t_5 = ((math.pow((a * t_2), 2.0) + math.pow((b * t_1), 2.0)) / x_45_scale) / x_45_scale return 180.0 * (math.atan((((t_4 - t_5) - math.sqrt((math.pow((t_5 - t_4), 2.0) + math.pow(t_3, 2.0)))) / t_3)) / math.pi)
function code(a, b, angle, x_45_scale, y_45_scale) t_0 = Float64(Float64(angle / 180.0) * pi) t_1 = cos(t_0) t_2 = sin(t_0) t_3 = Float64(Float64(Float64(Float64(Float64(2.0 * Float64((b ^ 2.0) - (a ^ 2.0))) * t_2) * t_1) / x_45_scale) / y_45_scale) t_4 = Float64(Float64(Float64((Float64(a * t_1) ^ 2.0) + (Float64(b * t_2) ^ 2.0)) / y_45_scale) / y_45_scale) t_5 = Float64(Float64(Float64((Float64(a * t_2) ^ 2.0) + (Float64(b * t_1) ^ 2.0)) / x_45_scale) / x_45_scale) return Float64(180.0 * Float64(atan(Float64(Float64(Float64(t_4 - t_5) - sqrt(Float64((Float64(t_5 - t_4) ^ 2.0) + (t_3 ^ 2.0)))) / t_3)) / pi)) end
function tmp = code(a, b, angle, x_45_scale, y_45_scale) t_0 = (angle / 180.0) * pi; t_1 = cos(t_0); t_2 = sin(t_0); t_3 = ((((2.0 * ((b ^ 2.0) - (a ^ 2.0))) * t_2) * t_1) / x_45_scale) / y_45_scale; t_4 = ((((a * t_1) ^ 2.0) + ((b * t_2) ^ 2.0)) / y_45_scale) / y_45_scale; t_5 = ((((a * t_2) ^ 2.0) + ((b * t_1) ^ 2.0)) / x_45_scale) / x_45_scale; tmp = 180.0 * (atan((((t_4 - t_5) - sqrt((((t_5 - t_4) ^ 2.0) + (t_3 ^ 2.0)))) / t_3)) / pi); 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[Cos[t$95$0], $MachinePrecision]}, Block[{t$95$2 = N[Sin[t$95$0], $MachinePrecision]}, Block[{t$95$3 = N[(N[(N[(N[(N[(2.0 * N[(N[Power[b, 2.0], $MachinePrecision] - N[Power[a, 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * t$95$2), $MachinePrecision] * t$95$1), $MachinePrecision] / x$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] / y$45$scale), $MachinePrecision] / y$45$scale), $MachinePrecision]}, Block[{t$95$5 = 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] / x$45$scale), $MachinePrecision] / x$45$scale), $MachinePrecision]}, N[(180.0 * N[(N[ArcTan[N[(N[(N[(t$95$4 - t$95$5), $MachinePrecision] - N[Sqrt[N[(N[Power[N[(t$95$5 - t$95$4), $MachinePrecision], 2.0], $MachinePrecision] + N[Power[t$95$3, 2.0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / t$95$3), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{angle}{180} \cdot \pi\\
t_1 := \cos t\_0\\
t_2 := \sin t\_0\\
t_3 := \frac{\frac{\left(\left(2 \cdot \left({b}^{2} - {a}^{2}\right)\right) \cdot t\_2\right) \cdot t\_1}{x-scale}}{y-scale}\\
t_4 := \frac{\frac{{\left(a \cdot t\_1\right)}^{2} + {\left(b \cdot t\_2\right)}^{2}}{y-scale}}{y-scale}\\
t_5 := \frac{\frac{{\left(a \cdot t\_2\right)}^{2} + {\left(b \cdot t\_1\right)}^{2}}{x-scale}}{x-scale}\\
180 \cdot \frac{\tan^{-1} \left(\frac{\left(t\_4 - t\_5\right) - \sqrt{{\left(t\_5 - t\_4\right)}^{2} + {t\_3}^{2}}}{t\_3}\right)}{\pi}
\end{array}
\end{array}
b_m = (fabs.f64 b)
(FPCore (a b_m angle x-scale y-scale)
:precision binary64
(let* ((t_0 (cos (* angle (* PI 0.011111111111111112))))
(t_1 (* 0.005555555555555556 (* angle PI)))
(t_2 (cos t_1)))
(if (<= b_m 3.8e-63)
(*
180.0
(/
(atan
(/
(*
y-scale
(sin (* 0.005555555555555556 (* angle (cbrt (* PI (* PI PI)))))))
(* x-scale t_2)))
PI))
(if (<= b_m 7.2e+176)
(*
(/ 180.0 (sqrt PI))
(/
(atan
(/
(/
(*
(*
2.0
(fma
a
(* a (fma -0.5 t_0 0.5))
(* (* b_m b_m) (fma 0.5 t_0 0.5))))
(/ (* y-scale -0.5) x-scale))
(+ b_m a))
(* (- b_m a) (sin (* PI (* 0.005555555555555556 angle))))))
(sqrt PI)))
(*
180.0
(/ (atan (/ (* y-scale t_2) (* (sin t_1) (- x-scale)))) PI))))))b_m = fabs(b);
double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double t_0 = cos((angle * (((double) M_PI) * 0.011111111111111112)));
double t_1 = 0.005555555555555556 * (angle * ((double) M_PI));
double t_2 = cos(t_1);
double tmp;
if (b_m <= 3.8e-63) {
tmp = 180.0 * (atan(((y_45_scale * sin((0.005555555555555556 * (angle * cbrt((((double) M_PI) * (((double) M_PI) * ((double) M_PI)))))))) / (x_45_scale * t_2))) / ((double) M_PI));
} else if (b_m <= 7.2e+176) {
tmp = (180.0 / sqrt(((double) M_PI))) * (atan(((((2.0 * fma(a, (a * fma(-0.5, t_0, 0.5)), ((b_m * b_m) * fma(0.5, t_0, 0.5)))) * ((y_45_scale * -0.5) / x_45_scale)) / (b_m + a)) / ((b_m - a) * sin((((double) M_PI) * (0.005555555555555556 * angle)))))) / sqrt(((double) M_PI)));
} else {
tmp = 180.0 * (atan(((y_45_scale * t_2) / (sin(t_1) * -x_45_scale))) / ((double) M_PI));
}
return tmp;
}
b_m = abs(b) function code(a, b_m, angle, x_45_scale, y_45_scale) t_0 = cos(Float64(angle * Float64(pi * 0.011111111111111112))) t_1 = Float64(0.005555555555555556 * Float64(angle * pi)) t_2 = cos(t_1) tmp = 0.0 if (b_m <= 3.8e-63) tmp = Float64(180.0 * Float64(atan(Float64(Float64(y_45_scale * sin(Float64(0.005555555555555556 * Float64(angle * cbrt(Float64(pi * Float64(pi * pi))))))) / Float64(x_45_scale * t_2))) / pi)); elseif (b_m <= 7.2e+176) tmp = Float64(Float64(180.0 / sqrt(pi)) * Float64(atan(Float64(Float64(Float64(Float64(2.0 * fma(a, Float64(a * fma(-0.5, t_0, 0.5)), Float64(Float64(b_m * b_m) * fma(0.5, t_0, 0.5)))) * Float64(Float64(y_45_scale * -0.5) / x_45_scale)) / Float64(b_m + a)) / Float64(Float64(b_m - a) * sin(Float64(pi * Float64(0.005555555555555556 * angle)))))) / sqrt(pi))); else tmp = Float64(180.0 * Float64(atan(Float64(Float64(y_45_scale * t_2) / Float64(sin(t_1) * Float64(-x_45_scale)))) / pi)); end return tmp end
b_m = N[Abs[b], $MachinePrecision]
code[a_, b$95$m_, angle_, x$45$scale_, y$45$scale_] := Block[{t$95$0 = N[Cos[N[(angle * N[(Pi * 0.011111111111111112), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[(0.005555555555555556 * N[(angle * Pi), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[Cos[t$95$1], $MachinePrecision]}, If[LessEqual[b$95$m, 3.8e-63], N[(180.0 * N[(N[ArcTan[N[(N[(y$45$scale * N[Sin[N[(0.005555555555555556 * N[(angle * N[Power[N[(Pi * N[(Pi * Pi), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[(x$45$scale * t$95$2), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], If[LessEqual[b$95$m, 7.2e+176], N[(N[(180.0 / N[Sqrt[Pi], $MachinePrecision]), $MachinePrecision] * N[(N[ArcTan[N[(N[(N[(N[(2.0 * N[(a * N[(a * N[(-0.5 * t$95$0 + 0.5), $MachinePrecision]), $MachinePrecision] + N[(N[(b$95$m * b$95$m), $MachinePrecision] * N[(0.5 * t$95$0 + 0.5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[(y$45$scale * -0.5), $MachinePrecision] / x$45$scale), $MachinePrecision]), $MachinePrecision] / N[(b$95$m + a), $MachinePrecision]), $MachinePrecision] / N[(N[(b$95$m - a), $MachinePrecision] * N[Sin[N[(Pi * N[(0.005555555555555556 * angle), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / N[Sqrt[Pi], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(180.0 * N[(N[ArcTan[N[(N[(y$45$scale * t$95$2), $MachinePrecision] / N[(N[Sin[t$95$1], $MachinePrecision] * (-x$45$scale)), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
b_m = \left|b\right|
\\
\begin{array}{l}
t_0 := \cos \left(angle \cdot \left(\pi \cdot 0.011111111111111112\right)\right)\\
t_1 := 0.005555555555555556 \cdot \left(angle \cdot \pi\right)\\
t_2 := \cos t\_1\\
\mathbf{if}\;b\_m \leq 3.8 \cdot 10^{-63}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{y-scale \cdot \sin \left(0.005555555555555556 \cdot \left(angle \cdot \sqrt[3]{\pi \cdot \left(\pi \cdot \pi\right)}\right)\right)}{x-scale \cdot t\_2}\right)}{\pi}\\
\mathbf{elif}\;b\_m \leq 7.2 \cdot 10^{+176}:\\
\;\;\;\;\frac{180}{\sqrt{\pi}} \cdot \frac{\tan^{-1} \left(\frac{\frac{\left(2 \cdot \mathsf{fma}\left(a, a \cdot \mathsf{fma}\left(-0.5, t\_0, 0.5\right), \left(b\_m \cdot b\_m\right) \cdot \mathsf{fma}\left(0.5, t\_0, 0.5\right)\right)\right) \cdot \frac{y-scale \cdot -0.5}{x-scale}}{b\_m + a}}{\left(b\_m - a\right) \cdot \sin \left(\pi \cdot \left(0.005555555555555556 \cdot angle\right)\right)}\right)}{\sqrt{\pi}}\\
\mathbf{else}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{y-scale \cdot t\_2}{\sin t\_1 \cdot \left(-x-scale\right)}\right)}{\pi}\\
\end{array}
\end{array}
if b < 3.80000000000000017e-63Initial program 18.4%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified33.0%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6456.5
Simplified56.5%
add-cbrt-cubeN/A
lower-cbrt.f64N/A
lift-PI.f64N/A
*-commutativeN/A
lower-*.f64N/A
lift-PI.f64N/A
lift-PI.f64N/A
lower-*.f6460.2
Applied egg-rr60.2%
if 3.80000000000000017e-63 < b < 7.19999999999999983e176Initial program 28.7%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified42.2%
Applied egg-rr41.7%
Taylor expanded in angle around 0
Simplified45.9%
Applied egg-rr62.4%
if 7.19999999999999983e176 < b Initial program 0.0%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified0.0%
Taylor expanded in b around inf
mul-1-negN/A
lower-neg.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6480.3
Simplified80.3%
Final simplification62.1%
b_m = (fabs.f64 b)
(FPCore (a b_m angle x-scale y-scale)
:precision binary64
(let* ((t_0 (cos (* angle (* PI 0.011111111111111112))))
(t_1 (* 0.005555555555555556 (* angle PI)))
(t_2 (cos t_1)))
(if (<= b_m 2.7e+18)
(*
180.0
(/
(atan
(/
(*
y-scale
(sin (* 0.005555555555555556 (* angle (cbrt (* PI (* PI PI)))))))
(* x-scale t_2)))
PI))
(if (<= b_m 9.5e+153)
(*
(/ 180.0 (sqrt PI))
(/
(atan
(*
(/
(* y-scale -0.5)
(*
(+ b_m a)
(* (- b_m a) (sin (* PI (* 0.005555555555555556 angle))))))
(/
(*
2.0
(fma
a
(* a (fma -0.5 t_0 0.5))
(* (* b_m b_m) (fma 0.5 t_0 0.5))))
x-scale)))
(sqrt PI)))
(*
180.0
(/ (atan (/ (* y-scale t_2) (* (sin t_1) (- x-scale)))) PI))))))b_m = fabs(b);
double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double t_0 = cos((angle * (((double) M_PI) * 0.011111111111111112)));
double t_1 = 0.005555555555555556 * (angle * ((double) M_PI));
double t_2 = cos(t_1);
double tmp;
if (b_m <= 2.7e+18) {
tmp = 180.0 * (atan(((y_45_scale * sin((0.005555555555555556 * (angle * cbrt((((double) M_PI) * (((double) M_PI) * ((double) M_PI)))))))) / (x_45_scale * t_2))) / ((double) M_PI));
} else if (b_m <= 9.5e+153) {
tmp = (180.0 / sqrt(((double) M_PI))) * (atan((((y_45_scale * -0.5) / ((b_m + a) * ((b_m - a) * sin((((double) M_PI) * (0.005555555555555556 * angle)))))) * ((2.0 * fma(a, (a * fma(-0.5, t_0, 0.5)), ((b_m * b_m) * fma(0.5, t_0, 0.5)))) / x_45_scale))) / sqrt(((double) M_PI)));
} else {
tmp = 180.0 * (atan(((y_45_scale * t_2) / (sin(t_1) * -x_45_scale))) / ((double) M_PI));
}
return tmp;
}
b_m = abs(b) function code(a, b_m, angle, x_45_scale, y_45_scale) t_0 = cos(Float64(angle * Float64(pi * 0.011111111111111112))) t_1 = Float64(0.005555555555555556 * Float64(angle * pi)) t_2 = cos(t_1) tmp = 0.0 if (b_m <= 2.7e+18) tmp = Float64(180.0 * Float64(atan(Float64(Float64(y_45_scale * sin(Float64(0.005555555555555556 * Float64(angle * cbrt(Float64(pi * Float64(pi * pi))))))) / Float64(x_45_scale * t_2))) / pi)); elseif (b_m <= 9.5e+153) tmp = Float64(Float64(180.0 / sqrt(pi)) * Float64(atan(Float64(Float64(Float64(y_45_scale * -0.5) / Float64(Float64(b_m + a) * Float64(Float64(b_m - a) * sin(Float64(pi * Float64(0.005555555555555556 * angle)))))) * Float64(Float64(2.0 * fma(a, Float64(a * fma(-0.5, t_0, 0.5)), Float64(Float64(b_m * b_m) * fma(0.5, t_0, 0.5)))) / x_45_scale))) / sqrt(pi))); else tmp = Float64(180.0 * Float64(atan(Float64(Float64(y_45_scale * t_2) / Float64(sin(t_1) * Float64(-x_45_scale)))) / pi)); end return tmp end
b_m = N[Abs[b], $MachinePrecision]
code[a_, b$95$m_, angle_, x$45$scale_, y$45$scale_] := Block[{t$95$0 = N[Cos[N[(angle * N[(Pi * 0.011111111111111112), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[(0.005555555555555556 * N[(angle * Pi), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[Cos[t$95$1], $MachinePrecision]}, If[LessEqual[b$95$m, 2.7e+18], N[(180.0 * N[(N[ArcTan[N[(N[(y$45$scale * N[Sin[N[(0.005555555555555556 * N[(angle * N[Power[N[(Pi * N[(Pi * Pi), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[(x$45$scale * t$95$2), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], If[LessEqual[b$95$m, 9.5e+153], N[(N[(180.0 / N[Sqrt[Pi], $MachinePrecision]), $MachinePrecision] * N[(N[ArcTan[N[(N[(N[(y$45$scale * -0.5), $MachinePrecision] / N[(N[(b$95$m + a), $MachinePrecision] * N[(N[(b$95$m - a), $MachinePrecision] * N[Sin[N[(Pi * N[(0.005555555555555556 * angle), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[(2.0 * N[(a * N[(a * N[(-0.5 * t$95$0 + 0.5), $MachinePrecision]), $MachinePrecision] + N[(N[(b$95$m * b$95$m), $MachinePrecision] * N[(0.5 * t$95$0 + 0.5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / x$45$scale), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / N[Sqrt[Pi], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(180.0 * N[(N[ArcTan[N[(N[(y$45$scale * t$95$2), $MachinePrecision] / N[(N[Sin[t$95$1], $MachinePrecision] * (-x$45$scale)), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
b_m = \left|b\right|
\\
\begin{array}{l}
t_0 := \cos \left(angle \cdot \left(\pi \cdot 0.011111111111111112\right)\right)\\
t_1 := 0.005555555555555556 \cdot \left(angle \cdot \pi\right)\\
t_2 := \cos t\_1\\
\mathbf{if}\;b\_m \leq 2.7 \cdot 10^{+18}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{y-scale \cdot \sin \left(0.005555555555555556 \cdot \left(angle \cdot \sqrt[3]{\pi \cdot \left(\pi \cdot \pi\right)}\right)\right)}{x-scale \cdot t\_2}\right)}{\pi}\\
\mathbf{elif}\;b\_m \leq 9.5 \cdot 10^{+153}:\\
\;\;\;\;\frac{180}{\sqrt{\pi}} \cdot \frac{\tan^{-1} \left(\frac{y-scale \cdot -0.5}{\left(b\_m + a\right) \cdot \left(\left(b\_m - a\right) \cdot \sin \left(\pi \cdot \left(0.005555555555555556 \cdot angle\right)\right)\right)} \cdot \frac{2 \cdot \mathsf{fma}\left(a, a \cdot \mathsf{fma}\left(-0.5, t\_0, 0.5\right), \left(b\_m \cdot b\_m\right) \cdot \mathsf{fma}\left(0.5, t\_0, 0.5\right)\right)}{x-scale}\right)}{\sqrt{\pi}}\\
\mathbf{else}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{y-scale \cdot t\_2}{\sin t\_1 \cdot \left(-x-scale\right)}\right)}{\pi}\\
\end{array}
\end{array}
if b < 2.7e18Initial program 19.4%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified33.0%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6455.7
Simplified55.7%
add-cbrt-cubeN/A
lower-cbrt.f64N/A
lift-PI.f64N/A
*-commutativeN/A
lower-*.f64N/A
lift-PI.f64N/A
lift-PI.f64N/A
lower-*.f6458.9
Applied egg-rr58.9%
if 2.7e18 < b < 9.4999999999999995e153Initial program 30.9%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified50.3%
Applied egg-rr49.6%
Taylor expanded in angle around 0
Simplified53.9%
Applied egg-rr63.2%
if 9.4999999999999995e153 < b Initial program 0.0%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified0.0%
Taylor expanded in b around inf
mul-1-negN/A
lower-neg.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6476.4
Simplified76.4%
Final simplification60.7%
b_m = (fabs.f64 b)
(FPCore (a b_m angle x-scale y-scale)
:precision binary64
(let* ((t_0 (* 0.005555555555555556 (* angle PI))))
(if (<= b_m 1.7e+24)
(*
180.0
(/
(atan
(/
(*
y-scale
(sin (* 0.005555555555555556 (* angle (cbrt (* PI (* PI PI)))))))
(* x-scale (cos t_0))))
PI))
(*
(/ 180.0 (sqrt PI))
(/
(atan
(/
(* y-scale (fma 0.5 (cos (* (* angle PI) 0.011111111111111112)) 0.5))
(* (sin t_0) (- x-scale))))
(sqrt PI))))))b_m = fabs(b);
double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double t_0 = 0.005555555555555556 * (angle * ((double) M_PI));
double tmp;
if (b_m <= 1.7e+24) {
tmp = 180.0 * (atan(((y_45_scale * sin((0.005555555555555556 * (angle * cbrt((((double) M_PI) * (((double) M_PI) * ((double) M_PI)))))))) / (x_45_scale * cos(t_0)))) / ((double) M_PI));
} else {
tmp = (180.0 / sqrt(((double) M_PI))) * (atan(((y_45_scale * fma(0.5, cos(((angle * ((double) M_PI)) * 0.011111111111111112)), 0.5)) / (sin(t_0) * -x_45_scale))) / sqrt(((double) M_PI)));
}
return tmp;
}
b_m = abs(b) function code(a, b_m, angle, x_45_scale, y_45_scale) t_0 = Float64(0.005555555555555556 * Float64(angle * pi)) tmp = 0.0 if (b_m <= 1.7e+24) tmp = Float64(180.0 * Float64(atan(Float64(Float64(y_45_scale * sin(Float64(0.005555555555555556 * Float64(angle * cbrt(Float64(pi * Float64(pi * pi))))))) / Float64(x_45_scale * cos(t_0)))) / pi)); else tmp = Float64(Float64(180.0 / sqrt(pi)) * Float64(atan(Float64(Float64(y_45_scale * fma(0.5, cos(Float64(Float64(angle * pi) * 0.011111111111111112)), 0.5)) / Float64(sin(t_0) * Float64(-x_45_scale)))) / sqrt(pi))); end return tmp end
b_m = N[Abs[b], $MachinePrecision]
code[a_, b$95$m_, angle_, x$45$scale_, y$45$scale_] := Block[{t$95$0 = N[(0.005555555555555556 * N[(angle * Pi), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b$95$m, 1.7e+24], N[(180.0 * N[(N[ArcTan[N[(N[(y$45$scale * N[Sin[N[(0.005555555555555556 * N[(angle * N[Power[N[(Pi * N[(Pi * Pi), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[(x$45$scale * N[Cos[t$95$0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], N[(N[(180.0 / N[Sqrt[Pi], $MachinePrecision]), $MachinePrecision] * N[(N[ArcTan[N[(N[(y$45$scale * N[(0.5 * N[Cos[N[(N[(angle * Pi), $MachinePrecision] * 0.011111111111111112), $MachinePrecision]], $MachinePrecision] + 0.5), $MachinePrecision]), $MachinePrecision] / N[(N[Sin[t$95$0], $MachinePrecision] * (-x$45$scale)), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / N[Sqrt[Pi], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
b_m = \left|b\right|
\\
\begin{array}{l}
t_0 := 0.005555555555555556 \cdot \left(angle \cdot \pi\right)\\
\mathbf{if}\;b\_m \leq 1.7 \cdot 10^{+24}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{y-scale \cdot \sin \left(0.005555555555555556 \cdot \left(angle \cdot \sqrt[3]{\pi \cdot \left(\pi \cdot \pi\right)}\right)\right)}{x-scale \cdot \cos t\_0}\right)}{\pi}\\
\mathbf{else}:\\
\;\;\;\;\frac{180}{\sqrt{\pi}} \cdot \frac{\tan^{-1} \left(\frac{y-scale \cdot \mathsf{fma}\left(0.5, \cos \left(\left(angle \cdot \pi\right) \cdot 0.011111111111111112\right), 0.5\right)}{\sin t\_0 \cdot \left(-x-scale\right)}\right)}{\sqrt{\pi}}\\
\end{array}
\end{array}
if b < 1.7e24Initial program 19.4%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified33.0%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6455.7
Simplified55.7%
add-cbrt-cubeN/A
lower-cbrt.f64N/A
lift-PI.f64N/A
*-commutativeN/A
lower-*.f64N/A
lift-PI.f64N/A
lift-PI.f64N/A
lower-*.f6458.9
Applied egg-rr58.9%
if 1.7e24 < b Initial program 18.5%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified30.2%
Applied egg-rr29.8%
Taylor expanded in angle around 0
Simplified32.3%
Taylor expanded in a around 0
mul-1-negN/A
lower-neg.f64N/A
lower-/.f64N/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
lower-cos.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
*-commutativeN/A
lower-*.f64N/A
Simplified64.7%
Final simplification60.0%
b_m = (fabs.f64 b)
(FPCore (a b_m angle x-scale y-scale)
:precision binary64
(let* ((t_0 (* 0.005555555555555556 (* angle PI))))
(if (<= a 1.3e-98)
(*
(/ 180.0 (sqrt PI))
(/
(atan
(/
(* y-scale (fma 0.5 (cos (* (* angle PI) 0.011111111111111112)) 0.5))
(* (sin t_0) (- x-scale))))
(sqrt PI)))
(*
180.0
(/
(atan
(/
(*
y-scale
(sin (* 0.005555555555555556 (* angle (* (sqrt PI) (sqrt PI))))))
(* x-scale (cos t_0))))
PI)))))b_m = fabs(b);
double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double t_0 = 0.005555555555555556 * (angle * ((double) M_PI));
double tmp;
if (a <= 1.3e-98) {
tmp = (180.0 / sqrt(((double) M_PI))) * (atan(((y_45_scale * fma(0.5, cos(((angle * ((double) M_PI)) * 0.011111111111111112)), 0.5)) / (sin(t_0) * -x_45_scale))) / sqrt(((double) M_PI)));
} else {
tmp = 180.0 * (atan(((y_45_scale * sin((0.005555555555555556 * (angle * (sqrt(((double) M_PI)) * sqrt(((double) M_PI))))))) / (x_45_scale * cos(t_0)))) / ((double) M_PI));
}
return tmp;
}
b_m = abs(b) function code(a, b_m, angle, x_45_scale, y_45_scale) t_0 = Float64(0.005555555555555556 * Float64(angle * pi)) tmp = 0.0 if (a <= 1.3e-98) tmp = Float64(Float64(180.0 / sqrt(pi)) * Float64(atan(Float64(Float64(y_45_scale * fma(0.5, cos(Float64(Float64(angle * pi) * 0.011111111111111112)), 0.5)) / Float64(sin(t_0) * Float64(-x_45_scale)))) / sqrt(pi))); else tmp = Float64(180.0 * Float64(atan(Float64(Float64(y_45_scale * sin(Float64(0.005555555555555556 * Float64(angle * Float64(sqrt(pi) * sqrt(pi)))))) / Float64(x_45_scale * cos(t_0)))) / pi)); end return tmp end
b_m = N[Abs[b], $MachinePrecision]
code[a_, b$95$m_, angle_, x$45$scale_, y$45$scale_] := Block[{t$95$0 = N[(0.005555555555555556 * N[(angle * Pi), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[a, 1.3e-98], N[(N[(180.0 / N[Sqrt[Pi], $MachinePrecision]), $MachinePrecision] * N[(N[ArcTan[N[(N[(y$45$scale * N[(0.5 * N[Cos[N[(N[(angle * Pi), $MachinePrecision] * 0.011111111111111112), $MachinePrecision]], $MachinePrecision] + 0.5), $MachinePrecision]), $MachinePrecision] / N[(N[Sin[t$95$0], $MachinePrecision] * (-x$45$scale)), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / N[Sqrt[Pi], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(180.0 * N[(N[ArcTan[N[(N[(y$45$scale * N[Sin[N[(0.005555555555555556 * N[(angle * N[(N[Sqrt[Pi], $MachinePrecision] * N[Sqrt[Pi], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[(x$45$scale * N[Cos[t$95$0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
b_m = \left|b\right|
\\
\begin{array}{l}
t_0 := 0.005555555555555556 \cdot \left(angle \cdot \pi\right)\\
\mathbf{if}\;a \leq 1.3 \cdot 10^{-98}:\\
\;\;\;\;\frac{180}{\sqrt{\pi}} \cdot \frac{\tan^{-1} \left(\frac{y-scale \cdot \mathsf{fma}\left(0.5, \cos \left(\left(angle \cdot \pi\right) \cdot 0.011111111111111112\right), 0.5\right)}{\sin t\_0 \cdot \left(-x-scale\right)}\right)}{\sqrt{\pi}}\\
\mathbf{else}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{y-scale \cdot \sin \left(0.005555555555555556 \cdot \left(angle \cdot \left(\sqrt{\pi} \cdot \sqrt{\pi}\right)\right)\right)}{x-scale \cdot \cos t\_0}\right)}{\pi}\\
\end{array}
\end{array}
if a < 1.30000000000000007e-98Initial program 19.5%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified30.1%
Applied egg-rr28.2%
Taylor expanded in angle around 0
Simplified31.2%
Taylor expanded in a around 0
mul-1-negN/A
lower-neg.f64N/A
lower-/.f64N/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
lower-cos.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
*-commutativeN/A
lower-*.f64N/A
Simplified44.5%
if 1.30000000000000007e-98 < a Initial program 18.7%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified37.0%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6458.6
Simplified58.6%
lift-PI.f6458.6
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
lower-*.f6463.2
Applied egg-rr63.2%
Final simplification50.9%
b_m = (fabs.f64 b)
(FPCore (a b_m angle x-scale y-scale)
:precision binary64
(let* ((t_0 (* 0.005555555555555556 (* angle PI))) (t_1 (cos t_0)))
(if (<= a 3.2e-89)
(* 180.0 (/ (atan (/ (* y-scale t_1) (* (sin t_0) (- x-scale)))) PI))
(*
180.0
(/
(atan
(/
(*
y-scale
(sin (* 0.005555555555555556 (* angle (* (sqrt PI) (sqrt PI))))))
(* x-scale t_1)))
PI)))))b_m = fabs(b);
double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double t_0 = 0.005555555555555556 * (angle * ((double) M_PI));
double t_1 = cos(t_0);
double tmp;
if (a <= 3.2e-89) {
tmp = 180.0 * (atan(((y_45_scale * t_1) / (sin(t_0) * -x_45_scale))) / ((double) M_PI));
} else {
tmp = 180.0 * (atan(((y_45_scale * sin((0.005555555555555556 * (angle * (sqrt(((double) M_PI)) * sqrt(((double) M_PI))))))) / (x_45_scale * t_1))) / ((double) M_PI));
}
return tmp;
}
b_m = Math.abs(b);
public static double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double t_0 = 0.005555555555555556 * (angle * Math.PI);
double t_1 = Math.cos(t_0);
double tmp;
if (a <= 3.2e-89) {
tmp = 180.0 * (Math.atan(((y_45_scale * t_1) / (Math.sin(t_0) * -x_45_scale))) / Math.PI);
} else {
tmp = 180.0 * (Math.atan(((y_45_scale * Math.sin((0.005555555555555556 * (angle * (Math.sqrt(Math.PI) * Math.sqrt(Math.PI)))))) / (x_45_scale * t_1))) / Math.PI);
}
return tmp;
}
b_m = math.fabs(b) def code(a, b_m, angle, x_45_scale, y_45_scale): t_0 = 0.005555555555555556 * (angle * math.pi) t_1 = math.cos(t_0) tmp = 0 if a <= 3.2e-89: tmp = 180.0 * (math.atan(((y_45_scale * t_1) / (math.sin(t_0) * -x_45_scale))) / math.pi) else: tmp = 180.0 * (math.atan(((y_45_scale * math.sin((0.005555555555555556 * (angle * (math.sqrt(math.pi) * math.sqrt(math.pi)))))) / (x_45_scale * t_1))) / math.pi) return tmp
b_m = abs(b) function code(a, b_m, angle, x_45_scale, y_45_scale) t_0 = Float64(0.005555555555555556 * Float64(angle * pi)) t_1 = cos(t_0) tmp = 0.0 if (a <= 3.2e-89) tmp = Float64(180.0 * Float64(atan(Float64(Float64(y_45_scale * t_1) / Float64(sin(t_0) * Float64(-x_45_scale)))) / pi)); else tmp = Float64(180.0 * Float64(atan(Float64(Float64(y_45_scale * sin(Float64(0.005555555555555556 * Float64(angle * Float64(sqrt(pi) * sqrt(pi)))))) / Float64(x_45_scale * t_1))) / pi)); end return tmp end
b_m = abs(b); function tmp_2 = code(a, b_m, angle, x_45_scale, y_45_scale) t_0 = 0.005555555555555556 * (angle * pi); t_1 = cos(t_0); tmp = 0.0; if (a <= 3.2e-89) tmp = 180.0 * (atan(((y_45_scale * t_1) / (sin(t_0) * -x_45_scale))) / pi); else tmp = 180.0 * (atan(((y_45_scale * sin((0.005555555555555556 * (angle * (sqrt(pi) * sqrt(pi)))))) / (x_45_scale * t_1))) / pi); end tmp_2 = tmp; end
b_m = N[Abs[b], $MachinePrecision]
code[a_, b$95$m_, angle_, x$45$scale_, y$45$scale_] := Block[{t$95$0 = N[(0.005555555555555556 * N[(angle * Pi), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Cos[t$95$0], $MachinePrecision]}, If[LessEqual[a, 3.2e-89], N[(180.0 * N[(N[ArcTan[N[(N[(y$45$scale * t$95$1), $MachinePrecision] / N[(N[Sin[t$95$0], $MachinePrecision] * (-x$45$scale)), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], N[(180.0 * N[(N[ArcTan[N[(N[(y$45$scale * N[Sin[N[(0.005555555555555556 * N[(angle * N[(N[Sqrt[Pi], $MachinePrecision] * N[Sqrt[Pi], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[(x$45$scale * t$95$1), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
b_m = \left|b\right|
\\
\begin{array}{l}
t_0 := 0.005555555555555556 \cdot \left(angle \cdot \pi\right)\\
t_1 := \cos t\_0\\
\mathbf{if}\;a \leq 3.2 \cdot 10^{-89}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{y-scale \cdot t\_1}{\sin t\_0 \cdot \left(-x-scale\right)}\right)}{\pi}\\
\mathbf{else}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{y-scale \cdot \sin \left(0.005555555555555556 \cdot \left(angle \cdot \left(\sqrt{\pi} \cdot \sqrt{\pi}\right)\right)\right)}{x-scale \cdot t\_1}\right)}{\pi}\\
\end{array}
\end{array}
if a < 3.19999999999999998e-89Initial program 19.6%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified30.6%
Taylor expanded in b around inf
mul-1-negN/A
lower-neg.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6444.2
Simplified44.2%
if 3.19999999999999998e-89 < a Initial program 18.4%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified36.3%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6460.1
Simplified60.1%
lift-PI.f6460.1
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
lower-*.f6463.8
Applied egg-rr63.8%
Final simplification50.6%
b_m = (fabs.f64 b)
(FPCore (a b_m angle x-scale y-scale)
:precision binary64
(let* ((t_0 (* 0.005555555555555556 (* angle PI))) (t_1 (sin t_0)))
(if (<= a 5.5e-89)
(* 180.0 (/ (atan (/ (* y-scale (cos t_0)) (* t_1 (- x-scale)))) PI))
(*
180.0
(/
(atan
(/
(* y-scale t_1)
(*
x-scale
(cos (* (sqrt PI) (* (sqrt PI) (* 0.005555555555555556 angle)))))))
PI)))))b_m = fabs(b);
double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double t_0 = 0.005555555555555556 * (angle * ((double) M_PI));
double t_1 = sin(t_0);
double tmp;
if (a <= 5.5e-89) {
tmp = 180.0 * (atan(((y_45_scale * cos(t_0)) / (t_1 * -x_45_scale))) / ((double) M_PI));
} else {
tmp = 180.0 * (atan(((y_45_scale * t_1) / (x_45_scale * cos((sqrt(((double) M_PI)) * (sqrt(((double) M_PI)) * (0.005555555555555556 * angle))))))) / ((double) M_PI));
}
return tmp;
}
b_m = Math.abs(b);
public static double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double t_0 = 0.005555555555555556 * (angle * Math.PI);
double t_1 = Math.sin(t_0);
double tmp;
if (a <= 5.5e-89) {
tmp = 180.0 * (Math.atan(((y_45_scale * Math.cos(t_0)) / (t_1 * -x_45_scale))) / Math.PI);
} else {
tmp = 180.0 * (Math.atan(((y_45_scale * t_1) / (x_45_scale * Math.cos((Math.sqrt(Math.PI) * (Math.sqrt(Math.PI) * (0.005555555555555556 * angle))))))) / Math.PI);
}
return tmp;
}
b_m = math.fabs(b) def code(a, b_m, angle, x_45_scale, y_45_scale): t_0 = 0.005555555555555556 * (angle * math.pi) t_1 = math.sin(t_0) tmp = 0 if a <= 5.5e-89: tmp = 180.0 * (math.atan(((y_45_scale * math.cos(t_0)) / (t_1 * -x_45_scale))) / math.pi) else: tmp = 180.0 * (math.atan(((y_45_scale * t_1) / (x_45_scale * math.cos((math.sqrt(math.pi) * (math.sqrt(math.pi) * (0.005555555555555556 * angle))))))) / math.pi) return tmp
b_m = abs(b) function code(a, b_m, angle, x_45_scale, y_45_scale) t_0 = Float64(0.005555555555555556 * Float64(angle * pi)) t_1 = sin(t_0) tmp = 0.0 if (a <= 5.5e-89) tmp = Float64(180.0 * Float64(atan(Float64(Float64(y_45_scale * cos(t_0)) / Float64(t_1 * Float64(-x_45_scale)))) / pi)); else tmp = Float64(180.0 * Float64(atan(Float64(Float64(y_45_scale * t_1) / Float64(x_45_scale * cos(Float64(sqrt(pi) * Float64(sqrt(pi) * Float64(0.005555555555555556 * angle))))))) / pi)); end return tmp end
b_m = abs(b); function tmp_2 = code(a, b_m, angle, x_45_scale, y_45_scale) t_0 = 0.005555555555555556 * (angle * pi); t_1 = sin(t_0); tmp = 0.0; if (a <= 5.5e-89) tmp = 180.0 * (atan(((y_45_scale * cos(t_0)) / (t_1 * -x_45_scale))) / pi); else tmp = 180.0 * (atan(((y_45_scale * t_1) / (x_45_scale * cos((sqrt(pi) * (sqrt(pi) * (0.005555555555555556 * angle))))))) / pi); end tmp_2 = tmp; end
b_m = N[Abs[b], $MachinePrecision]
code[a_, b$95$m_, angle_, x$45$scale_, y$45$scale_] := Block[{t$95$0 = N[(0.005555555555555556 * N[(angle * Pi), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Sin[t$95$0], $MachinePrecision]}, If[LessEqual[a, 5.5e-89], N[(180.0 * N[(N[ArcTan[N[(N[(y$45$scale * N[Cos[t$95$0], $MachinePrecision]), $MachinePrecision] / N[(t$95$1 * (-x$45$scale)), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], N[(180.0 * N[(N[ArcTan[N[(N[(y$45$scale * t$95$1), $MachinePrecision] / N[(x$45$scale * N[Cos[N[(N[Sqrt[Pi], $MachinePrecision] * N[(N[Sqrt[Pi], $MachinePrecision] * N[(0.005555555555555556 * angle), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
b_m = \left|b\right|
\\
\begin{array}{l}
t_0 := 0.005555555555555556 \cdot \left(angle \cdot \pi\right)\\
t_1 := \sin t\_0\\
\mathbf{if}\;a \leq 5.5 \cdot 10^{-89}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{y-scale \cdot \cos t\_0}{t\_1 \cdot \left(-x-scale\right)}\right)}{\pi}\\
\mathbf{else}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{y-scale \cdot t\_1}{x-scale \cdot \cos \left(\sqrt{\pi} \cdot \left(\sqrt{\pi} \cdot \left(0.005555555555555556 \cdot angle\right)\right)\right)}\right)}{\pi}\\
\end{array}
\end{array}
if a < 5.50000000000000012e-89Initial program 19.6%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified30.6%
Taylor expanded in b around inf
mul-1-negN/A
lower-neg.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6444.2
Simplified44.2%
if 5.50000000000000012e-89 < a Initial program 18.4%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified36.3%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6460.1
Simplified60.1%
lift-PI.f64N/A
associate-*r*N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f6463.7
Applied egg-rr63.7%
Final simplification50.6%
b_m = (fabs.f64 b)
(FPCore (a b_m angle x-scale y-scale)
:precision binary64
(let* ((t_0 (* 0.005555555555555556 (* angle PI))))
(if (<= a 5.5e-89)
(*
180.0
(/ (atan (/ (* y-scale (cos t_0)) (* (sin t_0) (- x-scale)))) PI))
(* (atan (* (/ y-scale x-scale) (tan t_0))) (* 180.0 (/ 1.0 PI))))))b_m = fabs(b);
double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double t_0 = 0.005555555555555556 * (angle * ((double) M_PI));
double tmp;
if (a <= 5.5e-89) {
tmp = 180.0 * (atan(((y_45_scale * cos(t_0)) / (sin(t_0) * -x_45_scale))) / ((double) M_PI));
} else {
tmp = atan(((y_45_scale / x_45_scale) * tan(t_0))) * (180.0 * (1.0 / ((double) M_PI)));
}
return tmp;
}
b_m = Math.abs(b);
public static double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double t_0 = 0.005555555555555556 * (angle * Math.PI);
double tmp;
if (a <= 5.5e-89) {
tmp = 180.0 * (Math.atan(((y_45_scale * Math.cos(t_0)) / (Math.sin(t_0) * -x_45_scale))) / Math.PI);
} else {
tmp = Math.atan(((y_45_scale / x_45_scale) * Math.tan(t_0))) * (180.0 * (1.0 / Math.PI));
}
return tmp;
}
b_m = math.fabs(b) def code(a, b_m, angle, x_45_scale, y_45_scale): t_0 = 0.005555555555555556 * (angle * math.pi) tmp = 0 if a <= 5.5e-89: tmp = 180.0 * (math.atan(((y_45_scale * math.cos(t_0)) / (math.sin(t_0) * -x_45_scale))) / math.pi) else: tmp = math.atan(((y_45_scale / x_45_scale) * math.tan(t_0))) * (180.0 * (1.0 / math.pi)) return tmp
b_m = abs(b) function code(a, b_m, angle, x_45_scale, y_45_scale) t_0 = Float64(0.005555555555555556 * Float64(angle * pi)) tmp = 0.0 if (a <= 5.5e-89) tmp = Float64(180.0 * Float64(atan(Float64(Float64(y_45_scale * cos(t_0)) / Float64(sin(t_0) * Float64(-x_45_scale)))) / pi)); else tmp = Float64(atan(Float64(Float64(y_45_scale / x_45_scale) * tan(t_0))) * Float64(180.0 * Float64(1.0 / pi))); end return tmp end
b_m = abs(b); function tmp_2 = code(a, b_m, angle, x_45_scale, y_45_scale) t_0 = 0.005555555555555556 * (angle * pi); tmp = 0.0; if (a <= 5.5e-89) tmp = 180.0 * (atan(((y_45_scale * cos(t_0)) / (sin(t_0) * -x_45_scale))) / pi); else tmp = atan(((y_45_scale / x_45_scale) * tan(t_0))) * (180.0 * (1.0 / pi)); end tmp_2 = tmp; end
b_m = N[Abs[b], $MachinePrecision]
code[a_, b$95$m_, angle_, x$45$scale_, y$45$scale_] := Block[{t$95$0 = N[(0.005555555555555556 * N[(angle * Pi), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[a, 5.5e-89], N[(180.0 * N[(N[ArcTan[N[(N[(y$45$scale * N[Cos[t$95$0], $MachinePrecision]), $MachinePrecision] / N[(N[Sin[t$95$0], $MachinePrecision] * (-x$45$scale)), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], N[(N[ArcTan[N[(N[(y$45$scale / x$45$scale), $MachinePrecision] * N[Tan[t$95$0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[(180.0 * N[(1.0 / Pi), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
b_m = \left|b\right|
\\
\begin{array}{l}
t_0 := 0.005555555555555556 \cdot \left(angle \cdot \pi\right)\\
\mathbf{if}\;a \leq 5.5 \cdot 10^{-89}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{y-scale \cdot \cos t\_0}{\sin t\_0 \cdot \left(-x-scale\right)}\right)}{\pi}\\
\mathbf{else}:\\
\;\;\;\;\tan^{-1} \left(\frac{y-scale}{x-scale} \cdot \tan t\_0\right) \cdot \left(180 \cdot \frac{1}{\pi}\right)\\
\end{array}
\end{array}
if a < 5.50000000000000012e-89Initial program 19.6%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified30.6%
Taylor expanded in b around inf
mul-1-negN/A
lower-neg.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6444.2
Simplified44.2%
if 5.50000000000000012e-89 < a Initial program 18.4%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified36.3%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6460.1
Simplified60.1%
Applied egg-rr61.1%
Final simplification49.8%
b_m = (fabs.f64 b)
(FPCore (a b_m angle x-scale y-scale)
:precision binary64
(let* ((t_0 (* 0.005555555555555556 (* angle PI))))
(if (<= b_m 2.8e+18)
(* (atan (* (/ y-scale x-scale) (tan t_0))) (* 180.0 (/ 1.0 PI)))
(if (<= b_m 4.1e+132)
(*
(/ 180.0 (sqrt PI))
(/
(atan
(/
(* y-scale (* b_m b_m))
(* x-scale (* (sin t_0) (* (+ b_m a) (- a b_m))))))
(sqrt PI)))
(if (<= b_m 5.4e+178)
(*
180.0
(/
(atan
(/
(* y-scale (tan (* PI (* 0.005555555555555556 angle))))
x-scale))
PI))
(*
180.0
(/
(atan
(fma
-180.0
(/ y-scale (* angle (* PI x-scale)))
(/
(* 180.0 (* y-scale (- a a)))
(* angle (* b_m (* PI x-scale))))))
PI)))))))b_m = fabs(b);
double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double t_0 = 0.005555555555555556 * (angle * ((double) M_PI));
double tmp;
if (b_m <= 2.8e+18) {
tmp = atan(((y_45_scale / x_45_scale) * tan(t_0))) * (180.0 * (1.0 / ((double) M_PI)));
} else if (b_m <= 4.1e+132) {
tmp = (180.0 / sqrt(((double) M_PI))) * (atan(((y_45_scale * (b_m * b_m)) / (x_45_scale * (sin(t_0) * ((b_m + a) * (a - b_m)))))) / sqrt(((double) M_PI)));
} else if (b_m <= 5.4e+178) {
tmp = 180.0 * (atan(((y_45_scale * tan((((double) M_PI) * (0.005555555555555556 * angle)))) / x_45_scale)) / ((double) M_PI));
} else {
tmp = 180.0 * (atan(fma(-180.0, (y_45_scale / (angle * (((double) M_PI) * x_45_scale))), ((180.0 * (y_45_scale * (a - a))) / (angle * (b_m * (((double) M_PI) * x_45_scale)))))) / ((double) M_PI));
}
return tmp;
}
b_m = abs(b) function code(a, b_m, angle, x_45_scale, y_45_scale) t_0 = Float64(0.005555555555555556 * Float64(angle * pi)) tmp = 0.0 if (b_m <= 2.8e+18) tmp = Float64(atan(Float64(Float64(y_45_scale / x_45_scale) * tan(t_0))) * Float64(180.0 * Float64(1.0 / pi))); elseif (b_m <= 4.1e+132) tmp = Float64(Float64(180.0 / sqrt(pi)) * Float64(atan(Float64(Float64(y_45_scale * Float64(b_m * b_m)) / Float64(x_45_scale * Float64(sin(t_0) * Float64(Float64(b_m + a) * Float64(a - b_m)))))) / sqrt(pi))); elseif (b_m <= 5.4e+178) tmp = Float64(180.0 * Float64(atan(Float64(Float64(y_45_scale * tan(Float64(pi * Float64(0.005555555555555556 * angle)))) / x_45_scale)) / pi)); else tmp = Float64(180.0 * Float64(atan(fma(-180.0, Float64(y_45_scale / Float64(angle * Float64(pi * x_45_scale))), Float64(Float64(180.0 * Float64(y_45_scale * Float64(a - a))) / Float64(angle * Float64(b_m * Float64(pi * x_45_scale)))))) / pi)); end return tmp end
b_m = N[Abs[b], $MachinePrecision]
code[a_, b$95$m_, angle_, x$45$scale_, y$45$scale_] := Block[{t$95$0 = N[(0.005555555555555556 * N[(angle * Pi), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b$95$m, 2.8e+18], N[(N[ArcTan[N[(N[(y$45$scale / x$45$scale), $MachinePrecision] * N[Tan[t$95$0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[(180.0 * N[(1.0 / Pi), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b$95$m, 4.1e+132], N[(N[(180.0 / N[Sqrt[Pi], $MachinePrecision]), $MachinePrecision] * N[(N[ArcTan[N[(N[(y$45$scale * N[(b$95$m * b$95$m), $MachinePrecision]), $MachinePrecision] / N[(x$45$scale * N[(N[Sin[t$95$0], $MachinePrecision] * N[(N[(b$95$m + a), $MachinePrecision] * N[(a - b$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / N[Sqrt[Pi], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b$95$m, 5.4e+178], N[(180.0 * N[(N[ArcTan[N[(N[(y$45$scale * N[Tan[N[(Pi * N[(0.005555555555555556 * angle), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / x$45$scale), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], N[(180.0 * N[(N[ArcTan[N[(-180.0 * N[(y$45$scale / N[(angle * N[(Pi * x$45$scale), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(180.0 * N[(y$45$scale * N[(a - a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(angle * N[(b$95$m * N[(Pi * x$45$scale), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
b_m = \left|b\right|
\\
\begin{array}{l}
t_0 := 0.005555555555555556 \cdot \left(angle \cdot \pi\right)\\
\mathbf{if}\;b\_m \leq 2.8 \cdot 10^{+18}:\\
\;\;\;\;\tan^{-1} \left(\frac{y-scale}{x-scale} \cdot \tan t\_0\right) \cdot \left(180 \cdot \frac{1}{\pi}\right)\\
\mathbf{elif}\;b\_m \leq 4.1 \cdot 10^{+132}:\\
\;\;\;\;\frac{180}{\sqrt{\pi}} \cdot \frac{\tan^{-1} \left(\frac{y-scale \cdot \left(b\_m \cdot b\_m\right)}{x-scale \cdot \left(\sin t\_0 \cdot \left(\left(b\_m + a\right) \cdot \left(a - b\_m\right)\right)\right)}\right)}{\sqrt{\pi}}\\
\mathbf{elif}\;b\_m \leq 5.4 \cdot 10^{+178}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{y-scale \cdot \tan \left(\pi \cdot \left(0.005555555555555556 \cdot angle\right)\right)}{x-scale}\right)}{\pi}\\
\mathbf{else}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\mathsf{fma}\left(-180, \frac{y-scale}{angle \cdot \left(\pi \cdot x-scale\right)}, \frac{180 \cdot \left(y-scale \cdot \left(a - a\right)\right)}{angle \cdot \left(b\_m \cdot \left(\pi \cdot x-scale\right)\right)}\right)\right)}{\pi}\\
\end{array}
\end{array}
if b < 2.8e18Initial program 19.4%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified33.0%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6455.7
Simplified55.7%
Applied egg-rr57.5%
if 2.8e18 < b < 4.09999999999999992e132Initial program 36.9%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified56.2%
Applied egg-rr55.5%
Taylor expanded in angle around 0
Simplified60.6%
Taylor expanded in angle around 0
mul-1-negN/A
lower-neg.f64N/A
*-commutativeN/A
lower-*.f64N/A
unpow2N/A
lower-*.f6468.8
Simplified68.8%
if 4.09999999999999992e132 < b < 5.40000000000000036e178Initial program 0.7%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified14.7%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6465.3
Simplified65.3%
add-cbrt-cubeN/A
lower-cbrt.f64N/A
lift-PI.f64N/A
*-commutativeN/A
lower-*.f64N/A
lift-PI.f64N/A
lift-PI.f64N/A
lower-*.f6462.5
Applied egg-rr62.5%
Applied egg-rr65.3%
if 5.40000000000000036e178 < b Initial program 0.0%
Taylor expanded in angle around 0
associate-*r/N/A
lower-/.f64N/A
Simplified0.0%
Taylor expanded in b around inf
lower-fma.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
mul-1-negN/A
lower-neg.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6483.4
Simplified83.4%
Final simplification60.6%
b_m = (fabs.f64 b)
(FPCore (a b_m angle x-scale y-scale)
:precision binary64
(if (<= b_m 5.6e-185)
(*
180.0
(/
(atan (/ (* 0.005555555555555556 angle) (/ x-scale (* y-scale PI))))
PI))
(if (<= b_m 1.05e+30)
(*
180.0
(/
(atan
(* y-scale (/ (tan (* 0.005555555555555556 (* angle PI))) x-scale)))
PI))
(if (<= b_m 4.1e+132)
(*
180.0
(/
(atan
(/
(/ (* (* y-scale (* b_m b_m)) -180.0) x-scale)
(* (* angle PI) (* (+ b_m a) (- b_m a)))))
PI))
(if (<= b_m 5.4e+178)
(*
180.0
(/
(atan
(/
(* y-scale (tan (* PI (* 0.005555555555555556 angle))))
x-scale))
PI))
(*
180.0
(/
(atan
(fma
-180.0
(/ y-scale (* angle (* PI x-scale)))
(/
(* 180.0 (* y-scale (- a a)))
(* angle (* b_m (* PI x-scale))))))
PI)))))))b_m = fabs(b);
double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double tmp;
if (b_m <= 5.6e-185) {
tmp = 180.0 * (atan(((0.005555555555555556 * angle) / (x_45_scale / (y_45_scale * ((double) M_PI))))) / ((double) M_PI));
} else if (b_m <= 1.05e+30) {
tmp = 180.0 * (atan((y_45_scale * (tan((0.005555555555555556 * (angle * ((double) M_PI)))) / x_45_scale))) / ((double) M_PI));
} else if (b_m <= 4.1e+132) {
tmp = 180.0 * (atan(((((y_45_scale * (b_m * b_m)) * -180.0) / x_45_scale) / ((angle * ((double) M_PI)) * ((b_m + a) * (b_m - a))))) / ((double) M_PI));
} else if (b_m <= 5.4e+178) {
tmp = 180.0 * (atan(((y_45_scale * tan((((double) M_PI) * (0.005555555555555556 * angle)))) / x_45_scale)) / ((double) M_PI));
} else {
tmp = 180.0 * (atan(fma(-180.0, (y_45_scale / (angle * (((double) M_PI) * x_45_scale))), ((180.0 * (y_45_scale * (a - a))) / (angle * (b_m * (((double) M_PI) * x_45_scale)))))) / ((double) M_PI));
}
return tmp;
}
b_m = abs(b) function code(a, b_m, angle, x_45_scale, y_45_scale) tmp = 0.0 if (b_m <= 5.6e-185) tmp = Float64(180.0 * Float64(atan(Float64(Float64(0.005555555555555556 * angle) / Float64(x_45_scale / Float64(y_45_scale * pi)))) / pi)); elseif (b_m <= 1.05e+30) tmp = Float64(180.0 * Float64(atan(Float64(y_45_scale * Float64(tan(Float64(0.005555555555555556 * Float64(angle * pi))) / x_45_scale))) / pi)); elseif (b_m <= 4.1e+132) tmp = Float64(180.0 * Float64(atan(Float64(Float64(Float64(Float64(y_45_scale * Float64(b_m * b_m)) * -180.0) / x_45_scale) / Float64(Float64(angle * pi) * Float64(Float64(b_m + a) * Float64(b_m - a))))) / pi)); elseif (b_m <= 5.4e+178) tmp = Float64(180.0 * Float64(atan(Float64(Float64(y_45_scale * tan(Float64(pi * Float64(0.005555555555555556 * angle)))) / x_45_scale)) / pi)); else tmp = Float64(180.0 * Float64(atan(fma(-180.0, Float64(y_45_scale / Float64(angle * Float64(pi * x_45_scale))), Float64(Float64(180.0 * Float64(y_45_scale * Float64(a - a))) / Float64(angle * Float64(b_m * Float64(pi * x_45_scale)))))) / pi)); end return tmp end
b_m = N[Abs[b], $MachinePrecision] code[a_, b$95$m_, angle_, x$45$scale_, y$45$scale_] := If[LessEqual[b$95$m, 5.6e-185], N[(180.0 * N[(N[ArcTan[N[(N[(0.005555555555555556 * angle), $MachinePrecision] / N[(x$45$scale / N[(y$45$scale * Pi), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], If[LessEqual[b$95$m, 1.05e+30], N[(180.0 * N[(N[ArcTan[N[(y$45$scale * N[(N[Tan[N[(0.005555555555555556 * N[(angle * Pi), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / x$45$scale), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], If[LessEqual[b$95$m, 4.1e+132], N[(180.0 * N[(N[ArcTan[N[(N[(N[(N[(y$45$scale * N[(b$95$m * b$95$m), $MachinePrecision]), $MachinePrecision] * -180.0), $MachinePrecision] / x$45$scale), $MachinePrecision] / N[(N[(angle * Pi), $MachinePrecision] * N[(N[(b$95$m + a), $MachinePrecision] * N[(b$95$m - a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], If[LessEqual[b$95$m, 5.4e+178], N[(180.0 * N[(N[ArcTan[N[(N[(y$45$scale * N[Tan[N[(Pi * N[(0.005555555555555556 * angle), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / x$45$scale), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], N[(180.0 * N[(N[ArcTan[N[(-180.0 * N[(y$45$scale / N[(angle * N[(Pi * x$45$scale), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(180.0 * N[(y$45$scale * N[(a - a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(angle * N[(b$95$m * N[(Pi * x$45$scale), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
b_m = \left|b\right|
\\
\begin{array}{l}
\mathbf{if}\;b\_m \leq 5.6 \cdot 10^{-185}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{0.005555555555555556 \cdot angle}{\frac{x-scale}{y-scale \cdot \pi}}\right)}{\pi}\\
\mathbf{elif}\;b\_m \leq 1.05 \cdot 10^{+30}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(y-scale \cdot \frac{\tan \left(0.005555555555555556 \cdot \left(angle \cdot \pi\right)\right)}{x-scale}\right)}{\pi}\\
\mathbf{elif}\;b\_m \leq 4.1 \cdot 10^{+132}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{\frac{\left(y-scale \cdot \left(b\_m \cdot b\_m\right)\right) \cdot -180}{x-scale}}{\left(angle \cdot \pi\right) \cdot \left(\left(b\_m + a\right) \cdot \left(b\_m - a\right)\right)}\right)}{\pi}\\
\mathbf{elif}\;b\_m \leq 5.4 \cdot 10^{+178}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{y-scale \cdot \tan \left(\pi \cdot \left(0.005555555555555556 \cdot angle\right)\right)}{x-scale}\right)}{\pi}\\
\mathbf{else}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\mathsf{fma}\left(-180, \frac{y-scale}{angle \cdot \left(\pi \cdot x-scale\right)}, \frac{180 \cdot \left(y-scale \cdot \left(a - a\right)\right)}{angle \cdot \left(b\_m \cdot \left(\pi \cdot x-scale\right)\right)}\right)\right)}{\pi}\\
\end{array}
\end{array}
if b < 5.59999999999999983e-185Initial program 18.5%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified32.8%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6455.9
Simplified55.9%
Taylor expanded in angle around 0
lower-*.f64N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lower-PI.f6455.4
Simplified55.4%
lift-PI.f64N/A
lift-*.f64N/A
lift-/.f64N/A
associate-*r*N/A
lift-/.f64N/A
clear-numN/A
un-div-invN/A
lower-/.f64N/A
lower-*.f64N/A
lower-/.f6456.3
lift-*.f64N/A
*-commutativeN/A
lower-*.f6456.3
Applied egg-rr56.3%
if 5.59999999999999983e-185 < b < 1.05e30Initial program 21.2%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified33.9%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6453.1
Simplified53.1%
lift-PI.f64N/A
lift-*.f64N/A
lift-*.f64N/A
lift-sin.f64N/A
lift-PI.f64N/A
lift-*.f64N/A
lift-*.f64N/A
lift-cos.f64N/A
lift-*.f64N/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
Applied egg-rr54.8%
if 1.05e30 < b < 4.09999999999999992e132Initial program 41.5%
Taylor expanded in angle around 0
associate-*r/N/A
lower-/.f64N/A
Simplified36.3%
Taylor expanded in y-scale around inf
lower-*.f64N/A
lower-fma.f64N/A
lower-/.f64N/A
unpow2N/A
lower-*.f64N/A
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6454.6
Simplified54.6%
Taylor expanded in y-scale around inf
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
unpow2N/A
lower-*.f6468.7
Simplified68.7%
if 4.09999999999999992e132 < b < 5.40000000000000036e178Initial program 0.7%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified14.7%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6465.3
Simplified65.3%
add-cbrt-cubeN/A
lower-cbrt.f64N/A
lift-PI.f64N/A
*-commutativeN/A
lower-*.f64N/A
lift-PI.f64N/A
lift-PI.f64N/A
lower-*.f6462.5
Applied egg-rr62.5%
Applied egg-rr65.3%
if 5.40000000000000036e178 < b Initial program 0.0%
Taylor expanded in angle around 0
associate-*r/N/A
lower-/.f64N/A
Simplified0.0%
Taylor expanded in b around inf
lower-fma.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
mul-1-negN/A
lower-neg.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6483.4
Simplified83.4%
Final simplification59.2%
b_m = (fabs.f64 b)
(FPCore (a b_m angle x-scale y-scale)
:precision binary64
(if (<= b_m 1.05e+30)
(*
(atan (* (/ y-scale x-scale) (tan (* 0.005555555555555556 (* angle PI)))))
(* 180.0 (/ 1.0 PI)))
(if (<= b_m 4.1e+132)
(*
180.0
(/
(atan
(/
(/ (* (* y-scale (* b_m b_m)) -180.0) x-scale)
(* (* angle PI) (* (+ b_m a) (- b_m a)))))
PI))
(if (<= b_m 5.4e+178)
(*
180.0
(/
(atan
(/ (* y-scale (tan (* PI (* 0.005555555555555556 angle)))) x-scale))
PI))
(*
180.0
(/
(atan
(fma
-180.0
(/ y-scale (* angle (* PI x-scale)))
(/ (* 180.0 (* y-scale (- a a))) (* angle (* b_m (* PI x-scale))))))
PI))))))b_m = fabs(b);
double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double tmp;
if (b_m <= 1.05e+30) {
tmp = atan(((y_45_scale / x_45_scale) * tan((0.005555555555555556 * (angle * ((double) M_PI)))))) * (180.0 * (1.0 / ((double) M_PI)));
} else if (b_m <= 4.1e+132) {
tmp = 180.0 * (atan(((((y_45_scale * (b_m * b_m)) * -180.0) / x_45_scale) / ((angle * ((double) M_PI)) * ((b_m + a) * (b_m - a))))) / ((double) M_PI));
} else if (b_m <= 5.4e+178) {
tmp = 180.0 * (atan(((y_45_scale * tan((((double) M_PI) * (0.005555555555555556 * angle)))) / x_45_scale)) / ((double) M_PI));
} else {
tmp = 180.0 * (atan(fma(-180.0, (y_45_scale / (angle * (((double) M_PI) * x_45_scale))), ((180.0 * (y_45_scale * (a - a))) / (angle * (b_m * (((double) M_PI) * x_45_scale)))))) / ((double) M_PI));
}
return tmp;
}
b_m = abs(b) function code(a, b_m, angle, x_45_scale, y_45_scale) tmp = 0.0 if (b_m <= 1.05e+30) tmp = Float64(atan(Float64(Float64(y_45_scale / x_45_scale) * tan(Float64(0.005555555555555556 * Float64(angle * pi))))) * Float64(180.0 * Float64(1.0 / pi))); elseif (b_m <= 4.1e+132) tmp = Float64(180.0 * Float64(atan(Float64(Float64(Float64(Float64(y_45_scale * Float64(b_m * b_m)) * -180.0) / x_45_scale) / Float64(Float64(angle * pi) * Float64(Float64(b_m + a) * Float64(b_m - a))))) / pi)); elseif (b_m <= 5.4e+178) tmp = Float64(180.0 * Float64(atan(Float64(Float64(y_45_scale * tan(Float64(pi * Float64(0.005555555555555556 * angle)))) / x_45_scale)) / pi)); else tmp = Float64(180.0 * Float64(atan(fma(-180.0, Float64(y_45_scale / Float64(angle * Float64(pi * x_45_scale))), Float64(Float64(180.0 * Float64(y_45_scale * Float64(a - a))) / Float64(angle * Float64(b_m * Float64(pi * x_45_scale)))))) / pi)); end return tmp end
b_m = N[Abs[b], $MachinePrecision] code[a_, b$95$m_, angle_, x$45$scale_, y$45$scale_] := If[LessEqual[b$95$m, 1.05e+30], N[(N[ArcTan[N[(N[(y$45$scale / x$45$scale), $MachinePrecision] * N[Tan[N[(0.005555555555555556 * N[(angle * Pi), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[(180.0 * N[(1.0 / Pi), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b$95$m, 4.1e+132], N[(180.0 * N[(N[ArcTan[N[(N[(N[(N[(y$45$scale * N[(b$95$m * b$95$m), $MachinePrecision]), $MachinePrecision] * -180.0), $MachinePrecision] / x$45$scale), $MachinePrecision] / N[(N[(angle * Pi), $MachinePrecision] * N[(N[(b$95$m + a), $MachinePrecision] * N[(b$95$m - a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], If[LessEqual[b$95$m, 5.4e+178], N[(180.0 * N[(N[ArcTan[N[(N[(y$45$scale * N[Tan[N[(Pi * N[(0.005555555555555556 * angle), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / x$45$scale), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], N[(180.0 * N[(N[ArcTan[N[(-180.0 * N[(y$45$scale / N[(angle * N[(Pi * x$45$scale), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(180.0 * N[(y$45$scale * N[(a - a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(angle * N[(b$95$m * N[(Pi * x$45$scale), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
b_m = \left|b\right|
\\
\begin{array}{l}
\mathbf{if}\;b\_m \leq 1.05 \cdot 10^{+30}:\\
\;\;\;\;\tan^{-1} \left(\frac{y-scale}{x-scale} \cdot \tan \left(0.005555555555555556 \cdot \left(angle \cdot \pi\right)\right)\right) \cdot \left(180 \cdot \frac{1}{\pi}\right)\\
\mathbf{elif}\;b\_m \leq 4.1 \cdot 10^{+132}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{\frac{\left(y-scale \cdot \left(b\_m \cdot b\_m\right)\right) \cdot -180}{x-scale}}{\left(angle \cdot \pi\right) \cdot \left(\left(b\_m + a\right) \cdot \left(b\_m - a\right)\right)}\right)}{\pi}\\
\mathbf{elif}\;b\_m \leq 5.4 \cdot 10^{+178}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{y-scale \cdot \tan \left(\pi \cdot \left(0.005555555555555556 \cdot angle\right)\right)}{x-scale}\right)}{\pi}\\
\mathbf{else}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\mathsf{fma}\left(-180, \frac{y-scale}{angle \cdot \left(\pi \cdot x-scale\right)}, \frac{180 \cdot \left(y-scale \cdot \left(a - a\right)\right)}{angle \cdot \left(b\_m \cdot \left(\pi \cdot x-scale\right)\right)}\right)\right)}{\pi}\\
\end{array}
\end{array}
if b < 1.05e30Initial program 19.2%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified33.1%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6455.2
Simplified55.2%
Applied egg-rr57.3%
if 1.05e30 < b < 4.09999999999999992e132Initial program 41.5%
Taylor expanded in angle around 0
associate-*r/N/A
lower-/.f64N/A
Simplified36.3%
Taylor expanded in y-scale around inf
lower-*.f64N/A
lower-fma.f64N/A
lower-/.f64N/A
unpow2N/A
lower-*.f64N/A
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6454.6
Simplified54.6%
Taylor expanded in y-scale around inf
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
unpow2N/A
lower-*.f6468.7
Simplified68.7%
if 4.09999999999999992e132 < b < 5.40000000000000036e178Initial program 0.7%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified14.7%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6465.3
Simplified65.3%
add-cbrt-cubeN/A
lower-cbrt.f64N/A
lift-PI.f64N/A
*-commutativeN/A
lower-*.f64N/A
lift-PI.f64N/A
lift-PI.f64N/A
lower-*.f6462.5
Applied egg-rr62.5%
Applied egg-rr65.3%
if 5.40000000000000036e178 < b Initial program 0.0%
Taylor expanded in angle around 0
associate-*r/N/A
lower-/.f64N/A
Simplified0.0%
Taylor expanded in b around inf
lower-fma.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
mul-1-negN/A
lower-neg.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6483.4
Simplified83.4%
Final simplification60.3%
b_m = (fabs.f64 b)
(FPCore (a b_m angle x-scale y-scale)
:precision binary64
(if (<= b_m 1.05e+30)
(/
(*
180.0
(atan
(* (/ y-scale x-scale) (tan (* 0.005555555555555556 (* angle PI))))))
PI)
(if (<= b_m 4.1e+132)
(*
180.0
(/
(atan
(/
(/ (* (* y-scale (* b_m b_m)) -180.0) x-scale)
(* (* angle PI) (* (+ b_m a) (- b_m a)))))
PI))
(if (<= b_m 5.4e+178)
(*
180.0
(/
(atan
(/ (* y-scale (tan (* PI (* 0.005555555555555556 angle)))) x-scale))
PI))
(*
180.0
(/
(atan
(fma
-180.0
(/ y-scale (* angle (* PI x-scale)))
(/ (* 180.0 (* y-scale (- a a))) (* angle (* b_m (* PI x-scale))))))
PI))))))b_m = fabs(b);
double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double tmp;
if (b_m <= 1.05e+30) {
tmp = (180.0 * atan(((y_45_scale / x_45_scale) * tan((0.005555555555555556 * (angle * ((double) M_PI))))))) / ((double) M_PI);
} else if (b_m <= 4.1e+132) {
tmp = 180.0 * (atan(((((y_45_scale * (b_m * b_m)) * -180.0) / x_45_scale) / ((angle * ((double) M_PI)) * ((b_m + a) * (b_m - a))))) / ((double) M_PI));
} else if (b_m <= 5.4e+178) {
tmp = 180.0 * (atan(((y_45_scale * tan((((double) M_PI) * (0.005555555555555556 * angle)))) / x_45_scale)) / ((double) M_PI));
} else {
tmp = 180.0 * (atan(fma(-180.0, (y_45_scale / (angle * (((double) M_PI) * x_45_scale))), ((180.0 * (y_45_scale * (a - a))) / (angle * (b_m * (((double) M_PI) * x_45_scale)))))) / ((double) M_PI));
}
return tmp;
}
b_m = abs(b) function code(a, b_m, angle, x_45_scale, y_45_scale) tmp = 0.0 if (b_m <= 1.05e+30) tmp = Float64(Float64(180.0 * atan(Float64(Float64(y_45_scale / x_45_scale) * tan(Float64(0.005555555555555556 * Float64(angle * pi)))))) / pi); elseif (b_m <= 4.1e+132) tmp = Float64(180.0 * Float64(atan(Float64(Float64(Float64(Float64(y_45_scale * Float64(b_m * b_m)) * -180.0) / x_45_scale) / Float64(Float64(angle * pi) * Float64(Float64(b_m + a) * Float64(b_m - a))))) / pi)); elseif (b_m <= 5.4e+178) tmp = Float64(180.0 * Float64(atan(Float64(Float64(y_45_scale * tan(Float64(pi * Float64(0.005555555555555556 * angle)))) / x_45_scale)) / pi)); else tmp = Float64(180.0 * Float64(atan(fma(-180.0, Float64(y_45_scale / Float64(angle * Float64(pi * x_45_scale))), Float64(Float64(180.0 * Float64(y_45_scale * Float64(a - a))) / Float64(angle * Float64(b_m * Float64(pi * x_45_scale)))))) / pi)); end return tmp end
b_m = N[Abs[b], $MachinePrecision] code[a_, b$95$m_, angle_, x$45$scale_, y$45$scale_] := If[LessEqual[b$95$m, 1.05e+30], N[(N[(180.0 * N[ArcTan[N[(N[(y$45$scale / x$45$scale), $MachinePrecision] * N[Tan[N[(0.005555555555555556 * N[(angle * Pi), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / Pi), $MachinePrecision], If[LessEqual[b$95$m, 4.1e+132], N[(180.0 * N[(N[ArcTan[N[(N[(N[(N[(y$45$scale * N[(b$95$m * b$95$m), $MachinePrecision]), $MachinePrecision] * -180.0), $MachinePrecision] / x$45$scale), $MachinePrecision] / N[(N[(angle * Pi), $MachinePrecision] * N[(N[(b$95$m + a), $MachinePrecision] * N[(b$95$m - a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], If[LessEqual[b$95$m, 5.4e+178], N[(180.0 * N[(N[ArcTan[N[(N[(y$45$scale * N[Tan[N[(Pi * N[(0.005555555555555556 * angle), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / x$45$scale), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], N[(180.0 * N[(N[ArcTan[N[(-180.0 * N[(y$45$scale / N[(angle * N[(Pi * x$45$scale), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(180.0 * N[(y$45$scale * N[(a - a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(angle * N[(b$95$m * N[(Pi * x$45$scale), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
b_m = \left|b\right|
\\
\begin{array}{l}
\mathbf{if}\;b\_m \leq 1.05 \cdot 10^{+30}:\\
\;\;\;\;\frac{180 \cdot \tan^{-1} \left(\frac{y-scale}{x-scale} \cdot \tan \left(0.005555555555555556 \cdot \left(angle \cdot \pi\right)\right)\right)}{\pi}\\
\mathbf{elif}\;b\_m \leq 4.1 \cdot 10^{+132}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{\frac{\left(y-scale \cdot \left(b\_m \cdot b\_m\right)\right) \cdot -180}{x-scale}}{\left(angle \cdot \pi\right) \cdot \left(\left(b\_m + a\right) \cdot \left(b\_m - a\right)\right)}\right)}{\pi}\\
\mathbf{elif}\;b\_m \leq 5.4 \cdot 10^{+178}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{y-scale \cdot \tan \left(\pi \cdot \left(0.005555555555555556 \cdot angle\right)\right)}{x-scale}\right)}{\pi}\\
\mathbf{else}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\mathsf{fma}\left(-180, \frac{y-scale}{angle \cdot \left(\pi \cdot x-scale\right)}, \frac{180 \cdot \left(y-scale \cdot \left(a - a\right)\right)}{angle \cdot \left(b\_m \cdot \left(\pi \cdot x-scale\right)\right)}\right)\right)}{\pi}\\
\end{array}
\end{array}
if b < 1.05e30Initial program 19.2%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified33.1%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6455.2
Simplified55.2%
Applied egg-rr57.2%
if 1.05e30 < b < 4.09999999999999992e132Initial program 41.5%
Taylor expanded in angle around 0
associate-*r/N/A
lower-/.f64N/A
Simplified36.3%
Taylor expanded in y-scale around inf
lower-*.f64N/A
lower-fma.f64N/A
lower-/.f64N/A
unpow2N/A
lower-*.f64N/A
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6454.6
Simplified54.6%
Taylor expanded in y-scale around inf
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
unpow2N/A
lower-*.f6468.7
Simplified68.7%
if 4.09999999999999992e132 < b < 5.40000000000000036e178Initial program 0.7%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified14.7%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6465.3
Simplified65.3%
add-cbrt-cubeN/A
lower-cbrt.f64N/A
lift-PI.f64N/A
*-commutativeN/A
lower-*.f64N/A
lift-PI.f64N/A
lift-PI.f64N/A
lower-*.f6462.5
Applied egg-rr62.5%
Applied egg-rr65.3%
if 5.40000000000000036e178 < b Initial program 0.0%
Taylor expanded in angle around 0
associate-*r/N/A
lower-/.f64N/A
Simplified0.0%
Taylor expanded in b around inf
lower-fma.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
mul-1-negN/A
lower-neg.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6483.4
Simplified83.4%
Final simplification60.3%
b_m = (fabs.f64 b)
(FPCore (a b_m angle x-scale y-scale)
:precision binary64
(if (<= b_m 5.6e-185)
(*
180.0
(/
(atan (/ (* 0.005555555555555556 angle) (/ x-scale (* y-scale PI))))
PI))
(if (<= b_m 4.7e+30)
(*
180.0
(/
(atan
(* y-scale (/ (tan (* 0.005555555555555556 (* angle PI))) x-scale)))
PI))
(* 180.0 (/ (atan (* y-scale (/ -180.0 (* angle (* PI x-scale))))) PI)))))b_m = fabs(b);
double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double tmp;
if (b_m <= 5.6e-185) {
tmp = 180.0 * (atan(((0.005555555555555556 * angle) / (x_45_scale / (y_45_scale * ((double) M_PI))))) / ((double) M_PI));
} else if (b_m <= 4.7e+30) {
tmp = 180.0 * (atan((y_45_scale * (tan((0.005555555555555556 * (angle * ((double) M_PI)))) / x_45_scale))) / ((double) M_PI));
} else {
tmp = 180.0 * (atan((y_45_scale * (-180.0 / (angle * (((double) M_PI) * x_45_scale))))) / ((double) M_PI));
}
return tmp;
}
b_m = Math.abs(b);
public static double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double tmp;
if (b_m <= 5.6e-185) {
tmp = 180.0 * (Math.atan(((0.005555555555555556 * angle) / (x_45_scale / (y_45_scale * Math.PI)))) / Math.PI);
} else if (b_m <= 4.7e+30) {
tmp = 180.0 * (Math.atan((y_45_scale * (Math.tan((0.005555555555555556 * (angle * Math.PI))) / x_45_scale))) / Math.PI);
} else {
tmp = 180.0 * (Math.atan((y_45_scale * (-180.0 / (angle * (Math.PI * x_45_scale))))) / Math.PI);
}
return tmp;
}
b_m = math.fabs(b) def code(a, b_m, angle, x_45_scale, y_45_scale): tmp = 0 if b_m <= 5.6e-185: tmp = 180.0 * (math.atan(((0.005555555555555556 * angle) / (x_45_scale / (y_45_scale * math.pi)))) / math.pi) elif b_m <= 4.7e+30: tmp = 180.0 * (math.atan((y_45_scale * (math.tan((0.005555555555555556 * (angle * math.pi))) / x_45_scale))) / math.pi) else: tmp = 180.0 * (math.atan((y_45_scale * (-180.0 / (angle * (math.pi * x_45_scale))))) / math.pi) return tmp
b_m = abs(b) function code(a, b_m, angle, x_45_scale, y_45_scale) tmp = 0.0 if (b_m <= 5.6e-185) tmp = Float64(180.0 * Float64(atan(Float64(Float64(0.005555555555555556 * angle) / Float64(x_45_scale / Float64(y_45_scale * pi)))) / pi)); elseif (b_m <= 4.7e+30) tmp = Float64(180.0 * Float64(atan(Float64(y_45_scale * Float64(tan(Float64(0.005555555555555556 * Float64(angle * pi))) / x_45_scale))) / pi)); else tmp = Float64(180.0 * Float64(atan(Float64(y_45_scale * Float64(-180.0 / Float64(angle * Float64(pi * x_45_scale))))) / pi)); end return tmp end
b_m = abs(b); function tmp_2 = code(a, b_m, angle, x_45_scale, y_45_scale) tmp = 0.0; if (b_m <= 5.6e-185) tmp = 180.0 * (atan(((0.005555555555555556 * angle) / (x_45_scale / (y_45_scale * pi)))) / pi); elseif (b_m <= 4.7e+30) tmp = 180.0 * (atan((y_45_scale * (tan((0.005555555555555556 * (angle * pi))) / x_45_scale))) / pi); else tmp = 180.0 * (atan((y_45_scale * (-180.0 / (angle * (pi * x_45_scale))))) / pi); end tmp_2 = tmp; end
b_m = N[Abs[b], $MachinePrecision] code[a_, b$95$m_, angle_, x$45$scale_, y$45$scale_] := If[LessEqual[b$95$m, 5.6e-185], N[(180.0 * N[(N[ArcTan[N[(N[(0.005555555555555556 * angle), $MachinePrecision] / N[(x$45$scale / N[(y$45$scale * Pi), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], If[LessEqual[b$95$m, 4.7e+30], N[(180.0 * N[(N[ArcTan[N[(y$45$scale * N[(N[Tan[N[(0.005555555555555556 * N[(angle * Pi), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / x$45$scale), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], N[(180.0 * N[(N[ArcTan[N[(y$45$scale * N[(-180.0 / N[(angle * N[(Pi * x$45$scale), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
b_m = \left|b\right|
\\
\begin{array}{l}
\mathbf{if}\;b\_m \leq 5.6 \cdot 10^{-185}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{0.005555555555555556 \cdot angle}{\frac{x-scale}{y-scale \cdot \pi}}\right)}{\pi}\\
\mathbf{elif}\;b\_m \leq 4.7 \cdot 10^{+30}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(y-scale \cdot \frac{\tan \left(0.005555555555555556 \cdot \left(angle \cdot \pi\right)\right)}{x-scale}\right)}{\pi}\\
\mathbf{else}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(y-scale \cdot \frac{-180}{angle \cdot \left(\pi \cdot x-scale\right)}\right)}{\pi}\\
\end{array}
\end{array}
if b < 5.59999999999999983e-185Initial program 18.5%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified32.8%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6455.9
Simplified55.9%
Taylor expanded in angle around 0
lower-*.f64N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lower-PI.f6455.4
Simplified55.4%
lift-PI.f64N/A
lift-*.f64N/A
lift-/.f64N/A
associate-*r*N/A
lift-/.f64N/A
clear-numN/A
un-div-invN/A
lower-/.f64N/A
lower-*.f64N/A
lower-/.f6456.3
lift-*.f64N/A
*-commutativeN/A
lower-*.f6456.3
Applied egg-rr56.3%
if 5.59999999999999983e-185 < b < 4.6999999999999999e30Initial program 21.2%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified33.9%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6453.1
Simplified53.1%
lift-PI.f64N/A
lift-*.f64N/A
lift-*.f64N/A
lift-sin.f64N/A
lift-PI.f64N/A
lift-*.f64N/A
lift-*.f64N/A
lift-cos.f64N/A
lift-*.f64N/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
Applied egg-rr54.8%
if 4.6999999999999999e30 < b Initial program 19.6%
Taylor expanded in angle around 0
associate-*r/N/A
lower-/.f64N/A
Simplified19.2%
Taylor expanded in y-scale around inf
lower-*.f64N/A
lower-fma.f64N/A
lower-/.f64N/A
unpow2N/A
lower-*.f64N/A
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6427.8
Simplified27.8%
Taylor expanded in y-scale around 0
lower-/.f64N/A
Simplified27.9%
Taylor expanded in a around 0
lower-/.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-PI.f6458.5
Simplified58.5%
Final simplification56.4%
b_m = (fabs.f64 b)
(FPCore (a b_m angle x-scale y-scale)
:precision binary64
(if (<= b_m 4e-63)
(*
180.0
(/
(atan (/ (* 0.005555555555555556 angle) (/ x-scale (* y-scale PI))))
PI))
(if (<= b_m 2.45e+114)
(*
180.0
(/
(atan
(/
(/ (* (* y-scale (* b_m b_m)) -180.0) x-scale)
(* (* angle PI) (* (+ b_m a) (- b_m a)))))
PI))
(*
180.0
(/
(atan
(fma
-180.0
(/ y-scale (* angle (* PI x-scale)))
(/ (* 180.0 (* y-scale (- a a))) (* angle (* b_m (* PI x-scale))))))
PI)))))b_m = fabs(b);
double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double tmp;
if (b_m <= 4e-63) {
tmp = 180.0 * (atan(((0.005555555555555556 * angle) / (x_45_scale / (y_45_scale * ((double) M_PI))))) / ((double) M_PI));
} else if (b_m <= 2.45e+114) {
tmp = 180.0 * (atan(((((y_45_scale * (b_m * b_m)) * -180.0) / x_45_scale) / ((angle * ((double) M_PI)) * ((b_m + a) * (b_m - a))))) / ((double) M_PI));
} else {
tmp = 180.0 * (atan(fma(-180.0, (y_45_scale / (angle * (((double) M_PI) * x_45_scale))), ((180.0 * (y_45_scale * (a - a))) / (angle * (b_m * (((double) M_PI) * x_45_scale)))))) / ((double) M_PI));
}
return tmp;
}
b_m = abs(b) function code(a, b_m, angle, x_45_scale, y_45_scale) tmp = 0.0 if (b_m <= 4e-63) tmp = Float64(180.0 * Float64(atan(Float64(Float64(0.005555555555555556 * angle) / Float64(x_45_scale / Float64(y_45_scale * pi)))) / pi)); elseif (b_m <= 2.45e+114) tmp = Float64(180.0 * Float64(atan(Float64(Float64(Float64(Float64(y_45_scale * Float64(b_m * b_m)) * -180.0) / x_45_scale) / Float64(Float64(angle * pi) * Float64(Float64(b_m + a) * Float64(b_m - a))))) / pi)); else tmp = Float64(180.0 * Float64(atan(fma(-180.0, Float64(y_45_scale / Float64(angle * Float64(pi * x_45_scale))), Float64(Float64(180.0 * Float64(y_45_scale * Float64(a - a))) / Float64(angle * Float64(b_m * Float64(pi * x_45_scale)))))) / pi)); end return tmp end
b_m = N[Abs[b], $MachinePrecision] code[a_, b$95$m_, angle_, x$45$scale_, y$45$scale_] := If[LessEqual[b$95$m, 4e-63], N[(180.0 * N[(N[ArcTan[N[(N[(0.005555555555555556 * angle), $MachinePrecision] / N[(x$45$scale / N[(y$45$scale * Pi), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], If[LessEqual[b$95$m, 2.45e+114], N[(180.0 * N[(N[ArcTan[N[(N[(N[(N[(y$45$scale * N[(b$95$m * b$95$m), $MachinePrecision]), $MachinePrecision] * -180.0), $MachinePrecision] / x$45$scale), $MachinePrecision] / N[(N[(angle * Pi), $MachinePrecision] * N[(N[(b$95$m + a), $MachinePrecision] * N[(b$95$m - a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], N[(180.0 * N[(N[ArcTan[N[(-180.0 * N[(y$45$scale / N[(angle * N[(Pi * x$45$scale), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(180.0 * N[(y$45$scale * N[(a - a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(angle * N[(b$95$m * N[(Pi * x$45$scale), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
b_m = \left|b\right|
\\
\begin{array}{l}
\mathbf{if}\;b\_m \leq 4 \cdot 10^{-63}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{0.005555555555555556 \cdot angle}{\frac{x-scale}{y-scale \cdot \pi}}\right)}{\pi}\\
\mathbf{elif}\;b\_m \leq 2.45 \cdot 10^{+114}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{\frac{\left(y-scale \cdot \left(b\_m \cdot b\_m\right)\right) \cdot -180}{x-scale}}{\left(angle \cdot \pi\right) \cdot \left(\left(b\_m + a\right) \cdot \left(b\_m - a\right)\right)}\right)}{\pi}\\
\mathbf{else}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\mathsf{fma}\left(-180, \frac{y-scale}{angle \cdot \left(\pi \cdot x-scale\right)}, \frac{180 \cdot \left(y-scale \cdot \left(a - a\right)\right)}{angle \cdot \left(b\_m \cdot \left(\pi \cdot x-scale\right)\right)}\right)\right)}{\pi}\\
\end{array}
\end{array}
if b < 4.00000000000000027e-63Initial program 18.4%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified33.0%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6456.5
Simplified56.5%
Taylor expanded in angle around 0
lower-*.f64N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lower-PI.f6455.5
Simplified55.5%
lift-PI.f64N/A
lift-*.f64N/A
lift-/.f64N/A
associate-*r*N/A
lift-/.f64N/A
clear-numN/A
un-div-invN/A
lower-/.f64N/A
lower-*.f64N/A
lower-/.f6456.2
lift-*.f64N/A
*-commutativeN/A
lower-*.f6456.2
Applied egg-rr56.2%
if 4.00000000000000027e-63 < b < 2.45e114Initial program 28.2%
Taylor expanded in angle around 0
associate-*r/N/A
lower-/.f64N/A
Simplified21.4%
Taylor expanded in y-scale around inf
lower-*.f64N/A
lower-fma.f64N/A
lower-/.f64N/A
unpow2N/A
lower-*.f64N/A
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6428.3
Simplified28.3%
Taylor expanded in y-scale around inf
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
unpow2N/A
lower-*.f6446.7
Simplified46.7%
if 2.45e114 < b Initial program 10.5%
Taylor expanded in angle around 0
associate-*r/N/A
lower-/.f64N/A
Simplified13.9%
Taylor expanded in b around inf
lower-fma.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
mul-1-negN/A
lower-neg.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6466.5
Simplified66.5%
Final simplification55.8%
b_m = (fabs.f64 b)
(FPCore (a b_m angle x-scale y-scale)
:precision binary64
(if (<= b_m 4e-63)
(*
180.0
(/
(atan (/ (* 0.005555555555555556 angle) (/ x-scale (* y-scale PI))))
PI))
(if (<= b_m 2.45e+114)
(*
180.0
(/
(atan
(/
(/ (* (* y-scale (* b_m b_m)) -180.0) x-scale)
(* (* angle PI) (* (+ b_m a) (- b_m a)))))
PI))
(* 180.0 (/ (atan (* y-scale (/ -180.0 (* angle (* PI x-scale))))) PI)))))b_m = fabs(b);
double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double tmp;
if (b_m <= 4e-63) {
tmp = 180.0 * (atan(((0.005555555555555556 * angle) / (x_45_scale / (y_45_scale * ((double) M_PI))))) / ((double) M_PI));
} else if (b_m <= 2.45e+114) {
tmp = 180.0 * (atan(((((y_45_scale * (b_m * b_m)) * -180.0) / x_45_scale) / ((angle * ((double) M_PI)) * ((b_m + a) * (b_m - a))))) / ((double) M_PI));
} else {
tmp = 180.0 * (atan((y_45_scale * (-180.0 / (angle * (((double) M_PI) * x_45_scale))))) / ((double) M_PI));
}
return tmp;
}
b_m = Math.abs(b);
public static double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double tmp;
if (b_m <= 4e-63) {
tmp = 180.0 * (Math.atan(((0.005555555555555556 * angle) / (x_45_scale / (y_45_scale * Math.PI)))) / Math.PI);
} else if (b_m <= 2.45e+114) {
tmp = 180.0 * (Math.atan(((((y_45_scale * (b_m * b_m)) * -180.0) / x_45_scale) / ((angle * Math.PI) * ((b_m + a) * (b_m - a))))) / Math.PI);
} else {
tmp = 180.0 * (Math.atan((y_45_scale * (-180.0 / (angle * (Math.PI * x_45_scale))))) / Math.PI);
}
return tmp;
}
b_m = math.fabs(b) def code(a, b_m, angle, x_45_scale, y_45_scale): tmp = 0 if b_m <= 4e-63: tmp = 180.0 * (math.atan(((0.005555555555555556 * angle) / (x_45_scale / (y_45_scale * math.pi)))) / math.pi) elif b_m <= 2.45e+114: tmp = 180.0 * (math.atan(((((y_45_scale * (b_m * b_m)) * -180.0) / x_45_scale) / ((angle * math.pi) * ((b_m + a) * (b_m - a))))) / math.pi) else: tmp = 180.0 * (math.atan((y_45_scale * (-180.0 / (angle * (math.pi * x_45_scale))))) / math.pi) return tmp
b_m = abs(b) function code(a, b_m, angle, x_45_scale, y_45_scale) tmp = 0.0 if (b_m <= 4e-63) tmp = Float64(180.0 * Float64(atan(Float64(Float64(0.005555555555555556 * angle) / Float64(x_45_scale / Float64(y_45_scale * pi)))) / pi)); elseif (b_m <= 2.45e+114) tmp = Float64(180.0 * Float64(atan(Float64(Float64(Float64(Float64(y_45_scale * Float64(b_m * b_m)) * -180.0) / x_45_scale) / Float64(Float64(angle * pi) * Float64(Float64(b_m + a) * Float64(b_m - a))))) / pi)); else tmp = Float64(180.0 * Float64(atan(Float64(y_45_scale * Float64(-180.0 / Float64(angle * Float64(pi * x_45_scale))))) / pi)); end return tmp end
b_m = abs(b); function tmp_2 = code(a, b_m, angle, x_45_scale, y_45_scale) tmp = 0.0; if (b_m <= 4e-63) tmp = 180.0 * (atan(((0.005555555555555556 * angle) / (x_45_scale / (y_45_scale * pi)))) / pi); elseif (b_m <= 2.45e+114) tmp = 180.0 * (atan(((((y_45_scale * (b_m * b_m)) * -180.0) / x_45_scale) / ((angle * pi) * ((b_m + a) * (b_m - a))))) / pi); else tmp = 180.0 * (atan((y_45_scale * (-180.0 / (angle * (pi * x_45_scale))))) / pi); end tmp_2 = tmp; end
b_m = N[Abs[b], $MachinePrecision] code[a_, b$95$m_, angle_, x$45$scale_, y$45$scale_] := If[LessEqual[b$95$m, 4e-63], N[(180.0 * N[(N[ArcTan[N[(N[(0.005555555555555556 * angle), $MachinePrecision] / N[(x$45$scale / N[(y$45$scale * Pi), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], If[LessEqual[b$95$m, 2.45e+114], N[(180.0 * N[(N[ArcTan[N[(N[(N[(N[(y$45$scale * N[(b$95$m * b$95$m), $MachinePrecision]), $MachinePrecision] * -180.0), $MachinePrecision] / x$45$scale), $MachinePrecision] / N[(N[(angle * Pi), $MachinePrecision] * N[(N[(b$95$m + a), $MachinePrecision] * N[(b$95$m - a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], N[(180.0 * N[(N[ArcTan[N[(y$45$scale * N[(-180.0 / N[(angle * N[(Pi * x$45$scale), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
b_m = \left|b\right|
\\
\begin{array}{l}
\mathbf{if}\;b\_m \leq 4 \cdot 10^{-63}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{0.005555555555555556 \cdot angle}{\frac{x-scale}{y-scale \cdot \pi}}\right)}{\pi}\\
\mathbf{elif}\;b\_m \leq 2.45 \cdot 10^{+114}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{\frac{\left(y-scale \cdot \left(b\_m \cdot b\_m\right)\right) \cdot -180}{x-scale}}{\left(angle \cdot \pi\right) \cdot \left(\left(b\_m + a\right) \cdot \left(b\_m - a\right)\right)}\right)}{\pi}\\
\mathbf{else}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(y-scale \cdot \frac{-180}{angle \cdot \left(\pi \cdot x-scale\right)}\right)}{\pi}\\
\end{array}
\end{array}
if b < 4.00000000000000027e-63Initial program 18.4%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified33.0%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6456.5
Simplified56.5%
Taylor expanded in angle around 0
lower-*.f64N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lower-PI.f6455.5
Simplified55.5%
lift-PI.f64N/A
lift-*.f64N/A
lift-/.f64N/A
associate-*r*N/A
lift-/.f64N/A
clear-numN/A
un-div-invN/A
lower-/.f64N/A
lower-*.f64N/A
lower-/.f6456.2
lift-*.f64N/A
*-commutativeN/A
lower-*.f6456.2
Applied egg-rr56.2%
if 4.00000000000000027e-63 < b < 2.45e114Initial program 28.2%
Taylor expanded in angle around 0
associate-*r/N/A
lower-/.f64N/A
Simplified21.4%
Taylor expanded in y-scale around inf
lower-*.f64N/A
lower-fma.f64N/A
lower-/.f64N/A
unpow2N/A
lower-*.f64N/A
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6428.3
Simplified28.3%
Taylor expanded in y-scale around inf
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
unpow2N/A
lower-*.f6446.7
Simplified46.7%
if 2.45e114 < b Initial program 10.5%
Taylor expanded in angle around 0
associate-*r/N/A
lower-/.f64N/A
Simplified13.9%
Taylor expanded in y-scale around inf
lower-*.f64N/A
lower-fma.f64N/A
lower-/.f64N/A
unpow2N/A
lower-*.f64N/A
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6417.3
Simplified17.3%
Taylor expanded in y-scale around 0
lower-/.f64N/A
Simplified17.5%
Taylor expanded in a around 0
lower-/.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-PI.f6466.4
Simplified66.4%
Final simplification55.8%
b_m = (fabs.f64 b)
(FPCore (a b_m angle x-scale y-scale)
:precision binary64
(if (<= b_m 4e-63)
(*
180.0
(/
(atan (/ (* 0.005555555555555556 angle) (/ x-scale (* y-scale PI))))
PI))
(if (<= b_m 2.45e+114)
(*
180.0
(/
(atan
(/
(* -180.0 (/ (* y-scale (* b_m b_m)) x-scale))
(* (* angle PI) (* (+ b_m a) (- b_m a)))))
PI))
(* 180.0 (/ (atan (* y-scale (/ -180.0 (* angle (* PI x-scale))))) PI)))))b_m = fabs(b);
double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double tmp;
if (b_m <= 4e-63) {
tmp = 180.0 * (atan(((0.005555555555555556 * angle) / (x_45_scale / (y_45_scale * ((double) M_PI))))) / ((double) M_PI));
} else if (b_m <= 2.45e+114) {
tmp = 180.0 * (atan(((-180.0 * ((y_45_scale * (b_m * b_m)) / x_45_scale)) / ((angle * ((double) M_PI)) * ((b_m + a) * (b_m - a))))) / ((double) M_PI));
} else {
tmp = 180.0 * (atan((y_45_scale * (-180.0 / (angle * (((double) M_PI) * x_45_scale))))) / ((double) M_PI));
}
return tmp;
}
b_m = Math.abs(b);
public static double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double tmp;
if (b_m <= 4e-63) {
tmp = 180.0 * (Math.atan(((0.005555555555555556 * angle) / (x_45_scale / (y_45_scale * Math.PI)))) / Math.PI);
} else if (b_m <= 2.45e+114) {
tmp = 180.0 * (Math.atan(((-180.0 * ((y_45_scale * (b_m * b_m)) / x_45_scale)) / ((angle * Math.PI) * ((b_m + a) * (b_m - a))))) / Math.PI);
} else {
tmp = 180.0 * (Math.atan((y_45_scale * (-180.0 / (angle * (Math.PI * x_45_scale))))) / Math.PI);
}
return tmp;
}
b_m = math.fabs(b) def code(a, b_m, angle, x_45_scale, y_45_scale): tmp = 0 if b_m <= 4e-63: tmp = 180.0 * (math.atan(((0.005555555555555556 * angle) / (x_45_scale / (y_45_scale * math.pi)))) / math.pi) elif b_m <= 2.45e+114: tmp = 180.0 * (math.atan(((-180.0 * ((y_45_scale * (b_m * b_m)) / x_45_scale)) / ((angle * math.pi) * ((b_m + a) * (b_m - a))))) / math.pi) else: tmp = 180.0 * (math.atan((y_45_scale * (-180.0 / (angle * (math.pi * x_45_scale))))) / math.pi) return tmp
b_m = abs(b) function code(a, b_m, angle, x_45_scale, y_45_scale) tmp = 0.0 if (b_m <= 4e-63) tmp = Float64(180.0 * Float64(atan(Float64(Float64(0.005555555555555556 * angle) / Float64(x_45_scale / Float64(y_45_scale * pi)))) / pi)); elseif (b_m <= 2.45e+114) tmp = Float64(180.0 * Float64(atan(Float64(Float64(-180.0 * Float64(Float64(y_45_scale * Float64(b_m * b_m)) / x_45_scale)) / Float64(Float64(angle * pi) * Float64(Float64(b_m + a) * Float64(b_m - a))))) / pi)); else tmp = Float64(180.0 * Float64(atan(Float64(y_45_scale * Float64(-180.0 / Float64(angle * Float64(pi * x_45_scale))))) / pi)); end return tmp end
b_m = abs(b); function tmp_2 = code(a, b_m, angle, x_45_scale, y_45_scale) tmp = 0.0; if (b_m <= 4e-63) tmp = 180.0 * (atan(((0.005555555555555556 * angle) / (x_45_scale / (y_45_scale * pi)))) / pi); elseif (b_m <= 2.45e+114) tmp = 180.0 * (atan(((-180.0 * ((y_45_scale * (b_m * b_m)) / x_45_scale)) / ((angle * pi) * ((b_m + a) * (b_m - a))))) / pi); else tmp = 180.0 * (atan((y_45_scale * (-180.0 / (angle * (pi * x_45_scale))))) / pi); end tmp_2 = tmp; end
b_m = N[Abs[b], $MachinePrecision] code[a_, b$95$m_, angle_, x$45$scale_, y$45$scale_] := If[LessEqual[b$95$m, 4e-63], N[(180.0 * N[(N[ArcTan[N[(N[(0.005555555555555556 * angle), $MachinePrecision] / N[(x$45$scale / N[(y$45$scale * Pi), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], If[LessEqual[b$95$m, 2.45e+114], N[(180.0 * N[(N[ArcTan[N[(N[(-180.0 * N[(N[(y$45$scale * N[(b$95$m * b$95$m), $MachinePrecision]), $MachinePrecision] / x$45$scale), $MachinePrecision]), $MachinePrecision] / N[(N[(angle * Pi), $MachinePrecision] * N[(N[(b$95$m + a), $MachinePrecision] * N[(b$95$m - a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], N[(180.0 * N[(N[ArcTan[N[(y$45$scale * N[(-180.0 / N[(angle * N[(Pi * x$45$scale), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
b_m = \left|b\right|
\\
\begin{array}{l}
\mathbf{if}\;b\_m \leq 4 \cdot 10^{-63}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{0.005555555555555556 \cdot angle}{\frac{x-scale}{y-scale \cdot \pi}}\right)}{\pi}\\
\mathbf{elif}\;b\_m \leq 2.45 \cdot 10^{+114}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{-180 \cdot \frac{y-scale \cdot \left(b\_m \cdot b\_m\right)}{x-scale}}{\left(angle \cdot \pi\right) \cdot \left(\left(b\_m + a\right) \cdot \left(b\_m - a\right)\right)}\right)}{\pi}\\
\mathbf{else}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(y-scale \cdot \frac{-180}{angle \cdot \left(\pi \cdot x-scale\right)}\right)}{\pi}\\
\end{array}
\end{array}
if b < 4.00000000000000027e-63Initial program 18.4%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified33.0%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6456.5
Simplified56.5%
Taylor expanded in angle around 0
lower-*.f64N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lower-PI.f6455.5
Simplified55.5%
lift-PI.f64N/A
lift-*.f64N/A
lift-/.f64N/A
associate-*r*N/A
lift-/.f64N/A
clear-numN/A
un-div-invN/A
lower-/.f64N/A
lower-*.f64N/A
lower-/.f6456.2
lift-*.f64N/A
*-commutativeN/A
lower-*.f6456.2
Applied egg-rr56.2%
if 4.00000000000000027e-63 < b < 2.45e114Initial program 28.2%
Taylor expanded in angle around 0
associate-*r/N/A
lower-/.f64N/A
Simplified21.4%
Taylor expanded in x-scale around 0
lower-*.f64N/A
lower-/.f64N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6446.7
Simplified46.7%
if 2.45e114 < b Initial program 10.5%
Taylor expanded in angle around 0
associate-*r/N/A
lower-/.f64N/A
Simplified13.9%
Taylor expanded in y-scale around inf
lower-*.f64N/A
lower-fma.f64N/A
lower-/.f64N/A
unpow2N/A
lower-*.f64N/A
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6417.3
Simplified17.3%
Taylor expanded in y-scale around 0
lower-/.f64N/A
Simplified17.5%
Taylor expanded in a around 0
lower-/.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-PI.f6466.4
Simplified66.4%
Final simplification55.8%
b_m = (fabs.f64 b)
(FPCore (a b_m angle x-scale y-scale)
:precision binary64
(if (<= a 1.15e-100)
(* 180.0 (/ (atan (* y-scale (/ -180.0 (* angle (* PI x-scale))))) PI))
(*
180.0
(/
(atan (/ (* 0.005555555555555556 angle) (/ x-scale (* y-scale PI))))
PI))))b_m = fabs(b);
double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double tmp;
if (a <= 1.15e-100) {
tmp = 180.0 * (atan((y_45_scale * (-180.0 / (angle * (((double) M_PI) * x_45_scale))))) / ((double) M_PI));
} else {
tmp = 180.0 * (atan(((0.005555555555555556 * angle) / (x_45_scale / (y_45_scale * ((double) M_PI))))) / ((double) M_PI));
}
return tmp;
}
b_m = Math.abs(b);
public static double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double tmp;
if (a <= 1.15e-100) {
tmp = 180.0 * (Math.atan((y_45_scale * (-180.0 / (angle * (Math.PI * x_45_scale))))) / Math.PI);
} else {
tmp = 180.0 * (Math.atan(((0.005555555555555556 * angle) / (x_45_scale / (y_45_scale * Math.PI)))) / Math.PI);
}
return tmp;
}
b_m = math.fabs(b) def code(a, b_m, angle, x_45_scale, y_45_scale): tmp = 0 if a <= 1.15e-100: tmp = 180.0 * (math.atan((y_45_scale * (-180.0 / (angle * (math.pi * x_45_scale))))) / math.pi) else: tmp = 180.0 * (math.atan(((0.005555555555555556 * angle) / (x_45_scale / (y_45_scale * math.pi)))) / math.pi) return tmp
b_m = abs(b) function code(a, b_m, angle, x_45_scale, y_45_scale) tmp = 0.0 if (a <= 1.15e-100) tmp = Float64(180.0 * Float64(atan(Float64(y_45_scale * Float64(-180.0 / Float64(angle * Float64(pi * x_45_scale))))) / pi)); else tmp = Float64(180.0 * Float64(atan(Float64(Float64(0.005555555555555556 * angle) / Float64(x_45_scale / Float64(y_45_scale * pi)))) / pi)); end return tmp end
b_m = abs(b); function tmp_2 = code(a, b_m, angle, x_45_scale, y_45_scale) tmp = 0.0; if (a <= 1.15e-100) tmp = 180.0 * (atan((y_45_scale * (-180.0 / (angle * (pi * x_45_scale))))) / pi); else tmp = 180.0 * (atan(((0.005555555555555556 * angle) / (x_45_scale / (y_45_scale * pi)))) / pi); end tmp_2 = tmp; end
b_m = N[Abs[b], $MachinePrecision] code[a_, b$95$m_, angle_, x$45$scale_, y$45$scale_] := If[LessEqual[a, 1.15e-100], N[(180.0 * N[(N[ArcTan[N[(y$45$scale * N[(-180.0 / N[(angle * N[(Pi * x$45$scale), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], N[(180.0 * N[(N[ArcTan[N[(N[(0.005555555555555556 * angle), $MachinePrecision] / N[(x$45$scale / N[(y$45$scale * Pi), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
b_m = \left|b\right|
\\
\begin{array}{l}
\mathbf{if}\;a \leq 1.15 \cdot 10^{-100}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(y-scale \cdot \frac{-180}{angle \cdot \left(\pi \cdot x-scale\right)}\right)}{\pi}\\
\mathbf{else}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{0.005555555555555556 \cdot angle}{\frac{x-scale}{y-scale \cdot \pi}}\right)}{\pi}\\
\end{array}
\end{array}
if a < 1.14999999999999997e-100Initial program 19.5%
Taylor expanded in angle around 0
associate-*r/N/A
lower-/.f64N/A
Simplified15.2%
Taylor expanded in y-scale around inf
lower-*.f64N/A
lower-fma.f64N/A
lower-/.f64N/A
unpow2N/A
lower-*.f64N/A
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6416.6
Simplified16.6%
Taylor expanded in y-scale around 0
lower-/.f64N/A
Simplified16.6%
Taylor expanded in a around 0
lower-/.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-PI.f6440.1
Simplified40.1%
if 1.14999999999999997e-100 < a Initial program 18.7%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified37.0%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6458.6
Simplified58.6%
Taylor expanded in angle around 0
lower-*.f64N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lower-PI.f6455.9
Simplified55.9%
lift-PI.f64N/A
lift-*.f64N/A
lift-/.f64N/A
associate-*r*N/A
lift-/.f64N/A
clear-numN/A
un-div-invN/A
lower-/.f64N/A
lower-*.f64N/A
lower-/.f6457.4
lift-*.f64N/A
*-commutativeN/A
lower-*.f6457.4
Applied egg-rr57.4%
Final simplification46.0%
b_m = (fabs.f64 b)
(FPCore (a b_m angle x-scale y-scale)
:precision binary64
(if (<= a 1.15e-100)
(* 180.0 (/ (atan (* y-scale (/ -180.0 (* angle (* PI x-scale))))) PI))
(*
180.0
(/
(atan (* 0.005555555555555556 (* angle (* PI (/ y-scale x-scale)))))
PI))))b_m = fabs(b);
double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double tmp;
if (a <= 1.15e-100) {
tmp = 180.0 * (atan((y_45_scale * (-180.0 / (angle * (((double) M_PI) * x_45_scale))))) / ((double) M_PI));
} else {
tmp = 180.0 * (atan((0.005555555555555556 * (angle * (((double) M_PI) * (y_45_scale / x_45_scale))))) / ((double) M_PI));
}
return tmp;
}
b_m = Math.abs(b);
public static double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double tmp;
if (a <= 1.15e-100) {
tmp = 180.0 * (Math.atan((y_45_scale * (-180.0 / (angle * (Math.PI * x_45_scale))))) / Math.PI);
} else {
tmp = 180.0 * (Math.atan((0.005555555555555556 * (angle * (Math.PI * (y_45_scale / x_45_scale))))) / Math.PI);
}
return tmp;
}
b_m = math.fabs(b) def code(a, b_m, angle, x_45_scale, y_45_scale): tmp = 0 if a <= 1.15e-100: tmp = 180.0 * (math.atan((y_45_scale * (-180.0 / (angle * (math.pi * x_45_scale))))) / math.pi) else: tmp = 180.0 * (math.atan((0.005555555555555556 * (angle * (math.pi * (y_45_scale / x_45_scale))))) / math.pi) return tmp
b_m = abs(b) function code(a, b_m, angle, x_45_scale, y_45_scale) tmp = 0.0 if (a <= 1.15e-100) tmp = Float64(180.0 * Float64(atan(Float64(y_45_scale * Float64(-180.0 / Float64(angle * Float64(pi * x_45_scale))))) / pi)); else tmp = Float64(180.0 * Float64(atan(Float64(0.005555555555555556 * Float64(angle * Float64(pi * Float64(y_45_scale / x_45_scale))))) / pi)); end return tmp end
b_m = abs(b); function tmp_2 = code(a, b_m, angle, x_45_scale, y_45_scale) tmp = 0.0; if (a <= 1.15e-100) tmp = 180.0 * (atan((y_45_scale * (-180.0 / (angle * (pi * x_45_scale))))) / pi); else tmp = 180.0 * (atan((0.005555555555555556 * (angle * (pi * (y_45_scale / x_45_scale))))) / pi); end tmp_2 = tmp; end
b_m = N[Abs[b], $MachinePrecision] code[a_, b$95$m_, angle_, x$45$scale_, y$45$scale_] := If[LessEqual[a, 1.15e-100], N[(180.0 * N[(N[ArcTan[N[(y$45$scale * N[(-180.0 / N[(angle * N[(Pi * x$45$scale), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], N[(180.0 * N[(N[ArcTan[N[(0.005555555555555556 * N[(angle * N[(Pi * N[(y$45$scale / x$45$scale), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
b_m = \left|b\right|
\\
\begin{array}{l}
\mathbf{if}\;a \leq 1.15 \cdot 10^{-100}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(y-scale \cdot \frac{-180}{angle \cdot \left(\pi \cdot x-scale\right)}\right)}{\pi}\\
\mathbf{else}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(0.005555555555555556 \cdot \left(angle \cdot \left(\pi \cdot \frac{y-scale}{x-scale}\right)\right)\right)}{\pi}\\
\end{array}
\end{array}
if a < 1.14999999999999997e-100Initial program 19.5%
Taylor expanded in angle around 0
associate-*r/N/A
lower-/.f64N/A
Simplified15.2%
Taylor expanded in y-scale around inf
lower-*.f64N/A
lower-fma.f64N/A
lower-/.f64N/A
unpow2N/A
lower-*.f64N/A
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6416.6
Simplified16.6%
Taylor expanded in y-scale around 0
lower-/.f64N/A
Simplified16.6%
Taylor expanded in a around 0
lower-/.f64N/A
lower-*.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-PI.f6440.1
Simplified40.1%
if 1.14999999999999997e-100 < a Initial program 18.7%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified37.0%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6458.6
Simplified58.6%
Taylor expanded in angle around 0
lower-*.f64N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lower-PI.f6455.9
Simplified55.9%
lift-PI.f64N/A
*-commutativeN/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f6455.9
Applied egg-rr55.9%
b_m = (fabs.f64 b)
(FPCore (a b_m angle x-scale y-scale)
:precision binary64
(if (<= b_m 6.5e+147)
(*
180.0
(/
(atan (* 0.005555555555555556 (* angle (/ (* y-scale PI) x-scale))))
PI))
(* 180.0 (/ (atan (* x-scale (/ -180.0 (* y-scale (* angle PI))))) PI))))b_m = fabs(b);
double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double tmp;
if (b_m <= 6.5e+147) {
tmp = 180.0 * (atan((0.005555555555555556 * (angle * ((y_45_scale * ((double) M_PI)) / x_45_scale)))) / ((double) M_PI));
} else {
tmp = 180.0 * (atan((x_45_scale * (-180.0 / (y_45_scale * (angle * ((double) M_PI)))))) / ((double) M_PI));
}
return tmp;
}
b_m = Math.abs(b);
public static double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
double tmp;
if (b_m <= 6.5e+147) {
tmp = 180.0 * (Math.atan((0.005555555555555556 * (angle * ((y_45_scale * Math.PI) / x_45_scale)))) / Math.PI);
} else {
tmp = 180.0 * (Math.atan((x_45_scale * (-180.0 / (y_45_scale * (angle * Math.PI))))) / Math.PI);
}
return tmp;
}
b_m = math.fabs(b) def code(a, b_m, angle, x_45_scale, y_45_scale): tmp = 0 if b_m <= 6.5e+147: tmp = 180.0 * (math.atan((0.005555555555555556 * (angle * ((y_45_scale * math.pi) / x_45_scale)))) / math.pi) else: tmp = 180.0 * (math.atan((x_45_scale * (-180.0 / (y_45_scale * (angle * math.pi))))) / math.pi) return tmp
b_m = abs(b) function code(a, b_m, angle, x_45_scale, y_45_scale) tmp = 0.0 if (b_m <= 6.5e+147) tmp = Float64(180.0 * Float64(atan(Float64(0.005555555555555556 * Float64(angle * Float64(Float64(y_45_scale * pi) / x_45_scale)))) / pi)); else tmp = Float64(180.0 * Float64(atan(Float64(x_45_scale * Float64(-180.0 / Float64(y_45_scale * Float64(angle * pi))))) / pi)); end return tmp end
b_m = abs(b); function tmp_2 = code(a, b_m, angle, x_45_scale, y_45_scale) tmp = 0.0; if (b_m <= 6.5e+147) tmp = 180.0 * (atan((0.005555555555555556 * (angle * ((y_45_scale * pi) / x_45_scale)))) / pi); else tmp = 180.0 * (atan((x_45_scale * (-180.0 / (y_45_scale * (angle * pi))))) / pi); end tmp_2 = tmp; end
b_m = N[Abs[b], $MachinePrecision] code[a_, b$95$m_, angle_, x$45$scale_, y$45$scale_] := If[LessEqual[b$95$m, 6.5e+147], N[(180.0 * N[(N[ArcTan[N[(0.005555555555555556 * N[(angle * N[(N[(y$45$scale * Pi), $MachinePrecision] / x$45$scale), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision], N[(180.0 * N[(N[ArcTan[N[(x$45$scale * N[(-180.0 / N[(y$45$scale * N[(angle * Pi), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
b_m = \left|b\right|
\\
\begin{array}{l}
\mathbf{if}\;b\_m \leq 6.5 \cdot 10^{+147}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(0.005555555555555556 \cdot \left(angle \cdot \frac{y-scale \cdot \pi}{x-scale}\right)\right)}{\pi}\\
\mathbf{else}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(x-scale \cdot \frac{-180}{y-scale \cdot \left(angle \cdot \pi\right)}\right)}{\pi}\\
\end{array}
\end{array}
if b < 6.5e147Initial program 21.0%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified35.5%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6454.1
Simplified54.1%
Taylor expanded in angle around 0
lower-*.f64N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lower-PI.f6452.9
Simplified52.9%
if 6.5e147 < b Initial program 0.2%
Taylor expanded in angle around 0
associate-*r/N/A
lower-/.f64N/A
Simplified0.0%
Taylor expanded in a around inf
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6425.7
Simplified25.7%
lift-PI.f64N/A
lift-*.f64N/A
*-commutativeN/A
lift-*.f64N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f6425.7
lift-*.f64N/A
*-commutativeN/A
lift-*.f64N/A
associate-*l*N/A
*-commutativeN/A
lift-*.f64N/A
lower-*.f6425.7
Applied egg-rr25.7%
b_m = (fabs.f64 b) (FPCore (a b_m angle x-scale y-scale) :precision binary64 (* 180.0 (/ (atan (* 0.005555555555555556 (* angle (/ (* y-scale PI) x-scale)))) PI)))
b_m = fabs(b);
double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
return 180.0 * (atan((0.005555555555555556 * (angle * ((y_45_scale * ((double) M_PI)) / x_45_scale)))) / ((double) M_PI));
}
b_m = Math.abs(b);
public static double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
return 180.0 * (Math.atan((0.005555555555555556 * (angle * ((y_45_scale * Math.PI) / x_45_scale)))) / Math.PI);
}
b_m = math.fabs(b) def code(a, b_m, angle, x_45_scale, y_45_scale): return 180.0 * (math.atan((0.005555555555555556 * (angle * ((y_45_scale * math.pi) / x_45_scale)))) / math.pi)
b_m = abs(b) function code(a, b_m, angle, x_45_scale, y_45_scale) return Float64(180.0 * Float64(atan(Float64(0.005555555555555556 * Float64(angle * Float64(Float64(y_45_scale * pi) / x_45_scale)))) / pi)) end
b_m = abs(b); function tmp = code(a, b_m, angle, x_45_scale, y_45_scale) tmp = 180.0 * (atan((0.005555555555555556 * (angle * ((y_45_scale * pi) / x_45_scale)))) / pi); end
b_m = N[Abs[b], $MachinePrecision] code[a_, b$95$m_, angle_, x$45$scale_, y$45$scale_] := N[(180.0 * N[(N[ArcTan[N[(0.005555555555555556 * N[(angle * N[(N[(y$45$scale * Pi), $MachinePrecision] / x$45$scale), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
b_m = \left|b\right|
\\
180 \cdot \frac{\tan^{-1} \left(0.005555555555555556 \cdot \left(angle \cdot \frac{y-scale \cdot \pi}{x-scale}\right)\right)}{\pi}
\end{array}
Initial program 19.2%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified32.5%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6451.1
Simplified51.1%
Taylor expanded in angle around 0
lower-*.f64N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lower-PI.f6449.8
Simplified49.8%
b_m = (fabs.f64 b) (FPCore (a b_m angle x-scale y-scale) :precision binary64 (* 180.0 (/ (atan (* 0.005555555555555556 (* angle (* PI (/ y-scale x-scale))))) PI)))
b_m = fabs(b);
double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
return 180.0 * (atan((0.005555555555555556 * (angle * (((double) M_PI) * (y_45_scale / x_45_scale))))) / ((double) M_PI));
}
b_m = Math.abs(b);
public static double code(double a, double b_m, double angle, double x_45_scale, double y_45_scale) {
return 180.0 * (Math.atan((0.005555555555555556 * (angle * (Math.PI * (y_45_scale / x_45_scale))))) / Math.PI);
}
b_m = math.fabs(b) def code(a, b_m, angle, x_45_scale, y_45_scale): return 180.0 * (math.atan((0.005555555555555556 * (angle * (math.pi * (y_45_scale / x_45_scale))))) / math.pi)
b_m = abs(b) function code(a, b_m, angle, x_45_scale, y_45_scale) return Float64(180.0 * Float64(atan(Float64(0.005555555555555556 * Float64(angle * Float64(pi * Float64(y_45_scale / x_45_scale))))) / pi)) end
b_m = abs(b); function tmp = code(a, b_m, angle, x_45_scale, y_45_scale) tmp = 180.0 * (atan((0.005555555555555556 * (angle * (pi * (y_45_scale / x_45_scale))))) / pi); end
b_m = N[Abs[b], $MachinePrecision] code[a_, b$95$m_, angle_, x$45$scale_, y$45$scale_] := N[(180.0 * N[(N[ArcTan[N[(0.005555555555555556 * N[(angle * N[(Pi * N[(y$45$scale / x$45$scale), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / Pi), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
b_m = \left|b\right|
\\
180 \cdot \frac{\tan^{-1} \left(0.005555555555555556 \cdot \left(angle \cdot \left(\pi \cdot \frac{y-scale}{x-scale}\right)\right)\right)}{\pi}
\end{array}
Initial program 19.2%
Taylor expanded in x-scale around 0
associate-*r/N/A
lower-/.f64N/A
Simplified32.5%
Taylor expanded in b around 0
lower-/.f64N/A
lower-*.f64N/A
lower-sin.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f64N/A
lower-*.f64N/A
lower-cos.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-PI.f6451.1
Simplified51.1%
Taylor expanded in angle around 0
lower-*.f64N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lower-PI.f6449.8
Simplified49.8%
lift-PI.f64N/A
*-commutativeN/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f6449.8
Applied egg-rr49.8%
herbie shell --seed 2024207
(FPCore (a b angle x-scale y-scale)
:name "raw-angle from scale-rotated-ellipse"
:precision binary64
(* 180.0 (/ (atan (/ (- (- (/ (/ (+ (pow (* a (cos (* (/ angle 180.0) PI))) 2.0) (pow (* b (sin (* (/ angle 180.0) PI))) 2.0)) y-scale) y-scale) (/ (/ (+ (pow (* a (sin (* (/ angle 180.0) PI))) 2.0) (pow (* b (cos (* (/ angle 180.0) PI))) 2.0)) x-scale) x-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)))) (/ (/ (* (* (* 2.0 (- (pow b 2.0) (pow a 2.0))) (sin (* (/ angle 180.0) PI))) (cos (* (/ angle 180.0) PI))) x-scale) y-scale))) PI)))