
(FPCore (x y z) :precision binary64 (+ x (/ y (- (* 1.1283791670955126 (exp z)) (* x y)))))
double code(double x, double y, double z) {
return x + (y / ((1.1283791670955126 * exp(z)) - (x * y)));
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = x + (y / ((1.1283791670955126d0 * exp(z)) - (x * y)))
end function
public static double code(double x, double y, double z) {
return x + (y / ((1.1283791670955126 * Math.exp(z)) - (x * y)));
}
def code(x, y, z): return x + (y / ((1.1283791670955126 * math.exp(z)) - (x * y)))
function code(x, y, z) return Float64(x + Float64(y / Float64(Float64(1.1283791670955126 * exp(z)) - Float64(x * y)))) end
function tmp = code(x, y, z) tmp = x + (y / ((1.1283791670955126 * exp(z)) - (x * y))); end
code[x_, y_, z_] := N[(x + N[(y / N[(N[(1.1283791670955126 * N[Exp[z], $MachinePrecision]), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x + \frac{y}{1.1283791670955126 \cdot e^{z} - x \cdot y}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 10 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z) :precision binary64 (+ x (/ y (- (* 1.1283791670955126 (exp z)) (* x y)))))
double code(double x, double y, double z) {
return x + (y / ((1.1283791670955126 * exp(z)) - (x * y)));
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = x + (y / ((1.1283791670955126d0 * exp(z)) - (x * y)))
end function
public static double code(double x, double y, double z) {
return x + (y / ((1.1283791670955126 * Math.exp(z)) - (x * y)));
}
def code(x, y, z): return x + (y / ((1.1283791670955126 * math.exp(z)) - (x * y)))
function code(x, y, z) return Float64(x + Float64(y / Float64(Float64(1.1283791670955126 * exp(z)) - Float64(x * y)))) end
function tmp = code(x, y, z) tmp = x + (y / ((1.1283791670955126 * exp(z)) - (x * y))); end
code[x_, y_, z_] := N[(x + N[(y / N[(N[(1.1283791670955126 * N[Exp[z], $MachinePrecision]), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x + \frac{y}{1.1283791670955126 \cdot e^{z} - x \cdot y}
\end{array}
(FPCore (x y z) :precision binary64 (if (<= z -2.8e-62) (+ x (/ -1.0 x)) (- x (/ y (fma x y (* (exp z) -1.1283791670955126))))))
double code(double x, double y, double z) {
double tmp;
if (z <= -2.8e-62) {
tmp = x + (-1.0 / x);
} else {
tmp = x - (y / fma(x, y, (exp(z) * -1.1283791670955126)));
}
return tmp;
}
function code(x, y, z) tmp = 0.0 if (z <= -2.8e-62) tmp = Float64(x + Float64(-1.0 / x)); else tmp = Float64(x - Float64(y / fma(x, y, Float64(exp(z) * -1.1283791670955126)))); end return tmp end
code[x_, y_, z_] := If[LessEqual[z, -2.8e-62], N[(x + N[(-1.0 / x), $MachinePrecision]), $MachinePrecision], N[(x - N[(y / N[(x * y + N[(N[Exp[z], $MachinePrecision] * -1.1283791670955126), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -2.8 \cdot 10^{-62}:\\
\;\;\;\;x + \frac{-1}{x}\\
\mathbf{else}:\\
\;\;\;\;x - \frac{y}{\mathsf{fma}\left(x, y, e^{z} \cdot -1.1283791670955126\right)}\\
\end{array}
\end{array}
if z < -2.80000000000000002e-62Initial program 92.2%
remove-double-neg92.2%
distribute-frac-neg92.2%
unsub-neg92.2%
distribute-frac-neg92.2%
distribute-neg-frac292.2%
neg-sub092.0%
associate--r-92.0%
neg-sub092.4%
+-commutative92.4%
fma-define92.4%
*-commutative92.4%
distribute-rgt-neg-in92.4%
metadata-eval92.4%
Simplified92.4%
Taylor expanded in y around inf 100.0%
if -2.80000000000000002e-62 < z Initial program 97.2%
remove-double-neg97.2%
distribute-frac-neg97.2%
unsub-neg97.2%
distribute-frac-neg97.2%
distribute-neg-frac297.2%
neg-sub097.2%
associate--r-97.2%
neg-sub097.2%
+-commutative97.2%
fma-define99.9%
*-commutative99.9%
distribute-rgt-neg-in99.9%
metadata-eval99.9%
Simplified99.9%
Final simplification99.9%
(FPCore (x y z) :precision binary64 (let* ((t_0 (+ x (/ y (- (* (exp z) 1.1283791670955126) (* x y)))))) (if (<= t_0 5e+203) t_0 (+ x (/ -1.0 x)))))
double code(double x, double y, double z) {
double t_0 = x + (y / ((exp(z) * 1.1283791670955126) - (x * y)));
double tmp;
if (t_0 <= 5e+203) {
tmp = t_0;
} else {
tmp = x + (-1.0 / x);
}
return tmp;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: t_0
real(8) :: tmp
t_0 = x + (y / ((exp(z) * 1.1283791670955126d0) - (x * y)))
if (t_0 <= 5d+203) then
tmp = t_0
else
tmp = x + ((-1.0d0) / x)
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double t_0 = x + (y / ((Math.exp(z) * 1.1283791670955126) - (x * y)));
double tmp;
if (t_0 <= 5e+203) {
tmp = t_0;
} else {
tmp = x + (-1.0 / x);
}
return tmp;
}
def code(x, y, z): t_0 = x + (y / ((math.exp(z) * 1.1283791670955126) - (x * y))) tmp = 0 if t_0 <= 5e+203: tmp = t_0 else: tmp = x + (-1.0 / x) return tmp
function code(x, y, z) t_0 = Float64(x + Float64(y / Float64(Float64(exp(z) * 1.1283791670955126) - Float64(x * y)))) tmp = 0.0 if (t_0 <= 5e+203) tmp = t_0; else tmp = Float64(x + Float64(-1.0 / x)); end return tmp end
function tmp_2 = code(x, y, z) t_0 = x + (y / ((exp(z) * 1.1283791670955126) - (x * y))); tmp = 0.0; if (t_0 <= 5e+203) tmp = t_0; else tmp = x + (-1.0 / x); end tmp_2 = tmp; end
code[x_, y_, z_] := Block[{t$95$0 = N[(x + N[(y / N[(N[(N[Exp[z], $MachinePrecision] * 1.1283791670955126), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, 5e+203], t$95$0, N[(x + N[(-1.0 / x), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := x + \frac{y}{e^{z} \cdot 1.1283791670955126 - x \cdot y}\\
\mathbf{if}\;t\_0 \leq 5 \cdot 10^{+203}:\\
\;\;\;\;t\_0\\
\mathbf{else}:\\
\;\;\;\;x + \frac{-1}{x}\\
\end{array}
\end{array}
if (+.f64 x (/.f64 y (-.f64 (*.f64 #s(literal 5641895835477563/5000000000000000 binary64) (exp.f64 z)) (*.f64 x y)))) < 4.99999999999999994e203Initial program 98.2%
if 4.99999999999999994e203 < (+.f64 x (/.f64 y (-.f64 (*.f64 #s(literal 5641895835477563/5000000000000000 binary64) (exp.f64 z)) (*.f64 x y)))) Initial program 72.6%
remove-double-neg72.6%
distribute-frac-neg72.6%
unsub-neg72.6%
distribute-frac-neg72.6%
distribute-neg-frac272.6%
neg-sub072.0%
associate--r-72.0%
neg-sub072.6%
+-commutative72.6%
fma-define92.6%
*-commutative92.6%
distribute-rgt-neg-in92.6%
metadata-eval92.6%
Simplified92.6%
Taylor expanded in y around inf 100.0%
Final simplification98.4%
(FPCore (x y z)
:precision binary64
(if (<= z -2.8e-62)
(+ x (/ -1.0 x))
(if (<= z 3.35e-6)
(+ x (/ y (- (+ 1.1283791670955126 (* z 1.1283791670955126)) (* x y))))
x)))
double code(double x, double y, double z) {
double tmp;
if (z <= -2.8e-62) {
tmp = x + (-1.0 / x);
} else if (z <= 3.35e-6) {
tmp = x + (y / ((1.1283791670955126 + (z * 1.1283791670955126)) - (x * y)));
} else {
tmp = x;
}
return tmp;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: tmp
if (z <= (-2.8d-62)) then
tmp = x + ((-1.0d0) / x)
else if (z <= 3.35d-6) then
tmp = x + (y / ((1.1283791670955126d0 + (z * 1.1283791670955126d0)) - (x * y)))
else
tmp = x
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double tmp;
if (z <= -2.8e-62) {
tmp = x + (-1.0 / x);
} else if (z <= 3.35e-6) {
tmp = x + (y / ((1.1283791670955126 + (z * 1.1283791670955126)) - (x * y)));
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z): tmp = 0 if z <= -2.8e-62: tmp = x + (-1.0 / x) elif z <= 3.35e-6: tmp = x + (y / ((1.1283791670955126 + (z * 1.1283791670955126)) - (x * y))) else: tmp = x return tmp
function code(x, y, z) tmp = 0.0 if (z <= -2.8e-62) tmp = Float64(x + Float64(-1.0 / x)); elseif (z <= 3.35e-6) tmp = Float64(x + Float64(y / Float64(Float64(1.1283791670955126 + Float64(z * 1.1283791670955126)) - Float64(x * y)))); else tmp = x; end return tmp end
function tmp_2 = code(x, y, z) tmp = 0.0; if (z <= -2.8e-62) tmp = x + (-1.0 / x); elseif (z <= 3.35e-6) tmp = x + (y / ((1.1283791670955126 + (z * 1.1283791670955126)) - (x * y))); else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_] := If[LessEqual[z, -2.8e-62], N[(x + N[(-1.0 / x), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 3.35e-6], N[(x + N[(y / N[(N[(1.1283791670955126 + N[(z * 1.1283791670955126), $MachinePrecision]), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], x]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -2.8 \cdot 10^{-62}:\\
\;\;\;\;x + \frac{-1}{x}\\
\mathbf{elif}\;z \leq 3.35 \cdot 10^{-6}:\\
\;\;\;\;x + \frac{y}{\left(1.1283791670955126 + z \cdot 1.1283791670955126\right) - x \cdot y}\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if z < -2.80000000000000002e-62Initial program 92.2%
remove-double-neg92.2%
distribute-frac-neg92.2%
unsub-neg92.2%
distribute-frac-neg92.2%
distribute-neg-frac292.2%
neg-sub092.0%
associate--r-92.0%
neg-sub092.4%
+-commutative92.4%
fma-define92.4%
*-commutative92.4%
distribute-rgt-neg-in92.4%
metadata-eval92.4%
Simplified92.4%
Taylor expanded in y around inf 100.0%
if -2.80000000000000002e-62 < z < 3.35e-6Initial program 99.8%
Taylor expanded in z around 0 99.8%
*-commutative99.8%
Simplified99.8%
if 3.35e-6 < z Initial program 92.6%
remove-double-neg92.6%
distribute-frac-neg92.6%
unsub-neg92.6%
distribute-frac-neg92.6%
distribute-neg-frac292.6%
neg-sub092.6%
associate--r-92.6%
neg-sub092.6%
+-commutative92.6%
fma-define100.0%
*-commutative100.0%
distribute-rgt-neg-in100.0%
metadata-eval100.0%
Simplified100.0%
Taylor expanded in y around inf 53.7%
Taylor expanded in x around inf 100.0%
Final simplification99.9%
(FPCore (x y z)
:precision binary64
(if (<= z -1e-134)
(+ x (/ -1.0 x))
(if (<= z 5.9e-8)
(+ x (/ y (+ 1.1283791670955126 (* z 1.1283791670955126))))
x)))
double code(double x, double y, double z) {
double tmp;
if (z <= -1e-134) {
tmp = x + (-1.0 / x);
} else if (z <= 5.9e-8) {
tmp = x + (y / (1.1283791670955126 + (z * 1.1283791670955126)));
} else {
tmp = x;
}
return tmp;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: tmp
if (z <= (-1d-134)) then
tmp = x + ((-1.0d0) / x)
else if (z <= 5.9d-8) then
tmp = x + (y / (1.1283791670955126d0 + (z * 1.1283791670955126d0)))
else
tmp = x
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double tmp;
if (z <= -1e-134) {
tmp = x + (-1.0 / x);
} else if (z <= 5.9e-8) {
tmp = x + (y / (1.1283791670955126 + (z * 1.1283791670955126)));
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z): tmp = 0 if z <= -1e-134: tmp = x + (-1.0 / x) elif z <= 5.9e-8: tmp = x + (y / (1.1283791670955126 + (z * 1.1283791670955126))) else: tmp = x return tmp
function code(x, y, z) tmp = 0.0 if (z <= -1e-134) tmp = Float64(x + Float64(-1.0 / x)); elseif (z <= 5.9e-8) tmp = Float64(x + Float64(y / Float64(1.1283791670955126 + Float64(z * 1.1283791670955126)))); else tmp = x; end return tmp end
function tmp_2 = code(x, y, z) tmp = 0.0; if (z <= -1e-134) tmp = x + (-1.0 / x); elseif (z <= 5.9e-8) tmp = x + (y / (1.1283791670955126 + (z * 1.1283791670955126))); else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_] := If[LessEqual[z, -1e-134], N[(x + N[(-1.0 / x), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 5.9e-8], N[(x + N[(y / N[(1.1283791670955126 + N[(z * 1.1283791670955126), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], x]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -1 \cdot 10^{-134}:\\
\;\;\;\;x + \frac{-1}{x}\\
\mathbf{elif}\;z \leq 5.9 \cdot 10^{-8}:\\
\;\;\;\;x + \frac{y}{1.1283791670955126 + z \cdot 1.1283791670955126}\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if z < -1.00000000000000004e-134Initial program 93.4%
remove-double-neg93.4%
distribute-frac-neg93.4%
unsub-neg93.4%
distribute-frac-neg93.4%
distribute-neg-frac293.4%
neg-sub093.2%
associate--r-93.2%
neg-sub093.6%
+-commutative93.6%
fma-define93.6%
*-commutative93.6%
distribute-rgt-neg-in93.6%
metadata-eval93.6%
Simplified93.6%
Taylor expanded in y around inf 96.7%
if -1.00000000000000004e-134 < z < 5.8999999999999999e-8Initial program 99.8%
Taylor expanded in z around 0 99.8%
*-commutative99.8%
Simplified99.8%
Taylor expanded in y around 0 78.5%
if 5.8999999999999999e-8 < z Initial program 92.6%
remove-double-neg92.6%
distribute-frac-neg92.6%
unsub-neg92.6%
distribute-frac-neg92.6%
distribute-neg-frac292.6%
neg-sub092.6%
associate--r-92.6%
neg-sub092.6%
+-commutative92.6%
fma-define100.0%
*-commutative100.0%
distribute-rgt-neg-in100.0%
metadata-eval100.0%
Simplified100.0%
Taylor expanded in y around inf 53.7%
Taylor expanded in x around inf 100.0%
Final simplification90.5%
(FPCore (x y z) :precision binary64 (if (<= z -2.8e-62) (+ x (/ -1.0 x)) (if (<= z 3.35e-6) (+ x (/ y (- 1.1283791670955126 (* x y)))) x)))
double code(double x, double y, double z) {
double tmp;
if (z <= -2.8e-62) {
tmp = x + (-1.0 / x);
} else if (z <= 3.35e-6) {
tmp = x + (y / (1.1283791670955126 - (x * y)));
} else {
tmp = x;
}
return tmp;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: tmp
if (z <= (-2.8d-62)) then
tmp = x + ((-1.0d0) / x)
else if (z <= 3.35d-6) then
tmp = x + (y / (1.1283791670955126d0 - (x * y)))
else
tmp = x
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double tmp;
if (z <= -2.8e-62) {
tmp = x + (-1.0 / x);
} else if (z <= 3.35e-6) {
tmp = x + (y / (1.1283791670955126 - (x * y)));
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z): tmp = 0 if z <= -2.8e-62: tmp = x + (-1.0 / x) elif z <= 3.35e-6: tmp = x + (y / (1.1283791670955126 - (x * y))) else: tmp = x return tmp
function code(x, y, z) tmp = 0.0 if (z <= -2.8e-62) tmp = Float64(x + Float64(-1.0 / x)); elseif (z <= 3.35e-6) tmp = Float64(x + Float64(y / Float64(1.1283791670955126 - Float64(x * y)))); else tmp = x; end return tmp end
function tmp_2 = code(x, y, z) tmp = 0.0; if (z <= -2.8e-62) tmp = x + (-1.0 / x); elseif (z <= 3.35e-6) tmp = x + (y / (1.1283791670955126 - (x * y))); else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_] := If[LessEqual[z, -2.8e-62], N[(x + N[(-1.0 / x), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 3.35e-6], N[(x + N[(y / N[(1.1283791670955126 - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], x]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -2.8 \cdot 10^{-62}:\\
\;\;\;\;x + \frac{-1}{x}\\
\mathbf{elif}\;z \leq 3.35 \cdot 10^{-6}:\\
\;\;\;\;x + \frac{y}{1.1283791670955126 - x \cdot y}\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if z < -2.80000000000000002e-62Initial program 92.2%
remove-double-neg92.2%
distribute-frac-neg92.2%
unsub-neg92.2%
distribute-frac-neg92.2%
distribute-neg-frac292.2%
neg-sub092.0%
associate--r-92.0%
neg-sub092.4%
+-commutative92.4%
fma-define92.4%
*-commutative92.4%
distribute-rgt-neg-in92.4%
metadata-eval92.4%
Simplified92.4%
Taylor expanded in y around inf 100.0%
if -2.80000000000000002e-62 < z < 3.35e-6Initial program 99.8%
remove-double-neg99.8%
distribute-frac-neg99.8%
unsub-neg99.8%
distribute-frac-neg99.8%
distribute-neg-frac299.8%
neg-sub099.8%
associate--r-99.8%
neg-sub099.8%
+-commutative99.8%
fma-define99.8%
*-commutative99.8%
distribute-rgt-neg-in99.8%
metadata-eval99.8%
Simplified99.8%
Taylor expanded in z around 0 99.8%
if 3.35e-6 < z Initial program 92.6%
remove-double-neg92.6%
distribute-frac-neg92.6%
unsub-neg92.6%
distribute-frac-neg92.6%
distribute-neg-frac292.6%
neg-sub092.6%
associate--r-92.6%
neg-sub092.6%
+-commutative92.6%
fma-define100.0%
*-commutative100.0%
distribute-rgt-neg-in100.0%
metadata-eval100.0%
Simplified100.0%
Taylor expanded in y around inf 53.7%
Taylor expanded in x around inf 100.0%
Final simplification99.9%
(FPCore (x y z) :precision binary64 (if (<= z -8e-87) x (if (<= z 1.55e-8) (- x (* y -0.8862269254527579)) x)))
double code(double x, double y, double z) {
double tmp;
if (z <= -8e-87) {
tmp = x;
} else if (z <= 1.55e-8) {
tmp = x - (y * -0.8862269254527579);
} else {
tmp = x;
}
return tmp;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: tmp
if (z <= (-8d-87)) then
tmp = x
else if (z <= 1.55d-8) then
tmp = x - (y * (-0.8862269254527579d0))
else
tmp = x
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double tmp;
if (z <= -8e-87) {
tmp = x;
} else if (z <= 1.55e-8) {
tmp = x - (y * -0.8862269254527579);
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z): tmp = 0 if z <= -8e-87: tmp = x elif z <= 1.55e-8: tmp = x - (y * -0.8862269254527579) else: tmp = x return tmp
function code(x, y, z) tmp = 0.0 if (z <= -8e-87) tmp = x; elseif (z <= 1.55e-8) tmp = Float64(x - Float64(y * -0.8862269254527579)); else tmp = x; end return tmp end
function tmp_2 = code(x, y, z) tmp = 0.0; if (z <= -8e-87) tmp = x; elseif (z <= 1.55e-8) tmp = x - (y * -0.8862269254527579); else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_] := If[LessEqual[z, -8e-87], x, If[LessEqual[z, 1.55e-8], N[(x - N[(y * -0.8862269254527579), $MachinePrecision]), $MachinePrecision], x]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -8 \cdot 10^{-87}:\\
\;\;\;\;x\\
\mathbf{elif}\;z \leq 1.55 \cdot 10^{-8}:\\
\;\;\;\;x - y \cdot -0.8862269254527579\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if z < -8.00000000000000014e-87 or 1.55e-8 < z Initial program 92.6%
remove-double-neg92.6%
distribute-frac-neg92.6%
unsub-neg92.6%
distribute-frac-neg92.6%
distribute-neg-frac292.6%
neg-sub092.5%
associate--r-92.5%
neg-sub092.7%
+-commutative92.7%
fma-define96.1%
*-commutative96.1%
distribute-rgt-neg-in96.1%
metadata-eval96.1%
Simplified96.1%
Taylor expanded in y around inf 77.8%
Taylor expanded in x around inf 79.7%
if -8.00000000000000014e-87 < z < 1.55e-8Initial program 99.9%
remove-double-neg99.9%
distribute-frac-neg99.9%
unsub-neg99.9%
distribute-frac-neg99.9%
distribute-neg-frac299.9%
neg-sub099.9%
associate--r-99.9%
neg-sub099.9%
+-commutative99.9%
fma-define99.9%
*-commutative99.9%
distribute-rgt-neg-in99.9%
metadata-eval99.9%
Simplified99.9%
Taylor expanded in z around 0 99.8%
Taylor expanded in y around 0 77.9%
*-commutative77.9%
Simplified77.9%
Final simplification78.9%
(FPCore (x y z) :precision binary64 (if (<= z -2.2e-130) (+ x (/ -1.0 x)) (if (<= z 2.86e-8) (- x (* y -0.8862269254527579)) x)))
double code(double x, double y, double z) {
double tmp;
if (z <= -2.2e-130) {
tmp = x + (-1.0 / x);
} else if (z <= 2.86e-8) {
tmp = x - (y * -0.8862269254527579);
} else {
tmp = x;
}
return tmp;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: tmp
if (z <= (-2.2d-130)) then
tmp = x + ((-1.0d0) / x)
else if (z <= 2.86d-8) then
tmp = x - (y * (-0.8862269254527579d0))
else
tmp = x
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double tmp;
if (z <= -2.2e-130) {
tmp = x + (-1.0 / x);
} else if (z <= 2.86e-8) {
tmp = x - (y * -0.8862269254527579);
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z): tmp = 0 if z <= -2.2e-130: tmp = x + (-1.0 / x) elif z <= 2.86e-8: tmp = x - (y * -0.8862269254527579) else: tmp = x return tmp
function code(x, y, z) tmp = 0.0 if (z <= -2.2e-130) tmp = Float64(x + Float64(-1.0 / x)); elseif (z <= 2.86e-8) tmp = Float64(x - Float64(y * -0.8862269254527579)); else tmp = x; end return tmp end
function tmp_2 = code(x, y, z) tmp = 0.0; if (z <= -2.2e-130) tmp = x + (-1.0 / x); elseif (z <= 2.86e-8) tmp = x - (y * -0.8862269254527579); else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_] := If[LessEqual[z, -2.2e-130], N[(x + N[(-1.0 / x), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 2.86e-8], N[(x - N[(y * -0.8862269254527579), $MachinePrecision]), $MachinePrecision], x]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -2.2 \cdot 10^{-130}:\\
\;\;\;\;x + \frac{-1}{x}\\
\mathbf{elif}\;z \leq 2.86 \cdot 10^{-8}:\\
\;\;\;\;x - y \cdot -0.8862269254527579\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if z < -2.1999999999999999e-130Initial program 93.4%
remove-double-neg93.4%
distribute-frac-neg93.4%
unsub-neg93.4%
distribute-frac-neg93.4%
distribute-neg-frac293.4%
neg-sub093.2%
associate--r-93.2%
neg-sub093.6%
+-commutative93.6%
fma-define93.6%
*-commutative93.6%
distribute-rgt-neg-in93.6%
metadata-eval93.6%
Simplified93.6%
Taylor expanded in y around inf 96.7%
if -2.1999999999999999e-130 < z < 2.86000000000000013e-8Initial program 99.8%
remove-double-neg99.8%
distribute-frac-neg99.8%
unsub-neg99.8%
distribute-frac-neg99.8%
distribute-neg-frac299.8%
neg-sub099.8%
associate--r-99.8%
neg-sub099.8%
+-commutative99.8%
fma-define99.8%
*-commutative99.8%
distribute-rgt-neg-in99.8%
metadata-eval99.8%
Simplified99.8%
Taylor expanded in z around 0 99.8%
Taylor expanded in y around 0 78.5%
*-commutative78.5%
Simplified78.5%
if 2.86000000000000013e-8 < z Initial program 92.6%
remove-double-neg92.6%
distribute-frac-neg92.6%
unsub-neg92.6%
distribute-frac-neg92.6%
distribute-neg-frac292.6%
neg-sub092.6%
associate--r-92.6%
neg-sub092.6%
+-commutative92.6%
fma-define100.0%
*-commutative100.0%
distribute-rgt-neg-in100.0%
metadata-eval100.0%
Simplified100.0%
Taylor expanded in y around inf 53.7%
Taylor expanded in x around inf 100.0%
Final simplification90.5%
(FPCore (x y z) :precision binary64 (if (<= z -8e-131) (+ x (/ -1.0 x)) (if (<= z 7.7e-13) (- x (/ y -1.1283791670955126)) x)))
double code(double x, double y, double z) {
double tmp;
if (z <= -8e-131) {
tmp = x + (-1.0 / x);
} else if (z <= 7.7e-13) {
tmp = x - (y / -1.1283791670955126);
} else {
tmp = x;
}
return tmp;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: tmp
if (z <= (-8d-131)) then
tmp = x + ((-1.0d0) / x)
else if (z <= 7.7d-13) then
tmp = x - (y / (-1.1283791670955126d0))
else
tmp = x
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double tmp;
if (z <= -8e-131) {
tmp = x + (-1.0 / x);
} else if (z <= 7.7e-13) {
tmp = x - (y / -1.1283791670955126);
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z): tmp = 0 if z <= -8e-131: tmp = x + (-1.0 / x) elif z <= 7.7e-13: tmp = x - (y / -1.1283791670955126) else: tmp = x return tmp
function code(x, y, z) tmp = 0.0 if (z <= -8e-131) tmp = Float64(x + Float64(-1.0 / x)); elseif (z <= 7.7e-13) tmp = Float64(x - Float64(y / -1.1283791670955126)); else tmp = x; end return tmp end
function tmp_2 = code(x, y, z) tmp = 0.0; if (z <= -8e-131) tmp = x + (-1.0 / x); elseif (z <= 7.7e-13) tmp = x - (y / -1.1283791670955126); else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_] := If[LessEqual[z, -8e-131], N[(x + N[(-1.0 / x), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 7.7e-13], N[(x - N[(y / -1.1283791670955126), $MachinePrecision]), $MachinePrecision], x]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -8 \cdot 10^{-131}:\\
\;\;\;\;x + \frac{-1}{x}\\
\mathbf{elif}\;z \leq 7.7 \cdot 10^{-13}:\\
\;\;\;\;x - \frac{y}{-1.1283791670955126}\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if z < -7.9999999999999999e-131Initial program 93.4%
remove-double-neg93.4%
distribute-frac-neg93.4%
unsub-neg93.4%
distribute-frac-neg93.4%
distribute-neg-frac293.4%
neg-sub093.2%
associate--r-93.2%
neg-sub093.6%
+-commutative93.6%
fma-define93.6%
*-commutative93.6%
distribute-rgt-neg-in93.6%
metadata-eval93.6%
Simplified93.6%
Taylor expanded in y around inf 96.7%
if -7.9999999999999999e-131 < z < 7.6999999999999995e-13Initial program 99.8%
remove-double-neg99.8%
distribute-frac-neg99.8%
unsub-neg99.8%
distribute-frac-neg99.8%
distribute-neg-frac299.8%
neg-sub099.8%
associate--r-99.8%
neg-sub099.8%
+-commutative99.8%
fma-define99.8%
*-commutative99.8%
distribute-rgt-neg-in99.8%
metadata-eval99.8%
Simplified99.8%
Taylor expanded in z around 0 99.8%
Taylor expanded in x around 0 78.5%
if 7.6999999999999995e-13 < z Initial program 92.6%
remove-double-neg92.6%
distribute-frac-neg92.6%
unsub-neg92.6%
distribute-frac-neg92.6%
distribute-neg-frac292.6%
neg-sub092.6%
associate--r-92.6%
neg-sub092.6%
+-commutative92.6%
fma-define100.0%
*-commutative100.0%
distribute-rgt-neg-in100.0%
metadata-eval100.0%
Simplified100.0%
Taylor expanded in y around inf 53.7%
Taylor expanded in x around inf 100.0%
Final simplification90.5%
(FPCore (x y z) :precision binary64 (if (<= x -2.4e-235) x (if (<= x 2.1e-236) (* y 0.8862269254527579) x)))
double code(double x, double y, double z) {
double tmp;
if (x <= -2.4e-235) {
tmp = x;
} else if (x <= 2.1e-236) {
tmp = y * 0.8862269254527579;
} else {
tmp = x;
}
return tmp;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: tmp
if (x <= (-2.4d-235)) then
tmp = x
else if (x <= 2.1d-236) then
tmp = y * 0.8862269254527579d0
else
tmp = x
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double tmp;
if (x <= -2.4e-235) {
tmp = x;
} else if (x <= 2.1e-236) {
tmp = y * 0.8862269254527579;
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z): tmp = 0 if x <= -2.4e-235: tmp = x elif x <= 2.1e-236: tmp = y * 0.8862269254527579 else: tmp = x return tmp
function code(x, y, z) tmp = 0.0 if (x <= -2.4e-235) tmp = x; elseif (x <= 2.1e-236) tmp = Float64(y * 0.8862269254527579); else tmp = x; end return tmp end
function tmp_2 = code(x, y, z) tmp = 0.0; if (x <= -2.4e-235) tmp = x; elseif (x <= 2.1e-236) tmp = y * 0.8862269254527579; else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_] := If[LessEqual[x, -2.4e-235], x, If[LessEqual[x, 2.1e-236], N[(y * 0.8862269254527579), $MachinePrecision], x]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -2.4 \cdot 10^{-235}:\\
\;\;\;\;x\\
\mathbf{elif}\;x \leq 2.1 \cdot 10^{-236}:\\
\;\;\;\;y \cdot 0.8862269254527579\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if x < -2.40000000000000011e-235 or 2.09999999999999979e-236 < x Initial program 96.9%
remove-double-neg96.9%
distribute-frac-neg96.9%
unsub-neg96.9%
distribute-frac-neg96.9%
distribute-neg-frac296.9%
neg-sub096.8%
associate--r-96.8%
neg-sub096.9%
+-commutative96.9%
fma-define99.1%
*-commutative99.1%
distribute-rgt-neg-in99.1%
metadata-eval99.1%
Simplified99.1%
Taylor expanded in y around inf 74.9%
Taylor expanded in x around inf 77.5%
if -2.40000000000000011e-235 < x < 2.09999999999999979e-236Initial program 86.1%
remove-double-neg86.1%
distribute-frac-neg86.1%
unsub-neg86.1%
distribute-frac-neg86.1%
distribute-neg-frac286.1%
neg-sub086.0%
associate--r-86.0%
neg-sub086.7%
+-commutative86.7%
fma-define86.7%
*-commutative86.7%
distribute-rgt-neg-in86.7%
metadata-eval86.7%
Simplified86.7%
Taylor expanded in z around 0 71.9%
Taylor expanded in y around 0 71.9%
*-commutative71.9%
Simplified71.9%
Taylor expanded in x around 0 63.1%
*-commutative63.1%
Simplified63.1%
Final simplification75.9%
(FPCore (x y z) :precision binary64 x)
double code(double x, double y, double z) {
return x;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = x
end function
public static double code(double x, double y, double z) {
return x;
}
def code(x, y, z): return x
function code(x, y, z) return x end
function tmp = code(x, y, z) tmp = x; end
code[x_, y_, z_] := x
\begin{array}{l}
\\
x
\end{array}
Initial program 95.7%
remove-double-neg95.7%
distribute-frac-neg95.7%
unsub-neg95.7%
distribute-frac-neg95.7%
distribute-neg-frac295.7%
neg-sub095.7%
associate--r-95.7%
neg-sub095.8%
+-commutative95.8%
fma-define97.7%
*-commutative97.7%
distribute-rgt-neg-in97.7%
metadata-eval97.7%
Simplified97.7%
Taylor expanded in y around inf 68.8%
Taylor expanded in x around inf 71.3%
Final simplification71.3%
(FPCore (x y z) :precision binary64 (+ x (/ 1.0 (- (* (/ 1.1283791670955126 y) (exp z)) x))))
double code(double x, double y, double z) {
return x + (1.0 / (((1.1283791670955126 / y) * exp(z)) - x));
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = x + (1.0d0 / (((1.1283791670955126d0 / y) * exp(z)) - x))
end function
public static double code(double x, double y, double z) {
return x + (1.0 / (((1.1283791670955126 / y) * Math.exp(z)) - x));
}
def code(x, y, z): return x + (1.0 / (((1.1283791670955126 / y) * math.exp(z)) - x))
function code(x, y, z) return Float64(x + Float64(1.0 / Float64(Float64(Float64(1.1283791670955126 / y) * exp(z)) - x))) end
function tmp = code(x, y, z) tmp = x + (1.0 / (((1.1283791670955126 / y) * exp(z)) - x)); end
code[x_, y_, z_] := N[(x + N[(1.0 / N[(N[(N[(1.1283791670955126 / y), $MachinePrecision] * N[Exp[z], $MachinePrecision]), $MachinePrecision] - x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x + \frac{1}{\frac{1.1283791670955126}{y} \cdot e^{z} - x}
\end{array}
herbie shell --seed 2024077
(FPCore (x y z)
:name "Numeric.SpecFunctions:invErfc from math-functions-0.1.5.2, A"
:precision binary64
:alt
(+ x (/ 1.0 (- (* (/ 1.1283791670955126 y) (exp z)) x)))
(+ x (/ y (- (* 1.1283791670955126 (exp z)) (* x y)))))