
(FPCore (x y) :precision binary64 (- (- 1.0 (/ 1.0 (* x 9.0))) (/ y (* 3.0 (sqrt x)))))
double code(double x, double y) {
return (1.0 - (1.0 / (x * 9.0))) - (y / (3.0 * sqrt(x)));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (1.0d0 - (1.0d0 / (x * 9.0d0))) - (y / (3.0d0 * sqrt(x)))
end function
public static double code(double x, double y) {
return (1.0 - (1.0 / (x * 9.0))) - (y / (3.0 * Math.sqrt(x)));
}
def code(x, y): return (1.0 - (1.0 / (x * 9.0))) - (y / (3.0 * math.sqrt(x)))
function code(x, y) return Float64(Float64(1.0 - Float64(1.0 / Float64(x * 9.0))) - Float64(y / Float64(3.0 * sqrt(x)))) end
function tmp = code(x, y) tmp = (1.0 - (1.0 / (x * 9.0))) - (y / (3.0 * sqrt(x))); end
code[x_, y_] := N[(N[(1.0 - N[(1.0 / N[(x * 9.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(y / N[(3.0 * N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(1 - \frac{1}{x \cdot 9}\right) - \frac{y}{3 \cdot \sqrt{x}}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 20 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y) :precision binary64 (- (- 1.0 (/ 1.0 (* x 9.0))) (/ y (* 3.0 (sqrt x)))))
double code(double x, double y) {
return (1.0 - (1.0 / (x * 9.0))) - (y / (3.0 * sqrt(x)));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (1.0d0 - (1.0d0 / (x * 9.0d0))) - (y / (3.0d0 * sqrt(x)))
end function
public static double code(double x, double y) {
return (1.0 - (1.0 / (x * 9.0))) - (y / (3.0 * Math.sqrt(x)));
}
def code(x, y): return (1.0 - (1.0 / (x * 9.0))) - (y / (3.0 * math.sqrt(x)))
function code(x, y) return Float64(Float64(1.0 - Float64(1.0 / Float64(x * 9.0))) - Float64(y / Float64(3.0 * sqrt(x)))) end
function tmp = code(x, y) tmp = (1.0 - (1.0 / (x * 9.0))) - (y / (3.0 * sqrt(x))); end
code[x_, y_] := N[(N[(1.0 - N[(1.0 / N[(x * 9.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(y / N[(3.0 * N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(1 - \frac{1}{x \cdot 9}\right) - \frac{y}{3 \cdot \sqrt{x}}
\end{array}
(FPCore (x y) :precision binary64 (- (+ 1.0 (/ -1.0 (* x 9.0))) (/ y (* 3.0 (sqrt x)))))
double code(double x, double y) {
return (1.0 + (-1.0 / (x * 9.0))) - (y / (3.0 * sqrt(x)));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (1.0d0 + ((-1.0d0) / (x * 9.0d0))) - (y / (3.0d0 * sqrt(x)))
end function
public static double code(double x, double y) {
return (1.0 + (-1.0 / (x * 9.0))) - (y / (3.0 * Math.sqrt(x)));
}
def code(x, y): return (1.0 + (-1.0 / (x * 9.0))) - (y / (3.0 * math.sqrt(x)))
function code(x, y) return Float64(Float64(1.0 + Float64(-1.0 / Float64(x * 9.0))) - Float64(y / Float64(3.0 * sqrt(x)))) end
function tmp = code(x, y) tmp = (1.0 + (-1.0 / (x * 9.0))) - (y / (3.0 * sqrt(x))); end
code[x_, y_] := N[(N[(1.0 + N[(-1.0 / N[(x * 9.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(y / N[(3.0 * N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(1 + \frac{-1}{x \cdot 9}\right) - \frac{y}{3 \cdot \sqrt{x}}
\end{array}
Initial program 99.7%
Final simplification99.7%
(FPCore (x y) :precision binary64 (if (or (<= y -3.8e+56) (not (<= y 4.7e+33))) (+ 1.0 (* -0.3333333333333333 (/ y (sqrt x)))) (+ 1.0 (/ -0.1111111111111111 x))))
double code(double x, double y) {
double tmp;
if ((y <= -3.8e+56) || !(y <= 4.7e+33)) {
tmp = 1.0 + (-0.3333333333333333 * (y / sqrt(x)));
} else {
tmp = 1.0 + (-0.1111111111111111 / x);
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if ((y <= (-3.8d+56)) .or. (.not. (y <= 4.7d+33))) then
tmp = 1.0d0 + ((-0.3333333333333333d0) * (y / sqrt(x)))
else
tmp = 1.0d0 + ((-0.1111111111111111d0) / x)
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if ((y <= -3.8e+56) || !(y <= 4.7e+33)) {
tmp = 1.0 + (-0.3333333333333333 * (y / Math.sqrt(x)));
} else {
tmp = 1.0 + (-0.1111111111111111 / x);
}
return tmp;
}
def code(x, y): tmp = 0 if (y <= -3.8e+56) or not (y <= 4.7e+33): tmp = 1.0 + (-0.3333333333333333 * (y / math.sqrt(x))) else: tmp = 1.0 + (-0.1111111111111111 / x) return tmp
function code(x, y) tmp = 0.0 if ((y <= -3.8e+56) || !(y <= 4.7e+33)) tmp = Float64(1.0 + Float64(-0.3333333333333333 * Float64(y / sqrt(x)))); else tmp = Float64(1.0 + Float64(-0.1111111111111111 / x)); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if ((y <= -3.8e+56) || ~((y <= 4.7e+33))) tmp = 1.0 + (-0.3333333333333333 * (y / sqrt(x))); else tmp = 1.0 + (-0.1111111111111111 / x); end tmp_2 = tmp; end
code[x_, y_] := If[Or[LessEqual[y, -3.8e+56], N[Not[LessEqual[y, 4.7e+33]], $MachinePrecision]], N[(1.0 + N[(-0.3333333333333333 * N[(y / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(1.0 + N[(-0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -3.8 \cdot 10^{+56} \lor \neg \left(y \leq 4.7 \cdot 10^{+33}\right):\\
\;\;\;\;1 + -0.3333333333333333 \cdot \frac{y}{\sqrt{x}}\\
\mathbf{else}:\\
\;\;\;\;1 + \frac{-0.1111111111111111}{x}\\
\end{array}
\end{array}
if y < -3.79999999999999996e56 or 4.6999999999999998e33 < y Initial program 99.6%
sub-neg99.6%
distribute-frac-neg99.6%
*-commutative99.6%
associate-/r*99.6%
metadata-eval99.6%
neg-mul-199.6%
times-frac99.4%
metadata-eval99.4%
Simplified99.4%
Taylor expanded in x around inf 88.9%
if -3.79999999999999996e56 < y < 4.6999999999999998e33Initial program 99.8%
sub-neg99.8%
+-commutative99.8%
associate--l+99.8%
distribute-neg-frac99.8%
metadata-eval99.8%
*-commutative99.8%
associate-/r*99.7%
metadata-eval99.7%
sub-neg99.7%
distribute-frac-neg99.7%
+-commutative99.7%
neg-mul-199.7%
*-commutative99.7%
associate-*r/99.7%
fma-def99.7%
associate-/r*99.7%
metadata-eval99.7%
Simplified99.7%
fma-udef99.7%
Applied egg-rr99.7%
Taylor expanded in y around 0 99.0%
cancel-sign-sub-inv99.0%
metadata-eval99.0%
associate-*r/99.1%
metadata-eval99.1%
Simplified99.1%
Final simplification94.5%
(FPCore (x y) :precision binary64 (if (or (<= y -3.9e+56) (not (<= y 6.2e+33))) (- 1.0 (/ y (sqrt (* x 9.0)))) (+ 1.0 (/ -0.1111111111111111 x))))
double code(double x, double y) {
double tmp;
if ((y <= -3.9e+56) || !(y <= 6.2e+33)) {
tmp = 1.0 - (y / sqrt((x * 9.0)));
} else {
tmp = 1.0 + (-0.1111111111111111 / x);
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if ((y <= (-3.9d+56)) .or. (.not. (y <= 6.2d+33))) then
tmp = 1.0d0 - (y / sqrt((x * 9.0d0)))
else
tmp = 1.0d0 + ((-0.1111111111111111d0) / x)
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if ((y <= -3.9e+56) || !(y <= 6.2e+33)) {
tmp = 1.0 - (y / Math.sqrt((x * 9.0)));
} else {
tmp = 1.0 + (-0.1111111111111111 / x);
}
return tmp;
}
def code(x, y): tmp = 0 if (y <= -3.9e+56) or not (y <= 6.2e+33): tmp = 1.0 - (y / math.sqrt((x * 9.0))) else: tmp = 1.0 + (-0.1111111111111111 / x) return tmp
function code(x, y) tmp = 0.0 if ((y <= -3.9e+56) || !(y <= 6.2e+33)) tmp = Float64(1.0 - Float64(y / sqrt(Float64(x * 9.0)))); else tmp = Float64(1.0 + Float64(-0.1111111111111111 / x)); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if ((y <= -3.9e+56) || ~((y <= 6.2e+33))) tmp = 1.0 - (y / sqrt((x * 9.0))); else tmp = 1.0 + (-0.1111111111111111 / x); end tmp_2 = tmp; end
code[x_, y_] := If[Or[LessEqual[y, -3.9e+56], N[Not[LessEqual[y, 6.2e+33]], $MachinePrecision]], N[(1.0 - N[(y / N[Sqrt[N[(x * 9.0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(1.0 + N[(-0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -3.9 \cdot 10^{+56} \lor \neg \left(y \leq 6.2 \cdot 10^{+33}\right):\\
\;\;\;\;1 - \frac{y}{\sqrt{x \cdot 9}}\\
\mathbf{else}:\\
\;\;\;\;1 + \frac{-0.1111111111111111}{x}\\
\end{array}
\end{array}
if y < -3.89999999999999994e56 or 6.2e33 < y Initial program 99.6%
Taylor expanded in x around 0 99.6%
Taylor expanded in x around inf 89.0%
*-commutative89.0%
metadata-eval89.0%
sqrt-prod89.0%
pow1/289.0%
Applied egg-rr89.0%
unpow1/289.0%
Simplified89.0%
if -3.89999999999999994e56 < y < 6.2e33Initial program 99.8%
sub-neg99.8%
+-commutative99.8%
associate--l+99.8%
distribute-neg-frac99.8%
metadata-eval99.8%
*-commutative99.8%
associate-/r*99.7%
metadata-eval99.7%
sub-neg99.7%
distribute-frac-neg99.7%
+-commutative99.7%
neg-mul-199.7%
*-commutative99.7%
associate-*r/99.7%
fma-def99.7%
associate-/r*99.7%
metadata-eval99.7%
Simplified99.7%
fma-udef99.7%
Applied egg-rr99.7%
Taylor expanded in y around 0 99.0%
cancel-sign-sub-inv99.0%
metadata-eval99.0%
associate-*r/99.1%
metadata-eval99.1%
Simplified99.1%
Final simplification94.6%
(FPCore (x y)
:precision binary64
(if (<= y -8.6e+56)
(+ 1.0 (* -0.3333333333333333 (/ y (sqrt x))))
(if (<= y 2e+33)
(+ 1.0 (/ -0.1111111111111111 x))
(+ 1.0 (* y (/ -0.3333333333333333 (sqrt x)))))))
double code(double x, double y) {
double tmp;
if (y <= -8.6e+56) {
tmp = 1.0 + (-0.3333333333333333 * (y / sqrt(x)));
} else if (y <= 2e+33) {
tmp = 1.0 + (-0.1111111111111111 / x);
} else {
tmp = 1.0 + (y * (-0.3333333333333333 / sqrt(x)));
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if (y <= (-8.6d+56)) then
tmp = 1.0d0 + ((-0.3333333333333333d0) * (y / sqrt(x)))
else if (y <= 2d+33) then
tmp = 1.0d0 + ((-0.1111111111111111d0) / x)
else
tmp = 1.0d0 + (y * ((-0.3333333333333333d0) / sqrt(x)))
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if (y <= -8.6e+56) {
tmp = 1.0 + (-0.3333333333333333 * (y / Math.sqrt(x)));
} else if (y <= 2e+33) {
tmp = 1.0 + (-0.1111111111111111 / x);
} else {
tmp = 1.0 + (y * (-0.3333333333333333 / Math.sqrt(x)));
}
return tmp;
}
def code(x, y): tmp = 0 if y <= -8.6e+56: tmp = 1.0 + (-0.3333333333333333 * (y / math.sqrt(x))) elif y <= 2e+33: tmp = 1.0 + (-0.1111111111111111 / x) else: tmp = 1.0 + (y * (-0.3333333333333333 / math.sqrt(x))) return tmp
function code(x, y) tmp = 0.0 if (y <= -8.6e+56) tmp = Float64(1.0 + Float64(-0.3333333333333333 * Float64(y / sqrt(x)))); elseif (y <= 2e+33) tmp = Float64(1.0 + Float64(-0.1111111111111111 / x)); else tmp = Float64(1.0 + Float64(y * Float64(-0.3333333333333333 / sqrt(x)))); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (y <= -8.6e+56) tmp = 1.0 + (-0.3333333333333333 * (y / sqrt(x))); elseif (y <= 2e+33) tmp = 1.0 + (-0.1111111111111111 / x); else tmp = 1.0 + (y * (-0.3333333333333333 / sqrt(x))); end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[y, -8.6e+56], N[(1.0 + N[(-0.3333333333333333 * N[(y / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 2e+33], N[(1.0 + N[(-0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision], N[(1.0 + N[(y * N[(-0.3333333333333333 / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -8.6 \cdot 10^{+56}:\\
\;\;\;\;1 + -0.3333333333333333 \cdot \frac{y}{\sqrt{x}}\\
\mathbf{elif}\;y \leq 2 \cdot 10^{+33}:\\
\;\;\;\;1 + \frac{-0.1111111111111111}{x}\\
\mathbf{else}:\\
\;\;\;\;1 + y \cdot \frac{-0.3333333333333333}{\sqrt{x}}\\
\end{array}
\end{array}
if y < -8.6000000000000007e56Initial program 99.5%
sub-neg99.5%
distribute-frac-neg99.5%
*-commutative99.5%
associate-/r*99.6%
metadata-eval99.6%
neg-mul-199.6%
times-frac99.5%
metadata-eval99.5%
Simplified99.5%
Taylor expanded in x around inf 92.0%
if -8.6000000000000007e56 < y < 1.9999999999999999e33Initial program 99.8%
sub-neg99.8%
+-commutative99.8%
associate--l+99.8%
distribute-neg-frac99.8%
metadata-eval99.8%
*-commutative99.8%
associate-/r*99.7%
metadata-eval99.7%
sub-neg99.7%
distribute-frac-neg99.7%
+-commutative99.7%
neg-mul-199.7%
*-commutative99.7%
associate-*r/99.7%
fma-def99.7%
associate-/r*99.7%
metadata-eval99.7%
Simplified99.7%
fma-udef99.7%
Applied egg-rr99.7%
Taylor expanded in y around 0 99.0%
cancel-sign-sub-inv99.0%
metadata-eval99.0%
associate-*r/99.1%
metadata-eval99.1%
Simplified99.1%
if 1.9999999999999999e33 < y Initial program 99.6%
sub-neg99.6%
distribute-frac-neg99.6%
*-commutative99.6%
associate-/r*99.6%
metadata-eval99.6%
neg-mul-199.6%
times-frac99.3%
metadata-eval99.3%
Simplified99.3%
Taylor expanded in x around inf 86.2%
*-commutative86.2%
associate-*l/86.2%
associate-*r/86.3%
add-sqr-sqrt0.0%
sqrt-unprod11.3%
frac-times11.3%
metadata-eval11.3%
add-sqr-sqrt11.3%
clear-num11.3%
inv-pow11.3%
div-inv11.3%
metadata-eval11.3%
inv-pow11.3%
sqrt-div11.3%
metadata-eval11.3%
sqrt-prod11.3%
metadata-eval11.3%
*-commutative11.3%
div-inv11.3%
expm1-log1p-u11.3%
expm1-udef11.3%
Applied egg-rr13.1%
expm1-def13.1%
expm1-log1p86.3%
Simplified86.3%
Final simplification94.5%
(FPCore (x y)
:precision binary64
(if (<= y -1.06e+57)
(- 1.0 (/ y (* 3.0 (sqrt x))))
(if (<= y 2.7e+33)
(+ 1.0 (/ -0.1111111111111111 x))
(- 1.0 (/ y (sqrt (* x 9.0)))))))
double code(double x, double y) {
double tmp;
if (y <= -1.06e+57) {
tmp = 1.0 - (y / (3.0 * sqrt(x)));
} else if (y <= 2.7e+33) {
tmp = 1.0 + (-0.1111111111111111 / x);
} else {
tmp = 1.0 - (y / sqrt((x * 9.0)));
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if (y <= (-1.06d+57)) then
tmp = 1.0d0 - (y / (3.0d0 * sqrt(x)))
else if (y <= 2.7d+33) then
tmp = 1.0d0 + ((-0.1111111111111111d0) / x)
else
tmp = 1.0d0 - (y / sqrt((x * 9.0d0)))
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if (y <= -1.06e+57) {
tmp = 1.0 - (y / (3.0 * Math.sqrt(x)));
} else if (y <= 2.7e+33) {
tmp = 1.0 + (-0.1111111111111111 / x);
} else {
tmp = 1.0 - (y / Math.sqrt((x * 9.0)));
}
return tmp;
}
def code(x, y): tmp = 0 if y <= -1.06e+57: tmp = 1.0 - (y / (3.0 * math.sqrt(x))) elif y <= 2.7e+33: tmp = 1.0 + (-0.1111111111111111 / x) else: tmp = 1.0 - (y / math.sqrt((x * 9.0))) return tmp
function code(x, y) tmp = 0.0 if (y <= -1.06e+57) tmp = Float64(1.0 - Float64(y / Float64(3.0 * sqrt(x)))); elseif (y <= 2.7e+33) tmp = Float64(1.0 + Float64(-0.1111111111111111 / x)); else tmp = Float64(1.0 - Float64(y / sqrt(Float64(x * 9.0)))); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (y <= -1.06e+57) tmp = 1.0 - (y / (3.0 * sqrt(x))); elseif (y <= 2.7e+33) tmp = 1.0 + (-0.1111111111111111 / x); else tmp = 1.0 - (y / sqrt((x * 9.0))); end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[y, -1.06e+57], N[(1.0 - N[(y / N[(3.0 * N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 2.7e+33], N[(1.0 + N[(-0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision], N[(1.0 - N[(y / N[Sqrt[N[(x * 9.0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.06 \cdot 10^{+57}:\\
\;\;\;\;1 - \frac{y}{3 \cdot \sqrt{x}}\\
\mathbf{elif}\;y \leq 2.7 \cdot 10^{+33}:\\
\;\;\;\;1 + \frac{-0.1111111111111111}{x}\\
\mathbf{else}:\\
\;\;\;\;1 - \frac{y}{\sqrt{x \cdot 9}}\\
\end{array}
\end{array}
if y < -1.06e57Initial program 99.5%
Taylor expanded in x around 0 99.6%
Taylor expanded in x around inf 92.0%
if -1.06e57 < y < 2.69999999999999991e33Initial program 99.8%
sub-neg99.8%
+-commutative99.8%
associate--l+99.8%
distribute-neg-frac99.8%
metadata-eval99.8%
*-commutative99.8%
associate-/r*99.7%
metadata-eval99.7%
sub-neg99.7%
distribute-frac-neg99.7%
+-commutative99.7%
neg-mul-199.7%
*-commutative99.7%
associate-*r/99.7%
fma-def99.7%
associate-/r*99.7%
metadata-eval99.7%
Simplified99.7%
fma-udef99.7%
Applied egg-rr99.7%
Taylor expanded in y around 0 99.0%
cancel-sign-sub-inv99.0%
metadata-eval99.0%
associate-*r/99.1%
metadata-eval99.1%
Simplified99.1%
if 2.69999999999999991e33 < y Initial program 99.6%
Taylor expanded in x around 0 99.6%
Taylor expanded in x around inf 86.4%
*-commutative86.4%
metadata-eval86.4%
sqrt-prod86.4%
pow1/286.4%
Applied egg-rr86.4%
unpow1/286.4%
Simplified86.4%
Final simplification94.6%
(FPCore (x y)
:precision binary64
(if (<= y -1.26e+57)
(- 1.0 (/ y (* 3.0 (sqrt x))))
(if (<= y 1.25e+33)
(+ 1.0 (/ -0.1111111111111111 x))
(- 1.0 (/ (/ y 3.0) (sqrt x))))))
double code(double x, double y) {
double tmp;
if (y <= -1.26e+57) {
tmp = 1.0 - (y / (3.0 * sqrt(x)));
} else if (y <= 1.25e+33) {
tmp = 1.0 + (-0.1111111111111111 / x);
} else {
tmp = 1.0 - ((y / 3.0) / sqrt(x));
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if (y <= (-1.26d+57)) then
tmp = 1.0d0 - (y / (3.0d0 * sqrt(x)))
else if (y <= 1.25d+33) then
tmp = 1.0d0 + ((-0.1111111111111111d0) / x)
else
tmp = 1.0d0 - ((y / 3.0d0) / sqrt(x))
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if (y <= -1.26e+57) {
tmp = 1.0 - (y / (3.0 * Math.sqrt(x)));
} else if (y <= 1.25e+33) {
tmp = 1.0 + (-0.1111111111111111 / x);
} else {
tmp = 1.0 - ((y / 3.0) / Math.sqrt(x));
}
return tmp;
}
def code(x, y): tmp = 0 if y <= -1.26e+57: tmp = 1.0 - (y / (3.0 * math.sqrt(x))) elif y <= 1.25e+33: tmp = 1.0 + (-0.1111111111111111 / x) else: tmp = 1.0 - ((y / 3.0) / math.sqrt(x)) return tmp
function code(x, y) tmp = 0.0 if (y <= -1.26e+57) tmp = Float64(1.0 - Float64(y / Float64(3.0 * sqrt(x)))); elseif (y <= 1.25e+33) tmp = Float64(1.0 + Float64(-0.1111111111111111 / x)); else tmp = Float64(1.0 - Float64(Float64(y / 3.0) / sqrt(x))); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (y <= -1.26e+57) tmp = 1.0 - (y / (3.0 * sqrt(x))); elseif (y <= 1.25e+33) tmp = 1.0 + (-0.1111111111111111 / x); else tmp = 1.0 - ((y / 3.0) / sqrt(x)); end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[y, -1.26e+57], N[(1.0 - N[(y / N[(3.0 * N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.25e+33], N[(1.0 + N[(-0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision], N[(1.0 - N[(N[(y / 3.0), $MachinePrecision] / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.26 \cdot 10^{+57}:\\
\;\;\;\;1 - \frac{y}{3 \cdot \sqrt{x}}\\
\mathbf{elif}\;y \leq 1.25 \cdot 10^{+33}:\\
\;\;\;\;1 + \frac{-0.1111111111111111}{x}\\
\mathbf{else}:\\
\;\;\;\;1 - \frac{\frac{y}{3}}{\sqrt{x}}\\
\end{array}
\end{array}
if y < -1.26e57Initial program 99.5%
Taylor expanded in x around 0 99.6%
Taylor expanded in x around inf 92.0%
if -1.26e57 < y < 1.24999999999999993e33Initial program 99.8%
sub-neg99.8%
+-commutative99.8%
associate--l+99.8%
distribute-neg-frac99.8%
metadata-eval99.8%
*-commutative99.8%
associate-/r*99.7%
metadata-eval99.7%
sub-neg99.7%
distribute-frac-neg99.7%
+-commutative99.7%
neg-mul-199.7%
*-commutative99.7%
associate-*r/99.7%
fma-def99.7%
associate-/r*99.7%
metadata-eval99.7%
Simplified99.7%
fma-udef99.7%
Applied egg-rr99.7%
Taylor expanded in y around 0 99.0%
cancel-sign-sub-inv99.0%
metadata-eval99.0%
associate-*r/99.1%
metadata-eval99.1%
Simplified99.1%
if 1.24999999999999993e33 < y Initial program 99.6%
Taylor expanded in x around 0 99.6%
Taylor expanded in x around inf 86.4%
sub-neg86.4%
associate-/r*86.5%
Applied egg-rr86.5%
sub-neg86.5%
Simplified86.5%
Final simplification94.6%
(FPCore (x y) :precision binary64 (if (<= x 0.039) (+ (/ -0.1111111111111111 x) (* -0.3333333333333333 (/ y (sqrt x)))) (- 1.0 (/ y (sqrt (* x 9.0))))))
double code(double x, double y) {
double tmp;
if (x <= 0.039) {
tmp = (-0.1111111111111111 / x) + (-0.3333333333333333 * (y / sqrt(x)));
} else {
tmp = 1.0 - (y / sqrt((x * 9.0)));
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if (x <= 0.039d0) then
tmp = ((-0.1111111111111111d0) / x) + ((-0.3333333333333333d0) * (y / sqrt(x)))
else
tmp = 1.0d0 - (y / sqrt((x * 9.0d0)))
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if (x <= 0.039) {
tmp = (-0.1111111111111111 / x) + (-0.3333333333333333 * (y / Math.sqrt(x)));
} else {
tmp = 1.0 - (y / Math.sqrt((x * 9.0)));
}
return tmp;
}
def code(x, y): tmp = 0 if x <= 0.039: tmp = (-0.1111111111111111 / x) + (-0.3333333333333333 * (y / math.sqrt(x))) else: tmp = 1.0 - (y / math.sqrt((x * 9.0))) return tmp
function code(x, y) tmp = 0.0 if (x <= 0.039) tmp = Float64(Float64(-0.1111111111111111 / x) + Float64(-0.3333333333333333 * Float64(y / sqrt(x)))); else tmp = Float64(1.0 - Float64(y / sqrt(Float64(x * 9.0)))); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (x <= 0.039) tmp = (-0.1111111111111111 / x) + (-0.3333333333333333 * (y / sqrt(x))); else tmp = 1.0 - (y / sqrt((x * 9.0))); end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[x, 0.039], N[(N[(-0.1111111111111111 / x), $MachinePrecision] + N[(-0.3333333333333333 * N[(y / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(1.0 - N[(y / N[Sqrt[N[(x * 9.0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq 0.039:\\
\;\;\;\;\frac{-0.1111111111111111}{x} + -0.3333333333333333 \cdot \frac{y}{\sqrt{x}}\\
\mathbf{else}:\\
\;\;\;\;1 - \frac{y}{\sqrt{x \cdot 9}}\\
\end{array}
\end{array}
if x < 0.0389999999999999999Initial program 99.7%
sub-neg99.7%
distribute-frac-neg99.7%
*-commutative99.7%
associate-/r*99.6%
metadata-eval99.6%
neg-mul-199.6%
times-frac99.5%
metadata-eval99.5%
Simplified99.5%
Taylor expanded in x around 0 98.4%
if 0.0389999999999999999 < x Initial program 99.8%
Taylor expanded in x around 0 99.8%
Taylor expanded in x around inf 98.6%
*-commutative98.6%
metadata-eval98.6%
sqrt-prod98.6%
pow1/298.6%
Applied egg-rr98.6%
unpow1/298.6%
Simplified98.6%
Final simplification98.5%
(FPCore (x y) :precision binary64 (if (<= x 0.039) (- (/ -0.1111111111111111 x) (/ y (* 3.0 (sqrt x)))) (- 1.0 (/ y (sqrt (* x 9.0))))))
double code(double x, double y) {
double tmp;
if (x <= 0.039) {
tmp = (-0.1111111111111111 / x) - (y / (3.0 * sqrt(x)));
} else {
tmp = 1.0 - (y / sqrt((x * 9.0)));
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if (x <= 0.039d0) then
tmp = ((-0.1111111111111111d0) / x) - (y / (3.0d0 * sqrt(x)))
else
tmp = 1.0d0 - (y / sqrt((x * 9.0d0)))
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if (x <= 0.039) {
tmp = (-0.1111111111111111 / x) - (y / (3.0 * Math.sqrt(x)));
} else {
tmp = 1.0 - (y / Math.sqrt((x * 9.0)));
}
return tmp;
}
def code(x, y): tmp = 0 if x <= 0.039: tmp = (-0.1111111111111111 / x) - (y / (3.0 * math.sqrt(x))) else: tmp = 1.0 - (y / math.sqrt((x * 9.0))) return tmp
function code(x, y) tmp = 0.0 if (x <= 0.039) tmp = Float64(Float64(-0.1111111111111111 / x) - Float64(y / Float64(3.0 * sqrt(x)))); else tmp = Float64(1.0 - Float64(y / sqrt(Float64(x * 9.0)))); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (x <= 0.039) tmp = (-0.1111111111111111 / x) - (y / (3.0 * sqrt(x))); else tmp = 1.0 - (y / sqrt((x * 9.0))); end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[x, 0.039], N[(N[(-0.1111111111111111 / x), $MachinePrecision] - N[(y / N[(3.0 * N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(1.0 - N[(y / N[Sqrt[N[(x * 9.0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq 0.039:\\
\;\;\;\;\frac{-0.1111111111111111}{x} - \frac{y}{3 \cdot \sqrt{x}}\\
\mathbf{else}:\\
\;\;\;\;1 - \frac{y}{\sqrt{x \cdot 9}}\\
\end{array}
\end{array}
if x < 0.0389999999999999999Initial program 99.7%
Taylor expanded in x around 0 99.6%
Taylor expanded in x around 0 98.5%
if 0.0389999999999999999 < x Initial program 99.8%
Taylor expanded in x around 0 99.8%
Taylor expanded in x around inf 98.6%
*-commutative98.6%
metadata-eval98.6%
sqrt-prod98.6%
pow1/298.6%
Applied egg-rr98.6%
unpow1/298.6%
Simplified98.6%
Final simplification98.5%
(FPCore (x y) :precision binary64 (+ (- 1.0 (/ 0.1111111111111111 x)) (* -0.3333333333333333 (/ y (sqrt x)))))
double code(double x, double y) {
return (1.0 - (0.1111111111111111 / x)) + (-0.3333333333333333 * (y / sqrt(x)));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (1.0d0 - (0.1111111111111111d0 / x)) + ((-0.3333333333333333d0) * (y / sqrt(x)))
end function
public static double code(double x, double y) {
return (1.0 - (0.1111111111111111 / x)) + (-0.3333333333333333 * (y / Math.sqrt(x)));
}
def code(x, y): return (1.0 - (0.1111111111111111 / x)) + (-0.3333333333333333 * (y / math.sqrt(x)))
function code(x, y) return Float64(Float64(1.0 - Float64(0.1111111111111111 / x)) + Float64(-0.3333333333333333 * Float64(y / sqrt(x)))) end
function tmp = code(x, y) tmp = (1.0 - (0.1111111111111111 / x)) + (-0.3333333333333333 * (y / sqrt(x))); end
code[x_, y_] := N[(N[(1.0 - N[(0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision] + N[(-0.3333333333333333 * N[(y / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(1 - \frac{0.1111111111111111}{x}\right) + -0.3333333333333333 \cdot \frac{y}{\sqrt{x}}
\end{array}
Initial program 99.7%
sub-neg99.7%
distribute-frac-neg99.7%
*-commutative99.7%
associate-/r*99.7%
metadata-eval99.7%
neg-mul-199.7%
times-frac99.6%
metadata-eval99.6%
Simplified99.6%
Final simplification99.6%
(FPCore (x y) :precision binary64 (+ (/ -0.1111111111111111 x) (+ 1.0 (* y (/ -0.3333333333333333 (sqrt x))))))
double code(double x, double y) {
return (-0.1111111111111111 / x) + (1.0 + (y * (-0.3333333333333333 / sqrt(x))));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = ((-0.1111111111111111d0) / x) + (1.0d0 + (y * ((-0.3333333333333333d0) / sqrt(x))))
end function
public static double code(double x, double y) {
return (-0.1111111111111111 / x) + (1.0 + (y * (-0.3333333333333333 / Math.sqrt(x))));
}
def code(x, y): return (-0.1111111111111111 / x) + (1.0 + (y * (-0.3333333333333333 / math.sqrt(x))))
function code(x, y) return Float64(Float64(-0.1111111111111111 / x) + Float64(1.0 + Float64(y * Float64(-0.3333333333333333 / sqrt(x))))) end
function tmp = code(x, y) tmp = (-0.1111111111111111 / x) + (1.0 + (y * (-0.3333333333333333 / sqrt(x)))); end
code[x_, y_] := N[(N[(-0.1111111111111111 / x), $MachinePrecision] + N[(1.0 + N[(y * N[(-0.3333333333333333 / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{-0.1111111111111111}{x} + \left(1 + y \cdot \frac{-0.3333333333333333}{\sqrt{x}}\right)
\end{array}
Initial program 99.7%
sub-neg99.7%
+-commutative99.7%
associate--l+99.7%
distribute-neg-frac99.7%
metadata-eval99.7%
*-commutative99.7%
associate-/r*99.7%
metadata-eval99.7%
sub-neg99.7%
distribute-frac-neg99.7%
+-commutative99.7%
neg-mul-199.7%
*-commutative99.7%
associate-*r/99.6%
fma-def99.6%
associate-/r*99.6%
metadata-eval99.6%
Simplified99.6%
fma-udef99.6%
Applied egg-rr99.6%
Final simplification99.6%
(FPCore (x y) :precision binary64 (- (- 1.0 (/ 0.1111111111111111 x)) (/ y (sqrt (* x 9.0)))))
double code(double x, double y) {
return (1.0 - (0.1111111111111111 / x)) - (y / sqrt((x * 9.0)));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (1.0d0 - (0.1111111111111111d0 / x)) - (y / sqrt((x * 9.0d0)))
end function
public static double code(double x, double y) {
return (1.0 - (0.1111111111111111 / x)) - (y / Math.sqrt((x * 9.0)));
}
def code(x, y): return (1.0 - (0.1111111111111111 / x)) - (y / math.sqrt((x * 9.0)))
function code(x, y) return Float64(Float64(1.0 - Float64(0.1111111111111111 / x)) - Float64(y / sqrt(Float64(x * 9.0)))) end
function tmp = code(x, y) tmp = (1.0 - (0.1111111111111111 / x)) - (y / sqrt((x * 9.0))); end
code[x_, y_] := N[(N[(1.0 - N[(0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision] - N[(y / N[Sqrt[N[(x * 9.0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(1 - \frac{0.1111111111111111}{x}\right) - \frac{y}{\sqrt{x \cdot 9}}
\end{array}
Initial program 99.7%
Taylor expanded in x around 0 99.7%
*-commutative65.8%
metadata-eval65.8%
sqrt-prod65.8%
pow1/265.8%
Applied egg-rr99.7%
unpow1/265.8%
Simplified99.7%
Final simplification99.7%
(FPCore (x y) :precision binary64 (- (- 1.0 (/ 0.1111111111111111 x)) (/ y (* 3.0 (sqrt x)))))
double code(double x, double y) {
return (1.0 - (0.1111111111111111 / x)) - (y / (3.0 * sqrt(x)));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (1.0d0 - (0.1111111111111111d0 / x)) - (y / (3.0d0 * sqrt(x)))
end function
public static double code(double x, double y) {
return (1.0 - (0.1111111111111111 / x)) - (y / (3.0 * Math.sqrt(x)));
}
def code(x, y): return (1.0 - (0.1111111111111111 / x)) - (y / (3.0 * math.sqrt(x)))
function code(x, y) return Float64(Float64(1.0 - Float64(0.1111111111111111 / x)) - Float64(y / Float64(3.0 * sqrt(x)))) end
function tmp = code(x, y) tmp = (1.0 - (0.1111111111111111 / x)) - (y / (3.0 * sqrt(x))); end
code[x_, y_] := N[(N[(1.0 - N[(0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision] - N[(y / N[(3.0 * N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(1 - \frac{0.1111111111111111}{x}\right) - \frac{y}{3 \cdot \sqrt{x}}
\end{array}
Initial program 99.7%
Taylor expanded in x around 0 99.7%
Final simplification99.7%
(FPCore (x y) :precision binary64 (if (or (<= y -4e+107) (not (<= y 1.2e+104))) (/ (- y) (* 3.0 (sqrt x))) (+ 1.0 (/ -0.1111111111111111 x))))
double code(double x, double y) {
double tmp;
if ((y <= -4e+107) || !(y <= 1.2e+104)) {
tmp = -y / (3.0 * sqrt(x));
} else {
tmp = 1.0 + (-0.1111111111111111 / x);
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if ((y <= (-4d+107)) .or. (.not. (y <= 1.2d+104))) then
tmp = -y / (3.0d0 * sqrt(x))
else
tmp = 1.0d0 + ((-0.1111111111111111d0) / x)
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if ((y <= -4e+107) || !(y <= 1.2e+104)) {
tmp = -y / (3.0 * Math.sqrt(x));
} else {
tmp = 1.0 + (-0.1111111111111111 / x);
}
return tmp;
}
def code(x, y): tmp = 0 if (y <= -4e+107) or not (y <= 1.2e+104): tmp = -y / (3.0 * math.sqrt(x)) else: tmp = 1.0 + (-0.1111111111111111 / x) return tmp
function code(x, y) tmp = 0.0 if ((y <= -4e+107) || !(y <= 1.2e+104)) tmp = Float64(Float64(-y) / Float64(3.0 * sqrt(x))); else tmp = Float64(1.0 + Float64(-0.1111111111111111 / x)); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if ((y <= -4e+107) || ~((y <= 1.2e+104))) tmp = -y / (3.0 * sqrt(x)); else tmp = 1.0 + (-0.1111111111111111 / x); end tmp_2 = tmp; end
code[x_, y_] := If[Or[LessEqual[y, -4e+107], N[Not[LessEqual[y, 1.2e+104]], $MachinePrecision]], N[((-y) / N[(3.0 * N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(1.0 + N[(-0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -4 \cdot 10^{+107} \lor \neg \left(y \leq 1.2 \cdot 10^{+104}\right):\\
\;\;\;\;\frac{-y}{3 \cdot \sqrt{x}}\\
\mathbf{else}:\\
\;\;\;\;1 + \frac{-0.1111111111111111}{x}\\
\end{array}
\end{array}
if y < -3.9999999999999999e107 or 1.2e104 < y Initial program 99.5%
sub-neg99.5%
distribute-frac-neg99.5%
*-commutative99.5%
associate-/r*99.5%
metadata-eval99.5%
neg-mul-199.5%
times-frac99.3%
metadata-eval99.3%
Simplified99.3%
Taylor expanded in x around inf 97.0%
Taylor expanded in y around inf 93.4%
associate-*r*93.4%
Simplified93.4%
sqrt-div93.2%
metadata-eval93.2%
un-div-inv93.2%
*-commutative93.2%
metadata-eval93.2%
metadata-eval93.2%
distribute-rgt-neg-in93.2%
metadata-eval93.2%
metadata-eval93.2%
div-inv93.5%
distribute-neg-frac93.5%
associate-/l/93.5%
distribute-neg-frac93.5%
*-commutative93.5%
Applied egg-rr93.5%
if -3.9999999999999999e107 < y < 1.2e104Initial program 99.8%
sub-neg99.8%
+-commutative99.8%
associate--l+99.8%
distribute-neg-frac99.8%
metadata-eval99.8%
*-commutative99.8%
associate-/r*99.8%
metadata-eval99.8%
sub-neg99.8%
distribute-frac-neg99.8%
+-commutative99.8%
neg-mul-199.8%
*-commutative99.8%
associate-*r/99.7%
fma-def99.7%
associate-/r*99.7%
metadata-eval99.7%
Simplified99.7%
fma-udef99.7%
Applied egg-rr99.7%
Taylor expanded in y around 0 92.7%
cancel-sign-sub-inv92.7%
metadata-eval92.7%
associate-*r/92.7%
metadata-eval92.7%
Simplified92.7%
Final simplification93.0%
(FPCore (x y)
:precision binary64
(if (<= y -7e+107)
(* y (/ -0.3333333333333333 (sqrt x)))
(if (<= y 2.05e+105)
(+ 1.0 (/ -0.1111111111111111 x))
(* y (* -0.3333333333333333 (pow x -0.5))))))
double code(double x, double y) {
double tmp;
if (y <= -7e+107) {
tmp = y * (-0.3333333333333333 / sqrt(x));
} else if (y <= 2.05e+105) {
tmp = 1.0 + (-0.1111111111111111 / x);
} else {
tmp = y * (-0.3333333333333333 * pow(x, -0.5));
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if (y <= (-7d+107)) then
tmp = y * ((-0.3333333333333333d0) / sqrt(x))
else if (y <= 2.05d+105) then
tmp = 1.0d0 + ((-0.1111111111111111d0) / x)
else
tmp = y * ((-0.3333333333333333d0) * (x ** (-0.5d0)))
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if (y <= -7e+107) {
tmp = y * (-0.3333333333333333 / Math.sqrt(x));
} else if (y <= 2.05e+105) {
tmp = 1.0 + (-0.1111111111111111 / x);
} else {
tmp = y * (-0.3333333333333333 * Math.pow(x, -0.5));
}
return tmp;
}
def code(x, y): tmp = 0 if y <= -7e+107: tmp = y * (-0.3333333333333333 / math.sqrt(x)) elif y <= 2.05e+105: tmp = 1.0 + (-0.1111111111111111 / x) else: tmp = y * (-0.3333333333333333 * math.pow(x, -0.5)) return tmp
function code(x, y) tmp = 0.0 if (y <= -7e+107) tmp = Float64(y * Float64(-0.3333333333333333 / sqrt(x))); elseif (y <= 2.05e+105) tmp = Float64(1.0 + Float64(-0.1111111111111111 / x)); else tmp = Float64(y * Float64(-0.3333333333333333 * (x ^ -0.5))); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (y <= -7e+107) tmp = y * (-0.3333333333333333 / sqrt(x)); elseif (y <= 2.05e+105) tmp = 1.0 + (-0.1111111111111111 / x); else tmp = y * (-0.3333333333333333 * (x ^ -0.5)); end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[y, -7e+107], N[(y * N[(-0.3333333333333333 / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 2.05e+105], N[(1.0 + N[(-0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision], N[(y * N[(-0.3333333333333333 * N[Power[x, -0.5], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -7 \cdot 10^{+107}:\\
\;\;\;\;y \cdot \frac{-0.3333333333333333}{\sqrt{x}}\\
\mathbf{elif}\;y \leq 2.05 \cdot 10^{+105}:\\
\;\;\;\;1 + \frac{-0.1111111111111111}{x}\\
\mathbf{else}:\\
\;\;\;\;y \cdot \left(-0.3333333333333333 \cdot {x}^{-0.5}\right)\\
\end{array}
\end{array}
if y < -6.9999999999999995e107Initial program 99.5%
sub-neg99.5%
distribute-frac-neg99.5%
*-commutative99.5%
associate-/r*99.5%
metadata-eval99.5%
neg-mul-199.5%
times-frac99.4%
metadata-eval99.4%
Simplified99.4%
Taylor expanded in x around inf 99.4%
Taylor expanded in y around inf 96.0%
associate-*r*96.0%
Simplified96.0%
expm1-log1p-u88.1%
expm1-udef88.1%
Applied egg-rr96.0%
+-commutative96.0%
associate--l+96.0%
metadata-eval96.0%
+-rgt-identity96.0%
associate-*r/95.7%
associate-/l*96.0%
associate-/r/95.9%
Simplified95.9%
if -6.9999999999999995e107 < y < 2.0500000000000001e105Initial program 99.8%
sub-neg99.8%
+-commutative99.8%
associate--l+99.8%
distribute-neg-frac99.8%
metadata-eval99.8%
*-commutative99.8%
associate-/r*99.8%
metadata-eval99.8%
sub-neg99.8%
distribute-frac-neg99.8%
+-commutative99.8%
neg-mul-199.8%
*-commutative99.8%
associate-*r/99.8%
fma-def99.8%
associate-/r*99.7%
metadata-eval99.7%
Simplified99.7%
fma-udef99.7%
Applied egg-rr99.7%
Taylor expanded in y around 0 92.2%
cancel-sign-sub-inv92.2%
metadata-eval92.2%
associate-*r/92.2%
metadata-eval92.2%
Simplified92.2%
if 2.0500000000000001e105 < y Initial program 99.5%
sub-neg99.5%
distribute-frac-neg99.5%
*-commutative99.5%
associate-/r*99.5%
metadata-eval99.5%
neg-mul-199.5%
times-frac99.1%
metadata-eval99.1%
Simplified99.1%
Taylor expanded in x around inf 96.5%
Taylor expanded in y around inf 92.4%
associate-*r*92.4%
*-commutative92.4%
associate-*l*92.6%
Simplified92.6%
expm1-log1p-u45.5%
expm1-udef2.2%
inv-pow2.2%
sqrt-pow12.2%
metadata-eval2.2%
Applied egg-rr2.2%
expm1-def45.5%
expm1-log1p92.6%
Simplified92.6%
Final simplification92.9%
(FPCore (x y)
:precision binary64
(if (<= y -4e+107)
(* (* y -0.3333333333333333) (pow x -0.5))
(if (<= y 2.05e+105)
(+ 1.0 (/ -0.1111111111111111 x))
(* y (* -0.3333333333333333 (pow x -0.5))))))
double code(double x, double y) {
double tmp;
if (y <= -4e+107) {
tmp = (y * -0.3333333333333333) * pow(x, -0.5);
} else if (y <= 2.05e+105) {
tmp = 1.0 + (-0.1111111111111111 / x);
} else {
tmp = y * (-0.3333333333333333 * pow(x, -0.5));
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if (y <= (-4d+107)) then
tmp = (y * (-0.3333333333333333d0)) * (x ** (-0.5d0))
else if (y <= 2.05d+105) then
tmp = 1.0d0 + ((-0.1111111111111111d0) / x)
else
tmp = y * ((-0.3333333333333333d0) * (x ** (-0.5d0)))
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if (y <= -4e+107) {
tmp = (y * -0.3333333333333333) * Math.pow(x, -0.5);
} else if (y <= 2.05e+105) {
tmp = 1.0 + (-0.1111111111111111 / x);
} else {
tmp = y * (-0.3333333333333333 * Math.pow(x, -0.5));
}
return tmp;
}
def code(x, y): tmp = 0 if y <= -4e+107: tmp = (y * -0.3333333333333333) * math.pow(x, -0.5) elif y <= 2.05e+105: tmp = 1.0 + (-0.1111111111111111 / x) else: tmp = y * (-0.3333333333333333 * math.pow(x, -0.5)) return tmp
function code(x, y) tmp = 0.0 if (y <= -4e+107) tmp = Float64(Float64(y * -0.3333333333333333) * (x ^ -0.5)); elseif (y <= 2.05e+105) tmp = Float64(1.0 + Float64(-0.1111111111111111 / x)); else tmp = Float64(y * Float64(-0.3333333333333333 * (x ^ -0.5))); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (y <= -4e+107) tmp = (y * -0.3333333333333333) * (x ^ -0.5); elseif (y <= 2.05e+105) tmp = 1.0 + (-0.1111111111111111 / x); else tmp = y * (-0.3333333333333333 * (x ^ -0.5)); end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[y, -4e+107], N[(N[(y * -0.3333333333333333), $MachinePrecision] * N[Power[x, -0.5], $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 2.05e+105], N[(1.0 + N[(-0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision], N[(y * N[(-0.3333333333333333 * N[Power[x, -0.5], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -4 \cdot 10^{+107}:\\
\;\;\;\;\left(y \cdot -0.3333333333333333\right) \cdot {x}^{-0.5}\\
\mathbf{elif}\;y \leq 2.05 \cdot 10^{+105}:\\
\;\;\;\;1 + \frac{-0.1111111111111111}{x}\\
\mathbf{else}:\\
\;\;\;\;y \cdot \left(-0.3333333333333333 \cdot {x}^{-0.5}\right)\\
\end{array}
\end{array}
if y < -3.9999999999999999e107Initial program 99.5%
sub-neg99.5%
distribute-frac-neg99.5%
*-commutative99.5%
associate-/r*99.5%
metadata-eval99.5%
neg-mul-199.5%
times-frac99.4%
metadata-eval99.4%
Simplified99.4%
Taylor expanded in x around inf 99.4%
Taylor expanded in y around inf 96.0%
associate-*r*96.0%
Simplified96.0%
expm1-log1p-u94.2%
expm1-udef48.2%
inv-pow48.2%
sqrt-pow148.2%
metadata-eval48.2%
Applied egg-rr48.2%
expm1-def94.2%
expm1-log1p96.0%
Simplified96.0%
if -3.9999999999999999e107 < y < 2.0500000000000001e105Initial program 99.8%
sub-neg99.8%
+-commutative99.8%
associate--l+99.8%
distribute-neg-frac99.8%
metadata-eval99.8%
*-commutative99.8%
associate-/r*99.8%
metadata-eval99.8%
sub-neg99.8%
distribute-frac-neg99.8%
+-commutative99.8%
neg-mul-199.8%
*-commutative99.8%
associate-*r/99.8%
fma-def99.8%
associate-/r*99.7%
metadata-eval99.7%
Simplified99.7%
fma-udef99.7%
Applied egg-rr99.7%
Taylor expanded in y around 0 92.2%
cancel-sign-sub-inv92.2%
metadata-eval92.2%
associate-*r/92.2%
metadata-eval92.2%
Simplified92.2%
if 2.0500000000000001e105 < y Initial program 99.5%
sub-neg99.5%
distribute-frac-neg99.5%
*-commutative99.5%
associate-/r*99.5%
metadata-eval99.5%
neg-mul-199.5%
times-frac99.1%
metadata-eval99.1%
Simplified99.1%
Taylor expanded in x around inf 96.5%
Taylor expanded in y around inf 92.4%
associate-*r*92.4%
*-commutative92.4%
associate-*l*92.6%
Simplified92.6%
expm1-log1p-u45.5%
expm1-udef2.2%
inv-pow2.2%
sqrt-pow12.2%
metadata-eval2.2%
Applied egg-rr2.2%
expm1-def45.5%
expm1-log1p92.6%
Simplified92.6%
Final simplification93.0%
(FPCore (x y) :precision binary64 (if (or (<= y -4.1e+111) (not (<= y 1.15e+104))) (* y (/ -0.3333333333333333 (sqrt x))) (+ 1.0 (/ -0.1111111111111111 x))))
double code(double x, double y) {
double tmp;
if ((y <= -4.1e+111) || !(y <= 1.15e+104)) {
tmp = y * (-0.3333333333333333 / sqrt(x));
} else {
tmp = 1.0 + (-0.1111111111111111 / x);
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if ((y <= (-4.1d+111)) .or. (.not. (y <= 1.15d+104))) then
tmp = y * ((-0.3333333333333333d0) / sqrt(x))
else
tmp = 1.0d0 + ((-0.1111111111111111d0) / x)
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if ((y <= -4.1e+111) || !(y <= 1.15e+104)) {
tmp = y * (-0.3333333333333333 / Math.sqrt(x));
} else {
tmp = 1.0 + (-0.1111111111111111 / x);
}
return tmp;
}
def code(x, y): tmp = 0 if (y <= -4.1e+111) or not (y <= 1.15e+104): tmp = y * (-0.3333333333333333 / math.sqrt(x)) else: tmp = 1.0 + (-0.1111111111111111 / x) return tmp
function code(x, y) tmp = 0.0 if ((y <= -4.1e+111) || !(y <= 1.15e+104)) tmp = Float64(y * Float64(-0.3333333333333333 / sqrt(x))); else tmp = Float64(1.0 + Float64(-0.1111111111111111 / x)); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if ((y <= -4.1e+111) || ~((y <= 1.15e+104))) tmp = y * (-0.3333333333333333 / sqrt(x)); else tmp = 1.0 + (-0.1111111111111111 / x); end tmp_2 = tmp; end
code[x_, y_] := If[Or[LessEqual[y, -4.1e+111], N[Not[LessEqual[y, 1.15e+104]], $MachinePrecision]], N[(y * N[(-0.3333333333333333 / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(1.0 + N[(-0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -4.1 \cdot 10^{+111} \lor \neg \left(y \leq 1.15 \cdot 10^{+104}\right):\\
\;\;\;\;y \cdot \frac{-0.3333333333333333}{\sqrt{x}}\\
\mathbf{else}:\\
\;\;\;\;1 + \frac{-0.1111111111111111}{x}\\
\end{array}
\end{array}
if y < -4.09999999999999986e111 or 1.14999999999999992e104 < y Initial program 99.5%
sub-neg99.5%
distribute-frac-neg99.5%
*-commutative99.5%
associate-/r*99.5%
metadata-eval99.5%
neg-mul-199.5%
times-frac99.3%
metadata-eval99.3%
Simplified99.3%
Taylor expanded in x around inf 97.0%
Taylor expanded in y around inf 93.4%
associate-*r*93.4%
Simplified93.4%
expm1-log1p-u44.6%
expm1-udef44.6%
Applied egg-rr93.3%
+-commutative93.3%
associate--l+93.3%
metadata-eval93.3%
+-rgt-identity93.3%
associate-*r/93.2%
associate-/l*93.3%
associate-/r/93.4%
Simplified93.4%
if -4.09999999999999986e111 < y < 1.14999999999999992e104Initial program 99.8%
sub-neg99.8%
+-commutative99.8%
associate--l+99.8%
distribute-neg-frac99.8%
metadata-eval99.8%
*-commutative99.8%
associate-/r*99.8%
metadata-eval99.8%
sub-neg99.8%
distribute-frac-neg99.8%
+-commutative99.8%
neg-mul-199.8%
*-commutative99.8%
associate-*r/99.7%
fma-def99.7%
associate-/r*99.7%
metadata-eval99.7%
Simplified99.7%
fma-udef99.7%
Applied egg-rr99.7%
Taylor expanded in y around 0 92.7%
cancel-sign-sub-inv92.7%
metadata-eval92.7%
associate-*r/92.7%
metadata-eval92.7%
Simplified92.7%
Final simplification92.9%
(FPCore (x y) :precision binary64 (if (<= y -1.65e+137) (sqrt (/ 0.012345679012345678 (* x x))) (+ 1.0 (/ -0.1111111111111111 x))))
double code(double x, double y) {
double tmp;
if (y <= -1.65e+137) {
tmp = sqrt((0.012345679012345678 / (x * x)));
} else {
tmp = 1.0 + (-0.1111111111111111 / x);
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if (y <= (-1.65d+137)) then
tmp = sqrt((0.012345679012345678d0 / (x * x)))
else
tmp = 1.0d0 + ((-0.1111111111111111d0) / x)
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if (y <= -1.65e+137) {
tmp = Math.sqrt((0.012345679012345678 / (x * x)));
} else {
tmp = 1.0 + (-0.1111111111111111 / x);
}
return tmp;
}
def code(x, y): tmp = 0 if y <= -1.65e+137: tmp = math.sqrt((0.012345679012345678 / (x * x))) else: tmp = 1.0 + (-0.1111111111111111 / x) return tmp
function code(x, y) tmp = 0.0 if (y <= -1.65e+137) tmp = sqrt(Float64(0.012345679012345678 / Float64(x * x))); else tmp = Float64(1.0 + Float64(-0.1111111111111111 / x)); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (y <= -1.65e+137) tmp = sqrt((0.012345679012345678 / (x * x))); else tmp = 1.0 + (-0.1111111111111111 / x); end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[y, -1.65e+137], N[Sqrt[N[(0.012345679012345678 / N[(x * x), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], N[(1.0 + N[(-0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.65 \cdot 10^{+137}:\\
\;\;\;\;\sqrt{\frac{0.012345679012345678}{x \cdot x}}\\
\mathbf{else}:\\
\;\;\;\;1 + \frac{-0.1111111111111111}{x}\\
\end{array}
\end{array}
if y < -1.65000000000000001e137Initial program 99.5%
sub-neg99.5%
+-commutative99.5%
associate--l+99.5%
distribute-neg-frac99.5%
metadata-eval99.5%
*-commutative99.5%
associate-/r*99.5%
metadata-eval99.5%
sub-neg99.5%
distribute-frac-neg99.5%
+-commutative99.5%
neg-mul-199.5%
*-commutative99.5%
associate-*r/99.3%
fma-def99.3%
associate-/r*99.3%
metadata-eval99.3%
Simplified99.3%
fma-udef99.3%
Applied egg-rr99.3%
Taylor expanded in x around 0 1.1%
add-sqr-sqrt0.0%
sqrt-unprod16.3%
frac-times16.2%
metadata-eval16.2%
Applied egg-rr16.2%
if -1.65000000000000001e137 < y Initial program 99.8%
sub-neg99.8%
+-commutative99.8%
associate--l+99.8%
distribute-neg-frac99.8%
metadata-eval99.8%
*-commutative99.8%
associate-/r*99.7%
metadata-eval99.7%
sub-neg99.7%
distribute-frac-neg99.7%
+-commutative99.7%
neg-mul-199.7%
*-commutative99.7%
associate-*r/99.7%
fma-def99.7%
associate-/r*99.7%
metadata-eval99.7%
Simplified99.7%
fma-udef99.7%
Applied egg-rr99.7%
Taylor expanded in y around 0 74.0%
cancel-sign-sub-inv74.0%
metadata-eval74.0%
associate-*r/74.0%
metadata-eval74.0%
Simplified74.0%
Final simplification65.0%
(FPCore (x y) :precision binary64 (if (<= x 0.039) (/ -0.1111111111111111 x) 1.0))
double code(double x, double y) {
double tmp;
if (x <= 0.039) {
tmp = -0.1111111111111111 / x;
} else {
tmp = 1.0;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: tmp
if (x <= 0.039d0) then
tmp = (-0.1111111111111111d0) / x
else
tmp = 1.0d0
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if (x <= 0.039) {
tmp = -0.1111111111111111 / x;
} else {
tmp = 1.0;
}
return tmp;
}
def code(x, y): tmp = 0 if x <= 0.039: tmp = -0.1111111111111111 / x else: tmp = 1.0 return tmp
function code(x, y) tmp = 0.0 if (x <= 0.039) tmp = Float64(-0.1111111111111111 / x); else tmp = 1.0; end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (x <= 0.039) tmp = -0.1111111111111111 / x; else tmp = 1.0; end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[x, 0.039], N[(-0.1111111111111111 / x), $MachinePrecision], 1.0]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq 0.039:\\
\;\;\;\;\frac{-0.1111111111111111}{x}\\
\mathbf{else}:\\
\;\;\;\;1\\
\end{array}
\end{array}
if x < 0.0389999999999999999Initial program 99.7%
sub-neg99.7%
+-commutative99.7%
associate--l+99.7%
distribute-neg-frac99.7%
metadata-eval99.7%
*-commutative99.7%
associate-/r*99.6%
metadata-eval99.6%
sub-neg99.6%
distribute-frac-neg99.6%
+-commutative99.6%
neg-mul-199.6%
*-commutative99.6%
associate-*r/99.5%
fma-def99.5%
associate-/r*99.5%
metadata-eval99.5%
Simplified99.5%
fma-udef99.5%
Applied egg-rr99.5%
Taylor expanded in x around 0 64.6%
if 0.0389999999999999999 < x Initial program 99.8%
sub-neg99.8%
distribute-frac-neg99.8%
*-commutative99.8%
associate-/r*99.8%
metadata-eval99.8%
neg-mul-199.8%
times-frac99.7%
metadata-eval99.7%
Simplified99.7%
Taylor expanded in x around inf 98.5%
Taylor expanded in y around 0 58.9%
Final simplification61.8%
(FPCore (x y) :precision binary64 (+ 1.0 (/ -0.1111111111111111 x)))
double code(double x, double y) {
return 1.0 + (-0.1111111111111111 / x);
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 1.0d0 + ((-0.1111111111111111d0) / x)
end function
public static double code(double x, double y) {
return 1.0 + (-0.1111111111111111 / x);
}
def code(x, y): return 1.0 + (-0.1111111111111111 / x)
function code(x, y) return Float64(1.0 + Float64(-0.1111111111111111 / x)) end
function tmp = code(x, y) tmp = 1.0 + (-0.1111111111111111 / x); end
code[x_, y_] := N[(1.0 + N[(-0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
1 + \frac{-0.1111111111111111}{x}
\end{array}
Initial program 99.7%
sub-neg99.7%
+-commutative99.7%
associate--l+99.7%
distribute-neg-frac99.7%
metadata-eval99.7%
*-commutative99.7%
associate-/r*99.7%
metadata-eval99.7%
sub-neg99.7%
distribute-frac-neg99.7%
+-commutative99.7%
neg-mul-199.7%
*-commutative99.7%
associate-*r/99.6%
fma-def99.6%
associate-/r*99.6%
metadata-eval99.6%
Simplified99.6%
fma-udef99.6%
Applied egg-rr99.6%
Taylor expanded in y around 0 62.9%
cancel-sign-sub-inv62.9%
metadata-eval62.9%
associate-*r/62.9%
metadata-eval62.9%
Simplified62.9%
Final simplification62.9%
(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 99.7%
sub-neg99.7%
distribute-frac-neg99.7%
*-commutative99.7%
associate-/r*99.7%
metadata-eval99.7%
neg-mul-199.7%
times-frac99.6%
metadata-eval99.6%
Simplified99.6%
Taylor expanded in x around inf 65.7%
Taylor expanded in y around 0 29.7%
Final simplification29.7%
(FPCore (x y) :precision binary64 (- (- 1.0 (/ (/ 1.0 x) 9.0)) (/ y (* 3.0 (sqrt x)))))
double code(double x, double y) {
return (1.0 - ((1.0 / x) / 9.0)) - (y / (3.0 * sqrt(x)));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (1.0d0 - ((1.0d0 / x) / 9.0d0)) - (y / (3.0d0 * sqrt(x)))
end function
public static double code(double x, double y) {
return (1.0 - ((1.0 / x) / 9.0)) - (y / (3.0 * Math.sqrt(x)));
}
def code(x, y): return (1.0 - ((1.0 / x) / 9.0)) - (y / (3.0 * math.sqrt(x)))
function code(x, y) return Float64(Float64(1.0 - Float64(Float64(1.0 / x) / 9.0)) - Float64(y / Float64(3.0 * sqrt(x)))) end
function tmp = code(x, y) tmp = (1.0 - ((1.0 / x) / 9.0)) - (y / (3.0 * sqrt(x))); end
code[x_, y_] := N[(N[(1.0 - N[(N[(1.0 / x), $MachinePrecision] / 9.0), $MachinePrecision]), $MachinePrecision] - N[(y / N[(3.0 * N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(1 - \frac{\frac{1}{x}}{9}\right) - \frac{y}{3 \cdot \sqrt{x}}
\end{array}
herbie shell --seed 2023274
(FPCore (x y)
:name "Numeric.SpecFunctions:invIncompleteGamma from math-functions-0.1.5.2, D"
:precision binary64
:herbie-target
(- (- 1.0 (/ (/ 1.0 x) 9.0)) (/ y (* 3.0 (sqrt x))))
(- (- 1.0 (/ 1.0 (* x 9.0))) (/ y (* 3.0 (sqrt x)))))