
(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 17 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 -9e+40) (not (<= y 5.2e+44))) (+ 1.0 (* -0.3333333333333333 (/ y (sqrt x)))) (+ 1.0 (/ (pow x -1.0) -9.0))))
double code(double x, double y) {
double tmp;
if ((y <= -9e+40) || !(y <= 5.2e+44)) {
tmp = 1.0 + (-0.3333333333333333 * (y / sqrt(x)));
} else {
tmp = 1.0 + (pow(x, -1.0) / -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 <= (-9d+40)) .or. (.not. (y <= 5.2d+44))) then
tmp = 1.0d0 + ((-0.3333333333333333d0) * (y / sqrt(x)))
else
tmp = 1.0d0 + ((x ** (-1.0d0)) / (-9.0d0))
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if ((y <= -9e+40) || !(y <= 5.2e+44)) {
tmp = 1.0 + (-0.3333333333333333 * (y / Math.sqrt(x)));
} else {
tmp = 1.0 + (Math.pow(x, -1.0) / -9.0);
}
return tmp;
}
def code(x, y): tmp = 0 if (y <= -9e+40) or not (y <= 5.2e+44): tmp = 1.0 + (-0.3333333333333333 * (y / math.sqrt(x))) else: tmp = 1.0 + (math.pow(x, -1.0) / -9.0) return tmp
function code(x, y) tmp = 0.0 if ((y <= -9e+40) || !(y <= 5.2e+44)) tmp = Float64(1.0 + Float64(-0.3333333333333333 * Float64(y / sqrt(x)))); else tmp = Float64(1.0 + Float64((x ^ -1.0) / -9.0)); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if ((y <= -9e+40) || ~((y <= 5.2e+44))) tmp = 1.0 + (-0.3333333333333333 * (y / sqrt(x))); else tmp = 1.0 + ((x ^ -1.0) / -9.0); end tmp_2 = tmp; end
code[x_, y_] := If[Or[LessEqual[y, -9e+40], N[Not[LessEqual[y, 5.2e+44]], $MachinePrecision]], N[(1.0 + N[(-0.3333333333333333 * N[(y / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(1.0 + N[(N[Power[x, -1.0], $MachinePrecision] / -9.0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -9 \cdot 10^{+40} \lor \neg \left(y \leq 5.2 \cdot 10^{+44}\right):\\
\;\;\;\;1 + -0.3333333333333333 \cdot \frac{y}{\sqrt{x}}\\
\mathbf{else}:\\
\;\;\;\;1 + \frac{{x}^{-1}}{-9}\\
\end{array}
\end{array}
if y < -9.00000000000000064e40 or 5.1999999999999998e44 < y Initial program 99.5%
sub-neg99.5%
*-commutative99.5%
associate-/r*99.5%
metadata-eval99.5%
distribute-frac-neg99.5%
neg-mul-199.5%
times-frac99.5%
metadata-eval99.5%
Simplified99.5%
Taylor expanded in x around inf 95.1%
if -9.00000000000000064e40 < y < 5.1999999999999998e44Initial program 99.8%
associate--l-99.8%
sub-neg99.8%
+-commutative99.8%
distribute-neg-in99.8%
distribute-frac-neg99.8%
sub-neg99.8%
neg-mul-199.8%
*-commutative99.8%
associate-/l*99.8%
fma-neg99.8%
associate-/r*99.8%
metadata-eval99.8%
*-commutative99.8%
associate-/r*99.7%
distribute-neg-frac99.7%
metadata-eval99.7%
metadata-eval99.7%
Simplified99.7%
Taylor expanded in y around 0 97.6%
cancel-sign-sub-inv97.6%
metadata-eval97.6%
associate-*r/97.7%
metadata-eval97.7%
Simplified97.7%
expm1-log1p-u47.2%
expm1-undefine47.2%
metadata-eval47.2%
distribute-neg-frac47.2%
log1p-define47.2%
add-exp-log97.7%
div-inv97.6%
distribute-lft-neg-in97.6%
metadata-eval97.6%
div-inv97.7%
Applied egg-rr97.7%
associate--l+97.7%
Simplified97.7%
associate-+r-97.7%
add-exp-log47.2%
log1p-undefine47.2%
expm1-undefine47.2%
expm1-log1p-u97.7%
clear-num97.6%
div-inv97.7%
metadata-eval97.7%
Applied egg-rr97.7%
associate-/r*97.7%
add-sqr-sqrt97.5%
associate-/l*97.4%
inv-pow97.4%
sqrt-pow197.5%
metadata-eval97.5%
inv-pow97.5%
sqrt-pow197.4%
metadata-eval97.4%
Applied egg-rr97.4%
associate-*r/97.5%
pow-sqr97.7%
metadata-eval97.7%
Simplified97.7%
Final simplification96.5%
(FPCore (x y)
:precision binary64
(if (<= y -1.25e+40)
(+ 1.0 (* -0.3333333333333333 (/ y (sqrt x))))
(if (<= y 3.7e+43)
(+ 1.0 (/ (pow x -1.0) -9.0))
(- 1.0 (/ y (* 3.0 (sqrt x)))))))
double code(double x, double y) {
double tmp;
if (y <= -1.25e+40) {
tmp = 1.0 + (-0.3333333333333333 * (y / sqrt(x)));
} else if (y <= 3.7e+43) {
tmp = 1.0 + (pow(x, -1.0) / -9.0);
} 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.25d+40)) then
tmp = 1.0d0 + ((-0.3333333333333333d0) * (y / sqrt(x)))
else if (y <= 3.7d+43) then
tmp = 1.0d0 + ((x ** (-1.0d0)) / (-9.0d0))
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.25e+40) {
tmp = 1.0 + (-0.3333333333333333 * (y / Math.sqrt(x)));
} else if (y <= 3.7e+43) {
tmp = 1.0 + (Math.pow(x, -1.0) / -9.0);
} else {
tmp = 1.0 - (y / (3.0 * Math.sqrt(x)));
}
return tmp;
}
def code(x, y): tmp = 0 if y <= -1.25e+40: tmp = 1.0 + (-0.3333333333333333 * (y / math.sqrt(x))) elif y <= 3.7e+43: tmp = 1.0 + (math.pow(x, -1.0) / -9.0) else: tmp = 1.0 - (y / (3.0 * math.sqrt(x))) return tmp
function code(x, y) tmp = 0.0 if (y <= -1.25e+40) tmp = Float64(1.0 + Float64(-0.3333333333333333 * Float64(y / sqrt(x)))); elseif (y <= 3.7e+43) tmp = Float64(1.0 + Float64((x ^ -1.0) / -9.0)); else tmp = Float64(1.0 - Float64(y / Float64(3.0 * sqrt(x)))); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (y <= -1.25e+40) tmp = 1.0 + (-0.3333333333333333 * (y / sqrt(x))); elseif (y <= 3.7e+43) tmp = 1.0 + ((x ^ -1.0) / -9.0); else tmp = 1.0 - (y / (3.0 * sqrt(x))); end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[y, -1.25e+40], N[(1.0 + N[(-0.3333333333333333 * N[(y / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 3.7e+43], N[(1.0 + N[(N[Power[x, -1.0], $MachinePrecision] / -9.0), $MachinePrecision]), $MachinePrecision], N[(1.0 - N[(y / N[(3.0 * N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.25 \cdot 10^{+40}:\\
\;\;\;\;1 + -0.3333333333333333 \cdot \frac{y}{\sqrt{x}}\\
\mathbf{elif}\;y \leq 3.7 \cdot 10^{+43}:\\
\;\;\;\;1 + \frac{{x}^{-1}}{-9}\\
\mathbf{else}:\\
\;\;\;\;1 - \frac{y}{3 \cdot \sqrt{x}}\\
\end{array}
\end{array}
if y < -1.25000000000000001e40Initial program 99.5%
sub-neg99.5%
*-commutative99.5%
associate-/r*99.5%
metadata-eval99.5%
distribute-frac-neg99.5%
neg-mul-199.5%
times-frac99.5%
metadata-eval99.5%
Simplified99.5%
Taylor expanded in x around inf 95.9%
if -1.25000000000000001e40 < y < 3.7000000000000001e43Initial program 99.8%
associate--l-99.8%
sub-neg99.8%
+-commutative99.8%
distribute-neg-in99.8%
distribute-frac-neg99.8%
sub-neg99.8%
neg-mul-199.8%
*-commutative99.8%
associate-/l*99.8%
fma-neg99.8%
associate-/r*99.8%
metadata-eval99.8%
*-commutative99.8%
associate-/r*99.7%
distribute-neg-frac99.7%
metadata-eval99.7%
metadata-eval99.7%
Simplified99.7%
Taylor expanded in y around 0 97.6%
cancel-sign-sub-inv97.6%
metadata-eval97.6%
associate-*r/97.7%
metadata-eval97.7%
Simplified97.7%
expm1-log1p-u47.2%
expm1-undefine47.2%
metadata-eval47.2%
distribute-neg-frac47.2%
log1p-define47.2%
add-exp-log97.7%
div-inv97.6%
distribute-lft-neg-in97.6%
metadata-eval97.6%
div-inv97.7%
Applied egg-rr97.7%
associate--l+97.7%
Simplified97.7%
associate-+r-97.7%
add-exp-log47.2%
log1p-undefine47.2%
expm1-undefine47.2%
expm1-log1p-u97.7%
clear-num97.6%
div-inv97.7%
metadata-eval97.7%
Applied egg-rr97.7%
associate-/r*97.7%
add-sqr-sqrt97.5%
associate-/l*97.4%
inv-pow97.4%
sqrt-pow197.5%
metadata-eval97.5%
inv-pow97.5%
sqrt-pow197.4%
metadata-eval97.4%
Applied egg-rr97.4%
associate-*r/97.5%
pow-sqr97.7%
metadata-eval97.7%
Simplified97.7%
if 3.7000000000000001e43 < y Initial program 99.6%
Taylor expanded in x around 0 99.6%
Taylor expanded in x around inf 94.5%
(FPCore (x y)
:precision binary64
(if (<= y -8.6e+40)
(+ 1.0 (* -0.3333333333333333 (/ y (sqrt x))))
(if (<= y 5.1e+44)
(+ 1.0 (/ (pow x -1.0) -9.0))
(+ 1.0 (* y (/ -0.3333333333333333 (sqrt x)))))))
double code(double x, double y) {
double tmp;
if (y <= -8.6e+40) {
tmp = 1.0 + (-0.3333333333333333 * (y / sqrt(x)));
} else if (y <= 5.1e+44) {
tmp = 1.0 + (pow(x, -1.0) / -9.0);
} 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+40)) then
tmp = 1.0d0 + ((-0.3333333333333333d0) * (y / sqrt(x)))
else if (y <= 5.1d+44) then
tmp = 1.0d0 + ((x ** (-1.0d0)) / (-9.0d0))
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+40) {
tmp = 1.0 + (-0.3333333333333333 * (y / Math.sqrt(x)));
} else if (y <= 5.1e+44) {
tmp = 1.0 + (Math.pow(x, -1.0) / -9.0);
} else {
tmp = 1.0 + (y * (-0.3333333333333333 / Math.sqrt(x)));
}
return tmp;
}
def code(x, y): tmp = 0 if y <= -8.6e+40: tmp = 1.0 + (-0.3333333333333333 * (y / math.sqrt(x))) elif y <= 5.1e+44: tmp = 1.0 + (math.pow(x, -1.0) / -9.0) else: tmp = 1.0 + (y * (-0.3333333333333333 / math.sqrt(x))) return tmp
function code(x, y) tmp = 0.0 if (y <= -8.6e+40) tmp = Float64(1.0 + Float64(-0.3333333333333333 * Float64(y / sqrt(x)))); elseif (y <= 5.1e+44) tmp = Float64(1.0 + Float64((x ^ -1.0) / -9.0)); 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+40) tmp = 1.0 + (-0.3333333333333333 * (y / sqrt(x))); elseif (y <= 5.1e+44) tmp = 1.0 + ((x ^ -1.0) / -9.0); else tmp = 1.0 + (y * (-0.3333333333333333 / sqrt(x))); end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[y, -8.6e+40], N[(1.0 + N[(-0.3333333333333333 * N[(y / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 5.1e+44], N[(1.0 + N[(N[Power[x, -1.0], $MachinePrecision] / -9.0), $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^{+40}:\\
\;\;\;\;1 + -0.3333333333333333 \cdot \frac{y}{\sqrt{x}}\\
\mathbf{elif}\;y \leq 5.1 \cdot 10^{+44}:\\
\;\;\;\;1 + \frac{{x}^{-1}}{-9}\\
\mathbf{else}:\\
\;\;\;\;1 + y \cdot \frac{-0.3333333333333333}{\sqrt{x}}\\
\end{array}
\end{array}
if y < -8.6000000000000005e40Initial program 99.5%
sub-neg99.5%
*-commutative99.5%
associate-/r*99.5%
metadata-eval99.5%
distribute-frac-neg99.5%
neg-mul-199.5%
times-frac99.5%
metadata-eval99.5%
Simplified99.5%
Taylor expanded in x around inf 95.9%
if -8.6000000000000005e40 < y < 5.1e44Initial program 99.8%
associate--l-99.8%
sub-neg99.8%
+-commutative99.8%
distribute-neg-in99.8%
distribute-frac-neg99.8%
sub-neg99.8%
neg-mul-199.8%
*-commutative99.8%
associate-/l*99.8%
fma-neg99.8%
associate-/r*99.8%
metadata-eval99.8%
*-commutative99.8%
associate-/r*99.7%
distribute-neg-frac99.7%
metadata-eval99.7%
metadata-eval99.7%
Simplified99.7%
Taylor expanded in y around 0 97.6%
cancel-sign-sub-inv97.6%
metadata-eval97.6%
associate-*r/97.7%
metadata-eval97.7%
Simplified97.7%
expm1-log1p-u47.2%
expm1-undefine47.2%
metadata-eval47.2%
distribute-neg-frac47.2%
log1p-define47.2%
add-exp-log97.7%
div-inv97.6%
distribute-lft-neg-in97.6%
metadata-eval97.6%
div-inv97.7%
Applied egg-rr97.7%
associate--l+97.7%
Simplified97.7%
associate-+r-97.7%
add-exp-log47.2%
log1p-undefine47.2%
expm1-undefine47.2%
expm1-log1p-u97.7%
clear-num97.6%
div-inv97.7%
metadata-eval97.7%
Applied egg-rr97.7%
associate-/r*97.7%
add-sqr-sqrt97.5%
associate-/l*97.4%
inv-pow97.4%
sqrt-pow197.5%
metadata-eval97.5%
inv-pow97.5%
sqrt-pow197.4%
metadata-eval97.4%
Applied egg-rr97.4%
associate-*r/97.5%
pow-sqr97.7%
metadata-eval97.7%
Simplified97.7%
if 5.1e44 < y Initial program 99.6%
sub-neg99.6%
*-commutative99.6%
associate-/r*99.6%
metadata-eval99.6%
distribute-frac-neg99.6%
neg-mul-199.6%
times-frac99.4%
metadata-eval99.4%
Simplified99.4%
Taylor expanded in x around inf 94.4%
*-commutative94.4%
associate-*l/94.3%
associate-*r/94.4%
frac-2neg94.4%
associate-*r/94.3%
metadata-eval94.3%
metadata-eval94.3%
div-inv94.5%
distribute-neg-frac294.5%
associate-/r*94.5%
clear-num94.4%
distribute-neg-frac294.4%
*-commutative94.4%
associate-/l*94.4%
Applied egg-rr94.4%
distribute-frac-neg294.4%
associate-*r/94.4%
associate-/r/94.4%
*-commutative94.4%
associate-/r*94.4%
metadata-eval94.4%
/-rgt-identity94.4%
times-frac94.3%
*-commutative94.3%
*-rgt-identity94.3%
distribute-frac-neg94.3%
distribute-rgt-neg-in94.3%
metadata-eval94.3%
associate-/l*94.4%
Simplified94.4%
(FPCore (x y)
:precision binary64
(if (<= y -3.4e+70)
(* (sqrt (/ 1.0 x)) (* y -0.3333333333333333))
(if (<= y 3.45e+53)
(+ 1.0 (/ (pow x -1.0) -9.0))
(* y (/ -0.3333333333333333 (sqrt x))))))
double code(double x, double y) {
double tmp;
if (y <= -3.4e+70) {
tmp = sqrt((1.0 / x)) * (y * -0.3333333333333333);
} else if (y <= 3.45e+53) {
tmp = 1.0 + (pow(x, -1.0) / -9.0);
} else {
tmp = 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 <= (-3.4d+70)) then
tmp = sqrt((1.0d0 / x)) * (y * (-0.3333333333333333d0))
else if (y <= 3.45d+53) then
tmp = 1.0d0 + ((x ** (-1.0d0)) / (-9.0d0))
else
tmp = y * ((-0.3333333333333333d0) / sqrt(x))
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if (y <= -3.4e+70) {
tmp = Math.sqrt((1.0 / x)) * (y * -0.3333333333333333);
} else if (y <= 3.45e+53) {
tmp = 1.0 + (Math.pow(x, -1.0) / -9.0);
} else {
tmp = y * (-0.3333333333333333 / Math.sqrt(x));
}
return tmp;
}
def code(x, y): tmp = 0 if y <= -3.4e+70: tmp = math.sqrt((1.0 / x)) * (y * -0.3333333333333333) elif y <= 3.45e+53: tmp = 1.0 + (math.pow(x, -1.0) / -9.0) else: tmp = y * (-0.3333333333333333 / math.sqrt(x)) return tmp
function code(x, y) tmp = 0.0 if (y <= -3.4e+70) tmp = Float64(sqrt(Float64(1.0 / x)) * Float64(y * -0.3333333333333333)); elseif (y <= 3.45e+53) tmp = Float64(1.0 + Float64((x ^ -1.0) / -9.0)); else tmp = Float64(y * Float64(-0.3333333333333333 / sqrt(x))); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (y <= -3.4e+70) tmp = sqrt((1.0 / x)) * (y * -0.3333333333333333); elseif (y <= 3.45e+53) tmp = 1.0 + ((x ^ -1.0) / -9.0); else tmp = y * (-0.3333333333333333 / sqrt(x)); end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[y, -3.4e+70], N[(N[Sqrt[N[(1.0 / x), $MachinePrecision]], $MachinePrecision] * N[(y * -0.3333333333333333), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 3.45e+53], N[(1.0 + N[(N[Power[x, -1.0], $MachinePrecision] / -9.0), $MachinePrecision]), $MachinePrecision], N[(y * N[(-0.3333333333333333 / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -3.4 \cdot 10^{+70}:\\
\;\;\;\;\sqrt{\frac{1}{x}} \cdot \left(y \cdot -0.3333333333333333\right)\\
\mathbf{elif}\;y \leq 3.45 \cdot 10^{+53}:\\
\;\;\;\;1 + \frac{{x}^{-1}}{-9}\\
\mathbf{else}:\\
\;\;\;\;y \cdot \frac{-0.3333333333333333}{\sqrt{x}}\\
\end{array}
\end{array}
if y < -3.4000000000000001e70Initial program 99.5%
sub-neg99.5%
*-commutative99.5%
associate-/r*99.5%
metadata-eval99.5%
distribute-frac-neg99.5%
neg-mul-199.5%
times-frac99.5%
metadata-eval99.5%
Simplified99.5%
Taylor expanded in x around inf 95.7%
Taylor expanded in y around inf 91.0%
*-commutative91.0%
associate-*l*91.1%
*-commutative91.1%
Simplified91.1%
if -3.4000000000000001e70 < y < 3.4500000000000001e53Initial program 99.7%
associate--l-99.7%
sub-neg99.7%
+-commutative99.7%
distribute-neg-in99.7%
distribute-frac-neg99.7%
sub-neg99.7%
neg-mul-199.7%
*-commutative99.7%
associate-/l*99.7%
fma-neg99.7%
associate-/r*99.7%
metadata-eval99.7%
*-commutative99.7%
associate-/r*99.7%
distribute-neg-frac99.7%
metadata-eval99.7%
metadata-eval99.7%
Simplified99.7%
Taylor expanded in y around 0 95.9%
cancel-sign-sub-inv95.9%
metadata-eval95.9%
associate-*r/95.9%
metadata-eval95.9%
Simplified95.9%
expm1-log1p-u46.7%
expm1-undefine46.7%
metadata-eval46.7%
distribute-neg-frac46.7%
log1p-define46.7%
add-exp-log95.9%
div-inv95.9%
distribute-lft-neg-in95.9%
metadata-eval95.9%
div-inv95.9%
Applied egg-rr95.9%
associate--l+95.9%
Simplified95.9%
associate-+r-95.9%
add-exp-log46.7%
log1p-undefine46.7%
expm1-undefine46.7%
expm1-log1p-u95.9%
clear-num95.9%
div-inv95.9%
metadata-eval95.9%
Applied egg-rr95.9%
associate-/r*96.0%
add-sqr-sqrt95.8%
associate-/l*95.7%
inv-pow95.7%
sqrt-pow195.8%
metadata-eval95.8%
inv-pow95.8%
sqrt-pow195.7%
metadata-eval95.7%
Applied egg-rr95.7%
associate-*r/95.8%
pow-sqr96.0%
metadata-eval96.0%
Simplified96.0%
if 3.4500000000000001e53 < y Initial program 99.6%
associate--l-99.6%
sub-neg99.6%
+-commutative99.6%
distribute-neg-in99.6%
distribute-frac-neg99.6%
sub-neg99.6%
neg-mul-199.6%
*-commutative99.6%
associate-/l*99.5%
fma-neg99.5%
associate-/r*99.5%
metadata-eval99.5%
*-commutative99.5%
associate-/r*99.5%
distribute-neg-frac99.5%
metadata-eval99.5%
metadata-eval99.5%
Simplified99.5%
Taylor expanded in y around inf 87.7%
associate-*r*87.8%
Simplified87.8%
sqrt-div87.7%
metadata-eval87.7%
div-inv87.8%
frac-2neg87.8%
metadata-eval87.8%
Applied egg-rr87.8%
distribute-frac-neg287.8%
distribute-neg-frac87.8%
metadata-eval87.8%
Simplified87.8%
Final simplification93.2%
(FPCore (x y)
:precision binary64
(if (<= y -5.1e+70)
(* -0.3333333333333333 (/ y (sqrt x)))
(if (<= y 3.5e+53)
(+ 1.0 (/ (pow x -1.0) -9.0))
(* y (/ -0.3333333333333333 (sqrt x))))))
double code(double x, double y) {
double tmp;
if (y <= -5.1e+70) {
tmp = -0.3333333333333333 * (y / sqrt(x));
} else if (y <= 3.5e+53) {
tmp = 1.0 + (pow(x, -1.0) / -9.0);
} else {
tmp = 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 <= (-5.1d+70)) then
tmp = (-0.3333333333333333d0) * (y / sqrt(x))
else if (y <= 3.5d+53) then
tmp = 1.0d0 + ((x ** (-1.0d0)) / (-9.0d0))
else
tmp = y * ((-0.3333333333333333d0) / sqrt(x))
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if (y <= -5.1e+70) {
tmp = -0.3333333333333333 * (y / Math.sqrt(x));
} else if (y <= 3.5e+53) {
tmp = 1.0 + (Math.pow(x, -1.0) / -9.0);
} else {
tmp = y * (-0.3333333333333333 / Math.sqrt(x));
}
return tmp;
}
def code(x, y): tmp = 0 if y <= -5.1e+70: tmp = -0.3333333333333333 * (y / math.sqrt(x)) elif y <= 3.5e+53: tmp = 1.0 + (math.pow(x, -1.0) / -9.0) else: tmp = y * (-0.3333333333333333 / math.sqrt(x)) return tmp
function code(x, y) tmp = 0.0 if (y <= -5.1e+70) tmp = Float64(-0.3333333333333333 * Float64(y / sqrt(x))); elseif (y <= 3.5e+53) tmp = Float64(1.0 + Float64((x ^ -1.0) / -9.0)); else tmp = Float64(y * Float64(-0.3333333333333333 / sqrt(x))); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (y <= -5.1e+70) tmp = -0.3333333333333333 * (y / sqrt(x)); elseif (y <= 3.5e+53) tmp = 1.0 + ((x ^ -1.0) / -9.0); else tmp = y * (-0.3333333333333333 / sqrt(x)); end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[y, -5.1e+70], N[(-0.3333333333333333 * N[(y / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 3.5e+53], N[(1.0 + N[(N[Power[x, -1.0], $MachinePrecision] / -9.0), $MachinePrecision]), $MachinePrecision], N[(y * N[(-0.3333333333333333 / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -5.1 \cdot 10^{+70}:\\
\;\;\;\;-0.3333333333333333 \cdot \frac{y}{\sqrt{x}}\\
\mathbf{elif}\;y \leq 3.5 \cdot 10^{+53}:\\
\;\;\;\;1 + \frac{{x}^{-1}}{-9}\\
\mathbf{else}:\\
\;\;\;\;y \cdot \frac{-0.3333333333333333}{\sqrt{x}}\\
\end{array}
\end{array}
if y < -5.10000000000000014e70Initial program 99.5%
associate--l-99.5%
sub-neg99.5%
+-commutative99.5%
distribute-neg-in99.5%
distribute-frac-neg99.5%
sub-neg99.5%
neg-mul-199.5%
*-commutative99.5%
associate-/l*99.3%
fma-neg99.3%
associate-/r*99.4%
metadata-eval99.4%
*-commutative99.4%
associate-/r*99.4%
distribute-neg-frac99.4%
metadata-eval99.4%
metadata-eval99.4%
Simplified99.4%
Taylor expanded in y around inf 91.0%
associate-*r*91.0%
Simplified91.0%
pow191.0%
associate-*l*91.0%
sqrt-div90.9%
metadata-eval90.9%
associate-*l/91.1%
*-un-lft-identity91.1%
Applied egg-rr91.1%
unpow191.1%
Simplified91.1%
if -5.10000000000000014e70 < y < 3.50000000000000019e53Initial program 99.7%
associate--l-99.7%
sub-neg99.7%
+-commutative99.7%
distribute-neg-in99.7%
distribute-frac-neg99.7%
sub-neg99.7%
neg-mul-199.7%
*-commutative99.7%
associate-/l*99.7%
fma-neg99.7%
associate-/r*99.7%
metadata-eval99.7%
*-commutative99.7%
associate-/r*99.7%
distribute-neg-frac99.7%
metadata-eval99.7%
metadata-eval99.7%
Simplified99.7%
Taylor expanded in y around 0 95.9%
cancel-sign-sub-inv95.9%
metadata-eval95.9%
associate-*r/95.9%
metadata-eval95.9%
Simplified95.9%
expm1-log1p-u46.7%
expm1-undefine46.7%
metadata-eval46.7%
distribute-neg-frac46.7%
log1p-define46.7%
add-exp-log95.9%
div-inv95.9%
distribute-lft-neg-in95.9%
metadata-eval95.9%
div-inv95.9%
Applied egg-rr95.9%
associate--l+95.9%
Simplified95.9%
associate-+r-95.9%
add-exp-log46.7%
log1p-undefine46.7%
expm1-undefine46.7%
expm1-log1p-u95.9%
clear-num95.9%
div-inv95.9%
metadata-eval95.9%
Applied egg-rr95.9%
associate-/r*96.0%
add-sqr-sqrt95.8%
associate-/l*95.7%
inv-pow95.7%
sqrt-pow195.8%
metadata-eval95.8%
inv-pow95.8%
sqrt-pow195.7%
metadata-eval95.7%
Applied egg-rr95.7%
associate-*r/95.8%
pow-sqr96.0%
metadata-eval96.0%
Simplified96.0%
if 3.50000000000000019e53 < y Initial program 99.6%
associate--l-99.6%
sub-neg99.6%
+-commutative99.6%
distribute-neg-in99.6%
distribute-frac-neg99.6%
sub-neg99.6%
neg-mul-199.6%
*-commutative99.6%
associate-/l*99.5%
fma-neg99.5%
associate-/r*99.5%
metadata-eval99.5%
*-commutative99.5%
associate-/r*99.5%
distribute-neg-frac99.5%
metadata-eval99.5%
metadata-eval99.5%
Simplified99.5%
Taylor expanded in y around inf 87.7%
associate-*r*87.8%
Simplified87.8%
sqrt-div87.7%
metadata-eval87.7%
div-inv87.8%
frac-2neg87.8%
metadata-eval87.8%
Applied egg-rr87.8%
distribute-frac-neg287.8%
distribute-neg-frac87.8%
metadata-eval87.8%
Simplified87.8%
Final simplification93.2%
(FPCore (x y) :precision binary64 (if (or (<= y -1.02e+68) (not (<= y 3.45e+53))) (* -0.3333333333333333 (/ y (sqrt x))) (+ 1.0 (/ 1.0 (* x -9.0)))))
double code(double x, double y) {
double tmp;
if ((y <= -1.02e+68) || !(y <= 3.45e+53)) {
tmp = -0.3333333333333333 * (y / sqrt(x));
} else {
tmp = 1.0 + (1.0 / (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.02d+68)) .or. (.not. (y <= 3.45d+53))) then
tmp = (-0.3333333333333333d0) * (y / sqrt(x))
else
tmp = 1.0d0 + (1.0d0 / (x * (-9.0d0)))
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if ((y <= -1.02e+68) || !(y <= 3.45e+53)) {
tmp = -0.3333333333333333 * (y / Math.sqrt(x));
} else {
tmp = 1.0 + (1.0 / (x * -9.0));
}
return tmp;
}
def code(x, y): tmp = 0 if (y <= -1.02e+68) or not (y <= 3.45e+53): tmp = -0.3333333333333333 * (y / math.sqrt(x)) else: tmp = 1.0 + (1.0 / (x * -9.0)) return tmp
function code(x, y) tmp = 0.0 if ((y <= -1.02e+68) || !(y <= 3.45e+53)) tmp = Float64(-0.3333333333333333 * Float64(y / sqrt(x))); else tmp = Float64(1.0 + Float64(1.0 / Float64(x * -9.0))); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if ((y <= -1.02e+68) || ~((y <= 3.45e+53))) tmp = -0.3333333333333333 * (y / sqrt(x)); else tmp = 1.0 + (1.0 / (x * -9.0)); end tmp_2 = tmp; end
code[x_, y_] := If[Or[LessEqual[y, -1.02e+68], N[Not[LessEqual[y, 3.45e+53]], $MachinePrecision]], N[(-0.3333333333333333 * N[(y / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(1.0 + N[(1.0 / N[(x * -9.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.02 \cdot 10^{+68} \lor \neg \left(y \leq 3.45 \cdot 10^{+53}\right):\\
\;\;\;\;-0.3333333333333333 \cdot \frac{y}{\sqrt{x}}\\
\mathbf{else}:\\
\;\;\;\;1 + \frac{1}{x \cdot -9}\\
\end{array}
\end{array}
if y < -1.02e68 or 3.4500000000000001e53 < y Initial program 99.5%
associate--l-99.5%
sub-neg99.5%
+-commutative99.5%
distribute-neg-in99.5%
distribute-frac-neg99.5%
sub-neg99.5%
neg-mul-199.5%
*-commutative99.5%
associate-/l*99.4%
fma-neg99.4%
associate-/r*99.5%
metadata-eval99.5%
*-commutative99.5%
associate-/r*99.4%
distribute-neg-frac99.4%
metadata-eval99.4%
metadata-eval99.4%
Simplified99.4%
Taylor expanded in y around inf 89.2%
associate-*r*89.3%
Simplified89.3%
pow189.3%
associate-*l*89.2%
sqrt-div89.2%
metadata-eval89.2%
associate-*l/89.3%
*-un-lft-identity89.3%
Applied egg-rr89.3%
unpow189.3%
Simplified89.3%
if -1.02e68 < y < 3.4500000000000001e53Initial program 99.7%
associate--l-99.7%
sub-neg99.7%
+-commutative99.7%
distribute-neg-in99.7%
distribute-frac-neg99.7%
sub-neg99.7%
neg-mul-199.7%
*-commutative99.7%
associate-/l*99.7%
fma-neg99.7%
associate-/r*99.7%
metadata-eval99.7%
*-commutative99.7%
associate-/r*99.7%
distribute-neg-frac99.7%
metadata-eval99.7%
metadata-eval99.7%
Simplified99.7%
Taylor expanded in y around 0 95.9%
cancel-sign-sub-inv95.9%
metadata-eval95.9%
associate-*r/95.9%
metadata-eval95.9%
Simplified95.9%
expm1-log1p-u46.7%
expm1-undefine46.7%
metadata-eval46.7%
distribute-neg-frac46.7%
log1p-define46.7%
add-exp-log95.9%
div-inv95.9%
distribute-lft-neg-in95.9%
metadata-eval95.9%
div-inv95.9%
Applied egg-rr95.9%
associate--l+95.9%
Simplified95.9%
associate-+r-95.9%
add-exp-log46.7%
log1p-undefine46.7%
expm1-undefine46.7%
expm1-log1p-u95.9%
clear-num95.9%
div-inv95.9%
metadata-eval95.9%
Applied egg-rr95.9%
Final simplification93.1%
(FPCore (x y)
:precision binary64
(if (<= y -1.72e+73)
(* -0.3333333333333333 (/ y (sqrt x)))
(if (<= y 3.5e+53)
(+ 1.0 (/ 1.0 (* x -9.0)))
(* y (/ -0.3333333333333333 (sqrt x))))))
double code(double x, double y) {
double tmp;
if (y <= -1.72e+73) {
tmp = -0.3333333333333333 * (y / sqrt(x));
} else if (y <= 3.5e+53) {
tmp = 1.0 + (1.0 / (x * -9.0));
} else {
tmp = 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 <= (-1.72d+73)) then
tmp = (-0.3333333333333333d0) * (y / sqrt(x))
else if (y <= 3.5d+53) then
tmp = 1.0d0 + (1.0d0 / (x * (-9.0d0)))
else
tmp = y * ((-0.3333333333333333d0) / sqrt(x))
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if (y <= -1.72e+73) {
tmp = -0.3333333333333333 * (y / Math.sqrt(x));
} else if (y <= 3.5e+53) {
tmp = 1.0 + (1.0 / (x * -9.0));
} else {
tmp = y * (-0.3333333333333333 / Math.sqrt(x));
}
return tmp;
}
def code(x, y): tmp = 0 if y <= -1.72e+73: tmp = -0.3333333333333333 * (y / math.sqrt(x)) elif y <= 3.5e+53: tmp = 1.0 + (1.0 / (x * -9.0)) else: tmp = y * (-0.3333333333333333 / math.sqrt(x)) return tmp
function code(x, y) tmp = 0.0 if (y <= -1.72e+73) tmp = Float64(-0.3333333333333333 * Float64(y / sqrt(x))); elseif (y <= 3.5e+53) tmp = Float64(1.0 + Float64(1.0 / Float64(x * -9.0))); else tmp = Float64(y * Float64(-0.3333333333333333 / sqrt(x))); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (y <= -1.72e+73) tmp = -0.3333333333333333 * (y / sqrt(x)); elseif (y <= 3.5e+53) tmp = 1.0 + (1.0 / (x * -9.0)); else tmp = y * (-0.3333333333333333 / sqrt(x)); end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[y, -1.72e+73], N[(-0.3333333333333333 * N[(y / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 3.5e+53], N[(1.0 + N[(1.0 / N[(x * -9.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y * N[(-0.3333333333333333 / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.72 \cdot 10^{+73}:\\
\;\;\;\;-0.3333333333333333 \cdot \frac{y}{\sqrt{x}}\\
\mathbf{elif}\;y \leq 3.5 \cdot 10^{+53}:\\
\;\;\;\;1 + \frac{1}{x \cdot -9}\\
\mathbf{else}:\\
\;\;\;\;y \cdot \frac{-0.3333333333333333}{\sqrt{x}}\\
\end{array}
\end{array}
if y < -1.7200000000000001e73Initial program 99.5%
associate--l-99.5%
sub-neg99.5%
+-commutative99.5%
distribute-neg-in99.5%
distribute-frac-neg99.5%
sub-neg99.5%
neg-mul-199.5%
*-commutative99.5%
associate-/l*99.3%
fma-neg99.3%
associate-/r*99.4%
metadata-eval99.4%
*-commutative99.4%
associate-/r*99.4%
distribute-neg-frac99.4%
metadata-eval99.4%
metadata-eval99.4%
Simplified99.4%
Taylor expanded in y around inf 91.0%
associate-*r*91.0%
Simplified91.0%
pow191.0%
associate-*l*91.0%
sqrt-div90.9%
metadata-eval90.9%
associate-*l/91.1%
*-un-lft-identity91.1%
Applied egg-rr91.1%
unpow191.1%
Simplified91.1%
if -1.7200000000000001e73 < y < 3.50000000000000019e53Initial program 99.7%
associate--l-99.7%
sub-neg99.7%
+-commutative99.7%
distribute-neg-in99.7%
distribute-frac-neg99.7%
sub-neg99.7%
neg-mul-199.7%
*-commutative99.7%
associate-/l*99.7%
fma-neg99.7%
associate-/r*99.7%
metadata-eval99.7%
*-commutative99.7%
associate-/r*99.7%
distribute-neg-frac99.7%
metadata-eval99.7%
metadata-eval99.7%
Simplified99.7%
Taylor expanded in y around 0 95.9%
cancel-sign-sub-inv95.9%
metadata-eval95.9%
associate-*r/95.9%
metadata-eval95.9%
Simplified95.9%
expm1-log1p-u46.7%
expm1-undefine46.7%
metadata-eval46.7%
distribute-neg-frac46.7%
log1p-define46.7%
add-exp-log95.9%
div-inv95.9%
distribute-lft-neg-in95.9%
metadata-eval95.9%
div-inv95.9%
Applied egg-rr95.9%
associate--l+95.9%
Simplified95.9%
associate-+r-95.9%
add-exp-log46.7%
log1p-undefine46.7%
expm1-undefine46.7%
expm1-log1p-u95.9%
clear-num95.9%
div-inv95.9%
metadata-eval95.9%
Applied egg-rr95.9%
if 3.50000000000000019e53 < y Initial program 99.6%
associate--l-99.6%
sub-neg99.6%
+-commutative99.6%
distribute-neg-in99.6%
distribute-frac-neg99.6%
sub-neg99.6%
neg-mul-199.6%
*-commutative99.6%
associate-/l*99.5%
fma-neg99.5%
associate-/r*99.5%
metadata-eval99.5%
*-commutative99.5%
associate-/r*99.5%
distribute-neg-frac99.5%
metadata-eval99.5%
metadata-eval99.5%
Simplified99.5%
Taylor expanded in y around inf 87.7%
associate-*r*87.8%
Simplified87.8%
sqrt-div87.7%
metadata-eval87.7%
div-inv87.8%
frac-2neg87.8%
metadata-eval87.8%
Applied egg-rr87.8%
distribute-frac-neg287.8%
distribute-neg-frac87.8%
metadata-eval87.8%
Simplified87.8%
Final simplification93.1%
(FPCore (x y) :precision binary64 (if (<= x 1400.0) (/ (- (* -0.3333333333333333 (* y (sqrt x))) 0.1111111111111111) x) (- 1.0 (/ y (* 3.0 (sqrt x))))))
double code(double x, double y) {
double tmp;
if (x <= 1400.0) {
tmp = ((-0.3333333333333333 * (y * sqrt(x))) - 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 (x <= 1400.0d0) then
tmp = (((-0.3333333333333333d0) * (y * sqrt(x))) - 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 (x <= 1400.0) {
tmp = ((-0.3333333333333333 * (y * Math.sqrt(x))) - 0.1111111111111111) / x;
} else {
tmp = 1.0 - (y / (3.0 * Math.sqrt(x)));
}
return tmp;
}
def code(x, y): tmp = 0 if x <= 1400.0: tmp = ((-0.3333333333333333 * (y * math.sqrt(x))) - 0.1111111111111111) / x else: tmp = 1.0 - (y / (3.0 * math.sqrt(x))) return tmp
function code(x, y) tmp = 0.0 if (x <= 1400.0) tmp = Float64(Float64(Float64(-0.3333333333333333 * Float64(y * sqrt(x))) - 0.1111111111111111) / x); else tmp = Float64(1.0 - Float64(y / Float64(3.0 * sqrt(x)))); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (x <= 1400.0) tmp = ((-0.3333333333333333 * (y * sqrt(x))) - 0.1111111111111111) / x; else tmp = 1.0 - (y / (3.0 * sqrt(x))); end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[x, 1400.0], N[(N[(N[(-0.3333333333333333 * N[(y * N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - 0.1111111111111111), $MachinePrecision] / x), $MachinePrecision], N[(1.0 - N[(y / N[(3.0 * N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq 1400:\\
\;\;\;\;\frac{-0.3333333333333333 \cdot \left(y \cdot \sqrt{x}\right) - 0.1111111111111111}{x}\\
\mathbf{else}:\\
\;\;\;\;1 - \frac{y}{3 \cdot \sqrt{x}}\\
\end{array}
\end{array}
if x < 1400Initial program 99.5%
associate--l-99.5%
sub-neg99.5%
+-commutative99.5%
distribute-neg-in99.5%
distribute-frac-neg99.5%
sub-neg99.5%
neg-mul-199.5%
*-commutative99.5%
associate-/l*99.5%
fma-neg99.5%
associate-/r*99.5%
metadata-eval99.5%
*-commutative99.5%
associate-/r*99.5%
distribute-neg-frac99.5%
metadata-eval99.5%
metadata-eval99.5%
Simplified99.5%
Taylor expanded in x around 0 99.2%
if 1400 < x Initial program 99.8%
Taylor expanded in x around 0 99.8%
Taylor expanded in x around inf 99.6%
Final simplification99.4%
(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%
(FPCore (x y) :precision binary64 (+ (- 1.0 (/ 0.1111111111111111 x)) (/ (* y -0.3333333333333333) (sqrt x))))
double code(double x, double y) {
return (1.0 - (0.1111111111111111 / x)) + ((y * -0.3333333333333333) / 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 * (-0.3333333333333333d0)) / sqrt(x))
end function
public static double code(double x, double y) {
return (1.0 - (0.1111111111111111 / x)) + ((y * -0.3333333333333333) / Math.sqrt(x));
}
def code(x, y): return (1.0 - (0.1111111111111111 / x)) + ((y * -0.3333333333333333) / math.sqrt(x))
function code(x, y) return Float64(Float64(1.0 - Float64(0.1111111111111111 / x)) + Float64(Float64(y * -0.3333333333333333) / sqrt(x))) end
function tmp = code(x, y) tmp = (1.0 - (0.1111111111111111 / x)) + ((y * -0.3333333333333333) / sqrt(x)); end
code[x_, y_] := N[(N[(1.0 - N[(0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision] + N[(N[(y * -0.3333333333333333), $MachinePrecision] / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(1 - \frac{0.1111111111111111}{x}\right) + \frac{y \cdot -0.3333333333333333}{\sqrt{x}}
\end{array}
Initial program 99.7%
sub-neg99.7%
*-commutative99.7%
associate-/r*99.7%
metadata-eval99.7%
distribute-frac-neg99.7%
neg-mul-199.7%
times-frac99.6%
metadata-eval99.6%
Simplified99.6%
*-commutative99.6%
associate-*l/99.6%
Applied egg-rr99.6%
(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%
*-commutative99.7%
associate-/r*99.7%
metadata-eval99.7%
distribute-frac-neg99.7%
neg-mul-199.7%
times-frac99.6%
metadata-eval99.6%
Simplified99.6%
(FPCore (x y)
:precision binary64
(if (<= y 1.4e+154)
(+ 1.0 (/ 1.0 (* x -9.0)))
(/
(- -1.0 (/ -0.012345679012345678 (* x x)))
(+ -1.0 (/ -0.1111111111111111 x)))))
double code(double x, double y) {
double tmp;
if (y <= 1.4e+154) {
tmp = 1.0 + (1.0 / (x * -9.0));
} else {
tmp = (-1.0 - (-0.012345679012345678 / (x * x))) / (-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.4d+154) then
tmp = 1.0d0 + (1.0d0 / (x * (-9.0d0)))
else
tmp = ((-1.0d0) - ((-0.012345679012345678d0) / (x * x))) / ((-1.0d0) + ((-0.1111111111111111d0) / x))
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if (y <= 1.4e+154) {
tmp = 1.0 + (1.0 / (x * -9.0));
} else {
tmp = (-1.0 - (-0.012345679012345678 / (x * x))) / (-1.0 + (-0.1111111111111111 / x));
}
return tmp;
}
def code(x, y): tmp = 0 if y <= 1.4e+154: tmp = 1.0 + (1.0 / (x * -9.0)) else: tmp = (-1.0 - (-0.012345679012345678 / (x * x))) / (-1.0 + (-0.1111111111111111 / x)) return tmp
function code(x, y) tmp = 0.0 if (y <= 1.4e+154) tmp = Float64(1.0 + Float64(1.0 / Float64(x * -9.0))); else tmp = Float64(Float64(-1.0 - Float64(-0.012345679012345678 / Float64(x * x))) / Float64(-1.0 + Float64(-0.1111111111111111 / x))); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (y <= 1.4e+154) tmp = 1.0 + (1.0 / (x * -9.0)); else tmp = (-1.0 - (-0.012345679012345678 / (x * x))) / (-1.0 + (-0.1111111111111111 / x)); end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[y, 1.4e+154], N[(1.0 + N[(1.0 / N[(x * -9.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(-1.0 - N[(-0.012345679012345678 / N[(x * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(-1.0 + N[(-0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq 1.4 \cdot 10^{+154}:\\
\;\;\;\;1 + \frac{1}{x \cdot -9}\\
\mathbf{else}:\\
\;\;\;\;\frac{-1 - \frac{-0.012345679012345678}{x \cdot x}}{-1 + \frac{-0.1111111111111111}{x}}\\
\end{array}
\end{array}
if y < 1.4e154Initial program 99.7%
associate--l-99.7%
sub-neg99.7%
+-commutative99.7%
distribute-neg-in99.7%
distribute-frac-neg99.7%
sub-neg99.7%
neg-mul-199.7%
*-commutative99.7%
associate-/l*99.6%
fma-neg99.6%
associate-/r*99.6%
metadata-eval99.6%
*-commutative99.6%
associate-/r*99.6%
distribute-neg-frac99.6%
metadata-eval99.6%
metadata-eval99.6%
Simplified99.6%
Taylor expanded in y around 0 68.5%
cancel-sign-sub-inv68.5%
metadata-eval68.5%
associate-*r/68.5%
metadata-eval68.5%
Simplified68.5%
expm1-log1p-u34.3%
expm1-undefine34.3%
metadata-eval34.3%
distribute-neg-frac34.3%
log1p-define34.3%
add-exp-log68.5%
div-inv68.5%
distribute-lft-neg-in68.5%
metadata-eval68.5%
div-inv68.5%
Applied egg-rr68.5%
associate--l+68.5%
Simplified68.5%
associate-+r-68.5%
add-exp-log34.3%
log1p-undefine34.3%
expm1-undefine34.3%
expm1-log1p-u68.5%
clear-num68.5%
div-inv68.5%
metadata-eval68.5%
Applied egg-rr68.5%
if 1.4e154 < y Initial program 99.5%
associate--l-99.5%
sub-neg99.5%
+-commutative99.5%
distribute-neg-in99.5%
distribute-frac-neg99.5%
sub-neg99.5%
neg-mul-199.5%
*-commutative99.5%
associate-/l*99.4%
fma-neg99.4%
associate-/r*99.5%
metadata-eval99.5%
*-commutative99.5%
associate-/r*99.5%
distribute-neg-frac99.5%
metadata-eval99.5%
metadata-eval99.5%
Simplified99.5%
Taylor expanded in y around 0 3.8%
cancel-sign-sub-inv3.8%
metadata-eval3.8%
associate-*r/3.8%
metadata-eval3.8%
Simplified3.8%
expm1-log1p-u0.5%
expm1-undefine0.5%
metadata-eval0.5%
distribute-neg-frac0.5%
log1p-define0.5%
add-exp-log3.8%
div-inv3.8%
distribute-lft-neg-in3.8%
metadata-eval3.8%
div-inv3.8%
Applied egg-rr3.8%
associate--l+3.8%
Simplified3.8%
+-commutative3.8%
associate-+r-3.8%
add-exp-log0.5%
log1p-undefine0.5%
expm1-undefine0.5%
expm1-log1p-u3.8%
flip-+25.4%
frac-times25.4%
metadata-eval25.4%
metadata-eval25.4%
frac-times25.4%
metadata-eval25.4%
sub-neg25.4%
div-inv25.4%
div-inv25.4%
swap-sqr25.4%
metadata-eval25.4%
inv-pow25.4%
inv-pow25.4%
pow-prod-up25.4%
metadata-eval25.4%
metadata-eval25.4%
Applied egg-rr25.4%
metadata-eval25.4%
metadata-eval25.4%
pow-sqr25.4%
inv-pow25.4%
inv-pow25.4%
swap-sqr25.4%
div-inv25.4%
frac-2neg25.4%
metadata-eval25.4%
div-inv25.4%
frac-times25.4%
metadata-eval25.4%
Applied egg-rr25.4%
Final simplification62.8%
(FPCore (x y) :precision binary64 (if (<= x 0.032) (/ -0.1111111111111111 x) 1.0))
double code(double x, double y) {
double tmp;
if (x <= 0.032) {
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.032d0) 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.032) {
tmp = -0.1111111111111111 / x;
} else {
tmp = 1.0;
}
return tmp;
}
def code(x, y): tmp = 0 if x <= 0.032: tmp = -0.1111111111111111 / x else: tmp = 1.0 return tmp
function code(x, y) tmp = 0.0 if (x <= 0.032) 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.032) tmp = -0.1111111111111111 / x; else tmp = 1.0; end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[x, 0.032], N[(-0.1111111111111111 / x), $MachinePrecision], 1.0]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq 0.032:\\
\;\;\;\;\frac{-0.1111111111111111}{x}\\
\mathbf{else}:\\
\;\;\;\;1\\
\end{array}
\end{array}
if x < 0.032000000000000001Initial program 99.5%
associate--l-99.5%
sub-neg99.5%
+-commutative99.5%
distribute-neg-in99.5%
distribute-frac-neg99.5%
sub-neg99.5%
neg-mul-199.5%
*-commutative99.5%
associate-/l*99.5%
fma-neg99.5%
associate-/r*99.6%
metadata-eval99.6%
*-commutative99.6%
associate-/r*99.5%
distribute-neg-frac99.5%
metadata-eval99.5%
metadata-eval99.5%
Simplified99.5%
Taylor expanded in y around 0 59.7%
cancel-sign-sub-inv59.7%
metadata-eval59.7%
associate-*r/59.7%
metadata-eval59.7%
Simplified59.7%
expm1-log1p-u0.0%
expm1-undefine0.0%
metadata-eval0.0%
distribute-neg-frac0.0%
log1p-define0.0%
add-exp-log59.7%
div-inv59.7%
distribute-lft-neg-in59.7%
metadata-eval59.7%
div-inv59.7%
Applied egg-rr59.7%
associate--l+59.7%
Simplified59.7%
Taylor expanded in x around 0 59.4%
if 0.032000000000000001 < x Initial program 99.8%
sub-neg99.8%
*-commutative99.8%
associate-/r*99.8%
metadata-eval99.8%
distribute-frac-neg99.8%
neg-mul-199.8%
times-frac99.7%
metadata-eval99.7%
Simplified99.7%
Taylor expanded in x around inf 99.6%
Taylor expanded in y around 0 60.0%
(FPCore (x y) :precision binary64 (+ 1.0 (/ 1.0 (* x -9.0))))
double code(double x, double y) {
return 1.0 + (1.0 / (x * -9.0));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 1.0d0 + (1.0d0 / (x * (-9.0d0)))
end function
public static double code(double x, double y) {
return 1.0 + (1.0 / (x * -9.0));
}
def code(x, y): return 1.0 + (1.0 / (x * -9.0))
function code(x, y) return Float64(1.0 + Float64(1.0 / Float64(x * -9.0))) end
function tmp = code(x, y) tmp = 1.0 + (1.0 / (x * -9.0)); end
code[x_, y_] := N[(1.0 + N[(1.0 / N[(x * -9.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
1 + \frac{1}{x \cdot -9}
\end{array}
Initial program 99.7%
associate--l-99.7%
sub-neg99.7%
+-commutative99.7%
distribute-neg-in99.7%
distribute-frac-neg99.7%
sub-neg99.7%
neg-mul-199.7%
*-commutative99.7%
associate-/l*99.6%
fma-neg99.6%
associate-/r*99.6%
metadata-eval99.6%
*-commutative99.6%
associate-/r*99.6%
distribute-neg-frac99.6%
metadata-eval99.6%
metadata-eval99.6%
Simplified99.6%
Taylor expanded in y around 0 59.9%
cancel-sign-sub-inv59.9%
metadata-eval59.9%
associate-*r/59.9%
metadata-eval59.9%
Simplified59.9%
expm1-log1p-u29.8%
expm1-undefine29.8%
metadata-eval29.8%
distribute-neg-frac29.8%
log1p-define29.8%
add-exp-log59.9%
div-inv59.9%
distribute-lft-neg-in59.9%
metadata-eval59.9%
div-inv59.9%
Applied egg-rr59.9%
associate--l+59.9%
Simplified59.9%
associate-+r-59.9%
add-exp-log29.8%
log1p-undefine29.8%
expm1-undefine29.8%
expm1-log1p-u59.9%
clear-num59.9%
div-inv59.9%
metadata-eval59.9%
Applied egg-rr59.9%
(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%
associate--l-99.7%
sub-neg99.7%
+-commutative99.7%
distribute-neg-in99.7%
distribute-frac-neg99.7%
sub-neg99.7%
neg-mul-199.7%
*-commutative99.7%
associate-/l*99.6%
fma-neg99.6%
associate-/r*99.6%
metadata-eval99.6%
*-commutative99.6%
associate-/r*99.6%
distribute-neg-frac99.6%
metadata-eval99.6%
metadata-eval99.6%
Simplified99.6%
Taylor expanded in y around 0 59.9%
cancel-sign-sub-inv59.9%
metadata-eval59.9%
associate-*r/59.9%
metadata-eval59.9%
Simplified59.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%
*-commutative99.7%
associate-/r*99.7%
metadata-eval99.7%
distribute-frac-neg99.7%
neg-mul-199.7%
times-frac99.6%
metadata-eval99.6%
Simplified99.6%
Taylor expanded in x around inf 70.1%
Taylor expanded in y around 0 30.5%
(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 2024132
(FPCore (x y)
:name "Numeric.SpecFunctions:invIncompleteGamma from math-functions-0.1.5.2, D"
:precision binary64
:alt
(! :herbie-platform default (- (- 1 (/ (/ 1 x) 9)) (/ y (* 3 (sqrt x)))))
(- (- 1.0 (/ 1.0 (* x 9.0))) (/ y (* 3.0 (sqrt x)))))