
(FPCore (x y z t) :precision binary64 (+ (- x (/ y (* z 3.0))) (/ t (* (* z 3.0) y))))
double code(double x, double y, double z, double t) {
return (x - (y / (z * 3.0))) + (t / ((z * 3.0) * y));
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = (x - (y / (z * 3.0d0))) + (t / ((z * 3.0d0) * y))
end function
public static double code(double x, double y, double z, double t) {
return (x - (y / (z * 3.0))) + (t / ((z * 3.0) * y));
}
def code(x, y, z, t): return (x - (y / (z * 3.0))) + (t / ((z * 3.0) * y))
function code(x, y, z, t) return Float64(Float64(x - Float64(y / Float64(z * 3.0))) + Float64(t / Float64(Float64(z * 3.0) * y))) end
function tmp = code(x, y, z, t) tmp = (x - (y / (z * 3.0))) + (t / ((z * 3.0) * y)); end
code[x_, y_, z_, t_] := N[(N[(x - N[(y / N[(z * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t / N[(N[(z * 3.0), $MachinePrecision] * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(x - \frac{y}{z \cdot 3}\right) + \frac{t}{\left(z \cdot 3\right) \cdot y}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 10 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z t) :precision binary64 (+ (- x (/ y (* z 3.0))) (/ t (* (* z 3.0) y))))
double code(double x, double y, double z, double t) {
return (x - (y / (z * 3.0))) + (t / ((z * 3.0) * y));
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = (x - (y / (z * 3.0d0))) + (t / ((z * 3.0d0) * y))
end function
public static double code(double x, double y, double z, double t) {
return (x - (y / (z * 3.0))) + (t / ((z * 3.0) * y));
}
def code(x, y, z, t): return (x - (y / (z * 3.0))) + (t / ((z * 3.0) * y))
function code(x, y, z, t) return Float64(Float64(x - Float64(y / Float64(z * 3.0))) + Float64(t / Float64(Float64(z * 3.0) * y))) end
function tmp = code(x, y, z, t) tmp = (x - (y / (z * 3.0))) + (t / ((z * 3.0) * y)); end
code[x_, y_, z_, t_] := N[(N[(x - N[(y / N[(z * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t / N[(N[(z * 3.0), $MachinePrecision] * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(x - \frac{y}{z \cdot 3}\right) + \frac{t}{\left(z \cdot 3\right) \cdot y}
\end{array}
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (+ (- x (/ y (* z 3.0))) (/ t (* (* z 3.0) y)))))
(if (<= (* z 3.0) -2e+32)
t_1
(if (<= (* z 3.0) 8e-96)
(fma 0.3333333333333333 (/ (- (/ t y) y) z) x)
t_1))))
double code(double x, double y, double z, double t) {
double t_1 = (x - (y / (z * 3.0))) + (t / ((z * 3.0) * y));
double tmp;
if ((z * 3.0) <= -2e+32) {
tmp = t_1;
} else if ((z * 3.0) <= 8e-96) {
tmp = fma(0.3333333333333333, (((t / y) - y) / z), x);
} else {
tmp = t_1;
}
return tmp;
}
function code(x, y, z, t) t_1 = Float64(Float64(x - Float64(y / Float64(z * 3.0))) + Float64(t / Float64(Float64(z * 3.0) * y))) tmp = 0.0 if (Float64(z * 3.0) <= -2e+32) tmp = t_1; elseif (Float64(z * 3.0) <= 8e-96) tmp = fma(0.3333333333333333, Float64(Float64(Float64(t / y) - y) / z), x); else tmp = t_1; end return tmp end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(x - N[(y / N[(z * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t / N[(N[(z * 3.0), $MachinePrecision] * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[N[(z * 3.0), $MachinePrecision], -2e+32], t$95$1, If[LessEqual[N[(z * 3.0), $MachinePrecision], 8e-96], N[(0.3333333333333333 * N[(N[(N[(t / y), $MachinePrecision] - y), $MachinePrecision] / z), $MachinePrecision] + x), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \left(x - \frac{y}{z \cdot 3}\right) + \frac{t}{\left(z \cdot 3\right) \cdot y}\\
\mathbf{if}\;z \cdot 3 \leq -2 \cdot 10^{+32}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \cdot 3 \leq 8 \cdot 10^{-96}:\\
\;\;\;\;\mathsf{fma}\left(0.3333333333333333, \frac{\frac{t}{y} - y}{z}, x\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if (*.f64 z #s(literal 3 binary64)) < -2.00000000000000011e32 or 7.9999999999999993e-96 < (*.f64 z #s(literal 3 binary64)) Initial program 99.1%
if -2.00000000000000011e32 < (*.f64 z #s(literal 3 binary64)) < 7.9999999999999993e-96Initial program 89.5%
Taylor expanded in x around 0
associate--l+N/A
+-commutativeN/A
distribute-lft-out--N/A
lower-fma.f64N/A
associate-/r*N/A
div-subN/A
lower-/.f64N/A
lower--.f64N/A
lower-/.f6499.8
Simplified99.8%
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (fma 0.3333333333333333 (/ (- (/ t y) y) z) x)))
(if (<= y -2.2e-64)
t_1
(if (<= y 8.5e-107) (/ (fma y x (* t (/ 0.3333333333333333 z))) y) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = fma(0.3333333333333333, (((t / y) - y) / z), x);
double tmp;
if (y <= -2.2e-64) {
tmp = t_1;
} else if (y <= 8.5e-107) {
tmp = fma(y, x, (t * (0.3333333333333333 / z))) / y;
} else {
tmp = t_1;
}
return tmp;
}
function code(x, y, z, t) t_1 = fma(0.3333333333333333, Float64(Float64(Float64(t / y) - y) / z), x) tmp = 0.0 if (y <= -2.2e-64) tmp = t_1; elseif (y <= 8.5e-107) tmp = Float64(fma(y, x, Float64(t * Float64(0.3333333333333333 / z))) / y); else tmp = t_1; end return tmp end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(0.3333333333333333 * N[(N[(N[(t / y), $MachinePrecision] - y), $MachinePrecision] / z), $MachinePrecision] + x), $MachinePrecision]}, If[LessEqual[y, -2.2e-64], t$95$1, If[LessEqual[y, 8.5e-107], N[(N[(y * x + N[(t * N[(0.3333333333333333 / z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \mathsf{fma}\left(0.3333333333333333, \frac{\frac{t}{y} - y}{z}, x\right)\\
\mathbf{if}\;y \leq -2.2 \cdot 10^{-64}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 8.5 \cdot 10^{-107}:\\
\;\;\;\;\frac{\mathsf{fma}\left(y, x, t \cdot \frac{0.3333333333333333}{z}\right)}{y}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y < -2.2e-64 or 8.49999999999999956e-107 < y Initial program 98.0%
Taylor expanded in x around 0
associate--l+N/A
+-commutativeN/A
distribute-lft-out--N/A
lower-fma.f64N/A
associate-/r*N/A
div-subN/A
lower-/.f64N/A
lower--.f64N/A
lower-/.f6498.6
Simplified98.6%
if -2.2e-64 < y < 8.49999999999999956e-107Initial program 88.7%
Taylor expanded in x around 0
associate--l+N/A
+-commutativeN/A
distribute-lft-out--N/A
lower-fma.f64N/A
associate-/r*N/A
div-subN/A
lower-/.f64N/A
lower--.f64N/A
lower-/.f6486.2
Simplified86.2%
Taylor expanded in y around 0
lower-/.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
associate-*r/N/A
*-commutativeN/A
associate-/l*N/A
metadata-evalN/A
associate-*r/N/A
lower-*.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f6496.9
Simplified96.9%
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (fma 0.3333333333333333 (/ (- (/ t y) y) z) x)))
(if (<= y -1.22e-79)
t_1
(if (<= y 6.8e-104) (/ (fma 0.3333333333333333 (/ t z) (* x y)) y) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = fma(0.3333333333333333, (((t / y) - y) / z), x);
double tmp;
if (y <= -1.22e-79) {
tmp = t_1;
} else if (y <= 6.8e-104) {
tmp = fma(0.3333333333333333, (t / z), (x * y)) / y;
} else {
tmp = t_1;
}
return tmp;
}
function code(x, y, z, t) t_1 = fma(0.3333333333333333, Float64(Float64(Float64(t / y) - y) / z), x) tmp = 0.0 if (y <= -1.22e-79) tmp = t_1; elseif (y <= 6.8e-104) tmp = Float64(fma(0.3333333333333333, Float64(t / z), Float64(x * y)) / y); else tmp = t_1; end return tmp end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(0.3333333333333333 * N[(N[(N[(t / y), $MachinePrecision] - y), $MachinePrecision] / z), $MachinePrecision] + x), $MachinePrecision]}, If[LessEqual[y, -1.22e-79], t$95$1, If[LessEqual[y, 6.8e-104], N[(N[(0.3333333333333333 * N[(t / z), $MachinePrecision] + N[(x * y), $MachinePrecision]), $MachinePrecision] / y), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \mathsf{fma}\left(0.3333333333333333, \frac{\frac{t}{y} - y}{z}, x\right)\\
\mathbf{if}\;y \leq -1.22 \cdot 10^{-79}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 6.8 \cdot 10^{-104}:\\
\;\;\;\;\frac{\mathsf{fma}\left(0.3333333333333333, \frac{t}{z}, x \cdot y\right)}{y}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y < -1.22e-79 or 6.80000000000000031e-104 < y Initial program 98.1%
Taylor expanded in x around 0
associate--l+N/A
+-commutativeN/A
distribute-lft-out--N/A
lower-fma.f64N/A
associate-/r*N/A
div-subN/A
lower-/.f64N/A
lower--.f64N/A
lower-/.f6498.6
Simplified98.6%
if -1.22e-79 < y < 6.80000000000000031e-104Initial program 88.6%
Taylor expanded in y around 0
lower-/.f64N/A
lower-fma.f64N/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f6496.8
Simplified96.8%
Final simplification97.9%
(FPCore (x y z t) :precision binary64 (if (<= t 1.18e+182) (fma 0.3333333333333333 (/ (- (/ t y) y) z) x) (fma 0.3333333333333333 (/ t (* z y)) x)))
double code(double x, double y, double z, double t) {
double tmp;
if (t <= 1.18e+182) {
tmp = fma(0.3333333333333333, (((t / y) - y) / z), x);
} else {
tmp = fma(0.3333333333333333, (t / (z * y)), x);
}
return tmp;
}
function code(x, y, z, t) tmp = 0.0 if (t <= 1.18e+182) tmp = fma(0.3333333333333333, Float64(Float64(Float64(t / y) - y) / z), x); else tmp = fma(0.3333333333333333, Float64(t / Float64(z * y)), x); end return tmp end
code[x_, y_, z_, t_] := If[LessEqual[t, 1.18e+182], N[(0.3333333333333333 * N[(N[(N[(t / y), $MachinePrecision] - y), $MachinePrecision] / z), $MachinePrecision] + x), $MachinePrecision], N[(0.3333333333333333 * N[(t / N[(z * y), $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq 1.18 \cdot 10^{+182}:\\
\;\;\;\;\mathsf{fma}\left(0.3333333333333333, \frac{\frac{t}{y} - y}{z}, x\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(0.3333333333333333, \frac{t}{z \cdot y}, x\right)\\
\end{array}
\end{array}
if t < 1.1799999999999999e182Initial program 93.9%
Taylor expanded in x around 0
associate--l+N/A
+-commutativeN/A
distribute-lft-out--N/A
lower-fma.f64N/A
associate-/r*N/A
div-subN/A
lower-/.f64N/A
lower--.f64N/A
lower-/.f6496.5
Simplified96.5%
if 1.1799999999999999e182 < t Initial program 99.8%
Taylor expanded in x around 0
associate--l+N/A
+-commutativeN/A
distribute-lft-out--N/A
lower-fma.f64N/A
associate-/r*N/A
div-subN/A
lower-/.f64N/A
lower--.f64N/A
lower-/.f6469.9
Simplified69.9%
Taylor expanded in t around inf
lower-/.f64N/A
lower-*.f6491.9
Simplified91.9%
Final simplification96.0%
(FPCore (x y z t)
:precision binary64
(if (<= y -25000000000000.0)
(fma y (/ -0.3333333333333333 z) x)
(if (<= y 4.2e-5)
(fma 0.3333333333333333 (/ t (* z y)) x)
(fma -0.3333333333333333 (/ y z) x))))
double code(double x, double y, double z, double t) {
double tmp;
if (y <= -25000000000000.0) {
tmp = fma(y, (-0.3333333333333333 / z), x);
} else if (y <= 4.2e-5) {
tmp = fma(0.3333333333333333, (t / (z * y)), x);
} else {
tmp = fma(-0.3333333333333333, (y / z), x);
}
return tmp;
}
function code(x, y, z, t) tmp = 0.0 if (y <= -25000000000000.0) tmp = fma(y, Float64(-0.3333333333333333 / z), x); elseif (y <= 4.2e-5) tmp = fma(0.3333333333333333, Float64(t / Float64(z * y)), x); else tmp = fma(-0.3333333333333333, Float64(y / z), x); end return tmp end
code[x_, y_, z_, t_] := If[LessEqual[y, -25000000000000.0], N[(y * N[(-0.3333333333333333 / z), $MachinePrecision] + x), $MachinePrecision], If[LessEqual[y, 4.2e-5], N[(0.3333333333333333 * N[(t / N[(z * y), $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision], N[(-0.3333333333333333 * N[(y / z), $MachinePrecision] + x), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -25000000000000:\\
\;\;\;\;\mathsf{fma}\left(y, \frac{-0.3333333333333333}{z}, x\right)\\
\mathbf{elif}\;y \leq 4.2 \cdot 10^{-5}:\\
\;\;\;\;\mathsf{fma}\left(0.3333333333333333, \frac{t}{z \cdot y}, x\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(-0.3333333333333333, \frac{y}{z}, x\right)\\
\end{array}
\end{array}
if y < -2.5e13Initial program 98.4%
Taylor expanded in y around inf
sub-negN/A
+-commutativeN/A
distribute-lft-inN/A
associate-*r/N/A
*-commutativeN/A
associate-/l*N/A
*-inversesN/A
*-rgt-identityN/A
lower-fma.f64N/A
associate-*r/N/A
metadata-evalN/A
distribute-neg-fracN/A
metadata-evalN/A
lower-/.f6495.8
Simplified95.8%
if -2.5e13 < y < 4.19999999999999977e-5Initial program 90.6%
Taylor expanded in x around 0
associate--l+N/A
+-commutativeN/A
distribute-lft-out--N/A
lower-fma.f64N/A
associate-/r*N/A
div-subN/A
lower-/.f64N/A
lower--.f64N/A
lower-/.f6488.9
Simplified88.9%
Taylor expanded in t around inf
lower-/.f64N/A
lower-*.f6487.8
Simplified87.8%
if 4.19999999999999977e-5 < y Initial program 99.8%
Taylor expanded in x around 0
associate--l+N/A
+-commutativeN/A
distribute-lft-out--N/A
lower-fma.f64N/A
associate-/r*N/A
div-subN/A
lower-/.f64N/A
lower--.f64N/A
lower-/.f6499.8
Simplified99.8%
Taylor expanded in t around 0
associate-*r/N/A
mul-1-negN/A
lower-/.f64N/A
lower-neg.f6494.5
Simplified94.5%
Taylor expanded in y around 0
+-commutativeN/A
lower-fma.f64N/A
lower-/.f6494.5
Simplified94.5%
Final simplification91.2%
(FPCore (x y z t)
:precision binary64
(if (<= y -1.16e-7)
(fma y (/ -0.3333333333333333 z) x)
(if (<= y 1.45e-32)
(/ (* t 0.3333333333333333) (* z y))
(fma -0.3333333333333333 (/ y z) x))))
double code(double x, double y, double z, double t) {
double tmp;
if (y <= -1.16e-7) {
tmp = fma(y, (-0.3333333333333333 / z), x);
} else if (y <= 1.45e-32) {
tmp = (t * 0.3333333333333333) / (z * y);
} else {
tmp = fma(-0.3333333333333333, (y / z), x);
}
return tmp;
}
function code(x, y, z, t) tmp = 0.0 if (y <= -1.16e-7) tmp = fma(y, Float64(-0.3333333333333333 / z), x); elseif (y <= 1.45e-32) tmp = Float64(Float64(t * 0.3333333333333333) / Float64(z * y)); else tmp = fma(-0.3333333333333333, Float64(y / z), x); end return tmp end
code[x_, y_, z_, t_] := If[LessEqual[y, -1.16e-7], N[(y * N[(-0.3333333333333333 / z), $MachinePrecision] + x), $MachinePrecision], If[LessEqual[y, 1.45e-32], N[(N[(t * 0.3333333333333333), $MachinePrecision] / N[(z * y), $MachinePrecision]), $MachinePrecision], N[(-0.3333333333333333 * N[(y / z), $MachinePrecision] + x), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.16 \cdot 10^{-7}:\\
\;\;\;\;\mathsf{fma}\left(y, \frac{-0.3333333333333333}{z}, x\right)\\
\mathbf{elif}\;y \leq 1.45 \cdot 10^{-32}:\\
\;\;\;\;\frac{t \cdot 0.3333333333333333}{z \cdot y}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(-0.3333333333333333, \frac{y}{z}, x\right)\\
\end{array}
\end{array}
if y < -1.1600000000000001e-7Initial program 98.5%
Taylor expanded in y around inf
sub-negN/A
+-commutativeN/A
distribute-lft-inN/A
associate-*r/N/A
*-commutativeN/A
associate-/l*N/A
*-inversesN/A
*-rgt-identityN/A
lower-fma.f64N/A
associate-*r/N/A
metadata-evalN/A
distribute-neg-fracN/A
metadata-evalN/A
lower-/.f6494.7
Simplified94.7%
if -1.1600000000000001e-7 < y < 1.44999999999999998e-32Initial program 89.7%
Taylor expanded in y around 0
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
lower-*.f6459.3
Simplified59.3%
if 1.44999999999999998e-32 < y Initial program 99.8%
Taylor expanded in x around 0
associate--l+N/A
+-commutativeN/A
distribute-lft-out--N/A
lower-fma.f64N/A
associate-/r*N/A
div-subN/A
lower-/.f64N/A
lower--.f64N/A
lower-/.f6499.8
Simplified99.8%
Taylor expanded in t around 0
associate-*r/N/A
mul-1-negN/A
lower-/.f64N/A
lower-neg.f6490.5
Simplified90.5%
Taylor expanded in y around 0
+-commutativeN/A
lower-fma.f64N/A
lower-/.f6490.5
Simplified90.5%
Final simplification76.3%
(FPCore (x y z t) :precision binary64 (if (<= y -2.15e+77) (/ (* y -0.3333333333333333) z) (if (<= y 6.6e-8) (/ (* x y) y) (* -0.3333333333333333 (/ y z)))))
double code(double x, double y, double z, double t) {
double tmp;
if (y <= -2.15e+77) {
tmp = (y * -0.3333333333333333) / z;
} else if (y <= 6.6e-8) {
tmp = (x * y) / y;
} else {
tmp = -0.3333333333333333 * (y / z);
}
return tmp;
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if (y <= (-2.15d+77)) then
tmp = (y * (-0.3333333333333333d0)) / z
else if (y <= 6.6d-8) then
tmp = (x * y) / y
else
tmp = (-0.3333333333333333d0) * (y / z)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if (y <= -2.15e+77) {
tmp = (y * -0.3333333333333333) / z;
} else if (y <= 6.6e-8) {
tmp = (x * y) / y;
} else {
tmp = -0.3333333333333333 * (y / z);
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if y <= -2.15e+77: tmp = (y * -0.3333333333333333) / z elif y <= 6.6e-8: tmp = (x * y) / y else: tmp = -0.3333333333333333 * (y / z) return tmp
function code(x, y, z, t) tmp = 0.0 if (y <= -2.15e+77) tmp = Float64(Float64(y * -0.3333333333333333) / z); elseif (y <= 6.6e-8) tmp = Float64(Float64(x * y) / y); else tmp = Float64(-0.3333333333333333 * Float64(y / z)); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if (y <= -2.15e+77) tmp = (y * -0.3333333333333333) / z; elseif (y <= 6.6e-8) tmp = (x * y) / y; else tmp = -0.3333333333333333 * (y / z); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[LessEqual[y, -2.15e+77], N[(N[(y * -0.3333333333333333), $MachinePrecision] / z), $MachinePrecision], If[LessEqual[y, 6.6e-8], N[(N[(x * y), $MachinePrecision] / y), $MachinePrecision], N[(-0.3333333333333333 * N[(y / z), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -2.15 \cdot 10^{+77}:\\
\;\;\;\;\frac{y \cdot -0.3333333333333333}{z}\\
\mathbf{elif}\;y \leq 6.6 \cdot 10^{-8}:\\
\;\;\;\;\frac{x \cdot y}{y}\\
\mathbf{else}:\\
\;\;\;\;-0.3333333333333333 \cdot \frac{y}{z}\\
\end{array}
\end{array}
if y < -2.14999999999999996e77Initial program 99.8%
Taylor expanded in x around 0
associate-/r*N/A
associate-*r/N/A
associate-*r/N/A
div-subN/A
lower-/.f64N/A
distribute-lft-out--N/A
lower-*.f64N/A
lower--.f64N/A
lower-/.f6480.7
Simplified80.7%
Taylor expanded in t around 0
*-commutativeN/A
lower-*.f6477.7
Simplified77.7%
if -2.14999999999999996e77 < y < 6.59999999999999954e-8Initial program 90.5%
Taylor expanded in x around 0
associate--l+N/A
+-commutativeN/A
distribute-lft-out--N/A
lower-fma.f64N/A
associate-/r*N/A
div-subN/A
lower-/.f64N/A
lower--.f64N/A
lower-/.f6489.5
Simplified89.5%
Taylor expanded in y around 0
lower-/.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
associate-*r/N/A
*-commutativeN/A
associate-/l*N/A
metadata-evalN/A
associate-*r/N/A
lower-*.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f6493.9
Simplified93.9%
Taylor expanded in y around inf
lower-*.f6434.1
Simplified34.1%
if 6.59999999999999954e-8 < y Initial program 99.8%
Taylor expanded in x around 0
associate--l+N/A
+-commutativeN/A
distribute-lft-out--N/A
lower-fma.f64N/A
associate-/r*N/A
div-subN/A
lower-/.f64N/A
lower--.f64N/A
lower-/.f6499.8
Simplified99.8%
Taylor expanded in z around 0
associate-*r/N/A
*-commutativeN/A
associate-/l*N/A
metadata-evalN/A
associate-*r/N/A
lower-*.f64N/A
lower--.f64N/A
lower-/.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f6471.6
Simplified71.6%
Taylor expanded in t around 0
Simplified58.6%
Taylor expanded in y around inf
lower-/.f6466.4
Simplified66.4%
(FPCore (x y z t) :precision binary64 (if (<= y -2.15e+77) (* y (/ -0.3333333333333333 z)) (if (<= y 6.6e-8) (/ (* x y) y) (* -0.3333333333333333 (/ y z)))))
double code(double x, double y, double z, double t) {
double tmp;
if (y <= -2.15e+77) {
tmp = y * (-0.3333333333333333 / z);
} else if (y <= 6.6e-8) {
tmp = (x * y) / y;
} else {
tmp = -0.3333333333333333 * (y / z);
}
return tmp;
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if (y <= (-2.15d+77)) then
tmp = y * ((-0.3333333333333333d0) / z)
else if (y <= 6.6d-8) then
tmp = (x * y) / y
else
tmp = (-0.3333333333333333d0) * (y / z)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if (y <= -2.15e+77) {
tmp = y * (-0.3333333333333333 / z);
} else if (y <= 6.6e-8) {
tmp = (x * y) / y;
} else {
tmp = -0.3333333333333333 * (y / z);
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if y <= -2.15e+77: tmp = y * (-0.3333333333333333 / z) elif y <= 6.6e-8: tmp = (x * y) / y else: tmp = -0.3333333333333333 * (y / z) return tmp
function code(x, y, z, t) tmp = 0.0 if (y <= -2.15e+77) tmp = Float64(y * Float64(-0.3333333333333333 / z)); elseif (y <= 6.6e-8) tmp = Float64(Float64(x * y) / y); else tmp = Float64(-0.3333333333333333 * Float64(y / z)); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if (y <= -2.15e+77) tmp = y * (-0.3333333333333333 / z); elseif (y <= 6.6e-8) tmp = (x * y) / y; else tmp = -0.3333333333333333 * (y / z); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[LessEqual[y, -2.15e+77], N[(y * N[(-0.3333333333333333 / z), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 6.6e-8], N[(N[(x * y), $MachinePrecision] / y), $MachinePrecision], N[(-0.3333333333333333 * N[(y / z), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -2.15 \cdot 10^{+77}:\\
\;\;\;\;y \cdot \frac{-0.3333333333333333}{z}\\
\mathbf{elif}\;y \leq 6.6 \cdot 10^{-8}:\\
\;\;\;\;\frac{x \cdot y}{y}\\
\mathbf{else}:\\
\;\;\;\;-0.3333333333333333 \cdot \frac{y}{z}\\
\end{array}
\end{array}
if y < -2.14999999999999996e77Initial program 99.8%
Taylor expanded in y around inf
associate-*r/N/A
*-commutativeN/A
associate-/l*N/A
metadata-evalN/A
distribute-neg-fracN/A
metadata-evalN/A
associate-*r/N/A
lower-*.f64N/A
associate-*r/N/A
metadata-evalN/A
distribute-neg-fracN/A
metadata-evalN/A
lower-/.f6477.7
Simplified77.7%
if -2.14999999999999996e77 < y < 6.59999999999999954e-8Initial program 90.5%
Taylor expanded in x around 0
associate--l+N/A
+-commutativeN/A
distribute-lft-out--N/A
lower-fma.f64N/A
associate-/r*N/A
div-subN/A
lower-/.f64N/A
lower--.f64N/A
lower-/.f6489.5
Simplified89.5%
Taylor expanded in y around 0
lower-/.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
associate-*r/N/A
*-commutativeN/A
associate-/l*N/A
metadata-evalN/A
associate-*r/N/A
lower-*.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f6493.9
Simplified93.9%
Taylor expanded in y around inf
lower-*.f6434.1
Simplified34.1%
if 6.59999999999999954e-8 < y Initial program 99.8%
Taylor expanded in x around 0
associate--l+N/A
+-commutativeN/A
distribute-lft-out--N/A
lower-fma.f64N/A
associate-/r*N/A
div-subN/A
lower-/.f64N/A
lower--.f64N/A
lower-/.f6499.8
Simplified99.8%
Taylor expanded in z around 0
associate-*r/N/A
*-commutativeN/A
associate-/l*N/A
metadata-evalN/A
associate-*r/N/A
lower-*.f64N/A
lower--.f64N/A
lower-/.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f6471.6
Simplified71.6%
Taylor expanded in t around 0
Simplified58.6%
Taylor expanded in y around inf
lower-/.f6466.4
Simplified66.4%
(FPCore (x y z t) :precision binary64 (fma -0.3333333333333333 (/ y z) x))
double code(double x, double y, double z, double t) {
return fma(-0.3333333333333333, (y / z), x);
}
function code(x, y, z, t) return fma(-0.3333333333333333, Float64(y / z), x) end
code[x_, y_, z_, t_] := N[(-0.3333333333333333 * N[(y / z), $MachinePrecision] + x), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(-0.3333333333333333, \frac{y}{z}, x\right)
\end{array}
Initial program 94.5%
Taylor expanded in x around 0
associate--l+N/A
+-commutativeN/A
distribute-lft-out--N/A
lower-fma.f64N/A
associate-/r*N/A
div-subN/A
lower-/.f64N/A
lower--.f64N/A
lower-/.f6493.9
Simplified93.9%
Taylor expanded in t around 0
associate-*r/N/A
mul-1-negN/A
lower-/.f64N/A
lower-neg.f6463.0
Simplified63.0%
Taylor expanded in y around 0
+-commutativeN/A
lower-fma.f64N/A
lower-/.f6463.0
Simplified63.0%
(FPCore (x y z t) :precision binary64 (* -0.3333333333333333 (/ y z)))
double code(double x, double y, double z, double t) {
return -0.3333333333333333 * (y / z);
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = (-0.3333333333333333d0) * (y / z)
end function
public static double code(double x, double y, double z, double t) {
return -0.3333333333333333 * (y / z);
}
def code(x, y, z, t): return -0.3333333333333333 * (y / z)
function code(x, y, z, t) return Float64(-0.3333333333333333 * Float64(y / z)) end
function tmp = code(x, y, z, t) tmp = -0.3333333333333333 * (y / z); end
code[x_, y_, z_, t_] := N[(-0.3333333333333333 * N[(y / z), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
-0.3333333333333333 \cdot \frac{y}{z}
\end{array}
Initial program 94.5%
Taylor expanded in x around 0
associate--l+N/A
+-commutativeN/A
distribute-lft-out--N/A
lower-fma.f64N/A
associate-/r*N/A
div-subN/A
lower-/.f64N/A
lower--.f64N/A
lower-/.f6493.9
Simplified93.9%
Taylor expanded in z around 0
associate-*r/N/A
*-commutativeN/A
associate-/l*N/A
metadata-evalN/A
associate-*r/N/A
lower-*.f64N/A
lower--.f64N/A
lower-/.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f6465.3
Simplified65.3%
Taylor expanded in t around 0
Simplified55.8%
Taylor expanded in y around inf
lower-/.f6433.8
Simplified33.8%
(FPCore (x y z t) :precision binary64 (+ (- x (/ y (* z 3.0))) (/ (/ t (* z 3.0)) y)))
double code(double x, double y, double z, double t) {
return (x - (y / (z * 3.0))) + ((t / (z * 3.0)) / y);
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = (x - (y / (z * 3.0d0))) + ((t / (z * 3.0d0)) / y)
end function
public static double code(double x, double y, double z, double t) {
return (x - (y / (z * 3.0))) + ((t / (z * 3.0)) / y);
}
def code(x, y, z, t): return (x - (y / (z * 3.0))) + ((t / (z * 3.0)) / y)
function code(x, y, z, t) return Float64(Float64(x - Float64(y / Float64(z * 3.0))) + Float64(Float64(t / Float64(z * 3.0)) / y)) end
function tmp = code(x, y, z, t) tmp = (x - (y / (z * 3.0))) + ((t / (z * 3.0)) / y); end
code[x_, y_, z_, t_] := N[(N[(x - N[(y / N[(z * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(t / N[(z * 3.0), $MachinePrecision]), $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(x - \frac{y}{z \cdot 3}\right) + \frac{\frac{t}{z \cdot 3}}{y}
\end{array}
herbie shell --seed 2024215
(FPCore (x y z t)
:name "Diagrams.Solve.Polynomial:cubForm from diagrams-solve-0.1, H"
:precision binary64
:alt
(! :herbie-platform default (+ (- x (/ y (* z 3))) (/ (/ t (* z 3)) y)))
(+ (- x (/ y (* z 3.0))) (/ t (* (* z 3.0) y))))