
(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 16 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 (sqrt (* x 9.0)))))
double code(double x, double y) {
return (1.0 + (-1.0 / (x * 9.0))) - (y / sqrt((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))) - (y / sqrt((x * 9.0d0)))
end function
public static double code(double x, double y) {
return (1.0 + (-1.0 / (x * 9.0))) - (y / Math.sqrt((x * 9.0)));
}
def code(x, y): return (1.0 + (-1.0 / (x * 9.0))) - (y / math.sqrt((x * 9.0)))
function code(x, y) return Float64(Float64(1.0 + Float64(-1.0 / Float64(x * 9.0))) - Float64(y / sqrt(Float64(x * 9.0)))) end
function tmp = code(x, y) tmp = (1.0 + (-1.0 / (x * 9.0))) - (y / sqrt((x * 9.0))); end
code[x_, y_] := N[(N[(1.0 + N[(-1.0 / N[(x * 9.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(y / N[Sqrt[N[(x * 9.0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(1 + \frac{-1}{x \cdot 9}\right) - \frac{y}{\sqrt{x \cdot 9}}
\end{array}
Initial program 99.8%
*-commutative99.8%
metadata-eval99.8%
sqrt-prod99.8%
pow199.8%
Applied egg-rr99.8%
unpow199.8%
Simplified99.8%
Final simplification99.8%
(FPCore (x y) :precision binary64 (if (or (<= y -2.7e+62) (not (<= y 1.1e+27))) (- 1.0 (/ y (sqrt (* x 9.0)))) (+ 1.0 (/ -0.1111111111111111 x))))
double code(double x, double y) {
double tmp;
if ((y <= -2.7e+62) || !(y <= 1.1e+27)) {
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 <= (-2.7d+62)) .or. (.not. (y <= 1.1d+27))) 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 <= -2.7e+62) || !(y <= 1.1e+27)) {
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 <= -2.7e+62) or not (y <= 1.1e+27): 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 <= -2.7e+62) || !(y <= 1.1e+27)) 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 <= -2.7e+62) || ~((y <= 1.1e+27))) 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, -2.7e+62], N[Not[LessEqual[y, 1.1e+27]], $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 -2.7 \cdot 10^{+62} \lor \neg \left(y \leq 1.1 \cdot 10^{+27}\right):\\
\;\;\;\;1 - \frac{y}{\sqrt{x \cdot 9}}\\
\mathbf{else}:\\
\;\;\;\;1 + \frac{-0.1111111111111111}{x}\\
\end{array}
\end{array}
if y < -2.7e62 or 1.0999999999999999e27 < y Initial program 99.7%
*-commutative99.7%
metadata-eval99.7%
sqrt-prod99.8%
pow199.8%
Applied egg-rr99.8%
unpow199.8%
Simplified99.8%
Taylor expanded in x around inf 96.2%
if -2.7e62 < y < 1.0999999999999999e27Initial program 99.9%
associate--l-99.9%
sub-neg99.9%
+-commutative99.9%
distribute-neg-in99.9%
distribute-frac-neg99.9%
sub-neg99.9%
neg-mul-199.9%
*-commutative99.9%
associate-/l*99.9%
fma-neg99.9%
associate-/r*99.9%
metadata-eval99.9%
*-commutative99.9%
associate-/r*99.8%
distribute-neg-frac99.8%
metadata-eval99.8%
metadata-eval99.8%
Simplified99.8%
Taylor expanded in y around 0 97.6%
Final simplification96.9%
(FPCore (x y)
:precision binary64
(if (<= y -6.8e+68)
(/ y (* (sqrt x) -3.0))
(if (<= y 1.05e+27)
(+ 1.0 (/ -0.1111111111111111 x))
(+ 1.0 (* -0.3333333333333333 (/ y (sqrt x)))))))
double code(double x, double y) {
double tmp;
if (y <= -6.8e+68) {
tmp = y / (sqrt(x) * -3.0);
} else if (y <= 1.05e+27) {
tmp = 1.0 + (-0.1111111111111111 / x);
} else {
tmp = 1.0 + (-0.3333333333333333 * (y / 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 <= (-6.8d+68)) then
tmp = y / (sqrt(x) * (-3.0d0))
else if (y <= 1.05d+27) then
tmp = 1.0d0 + ((-0.1111111111111111d0) / x)
else
tmp = 1.0d0 + ((-0.3333333333333333d0) * (y / sqrt(x)))
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if (y <= -6.8e+68) {
tmp = y / (Math.sqrt(x) * -3.0);
} else if (y <= 1.05e+27) {
tmp = 1.0 + (-0.1111111111111111 / x);
} else {
tmp = 1.0 + (-0.3333333333333333 * (y / Math.sqrt(x)));
}
return tmp;
}
def code(x, y): tmp = 0 if y <= -6.8e+68: tmp = y / (math.sqrt(x) * -3.0) elif y <= 1.05e+27: tmp = 1.0 + (-0.1111111111111111 / x) else: tmp = 1.0 + (-0.3333333333333333 * (y / math.sqrt(x))) return tmp
function code(x, y) tmp = 0.0 if (y <= -6.8e+68) tmp = Float64(y / Float64(sqrt(x) * -3.0)); elseif (y <= 1.05e+27) tmp = Float64(1.0 + Float64(-0.1111111111111111 / x)); else tmp = Float64(1.0 + Float64(-0.3333333333333333 * Float64(y / sqrt(x)))); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (y <= -6.8e+68) tmp = y / (sqrt(x) * -3.0); elseif (y <= 1.05e+27) tmp = 1.0 + (-0.1111111111111111 / x); else tmp = 1.0 + (-0.3333333333333333 * (y / sqrt(x))); end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[y, -6.8e+68], N[(y / N[(N[Sqrt[x], $MachinePrecision] * -3.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.05e+27], N[(1.0 + N[(-0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision], N[(1.0 + N[(-0.3333333333333333 * N[(y / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -6.8 \cdot 10^{+68}:\\
\;\;\;\;\frac{y}{\sqrt{x} \cdot -3}\\
\mathbf{elif}\;y \leq 1.05 \cdot 10^{+27}:\\
\;\;\;\;1 + \frac{-0.1111111111111111}{x}\\
\mathbf{else}:\\
\;\;\;\;1 + -0.3333333333333333 \cdot \frac{y}{\sqrt{x}}\\
\end{array}
\end{array}
if y < -6.8000000000000003e68Initial program 99.7%
sub-neg99.7%
*-commutative99.7%
associate-/r*99.7%
metadata-eval99.7%
distribute-frac-neg99.7%
neg-mul-199.7%
times-frac98.1%
metadata-eval98.1%
Simplified98.1%
Taylor expanded in x around 0 76.8%
Taylor expanded in y around inf 93.0%
associate-*r*94.3%
*-commutative94.3%
Simplified94.3%
associate-*l*94.3%
sqrt-div94.2%
metadata-eval94.2%
associate-*l/94.4%
*-un-lft-identity94.4%
Applied egg-rr94.4%
associate-/l*93.1%
Simplified93.1%
*-commutative93.1%
associate-*l/94.4%
associate-*r/94.3%
clear-num94.3%
un-div-inv94.5%
div-inv94.6%
metadata-eval94.6%
Applied egg-rr94.6%
if -6.8000000000000003e68 < y < 1.04999999999999997e27Initial program 99.9%
associate--l-99.9%
sub-neg99.9%
+-commutative99.9%
distribute-neg-in99.9%
distribute-frac-neg99.9%
sub-neg99.9%
neg-mul-199.9%
*-commutative99.9%
associate-/l*99.9%
fma-neg99.9%
associate-/r*99.9%
metadata-eval99.9%
*-commutative99.9%
associate-/r*99.8%
distribute-neg-frac99.8%
metadata-eval99.8%
metadata-eval99.8%
Simplified99.8%
Taylor expanded in y around 0 97.6%
if 1.04999999999999997e27 < y 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.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 inf 96.0%
*-commutative96.0%
sqrt-div96.0%
metadata-eval96.0%
un-div-inv96.0%
Applied egg-rr96.0%
(FPCore (x y) :precision binary64 (if (or (<= y -4.9e+66) (not (<= y 3e+78))) (/ y (* (sqrt x) -3.0)) (+ 1.0 (/ -0.1111111111111111 x))))
double code(double x, double y) {
double tmp;
if ((y <= -4.9e+66) || !(y <= 3e+78)) {
tmp = y / (sqrt(x) * -3.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 <= (-4.9d+66)) .or. (.not. (y <= 3d+78))) then
tmp = y / (sqrt(x) * (-3.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 <= -4.9e+66) || !(y <= 3e+78)) {
tmp = y / (Math.sqrt(x) * -3.0);
} else {
tmp = 1.0 + (-0.1111111111111111 / x);
}
return tmp;
}
def code(x, y): tmp = 0 if (y <= -4.9e+66) or not (y <= 3e+78): tmp = y / (math.sqrt(x) * -3.0) else: tmp = 1.0 + (-0.1111111111111111 / x) return tmp
function code(x, y) tmp = 0.0 if ((y <= -4.9e+66) || !(y <= 3e+78)) tmp = Float64(y / Float64(sqrt(x) * -3.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 <= -4.9e+66) || ~((y <= 3e+78))) tmp = y / (sqrt(x) * -3.0); else tmp = 1.0 + (-0.1111111111111111 / x); end tmp_2 = tmp; end
code[x_, y_] := If[Or[LessEqual[y, -4.9e+66], N[Not[LessEqual[y, 3e+78]], $MachinePrecision]], N[(y / N[(N[Sqrt[x], $MachinePrecision] * -3.0), $MachinePrecision]), $MachinePrecision], N[(1.0 + N[(-0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -4.9 \cdot 10^{+66} \lor \neg \left(y \leq 3 \cdot 10^{+78}\right):\\
\;\;\;\;\frac{y}{\sqrt{x} \cdot -3}\\
\mathbf{else}:\\
\;\;\;\;1 + \frac{-0.1111111111111111}{x}\\
\end{array}
\end{array}
if y < -4.89999999999999975e66 or 2.99999999999999982e78 < y 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-frac98.7%
metadata-eval98.7%
Simplified98.7%
Taylor expanded in x around 0 82.6%
Taylor expanded in y around inf 93.9%
associate-*r*94.6%
*-commutative94.6%
Simplified94.6%
associate-*l*94.6%
sqrt-div94.5%
metadata-eval94.5%
associate-*l/94.6%
*-un-lft-identity94.6%
Applied egg-rr94.6%
associate-/l*93.9%
Simplified93.9%
*-commutative93.9%
associate-*l/94.6%
associate-*r/94.7%
clear-num94.7%
un-div-inv94.8%
div-inv94.9%
metadata-eval94.9%
Applied egg-rr94.9%
if -4.89999999999999975e66 < y < 2.99999999999999982e78Initial program 99.9%
associate--l-99.9%
sub-neg99.9%
+-commutative99.9%
distribute-neg-in99.9%
distribute-frac-neg99.9%
sub-neg99.9%
neg-mul-199.9%
*-commutative99.9%
associate-/l*99.9%
fma-neg99.9%
associate-/r*99.9%
metadata-eval99.9%
*-commutative99.9%
associate-/r*99.8%
distribute-neg-frac99.8%
metadata-eval99.8%
metadata-eval99.8%
Simplified99.8%
Taylor expanded in y around 0 97.0%
Final simplification96.1%
(FPCore (x y) :precision binary64 (if (or (<= y -8.2e+68) (not (<= y 6.2e+74))) (* y (/ -0.3333333333333333 (sqrt x))) (+ 1.0 (/ -0.1111111111111111 x))))
double code(double x, double y) {
double tmp;
if ((y <= -8.2e+68) || !(y <= 6.2e+74)) {
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 <= (-8.2d+68)) .or. (.not. (y <= 6.2d+74))) 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 <= -8.2e+68) || !(y <= 6.2e+74)) {
tmp = y * (-0.3333333333333333 / Math.sqrt(x));
} else {
tmp = 1.0 + (-0.1111111111111111 / x);
}
return tmp;
}
def code(x, y): tmp = 0 if (y <= -8.2e+68) or not (y <= 6.2e+74): 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 <= -8.2e+68) || !(y <= 6.2e+74)) 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 <= -8.2e+68) || ~((y <= 6.2e+74))) 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, -8.2e+68], N[Not[LessEqual[y, 6.2e+74]], $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 -8.2 \cdot 10^{+68} \lor \neg \left(y \leq 6.2 \cdot 10^{+74}\right):\\
\;\;\;\;y \cdot \frac{-0.3333333333333333}{\sqrt{x}}\\
\mathbf{else}:\\
\;\;\;\;1 + \frac{-0.1111111111111111}{x}\\
\end{array}
\end{array}
if y < -8.1999999999999998e68 or 6.20000000000000043e74 < y 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-frac98.7%
metadata-eval98.7%
Simplified98.7%
Taylor expanded in x around 0 82.6%
Taylor expanded in y around inf 93.9%
associate-*r*94.6%
*-commutative94.6%
Simplified94.6%
*-commutative94.6%
sqrt-div94.6%
metadata-eval94.6%
un-div-inv94.7%
Applied egg-rr94.7%
if -8.1999999999999998e68 < y < 6.20000000000000043e74Initial program 99.9%
associate--l-99.9%
sub-neg99.9%
+-commutative99.9%
distribute-neg-in99.9%
distribute-frac-neg99.9%
sub-neg99.9%
neg-mul-199.9%
*-commutative99.9%
associate-/l*99.9%
fma-neg99.9%
associate-/r*99.9%
metadata-eval99.9%
*-commutative99.9%
associate-/r*99.8%
distribute-neg-frac99.8%
metadata-eval99.8%
metadata-eval99.8%
Simplified99.8%
Taylor expanded in y around 0 97.0%
Final simplification96.0%
(FPCore (x y) :precision binary64 (if (or (<= y -5.8e+67) (not (<= y 3.8e+76))) (* -0.3333333333333333 (/ y (sqrt x))) (+ 1.0 (/ -0.1111111111111111 x))))
double code(double x, double y) {
double tmp;
if ((y <= -5.8e+67) || !(y <= 3.8e+76)) {
tmp = -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 <= (-5.8d+67)) .or. (.not. (y <= 3.8d+76))) then
tmp = (-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 <= -5.8e+67) || !(y <= 3.8e+76)) {
tmp = -0.3333333333333333 * (y / Math.sqrt(x));
} else {
tmp = 1.0 + (-0.1111111111111111 / x);
}
return tmp;
}
def code(x, y): tmp = 0 if (y <= -5.8e+67) or not (y <= 3.8e+76): tmp = -0.3333333333333333 * (y / math.sqrt(x)) else: tmp = 1.0 + (-0.1111111111111111 / x) return tmp
function code(x, y) tmp = 0.0 if ((y <= -5.8e+67) || !(y <= 3.8e+76)) tmp = 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 <= -5.8e+67) || ~((y <= 3.8e+76))) tmp = -0.3333333333333333 * (y / sqrt(x)); else tmp = 1.0 + (-0.1111111111111111 / x); end tmp_2 = tmp; end
code[x_, y_] := If[Or[LessEqual[y, -5.8e+67], N[Not[LessEqual[y, 3.8e+76]], $MachinePrecision]], N[(-0.3333333333333333 * N[(y / 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 -5.8 \cdot 10^{+67} \lor \neg \left(y \leq 3.8 \cdot 10^{+76}\right):\\
\;\;\;\;-0.3333333333333333 \cdot \frac{y}{\sqrt{x}}\\
\mathbf{else}:\\
\;\;\;\;1 + \frac{-0.1111111111111111}{x}\\
\end{array}
\end{array}
if y < -5.80000000000000047e67 or 3.80000000000000024e76 < y 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-frac98.7%
metadata-eval98.7%
Simplified98.7%
Taylor expanded in x around 0 82.6%
Taylor expanded in y around inf 93.9%
associate-*r*94.6%
*-commutative94.6%
Simplified94.6%
associate-*l*94.6%
sqrt-div94.5%
metadata-eval94.5%
associate-*l/94.6%
*-un-lft-identity94.6%
Applied egg-rr94.6%
associate-/l*93.9%
Simplified93.9%
if -5.80000000000000047e67 < y < 3.80000000000000024e76Initial program 99.9%
associate--l-99.9%
sub-neg99.9%
+-commutative99.9%
distribute-neg-in99.9%
distribute-frac-neg99.9%
sub-neg99.9%
neg-mul-199.9%
*-commutative99.9%
associate-/l*99.9%
fma-neg99.9%
associate-/r*99.9%
metadata-eval99.9%
*-commutative99.9%
associate-/r*99.8%
distribute-neg-frac99.8%
metadata-eval99.8%
metadata-eval99.8%
Simplified99.8%
Taylor expanded in y around 0 97.0%
Final simplification95.7%
(FPCore (x y)
:precision binary64
(if (<= y -5.8e+65)
(/ -0.3333333333333333 (/ (sqrt x) y))
(if (<= y 9e+75)
(+ 1.0 (/ -0.1111111111111111 x))
(* y (/ -0.3333333333333333 (sqrt x))))))
double code(double x, double y) {
double tmp;
if (y <= -5.8e+65) {
tmp = -0.3333333333333333 / (sqrt(x) / y);
} else if (y <= 9e+75) {
tmp = 1.0 + (-0.1111111111111111 / x);
} 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.8d+65)) then
tmp = (-0.3333333333333333d0) / (sqrt(x) / y)
else if (y <= 9d+75) then
tmp = 1.0d0 + ((-0.1111111111111111d0) / x)
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.8e+65) {
tmp = -0.3333333333333333 / (Math.sqrt(x) / y);
} else if (y <= 9e+75) {
tmp = 1.0 + (-0.1111111111111111 / x);
} else {
tmp = y * (-0.3333333333333333 / Math.sqrt(x));
}
return tmp;
}
def code(x, y): tmp = 0 if y <= -5.8e+65: tmp = -0.3333333333333333 / (math.sqrt(x) / y) elif y <= 9e+75: tmp = 1.0 + (-0.1111111111111111 / x) else: tmp = y * (-0.3333333333333333 / math.sqrt(x)) return tmp
function code(x, y) tmp = 0.0 if (y <= -5.8e+65) tmp = Float64(-0.3333333333333333 / Float64(sqrt(x) / y)); elseif (y <= 9e+75) tmp = Float64(1.0 + Float64(-0.1111111111111111 / x)); 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.8e+65) tmp = -0.3333333333333333 / (sqrt(x) / y); elseif (y <= 9e+75) tmp = 1.0 + (-0.1111111111111111 / x); else tmp = y * (-0.3333333333333333 / sqrt(x)); end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[y, -5.8e+65], N[(-0.3333333333333333 / N[(N[Sqrt[x], $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 9e+75], N[(1.0 + N[(-0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision], N[(y * N[(-0.3333333333333333 / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -5.8 \cdot 10^{+65}:\\
\;\;\;\;\frac{-0.3333333333333333}{\frac{\sqrt{x}}{y}}\\
\mathbf{elif}\;y \leq 9 \cdot 10^{+75}:\\
\;\;\;\;1 + \frac{-0.1111111111111111}{x}\\
\mathbf{else}:\\
\;\;\;\;y \cdot \frac{-0.3333333333333333}{\sqrt{x}}\\
\end{array}
\end{array}
if y < -5.8000000000000001e65Initial program 99.7%
sub-neg99.7%
*-commutative99.7%
associate-/r*99.7%
metadata-eval99.7%
distribute-frac-neg99.7%
neg-mul-199.7%
times-frac98.1%
metadata-eval98.1%
Simplified98.1%
Taylor expanded in x around 0 76.8%
Taylor expanded in y around inf 93.0%
associate-*r*94.3%
*-commutative94.3%
Simplified94.3%
associate-*l*94.3%
sqrt-div94.2%
metadata-eval94.2%
associate-*l/94.4%
*-un-lft-identity94.4%
Applied egg-rr94.4%
associate-/l*93.1%
Simplified93.1%
clear-num98.1%
un-div-inv99.4%
Applied egg-rr94.3%
if -5.8000000000000001e65 < y < 9.0000000000000007e75Initial program 99.9%
associate--l-99.9%
sub-neg99.9%
+-commutative99.9%
distribute-neg-in99.9%
distribute-frac-neg99.9%
sub-neg99.9%
neg-mul-199.9%
*-commutative99.9%
associate-/l*99.9%
fma-neg99.9%
associate-/r*99.9%
metadata-eval99.9%
*-commutative99.9%
associate-/r*99.8%
distribute-neg-frac99.8%
metadata-eval99.8%
metadata-eval99.8%
Simplified99.8%
Taylor expanded in y around 0 97.0%
if 9.0000000000000007e75 < y 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.5%
metadata-eval99.5%
Simplified99.5%
Taylor expanded in x around 0 90.8%
Taylor expanded in y around inf 95.1%
associate-*r*95.2%
*-commutative95.2%
Simplified95.2%
*-commutative95.2%
sqrt-div95.2%
metadata-eval95.2%
un-div-inv95.3%
Applied egg-rr95.3%
Final simplification96.1%
(FPCore (x y) :precision binary64 (let* ((t_0 (/ y (sqrt (* x 9.0))))) (if (<= x 1.52e-5) (- (/ -0.1111111111111111 x) t_0) (- 1.0 t_0))))
double code(double x, double y) {
double t_0 = y / sqrt((x * 9.0));
double tmp;
if (x <= 1.52e-5) {
tmp = (-0.1111111111111111 / x) - t_0;
} else {
tmp = 1.0 - t_0;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: tmp
t_0 = y / sqrt((x * 9.0d0))
if (x <= 1.52d-5) then
tmp = ((-0.1111111111111111d0) / x) - t_0
else
tmp = 1.0d0 - t_0
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = y / Math.sqrt((x * 9.0));
double tmp;
if (x <= 1.52e-5) {
tmp = (-0.1111111111111111 / x) - t_0;
} else {
tmp = 1.0 - t_0;
}
return tmp;
}
def code(x, y): t_0 = y / math.sqrt((x * 9.0)) tmp = 0 if x <= 1.52e-5: tmp = (-0.1111111111111111 / x) - t_0 else: tmp = 1.0 - t_0 return tmp
function code(x, y) t_0 = Float64(y / sqrt(Float64(x * 9.0))) tmp = 0.0 if (x <= 1.52e-5) tmp = Float64(Float64(-0.1111111111111111 / x) - t_0); else tmp = Float64(1.0 - t_0); end return tmp end
function tmp_2 = code(x, y) t_0 = y / sqrt((x * 9.0)); tmp = 0.0; if (x <= 1.52e-5) tmp = (-0.1111111111111111 / x) - t_0; else tmp = 1.0 - t_0; end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(y / N[Sqrt[N[(x * 9.0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, 1.52e-5], N[(N[(-0.1111111111111111 / x), $MachinePrecision] - t$95$0), $MachinePrecision], N[(1.0 - t$95$0), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{y}{\sqrt{x \cdot 9}}\\
\mathbf{if}\;x \leq 1.52 \cdot 10^{-5}:\\
\;\;\;\;\frac{-0.1111111111111111}{x} - t\_0\\
\mathbf{else}:\\
\;\;\;\;1 - t\_0\\
\end{array}
\end{array}
if x < 1.52e-5Initial program 99.8%
*-commutative99.8%
metadata-eval99.8%
sqrt-prod99.8%
pow199.8%
Applied egg-rr99.8%
unpow199.8%
Simplified99.8%
Taylor expanded in x around 0 99.6%
Taylor expanded in x around 0 97.8%
if 1.52e-5 < x Initial program 99.8%
*-commutative99.8%
metadata-eval99.8%
sqrt-prod99.8%
pow199.8%
Applied egg-rr99.8%
unpow199.8%
Simplified99.8%
Taylor expanded in x around inf 99.6%
(FPCore (x y) :precision binary64 (- (/ (- x 0.1111111111111111) x) (/ y (sqrt (* x 9.0)))))
double code(double x, double y) {
return ((x - 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 = ((x - 0.1111111111111111d0) / x) - (y / sqrt((x * 9.0d0)))
end function
public static double code(double x, double y) {
return ((x - 0.1111111111111111) / x) - (y / Math.sqrt((x * 9.0)));
}
def code(x, y): return ((x - 0.1111111111111111) / x) - (y / math.sqrt((x * 9.0)))
function code(x, y) return Float64(Float64(Float64(x - 0.1111111111111111) / x) - Float64(y / sqrt(Float64(x * 9.0)))) end
function tmp = code(x, y) tmp = ((x - 0.1111111111111111) / x) - (y / sqrt((x * 9.0))); end
code[x_, y_] := N[(N[(N[(x - 0.1111111111111111), $MachinePrecision] / x), $MachinePrecision] - N[(y / N[Sqrt[N[(x * 9.0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x - 0.1111111111111111}{x} - \frac{y}{\sqrt{x \cdot 9}}
\end{array}
Initial program 99.8%
*-commutative99.8%
metadata-eval99.8%
sqrt-prod99.8%
pow199.8%
Applied egg-rr99.8%
unpow199.8%
Simplified99.8%
Taylor expanded in x around 0 99.8%
(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(y * Float64(-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[(y * N[(-0.3333333333333333 / N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(1 - \frac{0.1111111111111111}{x}\right) + y \cdot \frac{-0.3333333333333333}{\sqrt{x}}
\end{array}
Initial program 99.8%
sub-neg99.8%
*-commutative99.8%
associate-/r*99.7%
metadata-eval99.7%
distribute-frac-neg99.7%
neg-mul-199.7%
times-frac99.3%
metadata-eval99.3%
Simplified99.3%
clear-num99.3%
un-div-inv99.6%
Applied egg-rr99.6%
associate-/r/99.6%
*-commutative99.6%
Simplified99.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.8%
sub-neg99.8%
*-commutative99.8%
associate-/r*99.7%
metadata-eval99.7%
distribute-frac-neg99.7%
neg-mul-199.7%
times-frac99.3%
metadata-eval99.3%
Simplified99.3%
(FPCore (x y)
:precision binary64
(if (<= y -4.8e+108)
(+
1.0
(/
(-
(/ (+ 0.024691358024691357 (/ 0.0027434842249657062 x)) x)
-0.1111111111111111)
x))
(if (<= y 5.6e+105)
(+ 1.0 (/ -0.1111111111111111 x))
(* x (+ -18.0 (/ (- -1.0 (/ 0.1111111111111111 x)) x))))))
double code(double x, double y) {
double tmp;
if (y <= -4.8e+108) {
tmp = 1.0 + ((((0.024691358024691357 + (0.0027434842249657062 / x)) / x) - -0.1111111111111111) / x);
} else if (y <= 5.6e+105) {
tmp = 1.0 + (-0.1111111111111111 / x);
} else {
tmp = x * (-18.0 + ((-1.0 - (0.1111111111111111 / x)) / 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.8d+108)) then
tmp = 1.0d0 + ((((0.024691358024691357d0 + (0.0027434842249657062d0 / x)) / x) - (-0.1111111111111111d0)) / x)
else if (y <= 5.6d+105) then
tmp = 1.0d0 + ((-0.1111111111111111d0) / x)
else
tmp = x * ((-18.0d0) + (((-1.0d0) - (0.1111111111111111d0 / x)) / x))
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if (y <= -4.8e+108) {
tmp = 1.0 + ((((0.024691358024691357 + (0.0027434842249657062 / x)) / x) - -0.1111111111111111) / x);
} else if (y <= 5.6e+105) {
tmp = 1.0 + (-0.1111111111111111 / x);
} else {
tmp = x * (-18.0 + ((-1.0 - (0.1111111111111111 / x)) / x));
}
return tmp;
}
def code(x, y): tmp = 0 if y <= -4.8e+108: tmp = 1.0 + ((((0.024691358024691357 + (0.0027434842249657062 / x)) / x) - -0.1111111111111111) / x) elif y <= 5.6e+105: tmp = 1.0 + (-0.1111111111111111 / x) else: tmp = x * (-18.0 + ((-1.0 - (0.1111111111111111 / x)) / x)) return tmp
function code(x, y) tmp = 0.0 if (y <= -4.8e+108) tmp = Float64(1.0 + Float64(Float64(Float64(Float64(0.024691358024691357 + Float64(0.0027434842249657062 / x)) / x) - -0.1111111111111111) / x)); elseif (y <= 5.6e+105) tmp = Float64(1.0 + Float64(-0.1111111111111111 / x)); else tmp = Float64(x * Float64(-18.0 + Float64(Float64(-1.0 - Float64(0.1111111111111111 / x)) / x))); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (y <= -4.8e+108) tmp = 1.0 + ((((0.024691358024691357 + (0.0027434842249657062 / x)) / x) - -0.1111111111111111) / x); elseif (y <= 5.6e+105) tmp = 1.0 + (-0.1111111111111111 / x); else tmp = x * (-18.0 + ((-1.0 - (0.1111111111111111 / x)) / x)); end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[y, -4.8e+108], N[(1.0 + N[(N[(N[(N[(0.024691358024691357 + N[(0.0027434842249657062 / x), $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision] - -0.1111111111111111), $MachinePrecision] / x), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 5.6e+105], N[(1.0 + N[(-0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision], N[(x * N[(-18.0 + N[(N[(-1.0 - N[(0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -4.8 \cdot 10^{+108}:\\
\;\;\;\;1 + \frac{\frac{0.024691358024691357 + \frac{0.0027434842249657062}{x}}{x} - -0.1111111111111111}{x}\\
\mathbf{elif}\;y \leq 5.6 \cdot 10^{+105}:\\
\;\;\;\;1 + \frac{-0.1111111111111111}{x}\\
\mathbf{else}:\\
\;\;\;\;x \cdot \left(-18 + \frac{-1 - \frac{0.1111111111111111}{x}}{x}\right)\\
\end{array}
\end{array}
if y < -4.80000000000000037e108Initial 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.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 0 5.2%
Applied egg-rr5.2%
associate-*r/5.2%
hypot-undefine5.2%
hypot-undefine5.2%
rem-square-sqrt5.2%
metadata-eval5.2%
associate-*r/5.2%
associate-*l/5.2%
metadata-eval5.2%
associate-/r*5.2%
unpow25.2%
Simplified5.2%
Taylor expanded in x around -inf 16.8%
mul-1-neg16.8%
unsub-neg16.8%
sub-neg16.8%
metadata-eval16.8%
+-commutative16.8%
mul-1-neg16.8%
unsub-neg16.8%
associate-*r/16.8%
metadata-eval16.8%
Simplified16.8%
if -4.80000000000000037e108 < y < 5.6000000000000003e105Initial 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 88.1%
if 5.6000000000000003e105 < y 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 3.4%
Applied egg-rr3.4%
associate-*r/18.2%
hypot-undefine18.2%
hypot-undefine18.2%
rem-square-sqrt18.2%
metadata-eval18.2%
associate-*r/18.2%
associate-*l/18.2%
metadata-eval18.2%
associate-/r*18.2%
unpow218.2%
Simplified18.2%
Taylor expanded in x around 0 5.9%
Taylor expanded in x around inf 21.0%
sub-neg21.0%
metadata-eval21.0%
+-commutative21.0%
associate-*r/21.0%
associate-*r/21.0%
metadata-eval21.0%
distribute-lft-in21.0%
metadata-eval21.0%
neg-mul-121.0%
sub-neg21.0%
Simplified21.0%
Final simplification64.2%
(FPCore (x y) :precision binary64 (if (<= y 5.6e+105) (+ 1.0 (/ -0.1111111111111111 x)) (* x (+ -18.0 (/ (- -1.0 (/ 0.1111111111111111 x)) x)))))
double code(double x, double y) {
double tmp;
if (y <= 5.6e+105) {
tmp = 1.0 + (-0.1111111111111111 / x);
} else {
tmp = x * (-18.0 + ((-1.0 - (0.1111111111111111 / x)) / 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.6d+105) then
tmp = 1.0d0 + ((-0.1111111111111111d0) / x)
else
tmp = x * ((-18.0d0) + (((-1.0d0) - (0.1111111111111111d0 / x)) / x))
end if
code = tmp
end function
public static double code(double x, double y) {
double tmp;
if (y <= 5.6e+105) {
tmp = 1.0 + (-0.1111111111111111 / x);
} else {
tmp = x * (-18.0 + ((-1.0 - (0.1111111111111111 / x)) / x));
}
return tmp;
}
def code(x, y): tmp = 0 if y <= 5.6e+105: tmp = 1.0 + (-0.1111111111111111 / x) else: tmp = x * (-18.0 + ((-1.0 - (0.1111111111111111 / x)) / x)) return tmp
function code(x, y) tmp = 0.0 if (y <= 5.6e+105) tmp = Float64(1.0 + Float64(-0.1111111111111111 / x)); else tmp = Float64(x * Float64(-18.0 + Float64(Float64(-1.0 - Float64(0.1111111111111111 / x)) / x))); end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (y <= 5.6e+105) tmp = 1.0 + (-0.1111111111111111 / x); else tmp = x * (-18.0 + ((-1.0 - (0.1111111111111111 / x)) / x)); end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[y, 5.6e+105], N[(1.0 + N[(-0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision], N[(x * N[(-18.0 + N[(N[(-1.0 - N[(0.1111111111111111 / x), $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq 5.6 \cdot 10^{+105}:\\
\;\;\;\;1 + \frac{-0.1111111111111111}{x}\\
\mathbf{else}:\\
\;\;\;\;x \cdot \left(-18 + \frac{-1 - \frac{0.1111111111111111}{x}}{x}\right)\\
\end{array}
\end{array}
if y < 5.6000000000000003e105Initial 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.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 69.1%
if 5.6000000000000003e105 < y 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 3.4%
Applied egg-rr3.4%
associate-*r/18.2%
hypot-undefine18.2%
hypot-undefine18.2%
rem-square-sqrt18.2%
metadata-eval18.2%
associate-*r/18.2%
associate-*l/18.2%
metadata-eval18.2%
associate-/r*18.2%
unpow218.2%
Simplified18.2%
Taylor expanded in x around 0 5.9%
Taylor expanded in x around inf 21.0%
sub-neg21.0%
metadata-eval21.0%
+-commutative21.0%
associate-*r/21.0%
associate-*r/21.0%
metadata-eval21.0%
distribute-lft-in21.0%
metadata-eval21.0%
neg-mul-121.0%
sub-neg21.0%
Simplified21.0%
(FPCore (x y) :precision binary64 (if (<= x 1.52e-5) (/ -0.1111111111111111 x) 1.0))
double code(double x, double y) {
double tmp;
if (x <= 1.52e-5) {
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 <= 1.52d-5) 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 <= 1.52e-5) {
tmp = -0.1111111111111111 / x;
} else {
tmp = 1.0;
}
return tmp;
}
def code(x, y): tmp = 0 if x <= 1.52e-5: tmp = -0.1111111111111111 / x else: tmp = 1.0 return tmp
function code(x, y) tmp = 0.0 if (x <= 1.52e-5) tmp = Float64(-0.1111111111111111 / x); else tmp = 1.0; end return tmp end
function tmp_2 = code(x, y) tmp = 0.0; if (x <= 1.52e-5) tmp = -0.1111111111111111 / x; else tmp = 1.0; end tmp_2 = tmp; end
code[x_, y_] := If[LessEqual[x, 1.52e-5], N[(-0.1111111111111111 / x), $MachinePrecision], 1.0]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq 1.52 \cdot 10^{-5}:\\
\;\;\;\;\frac{-0.1111111111111111}{x}\\
\mathbf{else}:\\
\;\;\;\;1\\
\end{array}
\end{array}
if x < 1.52e-5Initial 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.7%
fma-neg99.7%
associate-/r*99.7%
metadata-eval99.7%
*-commutative99.7%
associate-/r*99.5%
distribute-neg-frac99.5%
metadata-eval99.5%
metadata-eval99.5%
Simplified99.5%
Taylor expanded in y around 0 60.8%
Taylor expanded in x around 0 59.3%
if 1.52e-5 < x Initial 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.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 58.2%
Taylor expanded in x around inf 58.0%
(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.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.7%
fma-neg99.7%
associate-/r*99.7%
metadata-eval99.7%
*-commutative99.7%
associate-/r*99.6%
distribute-neg-frac99.6%
metadata-eval99.6%
metadata-eval99.6%
Simplified99.6%
Taylor expanded in y around 0 59.3%
(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.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.7%
fma-neg99.7%
associate-/r*99.7%
metadata-eval99.7%
*-commutative99.7%
associate-/r*99.6%
distribute-neg-frac99.6%
metadata-eval99.6%
metadata-eval99.6%
Simplified99.6%
Taylor expanded in y around 0 59.3%
Taylor expanded in x around inf 33.1%
(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 2024087
(FPCore (x y)
:name "Numeric.SpecFunctions:invIncompleteGamma from math-functions-0.1.5.2, D"
:precision binary64
:alt
(- (- 1.0 (/ (/ 1.0 x) 9.0)) (/ y (* 3.0 (sqrt x))))
(- (- 1.0 (/ 1.0 (* x 9.0))) (/ y (* 3.0 (sqrt x)))))