180 \cdot \frac{\tan^{-1} \left(\frac{\left(\frac{\frac{{\left(a \cdot \cos \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2} + {\left(b \cdot \sin \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2}}{y-scale}}{y-scale} - \frac{\frac{{\left(a \cdot \sin \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2} + {\left(b \cdot \cos \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2}}{x-scale}}{x-scale}\right) - \sqrt{{\left(\frac{\frac{{\left(a \cdot \sin \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2} + {\left(b \cdot \cos \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2}}{x-scale}}{x-scale} - \frac{\frac{{\left(a \cdot \cos \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2} + {\left(b \cdot \sin \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2}}{y-scale}}{y-scale}\right)}^{2} + {\left(\frac{\frac{\left(\left(2 \cdot \left({b}^{2} - {a}^{2}\right)\right) \cdot \sin \left(\frac{angle}{180} \cdot \pi\right)\right) \cdot \cos \left(\frac{angle}{180} \cdot \pi\right)}{x-scale}}{y-scale}\right)}^{2}}}{\frac{\frac{\left(\left(2 \cdot \left({b}^{2} - {a}^{2}\right)\right) \cdot \sin \left(\frac{angle}{180} \cdot \pi\right)\right) \cdot \cos \left(\frac{angle}{180} \cdot \pi\right)}{x-scale}}{y-scale}}\right)}{\pi}\begin{array}{l}
\mathbf{if}\;\frac{\left(\frac{\frac{{\left(a \cdot \cos \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2} + {\left(b \cdot \sin \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2}}{y-scale}}{y-scale} - \frac{\frac{{\left(a \cdot \sin \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2} + {\left(\cos \left(\frac{angle}{180} \cdot \pi\right) \cdot b\right)}^{2}}{x-scale}}{x-scale}\right) - \sqrt{{\left(\frac{\frac{{\left(a \cdot \sin \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2} + {\left(\cos \left(\frac{angle}{180} \cdot \pi\right) \cdot b\right)}^{2}}{x-scale}}{x-scale} - \frac{\frac{{\left(a \cdot \cos \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2} + {\left(b \cdot \sin \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2}}{y-scale}}{y-scale}\right)}^{2} + {\left(\frac{\frac{\cos \left(\frac{angle}{180} \cdot \pi\right) \cdot \left(\sin \left(\frac{angle}{180} \cdot \pi\right) \cdot \left(2 \cdot \left({b}^{2} - {a}^{2}\right)\right)\right)}{x-scale}}{y-scale}\right)}^{2}}}{\frac{\frac{\cos \left(\frac{angle}{180} \cdot \pi\right) \cdot \left(\sin \left(\frac{angle}{180} \cdot \pi\right) \cdot \left(2 \cdot \left({b}^{2} - {a}^{2}\right)\right)\right)}{x-scale}}{y-scale}} \leq \infty:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{\left(\frac{\frac{{\left(a \cdot \cos \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2} + {\left(b \cdot \sin \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2}}{y-scale}}{y-scale} - \frac{\frac{{\left(a \cdot \sin \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2} + {\left(\cos \left(\frac{angle}{180} \cdot \pi\right) \cdot b\right)}^{2}}{x-scale}}{x-scale}\right) - \sqrt{{\left(\frac{\frac{\cos \left(\frac{angle}{180} \cdot \pi\right) \cdot \left(\sin \left(\frac{angle}{180} \cdot \pi\right) \cdot \left(2 \cdot \left({b}^{2} - {a}^{2}\right)\right)\right)}{x-scale}}{y-scale}\right)}^{2} + {\left(\frac{\frac{{\left(a \cdot \sin \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2} + {\left(\cos \left(\frac{angle}{180} \cdot \pi\right) \cdot b\right)}^{2}}{x-scale}}{x-scale} - \frac{\frac{{\left(a \cdot \cos \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2} + {\left(b \cdot \left(\sqrt[3]{\sin \left(\frac{angle}{180} \cdot \pi\right)} \cdot \left(\sqrt[3]{\sin \left(\frac{angle}{180} \cdot \pi\right)} \cdot \sqrt[3]{\sin \left(\frac{angle}{180} \cdot \pi\right)}\right)\right)\right)}^{2}}{y-scale}}{y-scale}\right)}^{2}}}{\frac{\frac{\cos \left(\frac{angle}{180} \cdot \pi\right) \cdot \left(\left(2 \cdot \left({b}^{2} - {a}^{2}\right)\right) \cdot \sin \left(0.005555555555555556 \cdot \left(angle \cdot \pi\right)\right)\right)}{x-scale}}{y-scale}}\right)}{\pi}\\
\mathbf{else}:\\
\;\;\;\;180 \cdot \frac{\tan^{-1} \left(\frac{\left(\frac{\frac{{\left(a \cdot \cos \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2} + {\left(b \cdot \sin \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2}}{y-scale}}{y-scale} - \frac{\frac{{\left(a \cdot \sin \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2} + {\left(\cos \left(\frac{angle}{180} \cdot \pi\right) \cdot b\right)}^{2}}{x-scale}}{x-scale}\right) - \sqrt{{\left(\frac{\frac{\cos \left(\frac{angle}{180} \cdot \pi\right) \cdot \left(\sin \left(\frac{angle}{180} \cdot \pi\right) \cdot \left(2 \cdot \left({b}^{2} - {a}^{2}\right)\right)\right)}{x-scale}}{y-scale}\right)}^{2} + {\left(\frac{\frac{{\left(a \cdot \sin \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2} + {\left(\cos \left(\frac{angle}{180} \cdot \pi\right) \cdot b\right)}^{2}}{x-scale}}{x-scale} - \frac{\frac{{\left(a \cdot \cos \left(\frac{angle}{180} \cdot \pi\right)\right)}^{2} + {\left(b \cdot \left(\sqrt[3]{\sin \left(\frac{angle}{180} \cdot \pi\right)} \cdot \left(\sqrt[3]{\sin \left(\frac{angle}{180} \cdot \pi\right)} \cdot \sqrt[3]{\sin \left(\frac{angle}{180} \cdot \pi\right)}\right)\right)\right)}^{2}}{y-scale}}{y-scale}\right)}^{2}}}{\frac{\frac{\cos \left(\frac{angle}{180} \cdot \pi\right) \cdot \left(\left(2 \cdot \left({b}^{2} - {a}^{2}\right)\right) \cdot \log \left(e^{\sin \left(\frac{angle}{180} \cdot \pi\right)}\right)\right)}{x-scale}}{y-scale}}\right)}{\pi}\\
\end{array}(FPCore (a b angle x-scale y-scale)
: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)))(FPCore (a b angle x-scale y-scale)
:precision binary64
(if (<=
(/
(-
(-
(/
(/
(+
(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 (* (cos (* (/ angle 180.0) PI)) b) 2.0))
x-scale)
x-scale))
(sqrt
(+
(pow
(-
(/
(/
(+
(pow (* a (sin (* (/ angle 180.0) PI))) 2.0)
(pow (* (cos (* (/ angle 180.0) PI)) b) 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
(/
(/
(*
(cos (* (/ angle 180.0) PI))
(*
(sin (* (/ angle 180.0) PI))
(* 2.0 (- (pow b 2.0) (pow a 2.0)))))
x-scale)
y-scale)
2.0))))
(/
(/
(*
(cos (* (/ angle 180.0) PI))
(* (sin (* (/ angle 180.0) PI)) (* 2.0 (- (pow b 2.0) (pow a 2.0)))))
x-scale)
y-scale))
INFINITY)
(*
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 (* (cos (* (/ angle 180.0) PI)) b) 2.0))
x-scale)
x-scale))
(sqrt
(+
(pow
(/
(/
(*
(cos (* (/ angle 180.0) PI))
(*
(sin (* (/ angle 180.0) PI))
(* 2.0 (- (pow b 2.0) (pow a 2.0)))))
x-scale)
y-scale)
2.0)
(pow
(-
(/
(/
(+
(pow (* a (sin (* (/ angle 180.0) PI))) 2.0)
(pow (* (cos (* (/ angle 180.0) PI)) b) 2.0))
x-scale)
x-scale)
(/
(/
(+
(pow (* a (cos (* (/ angle 180.0) PI))) 2.0)
(pow
(*
b
(*
(cbrt (sin (* (/ angle 180.0) PI)))
(*
(cbrt (sin (* (/ angle 180.0) PI)))
(cbrt (sin (* (/ angle 180.0) PI))))))
2.0))
y-scale)
y-scale))
2.0))))
(/
(/
(*
(cos (* (/ angle 180.0) PI))
(*
(* 2.0 (- (pow b 2.0) (pow a 2.0)))
(sin (* 0.005555555555555556 (* angle PI)))))
x-scale)
y-scale)))
PI))
(*
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 (* (cos (* (/ angle 180.0) PI)) b) 2.0))
x-scale)
x-scale))
(sqrt
(+
(pow
(/
(/
(*
(cos (* (/ angle 180.0) PI))
(*
(sin (* (/ angle 180.0) PI))
(* 2.0 (- (pow b 2.0) (pow a 2.0)))))
x-scale)
y-scale)
2.0)
(pow
(-
(/
(/
(+
(pow (* a (sin (* (/ angle 180.0) PI))) 2.0)
(pow (* (cos (* (/ angle 180.0) PI)) b) 2.0))
x-scale)
x-scale)
(/
(/
(+
(pow (* a (cos (* (/ angle 180.0) PI))) 2.0)
(pow
(*
b
(*
(cbrt (sin (* (/ angle 180.0) PI)))
(*
(cbrt (sin (* (/ angle 180.0) PI)))
(cbrt (sin (* (/ angle 180.0) PI))))))
2.0))
y-scale)
y-scale))
2.0))))
(/
(/
(*
(cos (* (/ angle 180.0) PI))
(*
(* 2.0 (- (pow b 2.0) (pow a 2.0)))
(log (exp (sin (* (/ angle 180.0) PI))))))
x-scale)
y-scale)))
PI))))double code(double a, double b, double angle, double x_45_scale, double y_45_scale) {
return 180.0 * (atan((((((pow((a * cos((angle / 180.0) * ((double) M_PI))), 2.0) + pow((b * sin((angle / 180.0) * ((double) M_PI))), 2.0)) / y_45_scale) / y_45_scale) - (((pow((a * sin((angle / 180.0) * ((double) M_PI))), 2.0) + pow((b * cos((angle / 180.0) * ((double) M_PI))), 2.0)) / x_45_scale) / x_45_scale)) - sqrt(pow(((((pow((a * sin((angle / 180.0) * ((double) M_PI))), 2.0) + pow((b * cos((angle / 180.0) * ((double) M_PI))), 2.0)) / x_45_scale) / x_45_scale) - (((pow((a * cos((angle / 180.0) * ((double) M_PI))), 2.0) + pow((b * sin((angle / 180.0) * ((double) M_PI))), 2.0)) / y_45_scale) / y_45_scale)), 2.0) + pow((((((2.0 * (pow(b, 2.0) - pow(a, 2.0))) * sin((angle / 180.0) * ((double) M_PI))) * cos((angle / 180.0) * ((double) M_PI))) / x_45_scale) / y_45_scale), 2.0))) / (((((2.0 * (pow(b, 2.0) - pow(a, 2.0))) * sin((angle / 180.0) * ((double) M_PI))) * cos((angle / 180.0) * ((double) M_PI))) / x_45_scale) / y_45_scale)) / ((double) M_PI));
}
double code(double a, double b, double angle, double x_45_scale, double y_45_scale) {
double tmp;
if (((((((pow((a * cos((angle / 180.0) * ((double) M_PI))), 2.0) + pow((b * sin((angle / 180.0) * ((double) M_PI))), 2.0)) / y_45_scale) / y_45_scale) - (((pow((a * sin((angle / 180.0) * ((double) M_PI))), 2.0) + pow((cos((angle / 180.0) * ((double) M_PI)) * b), 2.0)) / x_45_scale) / x_45_scale)) - sqrt(pow(((((pow((a * sin((angle / 180.0) * ((double) M_PI))), 2.0) + pow((cos((angle / 180.0) * ((double) M_PI)) * b), 2.0)) / x_45_scale) / x_45_scale) - (((pow((a * cos((angle / 180.0) * ((double) M_PI))), 2.0) + pow((b * sin((angle / 180.0) * ((double) M_PI))), 2.0)) / y_45_scale) / y_45_scale)), 2.0) + pow((((cos((angle / 180.0) * ((double) M_PI)) * (sin((angle / 180.0) * ((double) M_PI)) * (2.0 * (pow(b, 2.0) - pow(a, 2.0))))) / x_45_scale) / y_45_scale), 2.0))) / (((cos((angle / 180.0) * ((double) M_PI)) * (sin((angle / 180.0) * ((double) M_PI)) * (2.0 * (pow(b, 2.0) - pow(a, 2.0))))) / x_45_scale) / y_45_scale)) <= ((double) INFINITY)) {
tmp = 180.0 * (atan((((((pow((a * cos((angle / 180.0) * ((double) M_PI))), 2.0) + pow((b * sin((angle / 180.0) * ((double) M_PI))), 2.0)) / y_45_scale) / y_45_scale) - (((pow((a * sin((angle / 180.0) * ((double) M_PI))), 2.0) + pow((cos((angle / 180.0) * ((double) M_PI)) * b), 2.0)) / x_45_scale) / x_45_scale)) - sqrt(pow((((cos((angle / 180.0) * ((double) M_PI)) * (sin((angle / 180.0) * ((double) M_PI)) * (2.0 * (pow(b, 2.0) - pow(a, 2.0))))) / x_45_scale) / y_45_scale), 2.0) + pow(((((pow((a * sin((angle / 180.0) * ((double) M_PI))), 2.0) + pow((cos((angle / 180.0) * ((double) M_PI)) * b), 2.0)) / x_45_scale) / x_45_scale) - (((pow((a * cos((angle / 180.0) * ((double) M_PI))), 2.0) + pow((b * (cbrt(sin((angle / 180.0) * ((double) M_PI))) * (cbrt(sin((angle / 180.0) * ((double) M_PI))) * cbrt(sin((angle / 180.0) * ((double) M_PI)))))), 2.0)) / y_45_scale) / y_45_scale)), 2.0))) / (((cos((angle / 180.0) * ((double) M_PI)) * ((2.0 * (pow(b, 2.0) - pow(a, 2.0))) * sin(0.005555555555555556 * (angle * ((double) M_PI))))) / x_45_scale) / y_45_scale)) / ((double) M_PI));
} else {
tmp = 180.0 * (atan((((((pow((a * cos((angle / 180.0) * ((double) M_PI))), 2.0) + pow((b * sin((angle / 180.0) * ((double) M_PI))), 2.0)) / y_45_scale) / y_45_scale) - (((pow((a * sin((angle / 180.0) * ((double) M_PI))), 2.0) + pow((cos((angle / 180.0) * ((double) M_PI)) * b), 2.0)) / x_45_scale) / x_45_scale)) - sqrt(pow((((cos((angle / 180.0) * ((double) M_PI)) * (sin((angle / 180.0) * ((double) M_PI)) * (2.0 * (pow(b, 2.0) - pow(a, 2.0))))) / x_45_scale) / y_45_scale), 2.0) + pow(((((pow((a * sin((angle / 180.0) * ((double) M_PI))), 2.0) + pow((cos((angle / 180.0) * ((double) M_PI)) * b), 2.0)) / x_45_scale) / x_45_scale) - (((pow((a * cos((angle / 180.0) * ((double) M_PI))), 2.0) + pow((b * (cbrt(sin((angle / 180.0) * ((double) M_PI))) * (cbrt(sin((angle / 180.0) * ((double) M_PI))) * cbrt(sin((angle / 180.0) * ((double) M_PI)))))), 2.0)) / y_45_scale) / y_45_scale)), 2.0))) / (((cos((angle / 180.0) * ((double) M_PI)) * ((2.0 * (pow(b, 2.0) - pow(a, 2.0))) * log(exp(sin((angle / 180.0) * ((double) M_PI)))))) / x_45_scale) / y_45_scale)) / ((double) M_PI));
}
return tmp;
}



Bits error versus a



Bits error versus b



Bits error versus angle



Bits error versus x-scale



Bits error versus y-scale
Results
if (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) PI.f64))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) PI.f64))) 2)) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) PI.f64))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) PI.f64))) 2)) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) PI.f64))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) PI.f64))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) PI.f64))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) PI.f64))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 a 2))) (sin.f64 (*.f64 (/.f64 angle 180) PI.f64))) (cos.f64 (*.f64 (/.f64 angle 180) PI.f64))) x-scale) y-scale) 2)))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 a 2))) (sin.f64 (*.f64 (/.f64 angle 180) PI.f64))) (cos.f64 (*.f64 (/.f64 angle 180) PI.f64))) x-scale) y-scale)) < +inf.0Initial program 31.3
rmApplied add-cube-cbrt_binary6431.4
Simplified31.4
Simplified31.4
Taylor expanded around inf 31.5
if +inf.0 < (/.f64 (-.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) PI.f64))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) PI.f64))) 2)) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) PI.f64))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) PI.f64))) 2)) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) PI.f64))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) PI.f64))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) PI.f64))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) PI.f64))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 a 2))) (sin.f64 (*.f64 (/.f64 angle 180) PI.f64))) (cos.f64 (*.f64 (/.f64 angle 180) PI.f64))) x-scale) y-scale) 2)))) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 a 2))) (sin.f64 (*.f64 (/.f64 angle 180) PI.f64))) (cos.f64 (*.f64 (/.f64 angle 180) PI.f64))) x-scale) y-scale)) Initial program 64.0
rmApplied add-cube-cbrt_binary6464.0
Simplified64.0
Simplified64.0
rmApplied add-log-exp_binary6463.4
Simplified63.4
Final simplification54.9
herbie shell --seed 2021148
(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)))