
(FPCore (x y) :precision binary64 (let* ((t_0 (/ x (* y 2.0)))) (/ (tan t_0) (sin t_0))))
double code(double x, double y) {
double t_0 = x / (y * 2.0);
return tan(t_0) / sin(t_0);
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
t_0 = x / (y * 2.0d0)
code = tan(t_0) / sin(t_0)
end function
public static double code(double x, double y) {
double t_0 = x / (y * 2.0);
return Math.tan(t_0) / Math.sin(t_0);
}
def code(x, y): t_0 = x / (y * 2.0) return math.tan(t_0) / math.sin(t_0)
function code(x, y) t_0 = Float64(x / Float64(y * 2.0)) return Float64(tan(t_0) / sin(t_0)) end
function tmp = code(x, y) t_0 = x / (y * 2.0); tmp = tan(t_0) / sin(t_0); end
code[x_, y_] := Block[{t$95$0 = N[(x / N[(y * 2.0), $MachinePrecision]), $MachinePrecision]}, N[(N[Tan[t$95$0], $MachinePrecision] / N[Sin[t$95$0], $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{x}{y \cdot 2}\\
\frac{\tan t\_0}{\sin t\_0}
\end{array}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 10 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y) :precision binary64 (let* ((t_0 (/ x (* y 2.0)))) (/ (tan t_0) (sin t_0))))
double code(double x, double y) {
double t_0 = x / (y * 2.0);
return tan(t_0) / sin(t_0);
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
t_0 = x / (y * 2.0d0)
code = tan(t_0) / sin(t_0)
end function
public static double code(double x, double y) {
double t_0 = x / (y * 2.0);
return Math.tan(t_0) / Math.sin(t_0);
}
def code(x, y): t_0 = x / (y * 2.0) return math.tan(t_0) / math.sin(t_0)
function code(x, y) t_0 = Float64(x / Float64(y * 2.0)) return Float64(tan(t_0) / sin(t_0)) end
function tmp = code(x, y) t_0 = x / (y * 2.0); tmp = tan(t_0) / sin(t_0); end
code[x_, y_] := Block[{t$95$0 = N[(x / N[(y * 2.0), $MachinePrecision]), $MachinePrecision]}, N[(N[Tan[t$95$0], $MachinePrecision] / N[Sin[t$95$0], $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{x}{y \cdot 2}\\
\frac{\tan t\_0}{\sin t\_0}
\end{array}
\end{array}
(FPCore (x y) :precision binary64 (let* ((t_0 (cbrt (cbrt y)))) (/ 1.0 (cos (* (/ (* 0.5 x) (pow t_0 2.0)) (/ (pow (cbrt y) -2.0) t_0))))))
double code(double x, double y) {
double t_0 = cbrt(cbrt(y));
return 1.0 / cos((((0.5 * x) / pow(t_0, 2.0)) * (pow(cbrt(y), -2.0) / t_0)));
}
public static double code(double x, double y) {
double t_0 = Math.cbrt(Math.cbrt(y));
return 1.0 / Math.cos((((0.5 * x) / Math.pow(t_0, 2.0)) * (Math.pow(Math.cbrt(y), -2.0) / t_0)));
}
function code(x, y) t_0 = cbrt(cbrt(y)) return Float64(1.0 / cos(Float64(Float64(Float64(0.5 * x) / (t_0 ^ 2.0)) * Float64((cbrt(y) ^ -2.0) / t_0)))) end
code[x_, y_] := Block[{t$95$0 = N[Power[N[Power[y, 1/3], $MachinePrecision], 1/3], $MachinePrecision]}, N[(1.0 / N[Cos[N[(N[(N[(0.5 * x), $MachinePrecision] / N[Power[t$95$0, 2.0], $MachinePrecision]), $MachinePrecision] * N[(N[Power[N[Power[y, 1/3], $MachinePrecision], -2.0], $MachinePrecision] / t$95$0), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt[3]{\sqrt[3]{y}}\\
\frac{1}{\cos \left(\frac{0.5 \cdot x}{{t\_0}^{2}} \cdot \frac{{\left(\sqrt[3]{y}\right)}^{-2}}{t\_0}\right)}
\end{array}
\end{array}
Initial program 40.1%
Taylor expanded in x around inf 54.6%
associate-*r/54.6%
add-sqr-sqrt27.8%
associate-/r*27.6%
Applied egg-rr27.6%
Applied egg-rr55.1%
(FPCore (x y) :precision binary64 (/ 1.0 (cos (/ (* (* 0.5 x) (/ (pow y -0.5) (pow y 0.16666666666666666))) (cbrt y)))))
double code(double x, double y) {
return 1.0 / cos((((0.5 * x) * (pow(y, -0.5) / pow(y, 0.16666666666666666))) / cbrt(y)));
}
public static double code(double x, double y) {
return 1.0 / Math.cos((((0.5 * x) * (Math.pow(y, -0.5) / Math.pow(y, 0.16666666666666666))) / Math.cbrt(y)));
}
function code(x, y) return Float64(1.0 / cos(Float64(Float64(Float64(0.5 * x) * Float64((y ^ -0.5) / (y ^ 0.16666666666666666))) / cbrt(y)))) end
code[x_, y_] := N[(1.0 / N[Cos[N[(N[(N[(0.5 * x), $MachinePrecision] * N[(N[Power[y, -0.5], $MachinePrecision] / N[Power[y, 0.16666666666666666], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[Power[y, 1/3], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{\cos \left(\frac{\left(0.5 \cdot x\right) \cdot \frac{{y}^{-0.5}}{{y}^{0.16666666666666666}}}{\sqrt[3]{y}}\right)}
\end{array}
Initial program 40.1%
Taylor expanded in x around inf 54.6%
associate-*r/54.6%
add-sqr-sqrt27.8%
associate-/r*27.6%
Applied egg-rr27.6%
div-inv27.3%
add-cbrt-cube27.1%
add-sqr-sqrt27.0%
cbrt-prod27.5%
times-frac27.6%
pow1/227.6%
pow-flip27.2%
metadata-eval27.2%
add-cube-cbrt27.5%
unpow227.5%
sqrt-prod27.6%
unpow227.6%
sqrt-prod27.6%
add-cbrt-cube27.3%
pow1/327.9%
sqrt-pow127.9%
metadata-eval27.9%
Applied egg-rr27.9%
associate-*l/28.1%
*-commutative28.1%
Simplified28.1%
Final simplification28.1%
(FPCore (x y) :precision binary64 (/ 1.0 (cos (* (/ 0.5 (cbrt y)) (/ x (* (pow y 0.16666666666666666) (sqrt y)))))))
double code(double x, double y) {
return 1.0 / cos(((0.5 / cbrt(y)) * (x / (pow(y, 0.16666666666666666) * sqrt(y)))));
}
public static double code(double x, double y) {
return 1.0 / Math.cos(((0.5 / Math.cbrt(y)) * (x / (Math.pow(y, 0.16666666666666666) * Math.sqrt(y)))));
}
function code(x, y) return Float64(1.0 / cos(Float64(Float64(0.5 / cbrt(y)) * Float64(x / Float64((y ^ 0.16666666666666666) * sqrt(y)))))) end
code[x_, y_] := N[(1.0 / N[Cos[N[(N[(0.5 / N[Power[y, 1/3], $MachinePrecision]), $MachinePrecision] * N[(x / N[(N[Power[y, 0.16666666666666666], $MachinePrecision] * N[Sqrt[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{\cos \left(\frac{0.5}{\sqrt[3]{y}} \cdot \frac{x}{{y}^{0.16666666666666666} \cdot \sqrt{y}}\right)}
\end{array}
Initial program 40.1%
Taylor expanded in x around inf 54.6%
associate-*r/54.6%
add-sqr-sqrt27.8%
associate-/r*27.6%
Applied egg-rr27.6%
*-un-lft-identity27.6%
add-cbrt-cube27.1%
add-sqr-sqrt27.1%
cbrt-prod27.3%
times-frac26.8%
associate-/l*26.8%
add-cube-cbrt26.8%
unpow226.8%
sqrt-prod26.8%
unpow226.8%
sqrt-prod26.9%
add-cbrt-cube27.1%
pow1/327.6%
sqrt-pow127.6%
metadata-eval27.6%
Applied egg-rr27.6%
associate-*l/27.8%
*-lft-identity27.8%
associate-/l*27.8%
associate-*l/27.6%
associate-/l/27.9%
Simplified27.9%
(FPCore (x y) :precision binary64 (/ 1.0 (cos (pow (pow (pow (/ x (* y 2.0)) 0.25) 2.0) 2.0))))
double code(double x, double y) {
return 1.0 / cos(pow(pow(pow((x / (y * 2.0)), 0.25), 2.0), 2.0));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 1.0d0 / cos(((((x / (y * 2.0d0)) ** 0.25d0) ** 2.0d0) ** 2.0d0))
end function
public static double code(double x, double y) {
return 1.0 / Math.cos(Math.pow(Math.pow(Math.pow((x / (y * 2.0)), 0.25), 2.0), 2.0));
}
def code(x, y): return 1.0 / math.cos(math.pow(math.pow(math.pow((x / (y * 2.0)), 0.25), 2.0), 2.0))
function code(x, y) return Float64(1.0 / cos((((Float64(x / Float64(y * 2.0)) ^ 0.25) ^ 2.0) ^ 2.0))) end
function tmp = code(x, y) tmp = 1.0 / cos(((((x / (y * 2.0)) ^ 0.25) ^ 2.0) ^ 2.0)); end
code[x_, y_] := N[(1.0 / N[Cos[N[Power[N[Power[N[Power[N[(x / N[(y * 2.0), $MachinePrecision]), $MachinePrecision], 0.25], $MachinePrecision], 2.0], $MachinePrecision], 2.0], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{\cos \left({\left({\left({\left(\frac{x}{y \cdot 2}\right)}^{0.25}\right)}^{2}\right)}^{2}\right)}
\end{array}
Initial program 40.1%
Taylor expanded in x around inf 54.6%
metadata-eval54.6%
times-frac54.6%
*-un-lft-identity54.6%
*-commutative54.6%
add-sqr-sqrt25.2%
frac-times25.3%
add-sqr-sqrt17.5%
pow217.5%
frac-times17.7%
add-sqr-sqrt37.8%
Applied egg-rr37.8%
add-sqr-sqrt37.6%
pow237.6%
pow1/237.6%
sqrt-pow137.8%
metadata-eval37.8%
Applied egg-rr37.8%
(FPCore (x y) :precision binary64 (/ 1.0 (cos (pow (exp (* 0.5 (log (/ x (* y 2.0))))) 2.0))))
double code(double x, double y) {
return 1.0 / cos(pow(exp((0.5 * log((x / (y * 2.0))))), 2.0));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 1.0d0 / cos((exp((0.5d0 * log((x / (y * 2.0d0))))) ** 2.0d0))
end function
public static double code(double x, double y) {
return 1.0 / Math.cos(Math.pow(Math.exp((0.5 * Math.log((x / (y * 2.0))))), 2.0));
}
def code(x, y): return 1.0 / math.cos(math.pow(math.exp((0.5 * math.log((x / (y * 2.0))))), 2.0))
function code(x, y) return Float64(1.0 / cos((exp(Float64(0.5 * log(Float64(x / Float64(y * 2.0))))) ^ 2.0))) end
function tmp = code(x, y) tmp = 1.0 / cos((exp((0.5 * log((x / (y * 2.0))))) ^ 2.0)); end
code[x_, y_] := N[(1.0 / N[Cos[N[Power[N[Exp[N[(0.5 * N[Log[N[(x / N[(y * 2.0), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision], 2.0], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{\cos \left({\left(e^{0.5 \cdot \log \left(\frac{x}{y \cdot 2}\right)}\right)}^{2}\right)}
\end{array}
Initial program 40.1%
Taylor expanded in x around inf 54.6%
metadata-eval54.6%
times-frac54.6%
*-un-lft-identity54.6%
*-commutative54.6%
add-sqr-sqrt25.2%
frac-times25.3%
add-sqr-sqrt17.5%
pow217.5%
frac-times17.7%
add-sqr-sqrt37.8%
Applied egg-rr37.8%
pow1/237.8%
pow-to-exp37.5%
Applied egg-rr37.5%
Final simplification37.5%
(FPCore (x y) :precision binary64 (/ 1.0 (cos (/ (/ (* 0.5 x) (sqrt y)) (sqrt y)))))
double code(double x, double y) {
return 1.0 / cos((((0.5 * x) / sqrt(y)) / sqrt(y)));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 1.0d0 / cos((((0.5d0 * x) / sqrt(y)) / sqrt(y)))
end function
public static double code(double x, double y) {
return 1.0 / Math.cos((((0.5 * x) / Math.sqrt(y)) / Math.sqrt(y)));
}
def code(x, y): return 1.0 / math.cos((((0.5 * x) / math.sqrt(y)) / math.sqrt(y)))
function code(x, y) return Float64(1.0 / cos(Float64(Float64(Float64(0.5 * x) / sqrt(y)) / sqrt(y)))) end
function tmp = code(x, y) tmp = 1.0 / cos((((0.5 * x) / sqrt(y)) / sqrt(y))); end
code[x_, y_] := N[(1.0 / N[Cos[N[(N[(N[(0.5 * x), $MachinePrecision] / N[Sqrt[y], $MachinePrecision]), $MachinePrecision] / N[Sqrt[y], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{\cos \left(\frac{\frac{0.5 \cdot x}{\sqrt{y}}}{\sqrt{y}}\right)}
\end{array}
Initial program 40.1%
Taylor expanded in x around inf 54.6%
associate-*r/54.6%
add-sqr-sqrt27.8%
associate-/r*27.6%
Applied egg-rr27.6%
(FPCore (x y) :precision binary64 (/ 1.0 (cos (/ 1.0 (* y (/ 2.0 x))))))
double code(double x, double y) {
return 1.0 / cos((1.0 / (y * (2.0 / x))));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 1.0d0 / cos((1.0d0 / (y * (2.0d0 / x))))
end function
public static double code(double x, double y) {
return 1.0 / Math.cos((1.0 / (y * (2.0 / x))));
}
def code(x, y): return 1.0 / math.cos((1.0 / (y * (2.0 / x))))
function code(x, y) return Float64(1.0 / cos(Float64(1.0 / Float64(y * Float64(2.0 / x))))) end
function tmp = code(x, y) tmp = 1.0 / cos((1.0 / (y * (2.0 / x)))); end
code[x_, y_] := N[(1.0 / N[Cos[N[(1.0 / N[(y * N[(2.0 / x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{\cos \left(\frac{1}{y \cdot \frac{2}{x}}\right)}
\end{array}
Initial program 40.1%
Taylor expanded in x around inf 54.6%
metadata-eval54.6%
times-frac54.6%
*-un-lft-identity54.6%
*-commutative54.6%
clear-num54.6%
associate-/l*54.6%
Applied egg-rr54.6%
(FPCore (x y) :precision binary64 (/ 1.0 (cos (/ 0.5 (/ y x)))))
double code(double x, double y) {
return 1.0 / cos((0.5 / (y / x)));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 1.0d0 / cos((0.5d0 / (y / x)))
end function
public static double code(double x, double y) {
return 1.0 / Math.cos((0.5 / (y / x)));
}
def code(x, y): return 1.0 / math.cos((0.5 / (y / x)))
function code(x, y) return Float64(1.0 / cos(Float64(0.5 / Float64(y / x)))) end
function tmp = code(x, y) tmp = 1.0 / cos((0.5 / (y / x))); end
code[x_, y_] := N[(1.0 / N[Cos[N[(0.5 / N[(y / x), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{\cos \left(\frac{0.5}{\frac{y}{x}}\right)}
\end{array}
Initial program 40.1%
Taylor expanded in x around inf 54.6%
clear-num54.6%
un-div-inv54.6%
Applied egg-rr54.6%
(FPCore (x y) :precision binary64 (/ 1.0 (cos (* 0.5 (/ x y)))))
double code(double x, double y) {
return 1.0 / cos((0.5 * (x / y)));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 1.0d0 / cos((0.5d0 * (x / y)))
end function
public static double code(double x, double y) {
return 1.0 / Math.cos((0.5 * (x / y)));
}
def code(x, y): return 1.0 / math.cos((0.5 * (x / y)))
function code(x, y) return Float64(1.0 / cos(Float64(0.5 * Float64(x / y)))) end
function tmp = code(x, y) tmp = 1.0 / cos((0.5 * (x / y))); end
code[x_, y_] := N[(1.0 / N[Cos[N[(0.5 * N[(x / y), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{\cos \left(0.5 \cdot \frac{x}{y}\right)}
\end{array}
Initial program 40.1%
Taylor expanded in x around inf 54.6%
(FPCore (x y) :precision binary64 1.0)
double code(double x, double y) {
return 1.0;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 1.0d0
end function
public static double code(double x, double y) {
return 1.0;
}
def code(x, y): return 1.0
function code(x, y) return 1.0 end
function tmp = code(x, y) tmp = 1.0; end
code[x_, y_] := 1.0
\begin{array}{l}
\\
1
\end{array}
Initial program 40.1%
remove-double-neg40.1%
distribute-frac-neg40.1%
tan-neg40.1%
distribute-frac-neg240.1%
distribute-lft-neg-out40.1%
distribute-frac-neg240.1%
distribute-lft-neg-out40.1%
distribute-frac-neg240.1%
distribute-frac-neg40.1%
neg-mul-140.1%
*-commutative40.1%
associate-/l*39.8%
*-commutative39.8%
associate-/r*39.8%
metadata-eval39.8%
sin-neg39.8%
distribute-frac-neg39.8%
Simplified39.8%
Taylor expanded in x around 0 53.8%
(FPCore (x y)
:precision binary64
(let* ((t_0 (/ x (* y 2.0))) (t_1 (sin t_0)))
(if (< y -1.2303690911306994e+114)
1.0
(if (< y -9.102852406811914e-222)
(/ t_1 (* t_1 (log (exp (cos t_0)))))
1.0))))
double code(double x, double y) {
double t_0 = x / (y * 2.0);
double t_1 = sin(t_0);
double tmp;
if (y < -1.2303690911306994e+114) {
tmp = 1.0;
} else if (y < -9.102852406811914e-222) {
tmp = t_1 / (t_1 * log(exp(cos(t_0))));
} else {
tmp = 1.0;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: tmp
t_0 = x / (y * 2.0d0)
t_1 = sin(t_0)
if (y < (-1.2303690911306994d+114)) then
tmp = 1.0d0
else if (y < (-9.102852406811914d-222)) then
tmp = t_1 / (t_1 * log(exp(cos(t_0))))
else
tmp = 1.0d0
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = x / (y * 2.0);
double t_1 = Math.sin(t_0);
double tmp;
if (y < -1.2303690911306994e+114) {
tmp = 1.0;
} else if (y < -9.102852406811914e-222) {
tmp = t_1 / (t_1 * Math.log(Math.exp(Math.cos(t_0))));
} else {
tmp = 1.0;
}
return tmp;
}
def code(x, y): t_0 = x / (y * 2.0) t_1 = math.sin(t_0) tmp = 0 if y < -1.2303690911306994e+114: tmp = 1.0 elif y < -9.102852406811914e-222: tmp = t_1 / (t_1 * math.log(math.exp(math.cos(t_0)))) else: tmp = 1.0 return tmp
function code(x, y) t_0 = Float64(x / Float64(y * 2.0)) t_1 = sin(t_0) tmp = 0.0 if (y < -1.2303690911306994e+114) tmp = 1.0; elseif (y < -9.102852406811914e-222) tmp = Float64(t_1 / Float64(t_1 * log(exp(cos(t_0))))); else tmp = 1.0; end return tmp end
function tmp_2 = code(x, y) t_0 = x / (y * 2.0); t_1 = sin(t_0); tmp = 0.0; if (y < -1.2303690911306994e+114) tmp = 1.0; elseif (y < -9.102852406811914e-222) tmp = t_1 / (t_1 * log(exp(cos(t_0)))); else tmp = 1.0; end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(x / N[(y * 2.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Sin[t$95$0], $MachinePrecision]}, If[Less[y, -1.2303690911306994e+114], 1.0, If[Less[y, -9.102852406811914e-222], N[(t$95$1 / N[(t$95$1 * N[Log[N[Exp[N[Cos[t$95$0], $MachinePrecision]], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 1.0]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{x}{y \cdot 2}\\
t_1 := \sin t\_0\\
\mathbf{if}\;y < -1.2303690911306994 \cdot 10^{+114}:\\
\;\;\;\;1\\
\mathbf{elif}\;y < -9.102852406811914 \cdot 10^{-222}:\\
\;\;\;\;\frac{t\_1}{t\_1 \cdot \log \left(e^{\cos t\_0}\right)}\\
\mathbf{else}:\\
\;\;\;\;1\\
\end{array}
\end{array}
herbie shell --seed 2024163
(FPCore (x y)
:name "Diagrams.TwoD.Layout.CirclePacking:approxRadius from diagrams-contrib-1.3.0.5"
:precision binary64
:alt
(! :herbie-platform default (if (< y -1230369091130699400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) 1 (if (< y -4551426203405957/500000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) (/ (sin (/ x (* y 2))) (* (sin (/ x (* y 2))) (log (exp (cos (/ x (* y 2))))))) 1)))
(/ (tan (/ x (* y 2.0))) (sin (/ x (* y 2.0)))))