
(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 7 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 (<= (exp z) 0.0) (+ x (/ -1.0 x)) (- x (/ y (fma x y (* (exp z) -1.1283791670955126))))))
double code(double x, double y, double z) {
double tmp;
if (exp(z) <= 0.0) {
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 (exp(z) <= 0.0) 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[N[Exp[z], $MachinePrecision], 0.0], 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}\;e^{z} \leq 0:\\
\;\;\;\;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 (exp.f64 z) < 0.0Initial program 86.7%
remove-double-neg86.7%
distribute-frac-neg86.7%
unsub-neg86.7%
distribute-frac-neg86.7%
distribute-neg-frac286.7%
neg-sub087.4%
associate--r-87.4%
neg-sub087.6%
+-commutative87.6%
fma-define87.6%
*-commutative87.6%
distribute-rgt-neg-in87.6%
metadata-eval87.6%
Simplified87.6%
Taylor expanded in y around inf 100.0%
if 0.0 < (exp.f64 z) Initial program 98.9%
remove-double-neg98.9%
distribute-frac-neg98.9%
unsub-neg98.9%
distribute-frac-neg98.9%
distribute-neg-frac298.9%
neg-sub098.9%
associate--r-98.9%
neg-sub098.9%
+-commutative98.9%
fma-define99.9%
*-commutative99.9%
distribute-rgt-neg-in99.9%
metadata-eval99.9%
Simplified99.9%
Final simplification100.0%
(FPCore (x y z) :precision binary64 (if (<= (exp z) 0.0) (+ x (/ -1.0 x)) (if (<= (exp z) 2.0) (+ x (/ y (- 1.1283791670955126 (* x y)))) x)))
double code(double x, double y, double z) {
double tmp;
if (exp(z) <= 0.0) {
tmp = x + (-1.0 / x);
} else if (exp(z) <= 2.0) {
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 (exp(z) <= 0.0d0) then
tmp = x + ((-1.0d0) / x)
else if (exp(z) <= 2.0d0) 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 (Math.exp(z) <= 0.0) {
tmp = x + (-1.0 / x);
} else if (Math.exp(z) <= 2.0) {
tmp = x + (y / (1.1283791670955126 - (x * y)));
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z): tmp = 0 if math.exp(z) <= 0.0: tmp = x + (-1.0 / x) elif math.exp(z) <= 2.0: tmp = x + (y / (1.1283791670955126 - (x * y))) else: tmp = x return tmp
function code(x, y, z) tmp = 0.0 if (exp(z) <= 0.0) tmp = Float64(x + Float64(-1.0 / x)); elseif (exp(z) <= 2.0) 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 (exp(z) <= 0.0) tmp = x + (-1.0 / x); elseif (exp(z) <= 2.0) tmp = x + (y / (1.1283791670955126 - (x * y))); else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_] := If[LessEqual[N[Exp[z], $MachinePrecision], 0.0], N[(x + N[(-1.0 / x), $MachinePrecision]), $MachinePrecision], If[LessEqual[N[Exp[z], $MachinePrecision], 2.0], N[(x + N[(y / N[(1.1283791670955126 - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], x]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;e^{z} \leq 0:\\
\;\;\;\;x + \frac{-1}{x}\\
\mathbf{elif}\;e^{z} \leq 2:\\
\;\;\;\;x + \frac{y}{1.1283791670955126 - x \cdot y}\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if (exp.f64 z) < 0.0Initial program 86.7%
remove-double-neg86.7%
distribute-frac-neg86.7%
unsub-neg86.7%
distribute-frac-neg86.7%
distribute-neg-frac286.7%
neg-sub087.4%
associate--r-87.4%
neg-sub087.6%
+-commutative87.6%
fma-define87.6%
*-commutative87.6%
distribute-rgt-neg-in87.6%
metadata-eval87.6%
Simplified87.6%
Taylor expanded in y around inf 100.0%
if 0.0 < (exp.f64 z) < 2Initial 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.9%
if 2 < (exp.f64 z) Initial program 96.8%
remove-double-neg96.8%
distribute-frac-neg96.8%
unsub-neg96.8%
distribute-frac-neg96.8%
distribute-neg-frac296.8%
neg-sub096.8%
associate--r-96.8%
neg-sub096.8%
+-commutative96.8%
fma-define100.0%
*-commutative100.0%
distribute-rgt-neg-in100.0%
metadata-eval100.0%
Simplified100.0%
Taylor expanded in z around 0 61.1%
Taylor expanded in x around 0 49.2%
Taylor expanded in x around inf 100.0%
Final simplification100.0%
(FPCore (x y z) :precision binary64 (if (<= (exp z) 0.0) (+ x (/ -1.0 x)) (+ x (/ y (- (* (exp z) 1.1283791670955126) (* x y))))))
double code(double x, double y, double z) {
double tmp;
if (exp(z) <= 0.0) {
tmp = x + (-1.0 / x);
} else {
tmp = x + (y / ((exp(z) * 1.1283791670955126) - (x * y)));
}
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 (exp(z) <= 0.0d0) then
tmp = x + ((-1.0d0) / x)
else
tmp = x + (y / ((exp(z) * 1.1283791670955126d0) - (x * y)))
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double tmp;
if (Math.exp(z) <= 0.0) {
tmp = x + (-1.0 / x);
} else {
tmp = x + (y / ((Math.exp(z) * 1.1283791670955126) - (x * y)));
}
return tmp;
}
def code(x, y, z): tmp = 0 if math.exp(z) <= 0.0: tmp = x + (-1.0 / x) else: tmp = x + (y / ((math.exp(z) * 1.1283791670955126) - (x * y))) return tmp
function code(x, y, z) tmp = 0.0 if (exp(z) <= 0.0) tmp = Float64(x + Float64(-1.0 / x)); else tmp = Float64(x + Float64(y / Float64(Float64(exp(z) * 1.1283791670955126) - Float64(x * y)))); end return tmp end
function tmp_2 = code(x, y, z) tmp = 0.0; if (exp(z) <= 0.0) tmp = x + (-1.0 / x); else tmp = x + (y / ((exp(z) * 1.1283791670955126) - (x * y))); end tmp_2 = tmp; end
code[x_, y_, z_] := If[LessEqual[N[Exp[z], $MachinePrecision], 0.0], N[(x + N[(-1.0 / x), $MachinePrecision]), $MachinePrecision], N[(x + N[(y / N[(N[(N[Exp[z], $MachinePrecision] * 1.1283791670955126), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;e^{z} \leq 0:\\
\;\;\;\;x + \frac{-1}{x}\\
\mathbf{else}:\\
\;\;\;\;x + \frac{y}{e^{z} \cdot 1.1283791670955126 - x \cdot y}\\
\end{array}
\end{array}
if (exp.f64 z) < 0.0Initial program 86.7%
remove-double-neg86.7%
distribute-frac-neg86.7%
unsub-neg86.7%
distribute-frac-neg86.7%
distribute-neg-frac286.7%
neg-sub087.4%
associate--r-87.4%
neg-sub087.6%
+-commutative87.6%
fma-define87.6%
*-commutative87.6%
distribute-rgt-neg-in87.6%
metadata-eval87.6%
Simplified87.6%
Taylor expanded in y around inf 100.0%
if 0.0 < (exp.f64 z) Initial program 98.9%
Final simplification99.2%
(FPCore (x y z)
:precision binary64
(let* ((t_0 (+ x (/ -1.0 x))) (t_1 (- x (* y -0.8862269254527579))))
(if (<= z -4.8)
t_0
(if (<= z -4.2e-115)
t_1
(if (<= z -3.6e-154) t_0 (if (<= z 8.5e-15) t_1 x))))))
double code(double x, double y, double z) {
double t_0 = x + (-1.0 / x);
double t_1 = x - (y * -0.8862269254527579);
double tmp;
if (z <= -4.8) {
tmp = t_0;
} else if (z <= -4.2e-115) {
tmp = t_1;
} else if (z <= -3.6e-154) {
tmp = t_0;
} else if (z <= 8.5e-15) {
tmp = t_1;
} 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) :: t_0
real(8) :: t_1
real(8) :: tmp
t_0 = x + ((-1.0d0) / x)
t_1 = x - (y * (-0.8862269254527579d0))
if (z <= (-4.8d0)) then
tmp = t_0
else if (z <= (-4.2d-115)) then
tmp = t_1
else if (z <= (-3.6d-154)) then
tmp = t_0
else if (z <= 8.5d-15) then
tmp = t_1
else
tmp = x
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double t_0 = x + (-1.0 / x);
double t_1 = x - (y * -0.8862269254527579);
double tmp;
if (z <= -4.8) {
tmp = t_0;
} else if (z <= -4.2e-115) {
tmp = t_1;
} else if (z <= -3.6e-154) {
tmp = t_0;
} else if (z <= 8.5e-15) {
tmp = t_1;
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z): t_0 = x + (-1.0 / x) t_1 = x - (y * -0.8862269254527579) tmp = 0 if z <= -4.8: tmp = t_0 elif z <= -4.2e-115: tmp = t_1 elif z <= -3.6e-154: tmp = t_0 elif z <= 8.5e-15: tmp = t_1 else: tmp = x return tmp
function code(x, y, z) t_0 = Float64(x + Float64(-1.0 / x)) t_1 = Float64(x - Float64(y * -0.8862269254527579)) tmp = 0.0 if (z <= -4.8) tmp = t_0; elseif (z <= -4.2e-115) tmp = t_1; elseif (z <= -3.6e-154) tmp = t_0; elseif (z <= 8.5e-15) tmp = t_1; else tmp = x; end return tmp end
function tmp_2 = code(x, y, z) t_0 = x + (-1.0 / x); t_1 = x - (y * -0.8862269254527579); tmp = 0.0; if (z <= -4.8) tmp = t_0; elseif (z <= -4.2e-115) tmp = t_1; elseif (z <= -3.6e-154) tmp = t_0; elseif (z <= 8.5e-15) tmp = t_1; else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_] := Block[{t$95$0 = N[(x + N[(-1.0 / x), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(x - N[(y * -0.8862269254527579), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -4.8], t$95$0, If[LessEqual[z, -4.2e-115], t$95$1, If[LessEqual[z, -3.6e-154], t$95$0, If[LessEqual[z, 8.5e-15], t$95$1, x]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := x + \frac{-1}{x}\\
t_1 := x - y \cdot -0.8862269254527579\\
\mathbf{if}\;z \leq -4.8:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;z \leq -4.2 \cdot 10^{-115}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq -3.6 \cdot 10^{-154}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;z \leq 8.5 \cdot 10^{-15}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if z < -4.79999999999999982 or -4.20000000000000003e-115 < z < -3.6000000000000003e-154Initial program 89.0%
remove-double-neg89.0%
distribute-frac-neg89.0%
unsub-neg89.0%
distribute-frac-neg89.0%
distribute-neg-frac289.0%
neg-sub089.5%
associate--r-89.5%
neg-sub089.7%
+-commutative89.7%
fma-define89.7%
*-commutative89.7%
distribute-rgt-neg-in89.7%
metadata-eval89.7%
Simplified89.7%
Taylor expanded in y around inf 97.8%
if -4.79999999999999982 < z < -4.20000000000000003e-115 or -3.6000000000000003e-154 < z < 8.50000000000000007e-15Initial 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.9%
Taylor expanded in y around 0 87.1%
*-commutative87.1%
Simplified87.1%
if 8.50000000000000007e-15 < z 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.9%
associate--r-96.9%
neg-sub096.9%
+-commutative96.9%
fma-define100.0%
*-commutative100.0%
distribute-rgt-neg-in100.0%
metadata-eval100.0%
Simplified100.0%
Taylor expanded in z around 0 62.3%
Taylor expanded in x around 0 49.2%
Taylor expanded in x around inf 98.5%
Final simplification93.4%
(FPCore (x y z)
:precision binary64
(let* ((t_0 (+ x (/ -1.0 x))) (t_1 (- x (/ y -1.1283791670955126))))
(if (<= z -6.0)
t_0
(if (<= z -5.6e-115)
t_1
(if (<= z -9e-156) t_0 (if (<= z 8e-15) t_1 x))))))
double code(double x, double y, double z) {
double t_0 = x + (-1.0 / x);
double t_1 = x - (y / -1.1283791670955126);
double tmp;
if (z <= -6.0) {
tmp = t_0;
} else if (z <= -5.6e-115) {
tmp = t_1;
} else if (z <= -9e-156) {
tmp = t_0;
} else if (z <= 8e-15) {
tmp = t_1;
} 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) :: t_0
real(8) :: t_1
real(8) :: tmp
t_0 = x + ((-1.0d0) / x)
t_1 = x - (y / (-1.1283791670955126d0))
if (z <= (-6.0d0)) then
tmp = t_0
else if (z <= (-5.6d-115)) then
tmp = t_1
else if (z <= (-9d-156)) then
tmp = t_0
else if (z <= 8d-15) then
tmp = t_1
else
tmp = x
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double t_0 = x + (-1.0 / x);
double t_1 = x - (y / -1.1283791670955126);
double tmp;
if (z <= -6.0) {
tmp = t_0;
} else if (z <= -5.6e-115) {
tmp = t_1;
} else if (z <= -9e-156) {
tmp = t_0;
} else if (z <= 8e-15) {
tmp = t_1;
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z): t_0 = x + (-1.0 / x) t_1 = x - (y / -1.1283791670955126) tmp = 0 if z <= -6.0: tmp = t_0 elif z <= -5.6e-115: tmp = t_1 elif z <= -9e-156: tmp = t_0 elif z <= 8e-15: tmp = t_1 else: tmp = x return tmp
function code(x, y, z) t_0 = Float64(x + Float64(-1.0 / x)) t_1 = Float64(x - Float64(y / -1.1283791670955126)) tmp = 0.0 if (z <= -6.0) tmp = t_0; elseif (z <= -5.6e-115) tmp = t_1; elseif (z <= -9e-156) tmp = t_0; elseif (z <= 8e-15) tmp = t_1; else tmp = x; end return tmp end
function tmp_2 = code(x, y, z) t_0 = x + (-1.0 / x); t_1 = x - (y / -1.1283791670955126); tmp = 0.0; if (z <= -6.0) tmp = t_0; elseif (z <= -5.6e-115) tmp = t_1; elseif (z <= -9e-156) tmp = t_0; elseif (z <= 8e-15) tmp = t_1; else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_] := Block[{t$95$0 = N[(x + N[(-1.0 / x), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(x - N[(y / -1.1283791670955126), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -6.0], t$95$0, If[LessEqual[z, -5.6e-115], t$95$1, If[LessEqual[z, -9e-156], t$95$0, If[LessEqual[z, 8e-15], t$95$1, x]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := x + \frac{-1}{x}\\
t_1 := x - \frac{y}{-1.1283791670955126}\\
\mathbf{if}\;z \leq -6:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;z \leq -5.6 \cdot 10^{-115}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq -9 \cdot 10^{-156}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;z \leq 8 \cdot 10^{-15}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if z < -6 or -5.59999999999999974e-115 < z < -8.99999999999999971e-156Initial program 89.0%
remove-double-neg89.0%
distribute-frac-neg89.0%
unsub-neg89.0%
distribute-frac-neg89.0%
distribute-neg-frac289.0%
neg-sub089.5%
associate--r-89.5%
neg-sub089.7%
+-commutative89.7%
fma-define89.7%
*-commutative89.7%
distribute-rgt-neg-in89.7%
metadata-eval89.7%
Simplified89.7%
Taylor expanded in y around inf 97.8%
if -6 < z < -5.59999999999999974e-115 or -8.99999999999999971e-156 < z < 8.0000000000000006e-15Initial 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.9%
Taylor expanded in x around 0 87.2%
if 8.0000000000000006e-15 < z 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.9%
associate--r-96.9%
neg-sub096.9%
+-commutative96.9%
fma-define100.0%
*-commutative100.0%
distribute-rgt-neg-in100.0%
metadata-eval100.0%
Simplified100.0%
Taylor expanded in z around 0 62.3%
Taylor expanded in x around 0 49.2%
Taylor expanded in x around inf 98.5%
Final simplification93.4%
(FPCore (x y z) :precision binary64 (if (<= z -4.9) x (if (<= z 8.5e-15) (- x (* y -0.8862269254527579)) x)))
double code(double x, double y, double z) {
double tmp;
if (z <= -4.9) {
tmp = x;
} else if (z <= 8.5e-15) {
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 <= (-4.9d0)) then
tmp = x
else if (z <= 8.5d-15) 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 <= -4.9) {
tmp = x;
} else if (z <= 8.5e-15) {
tmp = x - (y * -0.8862269254527579);
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z): tmp = 0 if z <= -4.9: tmp = x elif z <= 8.5e-15: tmp = x - (y * -0.8862269254527579) else: tmp = x return tmp
function code(x, y, z) tmp = 0.0 if (z <= -4.9) tmp = x; elseif (z <= 8.5e-15) 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 <= -4.9) tmp = x; elseif (z <= 8.5e-15) tmp = x - (y * -0.8862269254527579); else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_] := If[LessEqual[z, -4.9], x, If[LessEqual[z, 8.5e-15], N[(x - N[(y * -0.8862269254527579), $MachinePrecision]), $MachinePrecision], x]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -4.9:\\
\;\;\;\;x\\
\mathbf{elif}\;z \leq 8.5 \cdot 10^{-15}:\\
\;\;\;\;x - y \cdot -0.8862269254527579\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if z < -4.9000000000000004 or 8.50000000000000007e-15 < z Initial program 91.9%
remove-double-neg91.9%
distribute-frac-neg91.9%
unsub-neg91.9%
distribute-frac-neg91.9%
distribute-neg-frac291.9%
neg-sub092.2%
associate--r-92.2%
neg-sub092.3%
+-commutative92.3%
fma-define93.8%
*-commutative93.8%
distribute-rgt-neg-in93.8%
metadata-eval93.8%
Simplified93.8%
Taylor expanded in z around 0 63.7%
Taylor expanded in x around 0 45.5%
Taylor expanded in x around inf 75.8%
if -4.9000000000000004 < z < 8.50000000000000007e-15Initial 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.9%
Taylor expanded in y around 0 83.1%
*-commutative83.1%
Simplified83.1%
Final simplification79.2%
(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.9%
associate--r-95.9%
neg-sub095.9%
+-commutative95.9%
fma-define96.7%
*-commutative96.7%
distribute-rgt-neg-in96.7%
metadata-eval96.7%
Simplified96.7%
Taylor expanded in z around 0 81.0%
Taylor expanded in x around 0 63.5%
Taylor expanded in x around inf 69.0%
Final simplification69.0%
(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 2024053
(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)))))