
(FPCore (x y z t a) :precision binary64 (/ (- x (* y z)) (- t (* a z))))
double code(double x, double y, double z, double t, double a) {
return (x - (y * z)) / (t - (a * z));
}
real(8) function code(x, y, z, t, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
code = (x - (y * z)) / (t - (a * z))
end function
public static double code(double x, double y, double z, double t, double a) {
return (x - (y * z)) / (t - (a * z));
}
def code(x, y, z, t, a): return (x - (y * z)) / (t - (a * z))
function code(x, y, z, t, a) return Float64(Float64(x - Float64(y * z)) / Float64(t - Float64(a * z))) end
function tmp = code(x, y, z, t, a) tmp = (x - (y * z)) / (t - (a * z)); end
code[x_, y_, z_, t_, a_] := N[(N[(x - N[(y * z), $MachinePrecision]), $MachinePrecision] / N[(t - N[(a * z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x - y \cdot z}{t - a \cdot z}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 14 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z t a) :precision binary64 (/ (- x (* y z)) (- t (* a z))))
double code(double x, double y, double z, double t, double a) {
return (x - (y * z)) / (t - (a * z));
}
real(8) function code(x, y, z, t, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
code = (x - (y * z)) / (t - (a * z))
end function
public static double code(double x, double y, double z, double t, double a) {
return (x - (y * z)) / (t - (a * z));
}
def code(x, y, z, t, a): return (x - (y * z)) / (t - (a * z))
function code(x, y, z, t, a) return Float64(Float64(x - Float64(y * z)) / Float64(t - Float64(a * z))) end
function tmp = code(x, y, z, t, a) tmp = (x - (y * z)) / (t - (a * z)); end
code[x_, y_, z_, t_, a_] := N[(N[(x - N[(y * z), $MachinePrecision]), $MachinePrecision] / N[(t - N[(a * z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x - y \cdot z}{t - a \cdot z}
\end{array}
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (- x (* y z))) (t_2 (- t (* z a))) (t_3 (/ t_1 t_2)))
(if (<= t_3 (- INFINITY))
(* y (+ (/ z (- (* z a) t)) (/ x (* y t_2))))
(if (<= t_3 2e+270) (/ t_1 (fma (- z) a t)) (- (/ y a) (/ x (* z a)))))))
double code(double x, double y, double z, double t, double a) {
double t_1 = x - (y * z);
double t_2 = t - (z * a);
double t_3 = t_1 / t_2;
double tmp;
if (t_3 <= -((double) INFINITY)) {
tmp = y * ((z / ((z * a) - t)) + (x / (y * t_2)));
} else if (t_3 <= 2e+270) {
tmp = t_1 / fma(-z, a, t);
} else {
tmp = (y / a) - (x / (z * a));
}
return tmp;
}
function code(x, y, z, t, a) t_1 = Float64(x - Float64(y * z)) t_2 = Float64(t - Float64(z * a)) t_3 = Float64(t_1 / t_2) tmp = 0.0 if (t_3 <= Float64(-Inf)) tmp = Float64(y * Float64(Float64(z / Float64(Float64(z * a) - t)) + Float64(x / Float64(y * t_2)))); elseif (t_3 <= 2e+270) tmp = Float64(t_1 / fma(Float64(-z), a, t)); else tmp = Float64(Float64(y / a) - Float64(x / Float64(z * a))); end return tmp end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(x - N[(y * z), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(t - N[(z * a), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(t$95$1 / t$95$2), $MachinePrecision]}, If[LessEqual[t$95$3, (-Infinity)], N[(y * N[(N[(z / N[(N[(z * a), $MachinePrecision] - t), $MachinePrecision]), $MachinePrecision] + N[(x / N[(y * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$3, 2e+270], N[(t$95$1 / N[((-z) * a + t), $MachinePrecision]), $MachinePrecision], N[(N[(y / a), $MachinePrecision] - N[(x / N[(z * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x - y \cdot z\\
t_2 := t - z \cdot a\\
t_3 := \frac{t\_1}{t\_2}\\
\mathbf{if}\;t\_3 \leq -\infty:\\
\;\;\;\;y \cdot \left(\frac{z}{z \cdot a - t} + \frac{x}{y \cdot t\_2}\right)\\
\mathbf{elif}\;t\_3 \leq 2 \cdot 10^{+270}:\\
\;\;\;\;\frac{t\_1}{\mathsf{fma}\left(-z, a, t\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{y}{a} - \frac{x}{z \cdot a}\\
\end{array}
\end{array}
if (/.f64 (-.f64 x (*.f64 y z)) (-.f64 t (*.f64 a z))) < -inf.0Initial program 50.7%
*-commutative50.7%
Simplified50.7%
Taylor expanded in y around inf 99.7%
Simplified99.7%
if -inf.0 < (/.f64 (-.f64 x (*.f64 y z)) (-.f64 t (*.f64 a z))) < 2.0000000000000001e270Initial program 94.9%
*-commutative94.9%
Simplified94.9%
sub-neg94.9%
+-commutative94.9%
distribute-lft-neg-in94.9%
fma-define95.0%
Applied egg-rr95.0%
if 2.0000000000000001e270 < (/.f64 (-.f64 x (*.f64 y z)) (-.f64 t (*.f64 a z))) Initial program 43.3%
*-commutative43.3%
Simplified43.3%
Taylor expanded in x around inf 43.3%
mul-1-neg43.3%
unsub-neg43.3%
associate-/l*43.3%
Simplified43.3%
Taylor expanded in t around 0 32.9%
associate-*r/32.9%
associate-*r*32.9%
mul-1-neg32.9%
associate-*r/32.9%
*-commutative32.9%
Simplified32.9%
Taylor expanded in x around 0 89.7%
Final simplification94.7%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (- t (* z a))) (t_2 (/ (- x (* y z)) t_1)))
(if (<= t_2 (- INFINITY))
(* y (+ (/ z (- (* z a) t)) (/ x (* y t_1))))
(if (<= t_2 2e+270) t_2 (- (/ y a) (/ x (* z a)))))))
double code(double x, double y, double z, double t, double a) {
double t_1 = t - (z * a);
double t_2 = (x - (y * z)) / t_1;
double tmp;
if (t_2 <= -((double) INFINITY)) {
tmp = y * ((z / ((z * a) - t)) + (x / (y * t_1)));
} else if (t_2 <= 2e+270) {
tmp = t_2;
} else {
tmp = (y / a) - (x / (z * a));
}
return tmp;
}
public static double code(double x, double y, double z, double t, double a) {
double t_1 = t - (z * a);
double t_2 = (x - (y * z)) / t_1;
double tmp;
if (t_2 <= -Double.POSITIVE_INFINITY) {
tmp = y * ((z / ((z * a) - t)) + (x / (y * t_1)));
} else if (t_2 <= 2e+270) {
tmp = t_2;
} else {
tmp = (y / a) - (x / (z * a));
}
return tmp;
}
def code(x, y, z, t, a): t_1 = t - (z * a) t_2 = (x - (y * z)) / t_1 tmp = 0 if t_2 <= -math.inf: tmp = y * ((z / ((z * a) - t)) + (x / (y * t_1))) elif t_2 <= 2e+270: tmp = t_2 else: tmp = (y / a) - (x / (z * a)) return tmp
function code(x, y, z, t, a) t_1 = Float64(t - Float64(z * a)) t_2 = Float64(Float64(x - Float64(y * z)) / t_1) tmp = 0.0 if (t_2 <= Float64(-Inf)) tmp = Float64(y * Float64(Float64(z / Float64(Float64(z * a) - t)) + Float64(x / Float64(y * t_1)))); elseif (t_2 <= 2e+270) tmp = t_2; else tmp = Float64(Float64(y / a) - Float64(x / Float64(z * a))); end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = t - (z * a); t_2 = (x - (y * z)) / t_1; tmp = 0.0; if (t_2 <= -Inf) tmp = y * ((z / ((z * a) - t)) + (x / (y * t_1))); elseif (t_2 <= 2e+270) tmp = t_2; else tmp = (y / a) - (x / (z * a)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(t - N[(z * a), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x - N[(y * z), $MachinePrecision]), $MachinePrecision] / t$95$1), $MachinePrecision]}, If[LessEqual[t$95$2, (-Infinity)], N[(y * N[(N[(z / N[(N[(z * a), $MachinePrecision] - t), $MachinePrecision]), $MachinePrecision] + N[(x / N[(y * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$2, 2e+270], t$95$2, N[(N[(y / a), $MachinePrecision] - N[(x / N[(z * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t - z \cdot a\\
t_2 := \frac{x - y \cdot z}{t\_1}\\
\mathbf{if}\;t\_2 \leq -\infty:\\
\;\;\;\;y \cdot \left(\frac{z}{z \cdot a - t} + \frac{x}{y \cdot t\_1}\right)\\
\mathbf{elif}\;t\_2 \leq 2 \cdot 10^{+270}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;\frac{y}{a} - \frac{x}{z \cdot a}\\
\end{array}
\end{array}
if (/.f64 (-.f64 x (*.f64 y z)) (-.f64 t (*.f64 a z))) < -inf.0Initial program 50.7%
*-commutative50.7%
Simplified50.7%
Taylor expanded in y around inf 99.7%
Simplified99.7%
if -inf.0 < (/.f64 (-.f64 x (*.f64 y z)) (-.f64 t (*.f64 a z))) < 2.0000000000000001e270Initial program 94.9%
*-commutative94.9%
Simplified94.9%
if 2.0000000000000001e270 < (/.f64 (-.f64 x (*.f64 y z)) (-.f64 t (*.f64 a z))) Initial program 43.3%
*-commutative43.3%
Simplified43.3%
Taylor expanded in x around inf 43.3%
mul-1-neg43.3%
unsub-neg43.3%
associate-/l*43.3%
Simplified43.3%
Taylor expanded in t around 0 32.9%
associate-*r/32.9%
associate-*r*32.9%
mul-1-neg32.9%
associate-*r/32.9%
*-commutative32.9%
Simplified32.9%
Taylor expanded in x around 0 89.7%
Final simplification94.7%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (/ (- x (* y z)) (- t (* z a)))))
(if (<= t_1 (- INFINITY))
(* y (/ z (- (* z a) t)))
(if (<= t_1 2e+270) t_1 (- (/ y a) (/ x (* z a)))))))
double code(double x, double y, double z, double t, double a) {
double t_1 = (x - (y * z)) / (t - (z * a));
double tmp;
if (t_1 <= -((double) INFINITY)) {
tmp = y * (z / ((z * a) - t));
} else if (t_1 <= 2e+270) {
tmp = t_1;
} else {
tmp = (y / a) - (x / (z * a));
}
return tmp;
}
public static double code(double x, double y, double z, double t, double a) {
double t_1 = (x - (y * z)) / (t - (z * a));
double tmp;
if (t_1 <= -Double.POSITIVE_INFINITY) {
tmp = y * (z / ((z * a) - t));
} else if (t_1 <= 2e+270) {
tmp = t_1;
} else {
tmp = (y / a) - (x / (z * a));
}
return tmp;
}
def code(x, y, z, t, a): t_1 = (x - (y * z)) / (t - (z * a)) tmp = 0 if t_1 <= -math.inf: tmp = y * (z / ((z * a) - t)) elif t_1 <= 2e+270: tmp = t_1 else: tmp = (y / a) - (x / (z * a)) return tmp
function code(x, y, z, t, a) t_1 = Float64(Float64(x - Float64(y * z)) / Float64(t - Float64(z * a))) tmp = 0.0 if (t_1 <= Float64(-Inf)) tmp = Float64(y * Float64(z / Float64(Float64(z * a) - t))); elseif (t_1 <= 2e+270) tmp = t_1; else tmp = Float64(Float64(y / a) - Float64(x / Float64(z * a))); end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = (x - (y * z)) / (t - (z * a)); tmp = 0.0; if (t_1 <= -Inf) tmp = y * (z / ((z * a) - t)); elseif (t_1 <= 2e+270) tmp = t_1; else tmp = (y / a) - (x / (z * a)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(N[(x - N[(y * z), $MachinePrecision]), $MachinePrecision] / N[(t - N[(z * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, (-Infinity)], N[(y * N[(z / N[(N[(z * a), $MachinePrecision] - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, 2e+270], t$95$1, N[(N[(y / a), $MachinePrecision] - N[(x / N[(z * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{x - y \cdot z}{t - z \cdot a}\\
\mathbf{if}\;t\_1 \leq -\infty:\\
\;\;\;\;y \cdot \frac{z}{z \cdot a - t}\\
\mathbf{elif}\;t\_1 \leq 2 \cdot 10^{+270}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;\frac{y}{a} - \frac{x}{z \cdot a}\\
\end{array}
\end{array}
if (/.f64 (-.f64 x (*.f64 y z)) (-.f64 t (*.f64 a z))) < -inf.0Initial program 50.7%
*-commutative50.7%
Simplified50.7%
Taylor expanded in x around 0 35.2%
mul-1-neg35.2%
associate-/l*84.2%
distribute-rgt-neg-in84.2%
distribute-neg-frac284.2%
cancel-sign-sub-inv84.2%
*-commutative84.2%
+-commutative84.2%
distribute-rgt-neg-out84.2%
distribute-lft-neg-in84.2%
*-commutative84.2%
fma-undefine84.2%
neg-sub084.2%
fma-undefine84.2%
distribute-rgt-neg-in84.2%
mul-1-neg84.2%
associate-*r*84.2%
neg-mul-184.2%
*-commutative84.2%
associate--r+84.2%
neg-sub084.2%
distribute-rgt-neg-out84.2%
remove-double-neg84.2%
Simplified84.2%
if -inf.0 < (/.f64 (-.f64 x (*.f64 y z)) (-.f64 t (*.f64 a z))) < 2.0000000000000001e270Initial program 94.9%
*-commutative94.9%
Simplified94.9%
if 2.0000000000000001e270 < (/.f64 (-.f64 x (*.f64 y z)) (-.f64 t (*.f64 a z))) Initial program 43.3%
*-commutative43.3%
Simplified43.3%
Taylor expanded in x around inf 43.3%
mul-1-neg43.3%
unsub-neg43.3%
associate-/l*43.3%
Simplified43.3%
Taylor expanded in t around 0 32.9%
associate-*r/32.9%
associate-*r*32.9%
mul-1-neg32.9%
associate-*r/32.9%
*-commutative32.9%
Simplified32.9%
Taylor expanded in x around 0 89.7%
Final simplification93.5%
(FPCore (x y z t a)
:precision binary64
(if (<= z -3.8e+96)
(/ y a)
(if (<= z -9.5e+39)
(* y (/ z (- t)))
(if (<= z -3.3e-31)
(* y (/ 1.0 a))
(if (<= z 1.3e-13)
(/ x t)
(if (<= z 1.52e+41)
(/ (/ (- x) a) z)
(if (<= z 1.02e+62) (/ (* y z) (- t)) (/ y a))))))))
double code(double x, double y, double z, double t, double a) {
double tmp;
if (z <= -3.8e+96) {
tmp = y / a;
} else if (z <= -9.5e+39) {
tmp = y * (z / -t);
} else if (z <= -3.3e-31) {
tmp = y * (1.0 / a);
} else if (z <= 1.3e-13) {
tmp = x / t;
} else if (z <= 1.52e+41) {
tmp = (-x / a) / z;
} else if (z <= 1.02e+62) {
tmp = (y * z) / -t;
} else {
tmp = y / a;
}
return tmp;
}
real(8) function code(x, y, z, t, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8) :: tmp
if (z <= (-3.8d+96)) then
tmp = y / a
else if (z <= (-9.5d+39)) then
tmp = y * (z / -t)
else if (z <= (-3.3d-31)) then
tmp = y * (1.0d0 / a)
else if (z <= 1.3d-13) then
tmp = x / t
else if (z <= 1.52d+41) then
tmp = (-x / a) / z
else if (z <= 1.02d+62) then
tmp = (y * z) / -t
else
tmp = y / a
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double tmp;
if (z <= -3.8e+96) {
tmp = y / a;
} else if (z <= -9.5e+39) {
tmp = y * (z / -t);
} else if (z <= -3.3e-31) {
tmp = y * (1.0 / a);
} else if (z <= 1.3e-13) {
tmp = x / t;
} else if (z <= 1.52e+41) {
tmp = (-x / a) / z;
} else if (z <= 1.02e+62) {
tmp = (y * z) / -t;
} else {
tmp = y / a;
}
return tmp;
}
def code(x, y, z, t, a): tmp = 0 if z <= -3.8e+96: tmp = y / a elif z <= -9.5e+39: tmp = y * (z / -t) elif z <= -3.3e-31: tmp = y * (1.0 / a) elif z <= 1.3e-13: tmp = x / t elif z <= 1.52e+41: tmp = (-x / a) / z elif z <= 1.02e+62: tmp = (y * z) / -t else: tmp = y / a return tmp
function code(x, y, z, t, a) tmp = 0.0 if (z <= -3.8e+96) tmp = Float64(y / a); elseif (z <= -9.5e+39) tmp = Float64(y * Float64(z / Float64(-t))); elseif (z <= -3.3e-31) tmp = Float64(y * Float64(1.0 / a)); elseif (z <= 1.3e-13) tmp = Float64(x / t); elseif (z <= 1.52e+41) tmp = Float64(Float64(Float64(-x) / a) / z); elseif (z <= 1.02e+62) tmp = Float64(Float64(y * z) / Float64(-t)); else tmp = Float64(y / a); end return tmp end
function tmp_2 = code(x, y, z, t, a) tmp = 0.0; if (z <= -3.8e+96) tmp = y / a; elseif (z <= -9.5e+39) tmp = y * (z / -t); elseif (z <= -3.3e-31) tmp = y * (1.0 / a); elseif (z <= 1.3e-13) tmp = x / t; elseif (z <= 1.52e+41) tmp = (-x / a) / z; elseif (z <= 1.02e+62) tmp = (y * z) / -t; else tmp = y / a; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := If[LessEqual[z, -3.8e+96], N[(y / a), $MachinePrecision], If[LessEqual[z, -9.5e+39], N[(y * N[(z / (-t)), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -3.3e-31], N[(y * N[(1.0 / a), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 1.3e-13], N[(x / t), $MachinePrecision], If[LessEqual[z, 1.52e+41], N[(N[((-x) / a), $MachinePrecision] / z), $MachinePrecision], If[LessEqual[z, 1.02e+62], N[(N[(y * z), $MachinePrecision] / (-t)), $MachinePrecision], N[(y / a), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -3.8 \cdot 10^{+96}:\\
\;\;\;\;\frac{y}{a}\\
\mathbf{elif}\;z \leq -9.5 \cdot 10^{+39}:\\
\;\;\;\;y \cdot \frac{z}{-t}\\
\mathbf{elif}\;z \leq -3.3 \cdot 10^{-31}:\\
\;\;\;\;y \cdot \frac{1}{a}\\
\mathbf{elif}\;z \leq 1.3 \cdot 10^{-13}:\\
\;\;\;\;\frac{x}{t}\\
\mathbf{elif}\;z \leq 1.52 \cdot 10^{+41}:\\
\;\;\;\;\frac{\frac{-x}{a}}{z}\\
\mathbf{elif}\;z \leq 1.02 \cdot 10^{+62}:\\
\;\;\;\;\frac{y \cdot z}{-t}\\
\mathbf{else}:\\
\;\;\;\;\frac{y}{a}\\
\end{array}
\end{array}
if z < -3.8000000000000002e96 or 1.02000000000000002e62 < z Initial program 64.3%
*-commutative64.3%
Simplified64.3%
Taylor expanded in z around inf 68.2%
if -3.8000000000000002e96 < z < -9.50000000000000011e39Initial program 90.1%
*-commutative90.1%
Simplified90.1%
Taylor expanded in x around inf 80.4%
mul-1-neg80.4%
unsub-neg80.4%
associate-/l*80.3%
Simplified80.3%
Taylor expanded in t around inf 51.5%
associate-/l*51.5%
associate-*r/61.1%
Simplified61.1%
Taylor expanded in x around 0 51.6%
mul-1-neg51.6%
associate-/l*61.1%
distribute-lft-neg-in61.1%
Simplified61.1%
if -9.50000000000000011e39 < z < -3.2999999999999999e-31Initial program 87.6%
*-commutative87.6%
Simplified87.6%
Taylor expanded in x around 0 43.4%
mul-1-neg43.4%
associate-/l*51.4%
distribute-rgt-neg-in51.4%
distribute-neg-frac251.4%
cancel-sign-sub-inv51.4%
*-commutative51.4%
+-commutative51.4%
distribute-rgt-neg-out51.4%
distribute-lft-neg-in51.4%
*-commutative51.4%
fma-undefine51.4%
neg-sub051.4%
fma-undefine51.4%
distribute-rgt-neg-in51.4%
mul-1-neg51.4%
associate-*r*51.4%
neg-mul-151.4%
*-commutative51.4%
associate--r+51.4%
neg-sub051.4%
distribute-rgt-neg-out51.4%
remove-double-neg51.4%
Simplified51.4%
Taylor expanded in z around inf 43.7%
if -3.2999999999999999e-31 < z < 1.3e-13Initial program 99.8%
*-commutative99.8%
Simplified99.8%
Taylor expanded in z around 0 59.9%
if 1.3e-13 < z < 1.52000000000000002e41Initial program 99.9%
*-commutative99.9%
Simplified99.9%
Taylor expanded in x around inf 60.7%
*-commutative60.7%
Simplified60.7%
Taylor expanded in t around 0 54.9%
mul-1-neg54.9%
associate-/r*55.0%
distribute-neg-frac55.0%
distribute-neg-frac255.0%
Simplified55.0%
if 1.52000000000000002e41 < z < 1.02000000000000002e62Initial program 99.6%
*-commutative99.6%
Simplified99.6%
Taylor expanded in x around 0 65.0%
mul-1-neg65.0%
associate-/l*64.6%
distribute-rgt-neg-in64.6%
distribute-neg-frac264.6%
cancel-sign-sub-inv64.6%
*-commutative64.6%
+-commutative64.6%
distribute-rgt-neg-out64.6%
distribute-lft-neg-in64.6%
*-commutative64.6%
fma-undefine64.6%
neg-sub064.6%
fma-undefine64.6%
distribute-rgt-neg-in64.6%
mul-1-neg64.6%
associate-*r*64.6%
neg-mul-164.6%
*-commutative64.6%
associate--r+64.6%
neg-sub064.6%
distribute-rgt-neg-out64.6%
remove-double-neg64.6%
Simplified64.6%
Taylor expanded in z around 0 65.0%
associate-*r/65.0%
associate-*r*65.0%
mul-1-neg65.0%
Simplified65.0%
Final simplification61.2%
(FPCore (x y z t a)
:precision binary64
(if (<= z -2.4e+101)
(/ y a)
(if (<= z -1.5e+40)
(* y (/ z (- t)))
(if (<= z -2.3e-30)
(* y (/ 1.0 a))
(if (<= z 3.6e-13)
(/ x t)
(if (<= z 4.2e+50)
(/ x (* z (- a)))
(if (<= z 1.02e+62) (/ (* y z) (- t)) (/ y a))))))))
double code(double x, double y, double z, double t, double a) {
double tmp;
if (z <= -2.4e+101) {
tmp = y / a;
} else if (z <= -1.5e+40) {
tmp = y * (z / -t);
} else if (z <= -2.3e-30) {
tmp = y * (1.0 / a);
} else if (z <= 3.6e-13) {
tmp = x / t;
} else if (z <= 4.2e+50) {
tmp = x / (z * -a);
} else if (z <= 1.02e+62) {
tmp = (y * z) / -t;
} else {
tmp = y / a;
}
return tmp;
}
real(8) function code(x, y, z, t, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8) :: tmp
if (z <= (-2.4d+101)) then
tmp = y / a
else if (z <= (-1.5d+40)) then
tmp = y * (z / -t)
else if (z <= (-2.3d-30)) then
tmp = y * (1.0d0 / a)
else if (z <= 3.6d-13) then
tmp = x / t
else if (z <= 4.2d+50) then
tmp = x / (z * -a)
else if (z <= 1.02d+62) then
tmp = (y * z) / -t
else
tmp = y / a
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double tmp;
if (z <= -2.4e+101) {
tmp = y / a;
} else if (z <= -1.5e+40) {
tmp = y * (z / -t);
} else if (z <= -2.3e-30) {
tmp = y * (1.0 / a);
} else if (z <= 3.6e-13) {
tmp = x / t;
} else if (z <= 4.2e+50) {
tmp = x / (z * -a);
} else if (z <= 1.02e+62) {
tmp = (y * z) / -t;
} else {
tmp = y / a;
}
return tmp;
}
def code(x, y, z, t, a): tmp = 0 if z <= -2.4e+101: tmp = y / a elif z <= -1.5e+40: tmp = y * (z / -t) elif z <= -2.3e-30: tmp = y * (1.0 / a) elif z <= 3.6e-13: tmp = x / t elif z <= 4.2e+50: tmp = x / (z * -a) elif z <= 1.02e+62: tmp = (y * z) / -t else: tmp = y / a return tmp
function code(x, y, z, t, a) tmp = 0.0 if (z <= -2.4e+101) tmp = Float64(y / a); elseif (z <= -1.5e+40) tmp = Float64(y * Float64(z / Float64(-t))); elseif (z <= -2.3e-30) tmp = Float64(y * Float64(1.0 / a)); elseif (z <= 3.6e-13) tmp = Float64(x / t); elseif (z <= 4.2e+50) tmp = Float64(x / Float64(z * Float64(-a))); elseif (z <= 1.02e+62) tmp = Float64(Float64(y * z) / Float64(-t)); else tmp = Float64(y / a); end return tmp end
function tmp_2 = code(x, y, z, t, a) tmp = 0.0; if (z <= -2.4e+101) tmp = y / a; elseif (z <= -1.5e+40) tmp = y * (z / -t); elseif (z <= -2.3e-30) tmp = y * (1.0 / a); elseif (z <= 3.6e-13) tmp = x / t; elseif (z <= 4.2e+50) tmp = x / (z * -a); elseif (z <= 1.02e+62) tmp = (y * z) / -t; else tmp = y / a; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := If[LessEqual[z, -2.4e+101], N[(y / a), $MachinePrecision], If[LessEqual[z, -1.5e+40], N[(y * N[(z / (-t)), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -2.3e-30], N[(y * N[(1.0 / a), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 3.6e-13], N[(x / t), $MachinePrecision], If[LessEqual[z, 4.2e+50], N[(x / N[(z * (-a)), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 1.02e+62], N[(N[(y * z), $MachinePrecision] / (-t)), $MachinePrecision], N[(y / a), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -2.4 \cdot 10^{+101}:\\
\;\;\;\;\frac{y}{a}\\
\mathbf{elif}\;z \leq -1.5 \cdot 10^{+40}:\\
\;\;\;\;y \cdot \frac{z}{-t}\\
\mathbf{elif}\;z \leq -2.3 \cdot 10^{-30}:\\
\;\;\;\;y \cdot \frac{1}{a}\\
\mathbf{elif}\;z \leq 3.6 \cdot 10^{-13}:\\
\;\;\;\;\frac{x}{t}\\
\mathbf{elif}\;z \leq 4.2 \cdot 10^{+50}:\\
\;\;\;\;\frac{x}{z \cdot \left(-a\right)}\\
\mathbf{elif}\;z \leq 1.02 \cdot 10^{+62}:\\
\;\;\;\;\frac{y \cdot z}{-t}\\
\mathbf{else}:\\
\;\;\;\;\frac{y}{a}\\
\end{array}
\end{array}
if z < -2.39999999999999988e101 or 1.02000000000000002e62 < z Initial program 64.3%
*-commutative64.3%
Simplified64.3%
Taylor expanded in z around inf 68.2%
if -2.39999999999999988e101 < z < -1.5000000000000001e40Initial program 90.1%
*-commutative90.1%
Simplified90.1%
Taylor expanded in x around inf 80.4%
mul-1-neg80.4%
unsub-neg80.4%
associate-/l*80.3%
Simplified80.3%
Taylor expanded in t around inf 51.5%
associate-/l*51.5%
associate-*r/61.1%
Simplified61.1%
Taylor expanded in x around 0 51.6%
mul-1-neg51.6%
associate-/l*61.1%
distribute-lft-neg-in61.1%
Simplified61.1%
if -1.5000000000000001e40 < z < -2.29999999999999984e-30Initial program 87.6%
*-commutative87.6%
Simplified87.6%
Taylor expanded in x around 0 43.4%
mul-1-neg43.4%
associate-/l*51.4%
distribute-rgt-neg-in51.4%
distribute-neg-frac251.4%
cancel-sign-sub-inv51.4%
*-commutative51.4%
+-commutative51.4%
distribute-rgt-neg-out51.4%
distribute-lft-neg-in51.4%
*-commutative51.4%
fma-undefine51.4%
neg-sub051.4%
fma-undefine51.4%
distribute-rgt-neg-in51.4%
mul-1-neg51.4%
associate-*r*51.4%
neg-mul-151.4%
*-commutative51.4%
associate--r+51.4%
neg-sub051.4%
distribute-rgt-neg-out51.4%
remove-double-neg51.4%
Simplified51.4%
Taylor expanded in z around inf 43.7%
if -2.29999999999999984e-30 < z < 3.5999999999999998e-13Initial program 99.8%
*-commutative99.8%
Simplified99.8%
Taylor expanded in z around 0 59.9%
if 3.5999999999999998e-13 < z < 4.1999999999999999e50Initial program 99.9%
*-commutative99.9%
Simplified99.9%
Taylor expanded in x around inf 60.7%
*-commutative60.7%
Simplified60.7%
Taylor expanded in t around 0 54.9%
associate-*r/54.9%
mul-1-neg54.9%
*-commutative54.9%
Simplified54.9%
if 4.1999999999999999e50 < z < 1.02000000000000002e62Initial program 99.6%
*-commutative99.6%
Simplified99.6%
Taylor expanded in x around 0 65.0%
mul-1-neg65.0%
associate-/l*64.6%
distribute-rgt-neg-in64.6%
distribute-neg-frac264.6%
cancel-sign-sub-inv64.6%
*-commutative64.6%
+-commutative64.6%
distribute-rgt-neg-out64.6%
distribute-lft-neg-in64.6%
*-commutative64.6%
fma-undefine64.6%
neg-sub064.6%
fma-undefine64.6%
distribute-rgt-neg-in64.6%
mul-1-neg64.6%
associate-*r*64.6%
neg-mul-164.6%
*-commutative64.6%
associate--r+64.6%
neg-sub064.6%
distribute-rgt-neg-out64.6%
remove-double-neg64.6%
Simplified64.6%
Taylor expanded in z around 0 65.0%
associate-*r/65.0%
associate-*r*65.0%
mul-1-neg65.0%
Simplified65.0%
Final simplification61.2%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (* y (/ z (- t)))))
(if (<= z -3.9e+96)
(/ y a)
(if (<= z -2.15e+42)
t_1
(if (<= z -2.3e-30)
(* y (/ 1.0 a))
(if (<= z 1.02e-13)
(/ x t)
(if (<= z 3e+34)
(/ x (* z (- a)))
(if (<= z 1e+62) t_1 (/ y a)))))))))
double code(double x, double y, double z, double t, double a) {
double t_1 = y * (z / -t);
double tmp;
if (z <= -3.9e+96) {
tmp = y / a;
} else if (z <= -2.15e+42) {
tmp = t_1;
} else if (z <= -2.3e-30) {
tmp = y * (1.0 / a);
} else if (z <= 1.02e-13) {
tmp = x / t;
} else if (z <= 3e+34) {
tmp = x / (z * -a);
} else if (z <= 1e+62) {
tmp = t_1;
} else {
tmp = y / a;
}
return tmp;
}
real(8) function code(x, y, z, t, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8) :: t_1
real(8) :: tmp
t_1 = y * (z / -t)
if (z <= (-3.9d+96)) then
tmp = y / a
else if (z <= (-2.15d+42)) then
tmp = t_1
else if (z <= (-2.3d-30)) then
tmp = y * (1.0d0 / a)
else if (z <= 1.02d-13) then
tmp = x / t
else if (z <= 3d+34) then
tmp = x / (z * -a)
else if (z <= 1d+62) then
tmp = t_1
else
tmp = y / a
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double t_1 = y * (z / -t);
double tmp;
if (z <= -3.9e+96) {
tmp = y / a;
} else if (z <= -2.15e+42) {
tmp = t_1;
} else if (z <= -2.3e-30) {
tmp = y * (1.0 / a);
} else if (z <= 1.02e-13) {
tmp = x / t;
} else if (z <= 3e+34) {
tmp = x / (z * -a);
} else if (z <= 1e+62) {
tmp = t_1;
} else {
tmp = y / a;
}
return tmp;
}
def code(x, y, z, t, a): t_1 = y * (z / -t) tmp = 0 if z <= -3.9e+96: tmp = y / a elif z <= -2.15e+42: tmp = t_1 elif z <= -2.3e-30: tmp = y * (1.0 / a) elif z <= 1.02e-13: tmp = x / t elif z <= 3e+34: tmp = x / (z * -a) elif z <= 1e+62: tmp = t_1 else: tmp = y / a return tmp
function code(x, y, z, t, a) t_1 = Float64(y * Float64(z / Float64(-t))) tmp = 0.0 if (z <= -3.9e+96) tmp = Float64(y / a); elseif (z <= -2.15e+42) tmp = t_1; elseif (z <= -2.3e-30) tmp = Float64(y * Float64(1.0 / a)); elseif (z <= 1.02e-13) tmp = Float64(x / t); elseif (z <= 3e+34) tmp = Float64(x / Float64(z * Float64(-a))); elseif (z <= 1e+62) tmp = t_1; else tmp = Float64(y / a); end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = y * (z / -t); tmp = 0.0; if (z <= -3.9e+96) tmp = y / a; elseif (z <= -2.15e+42) tmp = t_1; elseif (z <= -2.3e-30) tmp = y * (1.0 / a); elseif (z <= 1.02e-13) tmp = x / t; elseif (z <= 3e+34) tmp = x / (z * -a); elseif (z <= 1e+62) tmp = t_1; else tmp = y / a; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(y * N[(z / (-t)), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -3.9e+96], N[(y / a), $MachinePrecision], If[LessEqual[z, -2.15e+42], t$95$1, If[LessEqual[z, -2.3e-30], N[(y * N[(1.0 / a), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 1.02e-13], N[(x / t), $MachinePrecision], If[LessEqual[z, 3e+34], N[(x / N[(z * (-a)), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 1e+62], t$95$1, N[(y / a), $MachinePrecision]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y \cdot \frac{z}{-t}\\
\mathbf{if}\;z \leq -3.9 \cdot 10^{+96}:\\
\;\;\;\;\frac{y}{a}\\
\mathbf{elif}\;z \leq -2.15 \cdot 10^{+42}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq -2.3 \cdot 10^{-30}:\\
\;\;\;\;y \cdot \frac{1}{a}\\
\mathbf{elif}\;z \leq 1.02 \cdot 10^{-13}:\\
\;\;\;\;\frac{x}{t}\\
\mathbf{elif}\;z \leq 3 \cdot 10^{+34}:\\
\;\;\;\;\frac{x}{z \cdot \left(-a\right)}\\
\mathbf{elif}\;z \leq 10^{+62}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;\frac{y}{a}\\
\end{array}
\end{array}
if z < -3.9e96 or 1.00000000000000004e62 < z Initial program 64.3%
*-commutative64.3%
Simplified64.3%
Taylor expanded in z around inf 68.2%
if -3.9e96 < z < -2.1499999999999999e42 or 3.00000000000000018e34 < z < 1.00000000000000004e62Initial program 92.8%
*-commutative92.8%
Simplified92.8%
Taylor expanded in x around inf 85.9%
mul-1-neg85.9%
unsub-neg85.9%
associate-/l*85.8%
Simplified85.8%
Taylor expanded in t around inf 65.3%
associate-/l*65.1%
associate-*r/72.1%
Simplified72.1%
Taylor expanded in x around 0 55.4%
mul-1-neg55.4%
associate-/l*62.1%
distribute-lft-neg-in62.1%
Simplified62.1%
if -2.1499999999999999e42 < z < -2.29999999999999984e-30Initial program 87.6%
*-commutative87.6%
Simplified87.6%
Taylor expanded in x around 0 43.4%
mul-1-neg43.4%
associate-/l*51.4%
distribute-rgt-neg-in51.4%
distribute-neg-frac251.4%
cancel-sign-sub-inv51.4%
*-commutative51.4%
+-commutative51.4%
distribute-rgt-neg-out51.4%
distribute-lft-neg-in51.4%
*-commutative51.4%
fma-undefine51.4%
neg-sub051.4%
fma-undefine51.4%
distribute-rgt-neg-in51.4%
mul-1-neg51.4%
associate-*r*51.4%
neg-mul-151.4%
*-commutative51.4%
associate--r+51.4%
neg-sub051.4%
distribute-rgt-neg-out51.4%
remove-double-neg51.4%
Simplified51.4%
Taylor expanded in z around inf 43.7%
if -2.29999999999999984e-30 < z < 1.0199999999999999e-13Initial program 99.8%
*-commutative99.8%
Simplified99.8%
Taylor expanded in z around 0 59.9%
if 1.0199999999999999e-13 < z < 3.00000000000000018e34Initial program 99.9%
*-commutative99.9%
Simplified99.9%
Taylor expanded in x around inf 60.7%
*-commutative60.7%
Simplified60.7%
Taylor expanded in t around 0 54.9%
associate-*r/54.9%
mul-1-neg54.9%
*-commutative54.9%
Simplified54.9%
Final simplification61.1%
(FPCore (x y z t a)
:precision binary64
(if (or (<= t -8.5e+61)
(not (or (<= t -2e+23) (and (not (<= t -1.7e-39)) (<= t 2.2e+33)))))
(- (/ x t) (* z (/ y t)))
(- (/ y a) (/ x (* z a)))))
double code(double x, double y, double z, double t, double a) {
double tmp;
if ((t <= -8.5e+61) || !((t <= -2e+23) || (!(t <= -1.7e-39) && (t <= 2.2e+33)))) {
tmp = (x / t) - (z * (y / t));
} else {
tmp = (y / a) - (x / (z * a));
}
return tmp;
}
real(8) function code(x, y, z, t, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8) :: tmp
if ((t <= (-8.5d+61)) .or. (.not. (t <= (-2d+23)) .or. (.not. (t <= (-1.7d-39))) .and. (t <= 2.2d+33))) then
tmp = (x / t) - (z * (y / t))
else
tmp = (y / a) - (x / (z * a))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double tmp;
if ((t <= -8.5e+61) || !((t <= -2e+23) || (!(t <= -1.7e-39) && (t <= 2.2e+33)))) {
tmp = (x / t) - (z * (y / t));
} else {
tmp = (y / a) - (x / (z * a));
}
return tmp;
}
def code(x, y, z, t, a): tmp = 0 if (t <= -8.5e+61) or not ((t <= -2e+23) or (not (t <= -1.7e-39) and (t <= 2.2e+33))): tmp = (x / t) - (z * (y / t)) else: tmp = (y / a) - (x / (z * a)) return tmp
function code(x, y, z, t, a) tmp = 0.0 if ((t <= -8.5e+61) || !((t <= -2e+23) || (!(t <= -1.7e-39) && (t <= 2.2e+33)))) tmp = Float64(Float64(x / t) - Float64(z * Float64(y / t))); else tmp = Float64(Float64(y / a) - Float64(x / Float64(z * a))); end return tmp end
function tmp_2 = code(x, y, z, t, a) tmp = 0.0; if ((t <= -8.5e+61) || ~(((t <= -2e+23) || (~((t <= -1.7e-39)) && (t <= 2.2e+33))))) tmp = (x / t) - (z * (y / t)); else tmp = (y / a) - (x / (z * a)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := If[Or[LessEqual[t, -8.5e+61], N[Not[Or[LessEqual[t, -2e+23], And[N[Not[LessEqual[t, -1.7e-39]], $MachinePrecision], LessEqual[t, 2.2e+33]]]], $MachinePrecision]], N[(N[(x / t), $MachinePrecision] - N[(z * N[(y / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(y / a), $MachinePrecision] - N[(x / N[(z * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq -8.5 \cdot 10^{+61} \lor \neg \left(t \leq -2 \cdot 10^{+23} \lor \neg \left(t \leq -1.7 \cdot 10^{-39}\right) \land t \leq 2.2 \cdot 10^{+33}\right):\\
\;\;\;\;\frac{x}{t} - z \cdot \frac{y}{t}\\
\mathbf{else}:\\
\;\;\;\;\frac{y}{a} - \frac{x}{z \cdot a}\\
\end{array}
\end{array}
if t < -8.50000000000000035e61 or -1.9999999999999998e23 < t < -1.7e-39 or 2.19999999999999994e33 < t Initial program 86.9%
*-commutative86.9%
Simplified86.9%
Taylor expanded in z around 0 70.6%
Taylor expanded in y around inf 76.0%
neg-mul-176.0%
distribute-neg-frac76.0%
Simplified76.0%
if -8.50000000000000035e61 < t < -1.9999999999999998e23 or -1.7e-39 < t < 2.19999999999999994e33Initial program 84.8%
*-commutative84.8%
Simplified84.8%
Taylor expanded in x around inf 81.4%
mul-1-neg81.4%
unsub-neg81.4%
associate-/l*79.9%
Simplified79.9%
Taylor expanded in t around 0 61.2%
associate-*r/61.2%
associate-*r*61.2%
mul-1-neg61.2%
associate-*r/59.7%
*-commutative59.7%
Simplified59.7%
Taylor expanded in x around 0 78.4%
Final simplification77.3%
(FPCore (x y z t a)
:precision binary64
(if (<= z -6.8e+100)
(/ y a)
(if (<= z -6e+41)
(* y (/ z (- t)))
(if (<= z -2.9e-30) (* y (/ 1.0 a)) (if (<= z 650.0) (/ x t) (/ y a))))))
double code(double x, double y, double z, double t, double a) {
double tmp;
if (z <= -6.8e+100) {
tmp = y / a;
} else if (z <= -6e+41) {
tmp = y * (z / -t);
} else if (z <= -2.9e-30) {
tmp = y * (1.0 / a);
} else if (z <= 650.0) {
tmp = x / t;
} else {
tmp = y / a;
}
return tmp;
}
real(8) function code(x, y, z, t, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8) :: tmp
if (z <= (-6.8d+100)) then
tmp = y / a
else if (z <= (-6d+41)) then
tmp = y * (z / -t)
else if (z <= (-2.9d-30)) then
tmp = y * (1.0d0 / a)
else if (z <= 650.0d0) then
tmp = x / t
else
tmp = y / a
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double tmp;
if (z <= -6.8e+100) {
tmp = y / a;
} else if (z <= -6e+41) {
tmp = y * (z / -t);
} else if (z <= -2.9e-30) {
tmp = y * (1.0 / a);
} else if (z <= 650.0) {
tmp = x / t;
} else {
tmp = y / a;
}
return tmp;
}
def code(x, y, z, t, a): tmp = 0 if z <= -6.8e+100: tmp = y / a elif z <= -6e+41: tmp = y * (z / -t) elif z <= -2.9e-30: tmp = y * (1.0 / a) elif z <= 650.0: tmp = x / t else: tmp = y / a return tmp
function code(x, y, z, t, a) tmp = 0.0 if (z <= -6.8e+100) tmp = Float64(y / a); elseif (z <= -6e+41) tmp = Float64(y * Float64(z / Float64(-t))); elseif (z <= -2.9e-30) tmp = Float64(y * Float64(1.0 / a)); elseif (z <= 650.0) tmp = Float64(x / t); else tmp = Float64(y / a); end return tmp end
function tmp_2 = code(x, y, z, t, a) tmp = 0.0; if (z <= -6.8e+100) tmp = y / a; elseif (z <= -6e+41) tmp = y * (z / -t); elseif (z <= -2.9e-30) tmp = y * (1.0 / a); elseif (z <= 650.0) tmp = x / t; else tmp = y / a; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := If[LessEqual[z, -6.8e+100], N[(y / a), $MachinePrecision], If[LessEqual[z, -6e+41], N[(y * N[(z / (-t)), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -2.9e-30], N[(y * N[(1.0 / a), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 650.0], N[(x / t), $MachinePrecision], N[(y / a), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -6.8 \cdot 10^{+100}:\\
\;\;\;\;\frac{y}{a}\\
\mathbf{elif}\;z \leq -6 \cdot 10^{+41}:\\
\;\;\;\;y \cdot \frac{z}{-t}\\
\mathbf{elif}\;z \leq -2.9 \cdot 10^{-30}:\\
\;\;\;\;y \cdot \frac{1}{a}\\
\mathbf{elif}\;z \leq 650:\\
\;\;\;\;\frac{x}{t}\\
\mathbf{else}:\\
\;\;\;\;\frac{y}{a}\\
\end{array}
\end{array}
if z < -6.79999999999999988e100 or 650 < z Initial program 69.3%
*-commutative69.3%
Simplified69.3%
Taylor expanded in z around inf 62.6%
if -6.79999999999999988e100 < z < -5.9999999999999997e41Initial program 90.1%
*-commutative90.1%
Simplified90.1%
Taylor expanded in x around inf 80.4%
mul-1-neg80.4%
unsub-neg80.4%
associate-/l*80.3%
Simplified80.3%
Taylor expanded in t around inf 51.5%
associate-/l*51.5%
associate-*r/61.1%
Simplified61.1%
Taylor expanded in x around 0 51.6%
mul-1-neg51.6%
associate-/l*61.1%
distribute-lft-neg-in61.1%
Simplified61.1%
if -5.9999999999999997e41 < z < -2.89999999999999989e-30Initial program 87.6%
*-commutative87.6%
Simplified87.6%
Taylor expanded in x around 0 43.4%
mul-1-neg43.4%
associate-/l*51.4%
distribute-rgt-neg-in51.4%
distribute-neg-frac251.4%
cancel-sign-sub-inv51.4%
*-commutative51.4%
+-commutative51.4%
distribute-rgt-neg-out51.4%
distribute-lft-neg-in51.4%
*-commutative51.4%
fma-undefine51.4%
neg-sub051.4%
fma-undefine51.4%
distribute-rgt-neg-in51.4%
mul-1-neg51.4%
associate-*r*51.4%
neg-mul-151.4%
*-commutative51.4%
associate--r+51.4%
neg-sub051.4%
distribute-rgt-neg-out51.4%
remove-double-neg51.4%
Simplified51.4%
Taylor expanded in z around inf 43.7%
if -2.89999999999999989e-30 < z < 650Initial program 99.8%
*-commutative99.8%
Simplified99.8%
Taylor expanded in z around 0 58.8%
Final simplification59.1%
(FPCore (x y z t a)
:precision binary64
(if (<= z -6.8e+100)
(/ y a)
(if (<= z -5.6e+41)
(* y (/ z (- t)))
(if (<= z -1.85e-31)
(* y (/ 1.0 a))
(if (<= z 1350.0) (/ x t) (/ y a))))))
double code(double x, double y, double z, double t, double a) {
double tmp;
if (z <= -6.8e+100) {
tmp = y / a;
} else if (z <= -5.6e+41) {
tmp = y * (z / -t);
} else if (z <= -1.85e-31) {
tmp = y * (1.0 / a);
} else if (z <= 1350.0) {
tmp = x / t;
} else {
tmp = y / a;
}
return tmp;
}
real(8) function code(x, y, z, t, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8) :: tmp
if (z <= (-6.8d+100)) then
tmp = y / a
else if (z <= (-5.6d+41)) then
tmp = y * (z / -t)
else if (z <= (-1.85d-31)) then
tmp = y * (1.0d0 / a)
else if (z <= 1350.0d0) then
tmp = x / t
else
tmp = y / a
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double tmp;
if (z <= -6.8e+100) {
tmp = y / a;
} else if (z <= -5.6e+41) {
tmp = y * (z / -t);
} else if (z <= -1.85e-31) {
tmp = y * (1.0 / a);
} else if (z <= 1350.0) {
tmp = x / t;
} else {
tmp = y / a;
}
return tmp;
}
def code(x, y, z, t, a): tmp = 0 if z <= -6.8e+100: tmp = y / a elif z <= -5.6e+41: tmp = y * (z / -t) elif z <= -1.85e-31: tmp = y * (1.0 / a) elif z <= 1350.0: tmp = x / t else: tmp = y / a return tmp
function code(x, y, z, t, a) tmp = 0.0 if (z <= -6.8e+100) tmp = Float64(y / a); elseif (z <= -5.6e+41) tmp = Float64(y * Float64(z / Float64(-t))); elseif (z <= -1.85e-31) tmp = Float64(y * Float64(1.0 / a)); elseif (z <= 1350.0) tmp = Float64(x / t); else tmp = Float64(y / a); end return tmp end
function tmp_2 = code(x, y, z, t, a) tmp = 0.0; if (z <= -6.8e+100) tmp = y / a; elseif (z <= -5.6e+41) tmp = y * (z / -t); elseif (z <= -1.85e-31) tmp = y * (1.0 / a); elseif (z <= 1350.0) tmp = x / t; else tmp = y / a; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := If[LessEqual[z, -6.8e+100], N[(y / a), $MachinePrecision], If[LessEqual[z, -5.6e+41], N[(y * N[(z / (-t)), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -1.85e-31], N[(y * N[(1.0 / a), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 1350.0], N[(x / t), $MachinePrecision], N[(y / a), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -6.8 \cdot 10^{+100}:\\
\;\;\;\;\frac{y}{a}\\
\mathbf{elif}\;z \leq -5.6 \cdot 10^{+41}:\\
\;\;\;\;y \cdot \frac{z}{-t}\\
\mathbf{elif}\;z \leq -1.85 \cdot 10^{-31}:\\
\;\;\;\;y \cdot \frac{1}{a}\\
\mathbf{elif}\;z \leq 1350:\\
\;\;\;\;\frac{x}{t}\\
\mathbf{else}:\\
\;\;\;\;\frac{y}{a}\\
\end{array}
\end{array}
if z < -6.79999999999999988e100 or 1350 < z Initial program 69.3%
*-commutative69.3%
Simplified69.3%
Taylor expanded in z around inf 62.6%
if -6.79999999999999988e100 < z < -5.5999999999999999e41Initial program 90.1%
*-commutative90.1%
Simplified90.1%
Taylor expanded in x around 0 51.7%
mul-1-neg51.7%
associate-/l*61.3%
distribute-rgt-neg-in61.3%
distribute-neg-frac261.3%
cancel-sign-sub-inv61.3%
*-commutative61.3%
+-commutative61.3%
distribute-rgt-neg-out61.3%
distribute-lft-neg-in61.3%
*-commutative61.3%
fma-undefine61.3%
neg-sub061.3%
fma-undefine61.3%
distribute-rgt-neg-in61.3%
mul-1-neg61.3%
associate-*r*61.3%
neg-mul-161.3%
*-commutative61.3%
associate--r+61.3%
neg-sub061.3%
distribute-rgt-neg-out61.3%
remove-double-neg61.3%
Simplified61.3%
Taylor expanded in z around 0 61.1%
associate-*r/61.1%
neg-mul-161.1%
Simplified61.1%
if -5.5999999999999999e41 < z < -1.8499999999999999e-31Initial program 87.6%
*-commutative87.6%
Simplified87.6%
Taylor expanded in x around 0 43.4%
mul-1-neg43.4%
associate-/l*51.4%
distribute-rgt-neg-in51.4%
distribute-neg-frac251.4%
cancel-sign-sub-inv51.4%
*-commutative51.4%
+-commutative51.4%
distribute-rgt-neg-out51.4%
distribute-lft-neg-in51.4%
*-commutative51.4%
fma-undefine51.4%
neg-sub051.4%
fma-undefine51.4%
distribute-rgt-neg-in51.4%
mul-1-neg51.4%
associate-*r*51.4%
neg-mul-151.4%
*-commutative51.4%
associate--r+51.4%
neg-sub051.4%
distribute-rgt-neg-out51.4%
remove-double-neg51.4%
Simplified51.4%
Taylor expanded in z around inf 43.7%
if -1.8499999999999999e-31 < z < 1350Initial program 99.8%
*-commutative99.8%
Simplified99.8%
Taylor expanded in z around 0 58.8%
Final simplification59.1%
(FPCore (x y z t a) :precision binary64 (if (or (<= y -2.3e+102) (not (<= y 1.35e+45))) (* y (/ z (- (* z a) t))) (/ x (- t (* z a)))))
double code(double x, double y, double z, double t, double a) {
double tmp;
if ((y <= -2.3e+102) || !(y <= 1.35e+45)) {
tmp = y * (z / ((z * a) - t));
} else {
tmp = x / (t - (z * a));
}
return tmp;
}
real(8) function code(x, y, z, t, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8) :: tmp
if ((y <= (-2.3d+102)) .or. (.not. (y <= 1.35d+45))) then
tmp = y * (z / ((z * a) - t))
else
tmp = x / (t - (z * a))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double tmp;
if ((y <= -2.3e+102) || !(y <= 1.35e+45)) {
tmp = y * (z / ((z * a) - t));
} else {
tmp = x / (t - (z * a));
}
return tmp;
}
def code(x, y, z, t, a): tmp = 0 if (y <= -2.3e+102) or not (y <= 1.35e+45): tmp = y * (z / ((z * a) - t)) else: tmp = x / (t - (z * a)) return tmp
function code(x, y, z, t, a) tmp = 0.0 if ((y <= -2.3e+102) || !(y <= 1.35e+45)) tmp = Float64(y * Float64(z / Float64(Float64(z * a) - t))); else tmp = Float64(x / Float64(t - Float64(z * a))); end return tmp end
function tmp_2 = code(x, y, z, t, a) tmp = 0.0; if ((y <= -2.3e+102) || ~((y <= 1.35e+45))) tmp = y * (z / ((z * a) - t)); else tmp = x / (t - (z * a)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := If[Or[LessEqual[y, -2.3e+102], N[Not[LessEqual[y, 1.35e+45]], $MachinePrecision]], N[(y * N[(z / N[(N[(z * a), $MachinePrecision] - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x / N[(t - N[(z * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -2.3 \cdot 10^{+102} \lor \neg \left(y \leq 1.35 \cdot 10^{+45}\right):\\
\;\;\;\;y \cdot \frac{z}{z \cdot a - t}\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{t - z \cdot a}\\
\end{array}
\end{array}
if y < -2.2999999999999999e102 or 1.34999999999999992e45 < y Initial program 74.4%
*-commutative74.4%
Simplified74.4%
Taylor expanded in x around 0 54.7%
mul-1-neg54.7%
associate-/l*72.1%
distribute-rgt-neg-in72.1%
distribute-neg-frac272.1%
cancel-sign-sub-inv72.1%
*-commutative72.1%
+-commutative72.1%
distribute-rgt-neg-out72.1%
distribute-lft-neg-in72.1%
*-commutative72.1%
fma-undefine72.1%
neg-sub072.1%
fma-undefine72.1%
distribute-rgt-neg-in72.1%
mul-1-neg72.1%
associate-*r*72.1%
neg-mul-172.1%
*-commutative72.1%
associate--r+72.1%
neg-sub072.1%
distribute-rgt-neg-out72.1%
remove-double-neg72.1%
Simplified72.1%
if -2.2999999999999999e102 < y < 1.34999999999999992e45Initial program 92.4%
*-commutative92.4%
Simplified92.4%
Taylor expanded in x around inf 71.7%
*-commutative71.7%
Simplified71.7%
Final simplification71.8%
(FPCore (x y z t a) :precision binary64 (if (or (<= z -3.2e+105) (not (<= z 2.55e+67))) (/ y a) (/ x (- t (* z a)))))
double code(double x, double y, double z, double t, double a) {
double tmp;
if ((z <= -3.2e+105) || !(z <= 2.55e+67)) {
tmp = y / a;
} else {
tmp = x / (t - (z * a));
}
return tmp;
}
real(8) function code(x, y, z, t, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8) :: tmp
if ((z <= (-3.2d+105)) .or. (.not. (z <= 2.55d+67))) then
tmp = y / a
else
tmp = x / (t - (z * a))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double tmp;
if ((z <= -3.2e+105) || !(z <= 2.55e+67)) {
tmp = y / a;
} else {
tmp = x / (t - (z * a));
}
return tmp;
}
def code(x, y, z, t, a): tmp = 0 if (z <= -3.2e+105) or not (z <= 2.55e+67): tmp = y / a else: tmp = x / (t - (z * a)) return tmp
function code(x, y, z, t, a) tmp = 0.0 if ((z <= -3.2e+105) || !(z <= 2.55e+67)) tmp = Float64(y / a); else tmp = Float64(x / Float64(t - Float64(z * a))); end return tmp end
function tmp_2 = code(x, y, z, t, a) tmp = 0.0; if ((z <= -3.2e+105) || ~((z <= 2.55e+67))) tmp = y / a; else tmp = x / (t - (z * a)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := If[Or[LessEqual[z, -3.2e+105], N[Not[LessEqual[z, 2.55e+67]], $MachinePrecision]], N[(y / a), $MachinePrecision], N[(x / N[(t - N[(z * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -3.2 \cdot 10^{+105} \lor \neg \left(z \leq 2.55 \cdot 10^{+67}\right):\\
\;\;\;\;\frac{y}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{t - z \cdot a}\\
\end{array}
\end{array}
if z < -3.2e105 or 2.5500000000000001e67 < z Initial program 63.1%
*-commutative63.1%
Simplified63.1%
Taylor expanded in z around inf 69.2%
if -3.2e105 < z < 2.5500000000000001e67Initial program 97.5%
*-commutative97.5%
Simplified97.5%
Taylor expanded in x around inf 67.3%
*-commutative67.3%
Simplified67.3%
Final simplification68.0%
(FPCore (x y z t a) :precision binary64 (if (<= y -8.4e+108) (/ y a) (if (<= y 3e+56) (/ x (- t (* z a))) (/ (- x (* y z)) t))))
double code(double x, double y, double z, double t, double a) {
double tmp;
if (y <= -8.4e+108) {
tmp = y / a;
} else if (y <= 3e+56) {
tmp = x / (t - (z * a));
} else {
tmp = (x - (y * z)) / t;
}
return tmp;
}
real(8) function code(x, y, z, t, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8) :: tmp
if (y <= (-8.4d+108)) then
tmp = y / a
else if (y <= 3d+56) then
tmp = x / (t - (z * a))
else
tmp = (x - (y * z)) / t
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double tmp;
if (y <= -8.4e+108) {
tmp = y / a;
} else if (y <= 3e+56) {
tmp = x / (t - (z * a));
} else {
tmp = (x - (y * z)) / t;
}
return tmp;
}
def code(x, y, z, t, a): tmp = 0 if y <= -8.4e+108: tmp = y / a elif y <= 3e+56: tmp = x / (t - (z * a)) else: tmp = (x - (y * z)) / t return tmp
function code(x, y, z, t, a) tmp = 0.0 if (y <= -8.4e+108) tmp = Float64(y / a); elseif (y <= 3e+56) tmp = Float64(x / Float64(t - Float64(z * a))); else tmp = Float64(Float64(x - Float64(y * z)) / t); end return tmp end
function tmp_2 = code(x, y, z, t, a) tmp = 0.0; if (y <= -8.4e+108) tmp = y / a; elseif (y <= 3e+56) tmp = x / (t - (z * a)); else tmp = (x - (y * z)) / t; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := If[LessEqual[y, -8.4e+108], N[(y / a), $MachinePrecision], If[LessEqual[y, 3e+56], N[(x / N[(t - N[(z * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(x - N[(y * z), $MachinePrecision]), $MachinePrecision] / t), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -8.4 \cdot 10^{+108}:\\
\;\;\;\;\frac{y}{a}\\
\mathbf{elif}\;y \leq 3 \cdot 10^{+56}:\\
\;\;\;\;\frac{x}{t - z \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{x - y \cdot z}{t}\\
\end{array}
\end{array}
if y < -8.40000000000000039e108Initial program 63.1%
*-commutative63.1%
Simplified63.1%
Taylor expanded in z around inf 65.3%
if -8.40000000000000039e108 < y < 3.00000000000000006e56Initial program 92.5%
*-commutative92.5%
Simplified92.5%
Taylor expanded in x around inf 71.0%
*-commutative71.0%
Simplified71.0%
if 3.00000000000000006e56 < y Initial program 84.8%
*-commutative84.8%
Simplified84.8%
Taylor expanded in t around inf 57.8%
(FPCore (x y z t a) :precision binary64 (if (or (<= z -1e-30) (not (<= z 950.0))) (/ y a) (/ x t)))
double code(double x, double y, double z, double t, double a) {
double tmp;
if ((z <= -1e-30) || !(z <= 950.0)) {
tmp = y / a;
} else {
tmp = x / t;
}
return tmp;
}
real(8) function code(x, y, z, t, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8) :: tmp
if ((z <= (-1d-30)) .or. (.not. (z <= 950.0d0))) then
tmp = y / a
else
tmp = x / t
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double tmp;
if ((z <= -1e-30) || !(z <= 950.0)) {
tmp = y / a;
} else {
tmp = x / t;
}
return tmp;
}
def code(x, y, z, t, a): tmp = 0 if (z <= -1e-30) or not (z <= 950.0): tmp = y / a else: tmp = x / t return tmp
function code(x, y, z, t, a) tmp = 0.0 if ((z <= -1e-30) || !(z <= 950.0)) tmp = Float64(y / a); else tmp = Float64(x / t); end return tmp end
function tmp_2 = code(x, y, z, t, a) tmp = 0.0; if ((z <= -1e-30) || ~((z <= 950.0))) tmp = y / a; else tmp = x / t; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := If[Or[LessEqual[z, -1e-30], N[Not[LessEqual[z, 950.0]], $MachinePrecision]], N[(y / a), $MachinePrecision], N[(x / t), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -1 \cdot 10^{-30} \lor \neg \left(z \leq 950\right):\\
\;\;\;\;\frac{y}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{t}\\
\end{array}
\end{array}
if z < -1e-30 or 950 < z Initial program 74.0%
*-commutative74.0%
Simplified74.0%
Taylor expanded in z around inf 55.8%
if -1e-30 < z < 950Initial program 99.8%
*-commutative99.8%
Simplified99.8%
Taylor expanded in z around 0 58.8%
Final simplification57.2%
(FPCore (x y z t a) :precision binary64 (/ x t))
double code(double x, double y, double z, double t, double a) {
return x / t;
}
real(8) function code(x, y, z, t, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
code = x / t
end function
public static double code(double x, double y, double z, double t, double a) {
return x / t;
}
def code(x, y, z, t, a): return x / t
function code(x, y, z, t, a) return Float64(x / t) end
function tmp = code(x, y, z, t, a) tmp = x / t; end
code[x_, y_, z_, t_, a_] := N[(x / t), $MachinePrecision]
\begin{array}{l}
\\
\frac{x}{t}
\end{array}
Initial program 85.8%
*-commutative85.8%
Simplified85.8%
Taylor expanded in z around 0 36.1%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (- t (* a z))) (t_2 (- (/ x t_1) (/ y (- (/ t z) a)))))
(if (< z -32113435955957344.0)
t_2
(if (< z 3.5139522372978296e-86) (* (- x (* y z)) (/ 1.0 t_1)) t_2))))
double code(double x, double y, double z, double t, double a) {
double t_1 = t - (a * z);
double t_2 = (x / t_1) - (y / ((t / z) - a));
double tmp;
if (z < -32113435955957344.0) {
tmp = t_2;
} else if (z < 3.5139522372978296e-86) {
tmp = (x - (y * z)) * (1.0 / t_1);
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = t - (a * z)
t_2 = (x / t_1) - (y / ((t / z) - a))
if (z < (-32113435955957344.0d0)) then
tmp = t_2
else if (z < 3.5139522372978296d-86) then
tmp = (x - (y * z)) * (1.0d0 / t_1)
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double t_1 = t - (a * z);
double t_2 = (x / t_1) - (y / ((t / z) - a));
double tmp;
if (z < -32113435955957344.0) {
tmp = t_2;
} else if (z < 3.5139522372978296e-86) {
tmp = (x - (y * z)) * (1.0 / t_1);
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a): t_1 = t - (a * z) t_2 = (x / t_1) - (y / ((t / z) - a)) tmp = 0 if z < -32113435955957344.0: tmp = t_2 elif z < 3.5139522372978296e-86: tmp = (x - (y * z)) * (1.0 / t_1) else: tmp = t_2 return tmp
function code(x, y, z, t, a) t_1 = Float64(t - Float64(a * z)) t_2 = Float64(Float64(x / t_1) - Float64(y / Float64(Float64(t / z) - a))) tmp = 0.0 if (z < -32113435955957344.0) tmp = t_2; elseif (z < 3.5139522372978296e-86) tmp = Float64(Float64(x - Float64(y * z)) * Float64(1.0 / t_1)); else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = t - (a * z); t_2 = (x / t_1) - (y / ((t / z) - a)); tmp = 0.0; if (z < -32113435955957344.0) tmp = t_2; elseif (z < 3.5139522372978296e-86) tmp = (x - (y * z)) * (1.0 / t_1); else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(t - N[(a * z), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x / t$95$1), $MachinePrecision] - N[(y / N[(N[(t / z), $MachinePrecision] - a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[Less[z, -32113435955957344.0], t$95$2, If[Less[z, 3.5139522372978296e-86], N[(N[(x - N[(y * z), $MachinePrecision]), $MachinePrecision] * N[(1.0 / t$95$1), $MachinePrecision]), $MachinePrecision], t$95$2]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t - a \cdot z\\
t_2 := \frac{x}{t\_1} - \frac{y}{\frac{t}{z} - a}\\
\mathbf{if}\;z < -32113435955957344:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;z < 3.5139522372978296 \cdot 10^{-86}:\\
\;\;\;\;\left(x - y \cdot z\right) \cdot \frac{1}{t\_1}\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
herbie shell --seed 2024103
(FPCore (x y z t a)
:name "Diagrams.Solve.Tridiagonal:solveTriDiagonal from diagrams-solve-0.1, A"
:precision binary64
:alt
(if (< z -32113435955957344.0) (- (/ x (- t (* a z))) (/ y (- (/ t z) a))) (if (< z 3.5139522372978296e-86) (* (- x (* y z)) (/ 1.0 (- t (* a z)))) (- (/ x (- t (* a z))) (/ y (- (/ t z) a)))))
(/ (- x (* y z)) (- t (* a z))))