\frac{\tan \left(\frac{x}{y \cdot 2}\right)}{\sin \left(\frac{x}{y \cdot 2}\right)}\begin{array}{l}
\mathbf{if}\;\frac{\tan \left(\frac{x}{y \cdot 2}\right)}{\sin \left(\frac{x}{y \cdot 2}\right)} \le 1.770366858518491293139618392160627990961:\\
\;\;\;\;\frac{\sin \left(\frac{x}{y \cdot 2}\right)}{\sin \left(\frac{x}{y \cdot 2}\right) \cdot \log \left(e^{\cos \left(\frac{x}{y \cdot 2}\right)}\right)}\\
\mathbf{else}:\\
\;\;\;\;1\\
\end{array}double f(double x, double y) {
double r639061 = x;
double r639062 = y;
double r639063 = 2.0;
double r639064 = r639062 * r639063;
double r639065 = r639061 / r639064;
double r639066 = tan(r639065);
double r639067 = sin(r639065);
double r639068 = r639066 / r639067;
return r639068;
}
double f(double x, double y) {
double r639069 = x;
double r639070 = y;
double r639071 = 2.0;
double r639072 = r639070 * r639071;
double r639073 = r639069 / r639072;
double r639074 = tan(r639073);
double r639075 = sin(r639073);
double r639076 = r639074 / r639075;
double r639077 = 1.7703668585184913;
bool r639078 = r639076 <= r639077;
double r639079 = cos(r639073);
double r639080 = exp(r639079);
double r639081 = log(r639080);
double r639082 = r639075 * r639081;
double r639083 = r639075 / r639082;
double r639084 = 1.0;
double r639085 = r639078 ? r639083 : r639084;
return r639085;
}




Bits error versus x




Bits error versus y
Results
| Original | 35.6 |
|---|---|
| Target | 29.0 |
| Herbie | 27.6 |
if (/ (tan (/ x (* y 2.0))) (sin (/ x (* y 2.0)))) < 1.7703668585184913Initial program 23.9
rmApplied tan-quot23.9
Applied associate-/l/23.9
rmApplied add-log-exp23.9
if 1.7703668585184913 < (/ (tan (/ x (* y 2.0))) (sin (/ x (* y 2.0)))) Initial program 61.9
Taylor expanded around 0 35.8
Final simplification27.6
herbie shell --seed 2019323 +o rules:numerics
(FPCore (x y)
:name "Diagrams.TwoD.Layout.CirclePacking:approxRadius from diagrams-contrib-1.3.0.5"
:precision binary64
:herbie-target
(if (< y -1.2303690911306994e+114) 1 (if (< y -9.102852406811914e-222) (/ (sin (/ x (* y 2))) (* (sin (/ x (* y 2))) (log (exp (cos (/ x (* y 2))))))) 1))
(/ (tan (/ x (* y 2))) (sin (/ x (* y 2)))))