
(FPCore (x y z t a) :precision binary64 (+ x (/ (* (- y x) (- z t)) (- a t))))
double code(double x, double y, double z, double t, double a) {
return x + (((y - x) * (z - t)) / (a - 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 + (((y - x) * (z - t)) / (a - t))
end function
public static double code(double x, double y, double z, double t, double a) {
return x + (((y - x) * (z - t)) / (a - t));
}
def code(x, y, z, t, a): return x + (((y - x) * (z - t)) / (a - t))
function code(x, y, z, t, a) return Float64(x + Float64(Float64(Float64(y - x) * Float64(z - t)) / Float64(a - t))) end
function tmp = code(x, y, z, t, a) tmp = x + (((y - x) * (z - t)) / (a - t)); end
code[x_, y_, z_, t_, a_] := N[(x + N[(N[(N[(y - x), $MachinePrecision] * N[(z - t), $MachinePrecision]), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x + \frac{\left(y - x\right) \cdot \left(z - t\right)}{a - t}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 20 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z t a) :precision binary64 (+ x (/ (* (- y x) (- z t)) (- a t))))
double code(double x, double y, double z, double t, double a) {
return x + (((y - x) * (z - t)) / (a - 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 + (((y - x) * (z - t)) / (a - t))
end function
public static double code(double x, double y, double z, double t, double a) {
return x + (((y - x) * (z - t)) / (a - t));
}
def code(x, y, z, t, a): return x + (((y - x) * (z - t)) / (a - t))
function code(x, y, z, t, a) return Float64(x + Float64(Float64(Float64(y - x) * Float64(z - t)) / Float64(a - t))) end
function tmp = code(x, y, z, t, a) tmp = x + (((y - x) * (z - t)) / (a - t)); end
code[x_, y_, z_, t_, a_] := N[(x + N[(N[(N[(y - x), $MachinePrecision] * N[(z - t), $MachinePrecision]), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x + \frac{\left(y - x\right) \cdot \left(z - t\right)}{a - t}
\end{array}
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (+ x (/ (* (- y x) (- z t)) (- a t)))))
(if (or (<= t_1 -1e-230) (not (<= t_1 0.0)))
(fma (- y x) (/ (- z t) (- a t)) x)
(+ y (/ (+ (* (- y x) a) (* z (- x y))) t)))))
double code(double x, double y, double z, double t, double a) {
double t_1 = x + (((y - x) * (z - t)) / (a - t));
double tmp;
if ((t_1 <= -1e-230) || !(t_1 <= 0.0)) {
tmp = fma((y - x), ((z - t) / (a - t)), x);
} else {
tmp = y + ((((y - x) * a) + (z * (x - y))) / t);
}
return tmp;
}
function code(x, y, z, t, a) t_1 = Float64(x + Float64(Float64(Float64(y - x) * Float64(z - t)) / Float64(a - t))) tmp = 0.0 if ((t_1 <= -1e-230) || !(t_1 <= 0.0)) tmp = fma(Float64(y - x), Float64(Float64(z - t) / Float64(a - t)), x); else tmp = Float64(y + Float64(Float64(Float64(Float64(y - x) * a) + Float64(z * Float64(x - y))) / t)); end return tmp end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(x + N[(N[(N[(y - x), $MachinePrecision] * N[(z - t), $MachinePrecision]), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[Or[LessEqual[t$95$1, -1e-230], N[Not[LessEqual[t$95$1, 0.0]], $MachinePrecision]], N[(N[(y - x), $MachinePrecision] * N[(N[(z - t), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision], N[(y + N[(N[(N[(N[(y - x), $MachinePrecision] * a), $MachinePrecision] + N[(z * N[(x - y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x + \frac{\left(y - x\right) \cdot \left(z - t\right)}{a - t}\\
\mathbf{if}\;t\_1 \leq -1 \cdot 10^{-230} \lor \neg \left(t\_1 \leq 0\right):\\
\;\;\;\;\mathsf{fma}\left(y - x, \frac{z - t}{a - t}, x\right)\\
\mathbf{else}:\\
\;\;\;\;y + \frac{\left(y - x\right) \cdot a + z \cdot \left(x - y\right)}{t}\\
\end{array}
\end{array}
if (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < -1.00000000000000005e-230 or 0.0 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) Initial program 71.7%
+-commutative71.7%
associate-/l*89.0%
fma-define89.0%
Simplified89.0%
if -1.00000000000000005e-230 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < 0.0Initial program 3.8%
Taylor expanded in t around -inf 99.9%
Final simplification89.8%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (+ x (/ (* (- y x) (- z t)) (- a t)))))
(if (<= t_1 (- INFINITY))
(* y (/ (- z t) (- a t)))
(if (<= t_1 -1e-230)
t_1
(if (<= t_1 0.0)
(- y (* (/ x t) (- a z)))
(if (<= t_1 1e+293) t_1 (+ y (* (/ (- y x) t) (- a z)))))))))
double code(double x, double y, double z, double t, double a) {
double t_1 = x + (((y - x) * (z - t)) / (a - t));
double tmp;
if (t_1 <= -((double) INFINITY)) {
tmp = y * ((z - t) / (a - t));
} else if (t_1 <= -1e-230) {
tmp = t_1;
} else if (t_1 <= 0.0) {
tmp = y - ((x / t) * (a - z));
} else if (t_1 <= 1e+293) {
tmp = t_1;
} else {
tmp = y + (((y - x) / t) * (a - z));
}
return tmp;
}
public static double code(double x, double y, double z, double t, double a) {
double t_1 = x + (((y - x) * (z - t)) / (a - t));
double tmp;
if (t_1 <= -Double.POSITIVE_INFINITY) {
tmp = y * ((z - t) / (a - t));
} else if (t_1 <= -1e-230) {
tmp = t_1;
} else if (t_1 <= 0.0) {
tmp = y - ((x / t) * (a - z));
} else if (t_1 <= 1e+293) {
tmp = t_1;
} else {
tmp = y + (((y - x) / t) * (a - z));
}
return tmp;
}
def code(x, y, z, t, a): t_1 = x + (((y - x) * (z - t)) / (a - t)) tmp = 0 if t_1 <= -math.inf: tmp = y * ((z - t) / (a - t)) elif t_1 <= -1e-230: tmp = t_1 elif t_1 <= 0.0: tmp = y - ((x / t) * (a - z)) elif t_1 <= 1e+293: tmp = t_1 else: tmp = y + (((y - x) / t) * (a - z)) return tmp
function code(x, y, z, t, a) t_1 = Float64(x + Float64(Float64(Float64(y - x) * Float64(z - t)) / Float64(a - t))) tmp = 0.0 if (t_1 <= Float64(-Inf)) tmp = Float64(y * Float64(Float64(z - t) / Float64(a - t))); elseif (t_1 <= -1e-230) tmp = t_1; elseif (t_1 <= 0.0) tmp = Float64(y - Float64(Float64(x / t) * Float64(a - z))); elseif (t_1 <= 1e+293) tmp = t_1; else tmp = Float64(y + Float64(Float64(Float64(y - x) / t) * Float64(a - z))); end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = x + (((y - x) * (z - t)) / (a - t)); tmp = 0.0; if (t_1 <= -Inf) tmp = y * ((z - t) / (a - t)); elseif (t_1 <= -1e-230) tmp = t_1; elseif (t_1 <= 0.0) tmp = y - ((x / t) * (a - z)); elseif (t_1 <= 1e+293) tmp = t_1; else tmp = y + (((y - x) / t) * (a - z)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(x + N[(N[(N[(y - x), $MachinePrecision] * N[(z - t), $MachinePrecision]), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, (-Infinity)], N[(y * N[(N[(z - t), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, -1e-230], t$95$1, If[LessEqual[t$95$1, 0.0], N[(y - N[(N[(x / t), $MachinePrecision] * N[(a - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, 1e+293], t$95$1, N[(y + N[(N[(N[(y - x), $MachinePrecision] / t), $MachinePrecision] * N[(a - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x + \frac{\left(y - x\right) \cdot \left(z - t\right)}{a - t}\\
\mathbf{if}\;t\_1 \leq -\infty:\\
\;\;\;\;y \cdot \frac{z - t}{a - t}\\
\mathbf{elif}\;t\_1 \leq -1 \cdot 10^{-230}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t\_1 \leq 0:\\
\;\;\;\;y - \frac{x}{t} \cdot \left(a - z\right)\\
\mathbf{elif}\;t\_1 \leq 10^{+293}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;y + \frac{y - x}{t} \cdot \left(a - z\right)\\
\end{array}
\end{array}
if (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < -inf.0Initial program 30.3%
+-commutative30.3%
associate-/l*80.1%
fma-define80.1%
Simplified80.1%
clear-num79.9%
inv-pow79.9%
Applied egg-rr79.9%
unpow-179.9%
Simplified79.9%
Taylor expanded in y around inf 65.3%
div-sub65.3%
Simplified65.3%
if -inf.0 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < -1.00000000000000005e-230 or 0.0 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < 9.9999999999999992e292Initial program 96.4%
if -1.00000000000000005e-230 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < 0.0Initial program 3.8%
Taylor expanded in t around inf 99.9%
associate--l+99.9%
distribute-lft-out--99.9%
div-sub99.9%
mul-1-neg99.9%
unsub-neg99.9%
div-sub99.9%
associate-/l*89.0%
associate-/l*89.0%
distribute-rgt-out--89.3%
Simplified89.3%
Taylor expanded in y around 0 89.3%
neg-mul-189.3%
distribute-neg-frac289.3%
Simplified89.3%
if 9.9999999999999992e292 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) Initial program 31.9%
Taylor expanded in t around inf 40.8%
associate--l+40.8%
distribute-lft-out--40.8%
div-sub43.0%
mul-1-neg43.0%
unsub-neg43.0%
div-sub40.8%
associate-/l*59.1%
associate-/l*65.8%
distribute-rgt-out--74.5%
Simplified74.5%
Final simplification86.6%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (+ x (/ (* (- y x) (- z t)) (- a t)))))
(if (<= t_1 (- INFINITY))
(* y (/ (- z t) (- a t)))
(if (<= t_1 -1e-230)
t_1
(if (<= t_1 0.0)
(+ y (/ -1.0 (/ t (* (- y x) (- z a)))))
(if (<= t_1 1e+293) t_1 (+ y (* (/ (- y x) t) (- a z)))))))))
double code(double x, double y, double z, double t, double a) {
double t_1 = x + (((y - x) * (z - t)) / (a - t));
double tmp;
if (t_1 <= -((double) INFINITY)) {
tmp = y * ((z - t) / (a - t));
} else if (t_1 <= -1e-230) {
tmp = t_1;
} else if (t_1 <= 0.0) {
tmp = y + (-1.0 / (t / ((y - x) * (z - a))));
} else if (t_1 <= 1e+293) {
tmp = t_1;
} else {
tmp = y + (((y - x) / t) * (a - z));
}
return tmp;
}
public static double code(double x, double y, double z, double t, double a) {
double t_1 = x + (((y - x) * (z - t)) / (a - t));
double tmp;
if (t_1 <= -Double.POSITIVE_INFINITY) {
tmp = y * ((z - t) / (a - t));
} else if (t_1 <= -1e-230) {
tmp = t_1;
} else if (t_1 <= 0.0) {
tmp = y + (-1.0 / (t / ((y - x) * (z - a))));
} else if (t_1 <= 1e+293) {
tmp = t_1;
} else {
tmp = y + (((y - x) / t) * (a - z));
}
return tmp;
}
def code(x, y, z, t, a): t_1 = x + (((y - x) * (z - t)) / (a - t)) tmp = 0 if t_1 <= -math.inf: tmp = y * ((z - t) / (a - t)) elif t_1 <= -1e-230: tmp = t_1 elif t_1 <= 0.0: tmp = y + (-1.0 / (t / ((y - x) * (z - a)))) elif t_1 <= 1e+293: tmp = t_1 else: tmp = y + (((y - x) / t) * (a - z)) return tmp
function code(x, y, z, t, a) t_1 = Float64(x + Float64(Float64(Float64(y - x) * Float64(z - t)) / Float64(a - t))) tmp = 0.0 if (t_1 <= Float64(-Inf)) tmp = Float64(y * Float64(Float64(z - t) / Float64(a - t))); elseif (t_1 <= -1e-230) tmp = t_1; elseif (t_1 <= 0.0) tmp = Float64(y + Float64(-1.0 / Float64(t / Float64(Float64(y - x) * Float64(z - a))))); elseif (t_1 <= 1e+293) tmp = t_1; else tmp = Float64(y + Float64(Float64(Float64(y - x) / t) * Float64(a - z))); end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = x + (((y - x) * (z - t)) / (a - t)); tmp = 0.0; if (t_1 <= -Inf) tmp = y * ((z - t) / (a - t)); elseif (t_1 <= -1e-230) tmp = t_1; elseif (t_1 <= 0.0) tmp = y + (-1.0 / (t / ((y - x) * (z - a)))); elseif (t_1 <= 1e+293) tmp = t_1; else tmp = y + (((y - x) / t) * (a - z)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(x + N[(N[(N[(y - x), $MachinePrecision] * N[(z - t), $MachinePrecision]), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, (-Infinity)], N[(y * N[(N[(z - t), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, -1e-230], t$95$1, If[LessEqual[t$95$1, 0.0], N[(y + N[(-1.0 / N[(t / N[(N[(y - x), $MachinePrecision] * N[(z - a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, 1e+293], t$95$1, N[(y + N[(N[(N[(y - x), $MachinePrecision] / t), $MachinePrecision] * N[(a - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x + \frac{\left(y - x\right) \cdot \left(z - t\right)}{a - t}\\
\mathbf{if}\;t\_1 \leq -\infty:\\
\;\;\;\;y \cdot \frac{z - t}{a - t}\\
\mathbf{elif}\;t\_1 \leq -1 \cdot 10^{-230}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t\_1 \leq 0:\\
\;\;\;\;y + \frac{-1}{\frac{t}{\left(y - x\right) \cdot \left(z - a\right)}}\\
\mathbf{elif}\;t\_1 \leq 10^{+293}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;y + \frac{y - x}{t} \cdot \left(a - z\right)\\
\end{array}
\end{array}
if (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < -inf.0Initial program 30.3%
+-commutative30.3%
associate-/l*80.1%
fma-define80.1%
Simplified80.1%
clear-num79.9%
inv-pow79.9%
Applied egg-rr79.9%
unpow-179.9%
Simplified79.9%
Taylor expanded in y around inf 65.3%
div-sub65.3%
Simplified65.3%
if -inf.0 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < -1.00000000000000005e-230 or 0.0 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < 9.9999999999999992e292Initial program 96.4%
if -1.00000000000000005e-230 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < 0.0Initial program 3.8%
Taylor expanded in t around inf 99.9%
associate--l+99.9%
distribute-lft-out--99.9%
div-sub99.9%
mul-1-neg99.9%
unsub-neg99.9%
div-sub99.9%
associate-/l*89.0%
associate-/l*89.0%
distribute-rgt-out--89.3%
Simplified89.3%
associate-*l/99.9%
distribute-rgt-out--99.9%
clear-num99.7%
distribute-rgt-out--99.7%
Applied egg-rr99.7%
if 9.9999999999999992e292 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) Initial program 31.9%
Taylor expanded in t around inf 40.8%
associate--l+40.8%
distribute-lft-out--40.8%
div-sub43.0%
mul-1-neg43.0%
unsub-neg43.0%
div-sub40.8%
associate-/l*59.1%
associate-/l*65.8%
distribute-rgt-out--74.5%
Simplified74.5%
Final simplification87.4%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (+ x (/ (* (- y x) (- z t)) (- a t)))))
(if (<= t_1 (- INFINITY))
(* y (/ (- z t) (- a t)))
(if (<= t_1 -1e-230)
(+ x (/ -1.0 (/ (- a t) (* (- y x) (- t z)))))
(if (<= t_1 0.0)
(+ y (/ -1.0 (/ t (* (- y x) (- z a)))))
(if (<= t_1 1e+293) t_1 (+ y (* (/ (- y x) t) (- a z)))))))))
double code(double x, double y, double z, double t, double a) {
double t_1 = x + (((y - x) * (z - t)) / (a - t));
double tmp;
if (t_1 <= -((double) INFINITY)) {
tmp = y * ((z - t) / (a - t));
} else if (t_1 <= -1e-230) {
tmp = x + (-1.0 / ((a - t) / ((y - x) * (t - z))));
} else if (t_1 <= 0.0) {
tmp = y + (-1.0 / (t / ((y - x) * (z - a))));
} else if (t_1 <= 1e+293) {
tmp = t_1;
} else {
tmp = y + (((y - x) / t) * (a - z));
}
return tmp;
}
public static double code(double x, double y, double z, double t, double a) {
double t_1 = x + (((y - x) * (z - t)) / (a - t));
double tmp;
if (t_1 <= -Double.POSITIVE_INFINITY) {
tmp = y * ((z - t) / (a - t));
} else if (t_1 <= -1e-230) {
tmp = x + (-1.0 / ((a - t) / ((y - x) * (t - z))));
} else if (t_1 <= 0.0) {
tmp = y + (-1.0 / (t / ((y - x) * (z - a))));
} else if (t_1 <= 1e+293) {
tmp = t_1;
} else {
tmp = y + (((y - x) / t) * (a - z));
}
return tmp;
}
def code(x, y, z, t, a): t_1 = x + (((y - x) * (z - t)) / (a - t)) tmp = 0 if t_1 <= -math.inf: tmp = y * ((z - t) / (a - t)) elif t_1 <= -1e-230: tmp = x + (-1.0 / ((a - t) / ((y - x) * (t - z)))) elif t_1 <= 0.0: tmp = y + (-1.0 / (t / ((y - x) * (z - a)))) elif t_1 <= 1e+293: tmp = t_1 else: tmp = y + (((y - x) / t) * (a - z)) return tmp
function code(x, y, z, t, a) t_1 = Float64(x + Float64(Float64(Float64(y - x) * Float64(z - t)) / Float64(a - t))) tmp = 0.0 if (t_1 <= Float64(-Inf)) tmp = Float64(y * Float64(Float64(z - t) / Float64(a - t))); elseif (t_1 <= -1e-230) tmp = Float64(x + Float64(-1.0 / Float64(Float64(a - t) / Float64(Float64(y - x) * Float64(t - z))))); elseif (t_1 <= 0.0) tmp = Float64(y + Float64(-1.0 / Float64(t / Float64(Float64(y - x) * Float64(z - a))))); elseif (t_1 <= 1e+293) tmp = t_1; else tmp = Float64(y + Float64(Float64(Float64(y - x) / t) * Float64(a - z))); end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = x + (((y - x) * (z - t)) / (a - t)); tmp = 0.0; if (t_1 <= -Inf) tmp = y * ((z - t) / (a - t)); elseif (t_1 <= -1e-230) tmp = x + (-1.0 / ((a - t) / ((y - x) * (t - z)))); elseif (t_1 <= 0.0) tmp = y + (-1.0 / (t / ((y - x) * (z - a)))); elseif (t_1 <= 1e+293) tmp = t_1; else tmp = y + (((y - x) / t) * (a - z)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(x + N[(N[(N[(y - x), $MachinePrecision] * N[(z - t), $MachinePrecision]), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, (-Infinity)], N[(y * N[(N[(z - t), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, -1e-230], N[(x + N[(-1.0 / N[(N[(a - t), $MachinePrecision] / N[(N[(y - x), $MachinePrecision] * N[(t - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, 0.0], N[(y + N[(-1.0 / N[(t / N[(N[(y - x), $MachinePrecision] * N[(z - a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, 1e+293], t$95$1, N[(y + N[(N[(N[(y - x), $MachinePrecision] / t), $MachinePrecision] * N[(a - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x + \frac{\left(y - x\right) \cdot \left(z - t\right)}{a - t}\\
\mathbf{if}\;t\_1 \leq -\infty:\\
\;\;\;\;y \cdot \frac{z - t}{a - t}\\
\mathbf{elif}\;t\_1 \leq -1 \cdot 10^{-230}:\\
\;\;\;\;x + \frac{-1}{\frac{a - t}{\left(y - x\right) \cdot \left(t - z\right)}}\\
\mathbf{elif}\;t\_1 \leq 0:\\
\;\;\;\;y + \frac{-1}{\frac{t}{\left(y - x\right) \cdot \left(z - a\right)}}\\
\mathbf{elif}\;t\_1 \leq 10^{+293}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;y + \frac{y - x}{t} \cdot \left(a - z\right)\\
\end{array}
\end{array}
if (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < -inf.0Initial program 30.3%
+-commutative30.3%
associate-/l*80.1%
fma-define80.1%
Simplified80.1%
clear-num79.9%
inv-pow79.9%
Applied egg-rr79.9%
unpow-179.9%
Simplified79.9%
Taylor expanded in y around inf 65.3%
div-sub65.3%
Simplified65.3%
if -inf.0 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < -1.00000000000000005e-230Initial program 97.2%
clear-num97.3%
inv-pow97.3%
*-commutative97.3%
associate-/r*95.1%
Applied egg-rr95.1%
unpow-195.1%
associate-/l/97.3%
*-commutative97.3%
Simplified97.3%
if -1.00000000000000005e-230 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < 0.0Initial program 3.8%
Taylor expanded in t around inf 99.9%
associate--l+99.9%
distribute-lft-out--99.9%
div-sub99.9%
mul-1-neg99.9%
unsub-neg99.9%
div-sub99.9%
associate-/l*89.0%
associate-/l*89.0%
distribute-rgt-out--89.3%
Simplified89.3%
associate-*l/99.9%
distribute-rgt-out--99.9%
clear-num99.7%
distribute-rgt-out--99.7%
Applied egg-rr99.7%
if 0.0 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < 9.9999999999999992e292Initial program 95.7%
if 9.9999999999999992e292 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) Initial program 31.9%
Taylor expanded in t around inf 40.8%
associate--l+40.8%
distribute-lft-out--40.8%
div-sub43.0%
mul-1-neg43.0%
unsub-neg43.0%
div-sub40.8%
associate-/l*59.1%
associate-/l*65.8%
distribute-rgt-out--74.5%
Simplified74.5%
Final simplification87.4%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (+ x (/ (* (- y x) (- z t)) (- a t)))))
(if (<= t_1 (- INFINITY))
(* y (/ (- z t) (- a t)))
(if (<= t_1 -1e-230)
(+ x (/ -1.0 (/ (- a t) (* (- y x) (- t z)))))
(if (<= t_1 0.0)
(+ y (/ (+ (* (- y x) a) (* z (- x y))) t))
(if (<= t_1 1e+293) t_1 (+ y (* (/ (- y x) t) (- a z)))))))))
double code(double x, double y, double z, double t, double a) {
double t_1 = x + (((y - x) * (z - t)) / (a - t));
double tmp;
if (t_1 <= -((double) INFINITY)) {
tmp = y * ((z - t) / (a - t));
} else if (t_1 <= -1e-230) {
tmp = x + (-1.0 / ((a - t) / ((y - x) * (t - z))));
} else if (t_1 <= 0.0) {
tmp = y + ((((y - x) * a) + (z * (x - y))) / t);
} else if (t_1 <= 1e+293) {
tmp = t_1;
} else {
tmp = y + (((y - x) / t) * (a - z));
}
return tmp;
}
public static double code(double x, double y, double z, double t, double a) {
double t_1 = x + (((y - x) * (z - t)) / (a - t));
double tmp;
if (t_1 <= -Double.POSITIVE_INFINITY) {
tmp = y * ((z - t) / (a - t));
} else if (t_1 <= -1e-230) {
tmp = x + (-1.0 / ((a - t) / ((y - x) * (t - z))));
} else if (t_1 <= 0.0) {
tmp = y + ((((y - x) * a) + (z * (x - y))) / t);
} else if (t_1 <= 1e+293) {
tmp = t_1;
} else {
tmp = y + (((y - x) / t) * (a - z));
}
return tmp;
}
def code(x, y, z, t, a): t_1 = x + (((y - x) * (z - t)) / (a - t)) tmp = 0 if t_1 <= -math.inf: tmp = y * ((z - t) / (a - t)) elif t_1 <= -1e-230: tmp = x + (-1.0 / ((a - t) / ((y - x) * (t - z)))) elif t_1 <= 0.0: tmp = y + ((((y - x) * a) + (z * (x - y))) / t) elif t_1 <= 1e+293: tmp = t_1 else: tmp = y + (((y - x) / t) * (a - z)) return tmp
function code(x, y, z, t, a) t_1 = Float64(x + Float64(Float64(Float64(y - x) * Float64(z - t)) / Float64(a - t))) tmp = 0.0 if (t_1 <= Float64(-Inf)) tmp = Float64(y * Float64(Float64(z - t) / Float64(a - t))); elseif (t_1 <= -1e-230) tmp = Float64(x + Float64(-1.0 / Float64(Float64(a - t) / Float64(Float64(y - x) * Float64(t - z))))); elseif (t_1 <= 0.0) tmp = Float64(y + Float64(Float64(Float64(Float64(y - x) * a) + Float64(z * Float64(x - y))) / t)); elseif (t_1 <= 1e+293) tmp = t_1; else tmp = Float64(y + Float64(Float64(Float64(y - x) / t) * Float64(a - z))); end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = x + (((y - x) * (z - t)) / (a - t)); tmp = 0.0; if (t_1 <= -Inf) tmp = y * ((z - t) / (a - t)); elseif (t_1 <= -1e-230) tmp = x + (-1.0 / ((a - t) / ((y - x) * (t - z)))); elseif (t_1 <= 0.0) tmp = y + ((((y - x) * a) + (z * (x - y))) / t); elseif (t_1 <= 1e+293) tmp = t_1; else tmp = y + (((y - x) / t) * (a - z)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(x + N[(N[(N[(y - x), $MachinePrecision] * N[(z - t), $MachinePrecision]), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, (-Infinity)], N[(y * N[(N[(z - t), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, -1e-230], N[(x + N[(-1.0 / N[(N[(a - t), $MachinePrecision] / N[(N[(y - x), $MachinePrecision] * N[(t - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, 0.0], N[(y + N[(N[(N[(N[(y - x), $MachinePrecision] * a), $MachinePrecision] + N[(z * N[(x - y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, 1e+293], t$95$1, N[(y + N[(N[(N[(y - x), $MachinePrecision] / t), $MachinePrecision] * N[(a - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x + \frac{\left(y - x\right) \cdot \left(z - t\right)}{a - t}\\
\mathbf{if}\;t\_1 \leq -\infty:\\
\;\;\;\;y \cdot \frac{z - t}{a - t}\\
\mathbf{elif}\;t\_1 \leq -1 \cdot 10^{-230}:\\
\;\;\;\;x + \frac{-1}{\frac{a - t}{\left(y - x\right) \cdot \left(t - z\right)}}\\
\mathbf{elif}\;t\_1 \leq 0:\\
\;\;\;\;y + \frac{\left(y - x\right) \cdot a + z \cdot \left(x - y\right)}{t}\\
\mathbf{elif}\;t\_1 \leq 10^{+293}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;y + \frac{y - x}{t} \cdot \left(a - z\right)\\
\end{array}
\end{array}
if (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < -inf.0Initial program 30.3%
+-commutative30.3%
associate-/l*80.1%
fma-define80.1%
Simplified80.1%
clear-num79.9%
inv-pow79.9%
Applied egg-rr79.9%
unpow-179.9%
Simplified79.9%
Taylor expanded in y around inf 65.3%
div-sub65.3%
Simplified65.3%
if -inf.0 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < -1.00000000000000005e-230Initial program 97.2%
clear-num97.3%
inv-pow97.3%
*-commutative97.3%
associate-/r*95.1%
Applied egg-rr95.1%
unpow-195.1%
associate-/l/97.3%
*-commutative97.3%
Simplified97.3%
if -1.00000000000000005e-230 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < 0.0Initial program 3.8%
Taylor expanded in t around -inf 99.9%
if 0.0 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < 9.9999999999999992e292Initial program 95.7%
if 9.9999999999999992e292 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) Initial program 31.9%
Taylor expanded in t around inf 40.8%
associate--l+40.8%
distribute-lft-out--40.8%
div-sub43.0%
mul-1-neg43.0%
unsub-neg43.0%
div-sub40.8%
associate-/l*59.1%
associate-/l*65.8%
distribute-rgt-out--74.5%
Simplified74.5%
Final simplification87.4%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (* x (- 1.0 (/ z a)))))
(if (<= t -7.2e+179)
y
(if (<= t -2.25e+92)
(/ (* x (- z a)) t)
(if (<= t -4.3e+86)
y
(if (<= t 1.15e-303)
t_1
(if (<= t 5.4e-281) (* y (/ z a)) (if (<= t 2.5e+40) t_1 y))))))))
double code(double x, double y, double z, double t, double a) {
double t_1 = x * (1.0 - (z / a));
double tmp;
if (t <= -7.2e+179) {
tmp = y;
} else if (t <= -2.25e+92) {
tmp = (x * (z - a)) / t;
} else if (t <= -4.3e+86) {
tmp = y;
} else if (t <= 1.15e-303) {
tmp = t_1;
} else if (t <= 5.4e-281) {
tmp = y * (z / a);
} else if (t <= 2.5e+40) {
tmp = t_1;
} else {
tmp = y;
}
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 = x * (1.0d0 - (z / a))
if (t <= (-7.2d+179)) then
tmp = y
else if (t <= (-2.25d+92)) then
tmp = (x * (z - a)) / t
else if (t <= (-4.3d+86)) then
tmp = y
else if (t <= 1.15d-303) then
tmp = t_1
else if (t <= 5.4d-281) then
tmp = y * (z / a)
else if (t <= 2.5d+40) then
tmp = t_1
else
tmp = y
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double t_1 = x * (1.0 - (z / a));
double tmp;
if (t <= -7.2e+179) {
tmp = y;
} else if (t <= -2.25e+92) {
tmp = (x * (z - a)) / t;
} else if (t <= -4.3e+86) {
tmp = y;
} else if (t <= 1.15e-303) {
tmp = t_1;
} else if (t <= 5.4e-281) {
tmp = y * (z / a);
} else if (t <= 2.5e+40) {
tmp = t_1;
} else {
tmp = y;
}
return tmp;
}
def code(x, y, z, t, a): t_1 = x * (1.0 - (z / a)) tmp = 0 if t <= -7.2e+179: tmp = y elif t <= -2.25e+92: tmp = (x * (z - a)) / t elif t <= -4.3e+86: tmp = y elif t <= 1.15e-303: tmp = t_1 elif t <= 5.4e-281: tmp = y * (z / a) elif t <= 2.5e+40: tmp = t_1 else: tmp = y return tmp
function code(x, y, z, t, a) t_1 = Float64(x * Float64(1.0 - Float64(z / a))) tmp = 0.0 if (t <= -7.2e+179) tmp = y; elseif (t <= -2.25e+92) tmp = Float64(Float64(x * Float64(z - a)) / t); elseif (t <= -4.3e+86) tmp = y; elseif (t <= 1.15e-303) tmp = t_1; elseif (t <= 5.4e-281) tmp = Float64(y * Float64(z / a)); elseif (t <= 2.5e+40) tmp = t_1; else tmp = y; end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = x * (1.0 - (z / a)); tmp = 0.0; if (t <= -7.2e+179) tmp = y; elseif (t <= -2.25e+92) tmp = (x * (z - a)) / t; elseif (t <= -4.3e+86) tmp = y; elseif (t <= 1.15e-303) tmp = t_1; elseif (t <= 5.4e-281) tmp = y * (z / a); elseif (t <= 2.5e+40) tmp = t_1; else tmp = y; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(x * N[(1.0 - N[(z / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t, -7.2e+179], y, If[LessEqual[t, -2.25e+92], N[(N[(x * N[(z - a), $MachinePrecision]), $MachinePrecision] / t), $MachinePrecision], If[LessEqual[t, -4.3e+86], y, If[LessEqual[t, 1.15e-303], t$95$1, If[LessEqual[t, 5.4e-281], N[(y * N[(z / a), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 2.5e+40], t$95$1, y]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x \cdot \left(1 - \frac{z}{a}\right)\\
\mathbf{if}\;t \leq -7.2 \cdot 10^{+179}:\\
\;\;\;\;y\\
\mathbf{elif}\;t \leq -2.25 \cdot 10^{+92}:\\
\;\;\;\;\frac{x \cdot \left(z - a\right)}{t}\\
\mathbf{elif}\;t \leq -4.3 \cdot 10^{+86}:\\
\;\;\;\;y\\
\mathbf{elif}\;t \leq 1.15 \cdot 10^{-303}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t \leq 5.4 \cdot 10^{-281}:\\
\;\;\;\;y \cdot \frac{z}{a}\\
\mathbf{elif}\;t \leq 2.5 \cdot 10^{+40}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;y\\
\end{array}
\end{array}
if t < -7.1999999999999995e179 or -2.25e92 < t < -4.3000000000000002e86 or 2.50000000000000002e40 < t Initial program 41.8%
Taylor expanded in t around inf 56.3%
if -7.1999999999999995e179 < t < -2.25e92Initial program 52.0%
Taylor expanded in x around inf 37.1%
mul-1-neg37.1%
unsub-neg37.1%
Simplified37.1%
Taylor expanded in t around inf 34.8%
associate-*r/34.8%
associate-*r*34.8%
neg-mul-134.8%
mul-1-neg34.8%
sub-neg34.8%
Simplified34.8%
Taylor expanded in a around 0 34.8%
+-commutative34.8%
neg-mul-134.8%
*-commutative34.8%
distribute-rgt-neg-in34.8%
mul-1-neg34.8%
distribute-lft-in34.8%
mul-1-neg34.8%
sub-neg34.8%
Simplified34.8%
if -4.3000000000000002e86 < t < 1.14999999999999998e-303 or 5.39999999999999979e-281 < t < 2.50000000000000002e40Initial program 85.1%
Taylor expanded in x around inf 58.5%
mul-1-neg58.5%
unsub-neg58.5%
Simplified58.5%
Taylor expanded in t around 0 54.8%
if 1.14999999999999998e-303 < t < 5.39999999999999979e-281Initial program 84.4%
+-commutative84.4%
associate-/l*100.0%
fma-define100.0%
Simplified100.0%
clear-num99.7%
inv-pow99.7%
Applied egg-rr99.7%
unpow-199.7%
Simplified99.7%
Taylor expanded in y around -inf 84.4%
Taylor expanded in t around 0 69.7%
associate-/l*85.3%
Simplified85.3%
Final simplification54.5%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (+ x (* y (/ (- z t) (- a t))))))
(if (<= a -3e+18)
t_1
(if (<= a -1.25e-88)
(- y (* (/ x t) (- a z)))
(if (or (<= a -1.3e-128) (not (<= a 280.0)))
t_1
(+ y (* (/ z t) (- x y))))))))
double code(double x, double y, double z, double t, double a) {
double t_1 = x + (y * ((z - t) / (a - t)));
double tmp;
if (a <= -3e+18) {
tmp = t_1;
} else if (a <= -1.25e-88) {
tmp = y - ((x / t) * (a - z));
} else if ((a <= -1.3e-128) || !(a <= 280.0)) {
tmp = t_1;
} else {
tmp = y + ((z / t) * (x - y));
}
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 = x + (y * ((z - t) / (a - t)))
if (a <= (-3d+18)) then
tmp = t_1
else if (a <= (-1.25d-88)) then
tmp = y - ((x / t) * (a - z))
else if ((a <= (-1.3d-128)) .or. (.not. (a <= 280.0d0))) then
tmp = t_1
else
tmp = y + ((z / t) * (x - y))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double t_1 = x + (y * ((z - t) / (a - t)));
double tmp;
if (a <= -3e+18) {
tmp = t_1;
} else if (a <= -1.25e-88) {
tmp = y - ((x / t) * (a - z));
} else if ((a <= -1.3e-128) || !(a <= 280.0)) {
tmp = t_1;
} else {
tmp = y + ((z / t) * (x - y));
}
return tmp;
}
def code(x, y, z, t, a): t_1 = x + (y * ((z - t) / (a - t))) tmp = 0 if a <= -3e+18: tmp = t_1 elif a <= -1.25e-88: tmp = y - ((x / t) * (a - z)) elif (a <= -1.3e-128) or not (a <= 280.0): tmp = t_1 else: tmp = y + ((z / t) * (x - y)) return tmp
function code(x, y, z, t, a) t_1 = Float64(x + Float64(y * Float64(Float64(z - t) / Float64(a - t)))) tmp = 0.0 if (a <= -3e+18) tmp = t_1; elseif (a <= -1.25e-88) tmp = Float64(y - Float64(Float64(x / t) * Float64(a - z))); elseif ((a <= -1.3e-128) || !(a <= 280.0)) tmp = t_1; else tmp = Float64(y + Float64(Float64(z / t) * Float64(x - y))); end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = x + (y * ((z - t) / (a - t))); tmp = 0.0; if (a <= -3e+18) tmp = t_1; elseif (a <= -1.25e-88) tmp = y - ((x / t) * (a - z)); elseif ((a <= -1.3e-128) || ~((a <= 280.0))) tmp = t_1; else tmp = y + ((z / t) * (x - y)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(x + N[(y * N[(N[(z - t), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[a, -3e+18], t$95$1, If[LessEqual[a, -1.25e-88], N[(y - N[(N[(x / t), $MachinePrecision] * N[(a - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[a, -1.3e-128], N[Not[LessEqual[a, 280.0]], $MachinePrecision]], t$95$1, N[(y + N[(N[(z / t), $MachinePrecision] * N[(x - y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x + y \cdot \frac{z - t}{a - t}\\
\mathbf{if}\;a \leq -3 \cdot 10^{+18}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq -1.25 \cdot 10^{-88}:\\
\;\;\;\;y - \frac{x}{t} \cdot \left(a - z\right)\\
\mathbf{elif}\;a \leq -1.3 \cdot 10^{-128} \lor \neg \left(a \leq 280\right):\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;y + \frac{z}{t} \cdot \left(x - y\right)\\
\end{array}
\end{array}
if a < -3e18 or -1.25000000000000002e-88 < a < -1.2999999999999999e-128 or 280 < a Initial program 71.4%
Taylor expanded in y around inf 70.0%
associate-/l*84.8%
Simplified84.8%
if -3e18 < a < -1.25000000000000002e-88Initial program 51.6%
Taylor expanded in t around inf 74.7%
associate--l+74.7%
distribute-lft-out--74.7%
div-sub75.1%
mul-1-neg75.1%
unsub-neg75.1%
div-sub74.7%
associate-/l*78.8%
associate-/l*78.8%
distribute-rgt-out--79.2%
Simplified79.2%
Taylor expanded in y around 0 75.1%
neg-mul-175.1%
distribute-neg-frac275.1%
Simplified75.1%
if -1.2999999999999999e-128 < a < 280Initial program 64.5%
Taylor expanded in t around inf 75.1%
associate--l+75.1%
distribute-lft-out--75.1%
div-sub77.2%
mul-1-neg77.2%
unsub-neg77.2%
div-sub75.1%
associate-/l*76.0%
associate-/l*70.9%
distribute-rgt-out--78.3%
Simplified78.3%
Taylor expanded in z around inf 73.6%
*-commutative73.6%
associate-/l*80.1%
Simplified80.1%
Final simplification82.1%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (+ x (* y (/ (- z t) (- a t))))))
(if (<= a -2.05e+18)
t_1
(if (<= a -9.2e-90)
(- y (* (/ x t) (- a z)))
(if (<= a -1.3e-128)
(+ x (/ (* y (- z t)) (- a t)))
(if (<= a 370.0) (+ y (* (/ z t) (- x y))) t_1))))))
double code(double x, double y, double z, double t, double a) {
double t_1 = x + (y * ((z - t) / (a - t)));
double tmp;
if (a <= -2.05e+18) {
tmp = t_1;
} else if (a <= -9.2e-90) {
tmp = y - ((x / t) * (a - z));
} else if (a <= -1.3e-128) {
tmp = x + ((y * (z - t)) / (a - t));
} else if (a <= 370.0) {
tmp = y + ((z / t) * (x - y));
} else {
tmp = t_1;
}
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 = x + (y * ((z - t) / (a - t)))
if (a <= (-2.05d+18)) then
tmp = t_1
else if (a <= (-9.2d-90)) then
tmp = y - ((x / t) * (a - z))
else if (a <= (-1.3d-128)) then
tmp = x + ((y * (z - t)) / (a - t))
else if (a <= 370.0d0) then
tmp = y + ((z / t) * (x - y))
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double t_1 = x + (y * ((z - t) / (a - t)));
double tmp;
if (a <= -2.05e+18) {
tmp = t_1;
} else if (a <= -9.2e-90) {
tmp = y - ((x / t) * (a - z));
} else if (a <= -1.3e-128) {
tmp = x + ((y * (z - t)) / (a - t));
} else if (a <= 370.0) {
tmp = y + ((z / t) * (x - y));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a): t_1 = x + (y * ((z - t) / (a - t))) tmp = 0 if a <= -2.05e+18: tmp = t_1 elif a <= -9.2e-90: tmp = y - ((x / t) * (a - z)) elif a <= -1.3e-128: tmp = x + ((y * (z - t)) / (a - t)) elif a <= 370.0: tmp = y + ((z / t) * (x - y)) else: tmp = t_1 return tmp
function code(x, y, z, t, a) t_1 = Float64(x + Float64(y * Float64(Float64(z - t) / Float64(a - t)))) tmp = 0.0 if (a <= -2.05e+18) tmp = t_1; elseif (a <= -9.2e-90) tmp = Float64(y - Float64(Float64(x / t) * Float64(a - z))); elseif (a <= -1.3e-128) tmp = Float64(x + Float64(Float64(y * Float64(z - t)) / Float64(a - t))); elseif (a <= 370.0) tmp = Float64(y + Float64(Float64(z / t) * Float64(x - y))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = x + (y * ((z - t) / (a - t))); tmp = 0.0; if (a <= -2.05e+18) tmp = t_1; elseif (a <= -9.2e-90) tmp = y - ((x / t) * (a - z)); elseif (a <= -1.3e-128) tmp = x + ((y * (z - t)) / (a - t)); elseif (a <= 370.0) tmp = y + ((z / t) * (x - y)); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(x + N[(y * N[(N[(z - t), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[a, -2.05e+18], t$95$1, If[LessEqual[a, -9.2e-90], N[(y - N[(N[(x / t), $MachinePrecision] * N[(a - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -1.3e-128], N[(x + N[(N[(y * N[(z - t), $MachinePrecision]), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 370.0], N[(y + N[(N[(z / t), $MachinePrecision] * N[(x - y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x + y \cdot \frac{z - t}{a - t}\\
\mathbf{if}\;a \leq -2.05 \cdot 10^{+18}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq -9.2 \cdot 10^{-90}:\\
\;\;\;\;y - \frac{x}{t} \cdot \left(a - z\right)\\
\mathbf{elif}\;a \leq -1.3 \cdot 10^{-128}:\\
\;\;\;\;x + \frac{y \cdot \left(z - t\right)}{a - t}\\
\mathbf{elif}\;a \leq 370:\\
\;\;\;\;y + \frac{z}{t} \cdot \left(x - y\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if a < -2.05e18 or 370 < a Initial program 70.1%
Taylor expanded in y around inf 69.6%
associate-/l*86.2%
Simplified86.2%
if -2.05e18 < a < -9.1999999999999992e-90Initial program 51.6%
Taylor expanded in t around inf 74.7%
associate--l+74.7%
distribute-lft-out--74.7%
div-sub75.1%
mul-1-neg75.1%
unsub-neg75.1%
div-sub74.7%
associate-/l*78.8%
associate-/l*78.8%
distribute-rgt-out--79.2%
Simplified79.2%
Taylor expanded in y around 0 75.1%
neg-mul-175.1%
distribute-neg-frac275.1%
Simplified75.1%
if -9.1999999999999992e-90 < a < -1.2999999999999999e-128Initial program 88.6%
Taylor expanded in y around inf 75.9%
*-commutative75.9%
Simplified75.9%
if -1.2999999999999999e-128 < a < 370Initial program 64.5%
Taylor expanded in t around inf 75.1%
associate--l+75.1%
distribute-lft-out--75.1%
div-sub77.2%
mul-1-neg77.2%
unsub-neg77.2%
div-sub75.1%
associate-/l*76.0%
associate-/l*70.9%
distribute-rgt-out--78.3%
Simplified78.3%
Taylor expanded in z around inf 73.6%
*-commutative73.6%
associate-/l*80.1%
Simplified80.1%
Final simplification82.5%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (+ x (* y (/ (- z t) (- a t))))))
(if (<= a -2.2e+52)
t_1
(if (<= a -4.2e-90)
(+ y (* (/ (- y x) t) (- a z)))
(if (<= a -1.12e-128)
(+ x (/ (* y (- z t)) (- a t)))
(if (<= a 750.0) (+ y (* (/ z t) (- x y))) t_1))))))
double code(double x, double y, double z, double t, double a) {
double t_1 = x + (y * ((z - t) / (a - t)));
double tmp;
if (a <= -2.2e+52) {
tmp = t_1;
} else if (a <= -4.2e-90) {
tmp = y + (((y - x) / t) * (a - z));
} else if (a <= -1.12e-128) {
tmp = x + ((y * (z - t)) / (a - t));
} else if (a <= 750.0) {
tmp = y + ((z / t) * (x - y));
} else {
tmp = t_1;
}
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 = x + (y * ((z - t) / (a - t)))
if (a <= (-2.2d+52)) then
tmp = t_1
else if (a <= (-4.2d-90)) then
tmp = y + (((y - x) / t) * (a - z))
else if (a <= (-1.12d-128)) then
tmp = x + ((y * (z - t)) / (a - t))
else if (a <= 750.0d0) then
tmp = y + ((z / t) * (x - y))
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double t_1 = x + (y * ((z - t) / (a - t)));
double tmp;
if (a <= -2.2e+52) {
tmp = t_1;
} else if (a <= -4.2e-90) {
tmp = y + (((y - x) / t) * (a - z));
} else if (a <= -1.12e-128) {
tmp = x + ((y * (z - t)) / (a - t));
} else if (a <= 750.0) {
tmp = y + ((z / t) * (x - y));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a): t_1 = x + (y * ((z - t) / (a - t))) tmp = 0 if a <= -2.2e+52: tmp = t_1 elif a <= -4.2e-90: tmp = y + (((y - x) / t) * (a - z)) elif a <= -1.12e-128: tmp = x + ((y * (z - t)) / (a - t)) elif a <= 750.0: tmp = y + ((z / t) * (x - y)) else: tmp = t_1 return tmp
function code(x, y, z, t, a) t_1 = Float64(x + Float64(y * Float64(Float64(z - t) / Float64(a - t)))) tmp = 0.0 if (a <= -2.2e+52) tmp = t_1; elseif (a <= -4.2e-90) tmp = Float64(y + Float64(Float64(Float64(y - x) / t) * Float64(a - z))); elseif (a <= -1.12e-128) tmp = Float64(x + Float64(Float64(y * Float64(z - t)) / Float64(a - t))); elseif (a <= 750.0) tmp = Float64(y + Float64(Float64(z / t) * Float64(x - y))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = x + (y * ((z - t) / (a - t))); tmp = 0.0; if (a <= -2.2e+52) tmp = t_1; elseif (a <= -4.2e-90) tmp = y + (((y - x) / t) * (a - z)); elseif (a <= -1.12e-128) tmp = x + ((y * (z - t)) / (a - t)); elseif (a <= 750.0) tmp = y + ((z / t) * (x - y)); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(x + N[(y * N[(N[(z - t), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[a, -2.2e+52], t$95$1, If[LessEqual[a, -4.2e-90], N[(y + N[(N[(N[(y - x), $MachinePrecision] / t), $MachinePrecision] * N[(a - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -1.12e-128], N[(x + N[(N[(y * N[(z - t), $MachinePrecision]), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 750.0], N[(y + N[(N[(z / t), $MachinePrecision] * N[(x - y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x + y \cdot \frac{z - t}{a - t}\\
\mathbf{if}\;a \leq -2.2 \cdot 10^{+52}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq -4.2 \cdot 10^{-90}:\\
\;\;\;\;y + \frac{y - x}{t} \cdot \left(a - z\right)\\
\mathbf{elif}\;a \leq -1.12 \cdot 10^{-128}:\\
\;\;\;\;x + \frac{y \cdot \left(z - t\right)}{a - t}\\
\mathbf{elif}\;a \leq 750:\\
\;\;\;\;y + \frac{z}{t} \cdot \left(x - y\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if a < -2.2e52 or 750 < a Initial program 69.2%
Taylor expanded in y around inf 69.4%
associate-/l*87.1%
Simplified87.1%
if -2.2e52 < a < -4.1999999999999998e-90Initial program 59.7%
Taylor expanded in t around inf 74.1%
associate--l+74.1%
distribute-lft-out--74.1%
div-sub74.4%
mul-1-neg74.4%
unsub-neg74.4%
div-sub74.1%
associate-/l*77.3%
associate-/l*77.2%
distribute-rgt-out--77.5%
Simplified77.5%
if -4.1999999999999998e-90 < a < -1.12e-128Initial program 88.6%
Taylor expanded in y around inf 75.9%
*-commutative75.9%
Simplified75.9%
if -1.12e-128 < a < 750Initial program 64.5%
Taylor expanded in t around inf 75.1%
associate--l+75.1%
distribute-lft-out--75.1%
div-sub77.2%
mul-1-neg77.2%
unsub-neg77.2%
div-sub75.1%
associate-/l*76.0%
associate-/l*70.9%
distribute-rgt-out--78.3%
Simplified78.3%
Taylor expanded in z around inf 73.6%
*-commutative73.6%
associate-/l*80.1%
Simplified80.1%
Final simplification82.9%
(FPCore (x y z t a)
:precision binary64
(if (<= t -9.8e+86)
y
(if (<= t -4e-234)
x
(if (<= t 2.9e-264)
(* y (/ z a))
(if (<= t 1.35e-67) (* x (+ 1.0 (/ t a))) y)))))
double code(double x, double y, double z, double t, double a) {
double tmp;
if (t <= -9.8e+86) {
tmp = y;
} else if (t <= -4e-234) {
tmp = x;
} else if (t <= 2.9e-264) {
tmp = y * (z / a);
} else if (t <= 1.35e-67) {
tmp = x * (1.0 + (t / a));
} else {
tmp = y;
}
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 <= (-9.8d+86)) then
tmp = y
else if (t <= (-4d-234)) then
tmp = x
else if (t <= 2.9d-264) then
tmp = y * (z / a)
else if (t <= 1.35d-67) then
tmp = x * (1.0d0 + (t / a))
else
tmp = y
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double tmp;
if (t <= -9.8e+86) {
tmp = y;
} else if (t <= -4e-234) {
tmp = x;
} else if (t <= 2.9e-264) {
tmp = y * (z / a);
} else if (t <= 1.35e-67) {
tmp = x * (1.0 + (t / a));
} else {
tmp = y;
}
return tmp;
}
def code(x, y, z, t, a): tmp = 0 if t <= -9.8e+86: tmp = y elif t <= -4e-234: tmp = x elif t <= 2.9e-264: tmp = y * (z / a) elif t <= 1.35e-67: tmp = x * (1.0 + (t / a)) else: tmp = y return tmp
function code(x, y, z, t, a) tmp = 0.0 if (t <= -9.8e+86) tmp = y; elseif (t <= -4e-234) tmp = x; elseif (t <= 2.9e-264) tmp = Float64(y * Float64(z / a)); elseif (t <= 1.35e-67) tmp = Float64(x * Float64(1.0 + Float64(t / a))); else tmp = y; end return tmp end
function tmp_2 = code(x, y, z, t, a) tmp = 0.0; if (t <= -9.8e+86) tmp = y; elseif (t <= -4e-234) tmp = x; elseif (t <= 2.9e-264) tmp = y * (z / a); elseif (t <= 1.35e-67) tmp = x * (1.0 + (t / a)); else tmp = y; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := If[LessEqual[t, -9.8e+86], y, If[LessEqual[t, -4e-234], x, If[LessEqual[t, 2.9e-264], N[(y * N[(z / a), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 1.35e-67], N[(x * N[(1.0 + N[(t / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], y]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq -9.8 \cdot 10^{+86}:\\
\;\;\;\;y\\
\mathbf{elif}\;t \leq -4 \cdot 10^{-234}:\\
\;\;\;\;x\\
\mathbf{elif}\;t \leq 2.9 \cdot 10^{-264}:\\
\;\;\;\;y \cdot \frac{z}{a}\\
\mathbf{elif}\;t \leq 1.35 \cdot 10^{-67}:\\
\;\;\;\;x \cdot \left(1 + \frac{t}{a}\right)\\
\mathbf{else}:\\
\;\;\;\;y\\
\end{array}
\end{array}
if t < -9.7999999999999999e86 or 1.35000000000000008e-67 < t Initial program 47.6%
Taylor expanded in t around inf 46.2%
if -9.7999999999999999e86 < t < -3.9999999999999998e-234Initial program 79.1%
Taylor expanded in a around inf 43.0%
if -3.9999999999999998e-234 < t < 2.8999999999999999e-264Initial program 91.6%
+-commutative91.6%
associate-/l*91.9%
fma-define91.9%
Simplified91.9%
clear-num91.8%
inv-pow91.8%
Applied egg-rr91.8%
unpow-191.8%
Simplified91.8%
Taylor expanded in y around -inf 49.3%
Taylor expanded in t around 0 41.4%
associate-/l*50.0%
Simplified50.0%
if 2.8999999999999999e-264 < t < 1.35000000000000008e-67Initial program 91.6%
Taylor expanded in x around inf 70.4%
mul-1-neg70.4%
unsub-neg70.4%
Simplified70.4%
Taylor expanded in z around 0 48.6%
+-commutative48.6%
Simplified48.6%
Taylor expanded in t around 0 49.2%
Final simplification46.3%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (* x (- 1.0 (/ z a)))))
(if (<= t -7.2e+86)
y
(if (<= t 3.2e-301)
t_1
(if (<= t 5.5e-279) (* y (/ z a)) (if (<= t 7.5e+33) t_1 y))))))
double code(double x, double y, double z, double t, double a) {
double t_1 = x * (1.0 - (z / a));
double tmp;
if (t <= -7.2e+86) {
tmp = y;
} else if (t <= 3.2e-301) {
tmp = t_1;
} else if (t <= 5.5e-279) {
tmp = y * (z / a);
} else if (t <= 7.5e+33) {
tmp = t_1;
} else {
tmp = y;
}
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 = x * (1.0d0 - (z / a))
if (t <= (-7.2d+86)) then
tmp = y
else if (t <= 3.2d-301) then
tmp = t_1
else if (t <= 5.5d-279) then
tmp = y * (z / a)
else if (t <= 7.5d+33) then
tmp = t_1
else
tmp = y
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double t_1 = x * (1.0 - (z / a));
double tmp;
if (t <= -7.2e+86) {
tmp = y;
} else if (t <= 3.2e-301) {
tmp = t_1;
} else if (t <= 5.5e-279) {
tmp = y * (z / a);
} else if (t <= 7.5e+33) {
tmp = t_1;
} else {
tmp = y;
}
return tmp;
}
def code(x, y, z, t, a): t_1 = x * (1.0 - (z / a)) tmp = 0 if t <= -7.2e+86: tmp = y elif t <= 3.2e-301: tmp = t_1 elif t <= 5.5e-279: tmp = y * (z / a) elif t <= 7.5e+33: tmp = t_1 else: tmp = y return tmp
function code(x, y, z, t, a) t_1 = Float64(x * Float64(1.0 - Float64(z / a))) tmp = 0.0 if (t <= -7.2e+86) tmp = y; elseif (t <= 3.2e-301) tmp = t_1; elseif (t <= 5.5e-279) tmp = Float64(y * Float64(z / a)); elseif (t <= 7.5e+33) tmp = t_1; else tmp = y; end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = x * (1.0 - (z / a)); tmp = 0.0; if (t <= -7.2e+86) tmp = y; elseif (t <= 3.2e-301) tmp = t_1; elseif (t <= 5.5e-279) tmp = y * (z / a); elseif (t <= 7.5e+33) tmp = t_1; else tmp = y; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(x * N[(1.0 - N[(z / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t, -7.2e+86], y, If[LessEqual[t, 3.2e-301], t$95$1, If[LessEqual[t, 5.5e-279], N[(y * N[(z / a), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 7.5e+33], t$95$1, y]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x \cdot \left(1 - \frac{z}{a}\right)\\
\mathbf{if}\;t \leq -7.2 \cdot 10^{+86}:\\
\;\;\;\;y\\
\mathbf{elif}\;t \leq 3.2 \cdot 10^{-301}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t \leq 5.5 \cdot 10^{-279}:\\
\;\;\;\;y \cdot \frac{z}{a}\\
\mathbf{elif}\;t \leq 7.5 \cdot 10^{+33}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;y\\
\end{array}
\end{array}
if t < -7.20000000000000011e86 or 7.50000000000000046e33 < t Initial program 43.7%
Taylor expanded in t around inf 48.9%
if -7.20000000000000011e86 < t < 3.1999999999999999e-301 or 5.5000000000000002e-279 < t < 7.50000000000000046e33Initial program 85.1%
Taylor expanded in x around inf 58.5%
mul-1-neg58.5%
unsub-neg58.5%
Simplified58.5%
Taylor expanded in t around 0 54.8%
if 3.1999999999999999e-301 < t < 5.5000000000000002e-279Initial program 84.4%
+-commutative84.4%
associate-/l*100.0%
fma-define100.0%
Simplified100.0%
clear-num99.7%
inv-pow99.7%
Applied egg-rr99.7%
unpow-199.7%
Simplified99.7%
Taylor expanded in y around -inf 84.4%
Taylor expanded in t around 0 69.7%
associate-/l*85.3%
Simplified85.3%
Final simplification52.9%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (* x (- 1.0 (/ z a)))))
(if (<= t -3.4e+28)
(* t (/ y (- t a)))
(if (<= t 3.2e-301)
t_1
(if (<= t 2.5e-275) (* y (/ z a)) (if (<= t 1e+42) t_1 y))))))
double code(double x, double y, double z, double t, double a) {
double t_1 = x * (1.0 - (z / a));
double tmp;
if (t <= -3.4e+28) {
tmp = t * (y / (t - a));
} else if (t <= 3.2e-301) {
tmp = t_1;
} else if (t <= 2.5e-275) {
tmp = y * (z / a);
} else if (t <= 1e+42) {
tmp = t_1;
} else {
tmp = y;
}
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 = x * (1.0d0 - (z / a))
if (t <= (-3.4d+28)) then
tmp = t * (y / (t - a))
else if (t <= 3.2d-301) then
tmp = t_1
else if (t <= 2.5d-275) then
tmp = y * (z / a)
else if (t <= 1d+42) then
tmp = t_1
else
tmp = y
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double t_1 = x * (1.0 - (z / a));
double tmp;
if (t <= -3.4e+28) {
tmp = t * (y / (t - a));
} else if (t <= 3.2e-301) {
tmp = t_1;
} else if (t <= 2.5e-275) {
tmp = y * (z / a);
} else if (t <= 1e+42) {
tmp = t_1;
} else {
tmp = y;
}
return tmp;
}
def code(x, y, z, t, a): t_1 = x * (1.0 - (z / a)) tmp = 0 if t <= -3.4e+28: tmp = t * (y / (t - a)) elif t <= 3.2e-301: tmp = t_1 elif t <= 2.5e-275: tmp = y * (z / a) elif t <= 1e+42: tmp = t_1 else: tmp = y return tmp
function code(x, y, z, t, a) t_1 = Float64(x * Float64(1.0 - Float64(z / a))) tmp = 0.0 if (t <= -3.4e+28) tmp = Float64(t * Float64(y / Float64(t - a))); elseif (t <= 3.2e-301) tmp = t_1; elseif (t <= 2.5e-275) tmp = Float64(y * Float64(z / a)); elseif (t <= 1e+42) tmp = t_1; else tmp = y; end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = x * (1.0 - (z / a)); tmp = 0.0; if (t <= -3.4e+28) tmp = t * (y / (t - a)); elseif (t <= 3.2e-301) tmp = t_1; elseif (t <= 2.5e-275) tmp = y * (z / a); elseif (t <= 1e+42) tmp = t_1; else tmp = y; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(x * N[(1.0 - N[(z / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t, -3.4e+28], N[(t * N[(y / N[(t - a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 3.2e-301], t$95$1, If[LessEqual[t, 2.5e-275], N[(y * N[(z / a), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 1e+42], t$95$1, y]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x \cdot \left(1 - \frac{z}{a}\right)\\
\mathbf{if}\;t \leq -3.4 \cdot 10^{+28}:\\
\;\;\;\;t \cdot \frac{y}{t - a}\\
\mathbf{elif}\;t \leq 3.2 \cdot 10^{-301}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t \leq 2.5 \cdot 10^{-275}:\\
\;\;\;\;y \cdot \frac{z}{a}\\
\mathbf{elif}\;t \leq 10^{+42}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;y\\
\end{array}
\end{array}
if t < -3.4e28Initial program 50.6%
+-commutative50.6%
associate-/l*72.0%
fma-define72.1%
Simplified72.1%
clear-num72.0%
inv-pow72.0%
Applied egg-rr72.0%
unpow-172.0%
Simplified72.0%
Taylor expanded in y around -inf 39.1%
Taylor expanded in z around 0 31.4%
mul-1-neg31.4%
associate-/l*43.9%
distribute-rgt-neg-in43.9%
distribute-neg-frac243.9%
Simplified43.9%
if -3.4e28 < t < 3.1999999999999999e-301 or 2.49999999999999992e-275 < t < 1.00000000000000004e42Initial program 86.9%
Taylor expanded in x around inf 61.4%
mul-1-neg61.4%
unsub-neg61.4%
Simplified61.4%
Taylor expanded in t around 0 57.8%
if 3.1999999999999999e-301 < t < 2.49999999999999992e-275Initial program 84.4%
+-commutative84.4%
associate-/l*100.0%
fma-define100.0%
Simplified100.0%
clear-num99.7%
inv-pow99.7%
Applied egg-rr99.7%
unpow-199.7%
Simplified99.7%
Taylor expanded in y around -inf 84.4%
Taylor expanded in t around 0 69.7%
associate-/l*85.3%
Simplified85.3%
if 1.00000000000000004e42 < t Initial program 41.6%
Taylor expanded in t around inf 53.6%
Final simplification54.0%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (* x (- 1.0 (/ z a)))) (t_2 (* y (/ (- t z) t))))
(if (<= t -3.8e+86)
t_2
(if (<= t 2.2e-301)
t_1
(if (<= t 6.2e-279) (* y (/ z a)) (if (<= t 3.3e-68) t_1 t_2))))))
double code(double x, double y, double z, double t, double a) {
double t_1 = x * (1.0 - (z / a));
double t_2 = y * ((t - z) / t);
double tmp;
if (t <= -3.8e+86) {
tmp = t_2;
} else if (t <= 2.2e-301) {
tmp = t_1;
} else if (t <= 6.2e-279) {
tmp = y * (z / a);
} else if (t <= 3.3e-68) {
tmp = 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 = x * (1.0d0 - (z / a))
t_2 = y * ((t - z) / t)
if (t <= (-3.8d+86)) then
tmp = t_2
else if (t <= 2.2d-301) then
tmp = t_1
else if (t <= 6.2d-279) then
tmp = y * (z / a)
else if (t <= 3.3d-68) then
tmp = 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 = x * (1.0 - (z / a));
double t_2 = y * ((t - z) / t);
double tmp;
if (t <= -3.8e+86) {
tmp = t_2;
} else if (t <= 2.2e-301) {
tmp = t_1;
} else if (t <= 6.2e-279) {
tmp = y * (z / a);
} else if (t <= 3.3e-68) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a): t_1 = x * (1.0 - (z / a)) t_2 = y * ((t - z) / t) tmp = 0 if t <= -3.8e+86: tmp = t_2 elif t <= 2.2e-301: tmp = t_1 elif t <= 6.2e-279: tmp = y * (z / a) elif t <= 3.3e-68: tmp = t_1 else: tmp = t_2 return tmp
function code(x, y, z, t, a) t_1 = Float64(x * Float64(1.0 - Float64(z / a))) t_2 = Float64(y * Float64(Float64(t - z) / t)) tmp = 0.0 if (t <= -3.8e+86) tmp = t_2; elseif (t <= 2.2e-301) tmp = t_1; elseif (t <= 6.2e-279) tmp = Float64(y * Float64(z / a)); elseif (t <= 3.3e-68) tmp = t_1; else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = x * (1.0 - (z / a)); t_2 = y * ((t - z) / t); tmp = 0.0; if (t <= -3.8e+86) tmp = t_2; elseif (t <= 2.2e-301) tmp = t_1; elseif (t <= 6.2e-279) tmp = y * (z / a); elseif (t <= 3.3e-68) tmp = t_1; else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(x * N[(1.0 - N[(z / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(y * N[(N[(t - z), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t, -3.8e+86], t$95$2, If[LessEqual[t, 2.2e-301], t$95$1, If[LessEqual[t, 6.2e-279], N[(y * N[(z / a), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 3.3e-68], t$95$1, t$95$2]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x \cdot \left(1 - \frac{z}{a}\right)\\
t_2 := y \cdot \frac{t - z}{t}\\
\mathbf{if}\;t \leq -3.8 \cdot 10^{+86}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t \leq 2.2 \cdot 10^{-301}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t \leq 6.2 \cdot 10^{-279}:\\
\;\;\;\;y \cdot \frac{z}{a}\\
\mathbf{elif}\;t \leq 3.3 \cdot 10^{-68}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if t < -3.79999999999999978e86 or 3.2999999999999998e-68 < t Initial program 47.6%
+-commutative47.6%
associate-/l*75.5%
fma-define75.6%
Simplified75.6%
clear-num75.5%
inv-pow75.5%
Applied egg-rr75.5%
unpow-175.5%
Simplified75.5%
Taylor expanded in y around -inf 43.2%
Taylor expanded in a around 0 38.6%
mul-1-neg38.6%
associate-/l*57.5%
distribute-lft-neg-in57.5%
Simplified57.5%
if -3.79999999999999978e86 < t < 2.2e-301 or 6.1999999999999998e-279 < t < 3.2999999999999998e-68Initial program 85.8%
Taylor expanded in x around inf 61.7%
mul-1-neg61.7%
unsub-neg61.7%
Simplified61.7%
Taylor expanded in t around 0 57.5%
if 2.2e-301 < t < 6.1999999999999998e-279Initial program 84.4%
+-commutative84.4%
associate-/l*100.0%
fma-define100.0%
Simplified100.0%
clear-num99.7%
inv-pow99.7%
Applied egg-rr99.7%
unpow-199.7%
Simplified99.7%
Taylor expanded in y around -inf 84.4%
Taylor expanded in t around 0 69.7%
associate-/l*85.3%
Simplified85.3%
Final simplification58.1%
(FPCore (x y z t a)
:precision binary64
(if (<= t -3.9e+245)
(- y (* (/ x t) (- a z)))
(if (<= t -1.32e+26)
(* y (/ (- z t) (- a t)))
(if (<= t 5200000.0)
(+ x (* z (/ (- y x) a)))
(+ y (* (/ z t) (- x y)))))))
double code(double x, double y, double z, double t, double a) {
double tmp;
if (t <= -3.9e+245) {
tmp = y - ((x / t) * (a - z));
} else if (t <= -1.32e+26) {
tmp = y * ((z - t) / (a - t));
} else if (t <= 5200000.0) {
tmp = x + (z * ((y - x) / a));
} else {
tmp = y + ((z / t) * (x - y));
}
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 <= (-3.9d+245)) then
tmp = y - ((x / t) * (a - z))
else if (t <= (-1.32d+26)) then
tmp = y * ((z - t) / (a - t))
else if (t <= 5200000.0d0) then
tmp = x + (z * ((y - x) / a))
else
tmp = y + ((z / t) * (x - y))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double tmp;
if (t <= -3.9e+245) {
tmp = y - ((x / t) * (a - z));
} else if (t <= -1.32e+26) {
tmp = y * ((z - t) / (a - t));
} else if (t <= 5200000.0) {
tmp = x + (z * ((y - x) / a));
} else {
tmp = y + ((z / t) * (x - y));
}
return tmp;
}
def code(x, y, z, t, a): tmp = 0 if t <= -3.9e+245: tmp = y - ((x / t) * (a - z)) elif t <= -1.32e+26: tmp = y * ((z - t) / (a - t)) elif t <= 5200000.0: tmp = x + (z * ((y - x) / a)) else: tmp = y + ((z / t) * (x - y)) return tmp
function code(x, y, z, t, a) tmp = 0.0 if (t <= -3.9e+245) tmp = Float64(y - Float64(Float64(x / t) * Float64(a - z))); elseif (t <= -1.32e+26) tmp = Float64(y * Float64(Float64(z - t) / Float64(a - t))); elseif (t <= 5200000.0) tmp = Float64(x + Float64(z * Float64(Float64(y - x) / a))); else tmp = Float64(y + Float64(Float64(z / t) * Float64(x - y))); end return tmp end
function tmp_2 = code(x, y, z, t, a) tmp = 0.0; if (t <= -3.9e+245) tmp = y - ((x / t) * (a - z)); elseif (t <= -1.32e+26) tmp = y * ((z - t) / (a - t)); elseif (t <= 5200000.0) tmp = x + (z * ((y - x) / a)); else tmp = y + ((z / t) * (x - y)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := If[LessEqual[t, -3.9e+245], N[(y - N[(N[(x / t), $MachinePrecision] * N[(a - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -1.32e+26], N[(y * N[(N[(z - t), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 5200000.0], N[(x + N[(z * N[(N[(y - x), $MachinePrecision] / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y + N[(N[(z / t), $MachinePrecision] * N[(x - y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq -3.9 \cdot 10^{+245}:\\
\;\;\;\;y - \frac{x}{t} \cdot \left(a - z\right)\\
\mathbf{elif}\;t \leq -1.32 \cdot 10^{+26}:\\
\;\;\;\;y \cdot \frac{z - t}{a - t}\\
\mathbf{elif}\;t \leq 5200000:\\
\;\;\;\;x + z \cdot \frac{y - x}{a}\\
\mathbf{else}:\\
\;\;\;\;y + \frac{z}{t} \cdot \left(x - y\right)\\
\end{array}
\end{array}
if t < -3.8999999999999998e245Initial program 15.3%
Taylor expanded in t around inf 40.3%
associate--l+40.3%
distribute-lft-out--40.3%
div-sub40.3%
mul-1-neg40.3%
unsub-neg40.3%
div-sub40.3%
associate-/l*64.1%
associate-/l*88.3%
distribute-rgt-out--88.3%
Simplified88.3%
Taylor expanded in y around 0 88.3%
neg-mul-188.3%
distribute-neg-frac288.3%
Simplified88.3%
if -3.8999999999999998e245 < t < -1.32e26Initial program 56.5%
+-commutative56.5%
associate-/l*78.6%
fma-define78.7%
Simplified78.7%
clear-num78.6%
inv-pow78.6%
Applied egg-rr78.6%
unpow-178.6%
Simplified78.6%
Taylor expanded in y around inf 65.4%
div-sub65.4%
Simplified65.4%
if -1.32e26 < t < 5.2e6Initial program 87.0%
Taylor expanded in t around 0 68.9%
associate-/l*72.7%
Simplified72.7%
if 5.2e6 < t Initial program 44.4%
Taylor expanded in t around inf 64.1%
associate--l+64.1%
distribute-lft-out--64.1%
div-sub64.1%
mul-1-neg64.1%
unsub-neg64.1%
div-sub64.1%
associate-/l*73.5%
associate-/l*82.7%
distribute-rgt-out--82.7%
Simplified82.7%
Taylor expanded in z around inf 66.3%
*-commutative66.3%
associate-/l*78.8%
Simplified78.8%
Final simplification73.2%
(FPCore (x y z t a)
:precision binary64
(if (<= t -3.8e+86)
y
(if (<= t -3e-239)
x
(if (<= t 2.9e-263) (* y (/ z a)) (if (<= t 1.35e-67) x y)))))
double code(double x, double y, double z, double t, double a) {
double tmp;
if (t <= -3.8e+86) {
tmp = y;
} else if (t <= -3e-239) {
tmp = x;
} else if (t <= 2.9e-263) {
tmp = y * (z / a);
} else if (t <= 1.35e-67) {
tmp = x;
} else {
tmp = y;
}
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 <= (-3.8d+86)) then
tmp = y
else if (t <= (-3d-239)) then
tmp = x
else if (t <= 2.9d-263) then
tmp = y * (z / a)
else if (t <= 1.35d-67) then
tmp = x
else
tmp = y
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double tmp;
if (t <= -3.8e+86) {
tmp = y;
} else if (t <= -3e-239) {
tmp = x;
} else if (t <= 2.9e-263) {
tmp = y * (z / a);
} else if (t <= 1.35e-67) {
tmp = x;
} else {
tmp = y;
}
return tmp;
}
def code(x, y, z, t, a): tmp = 0 if t <= -3.8e+86: tmp = y elif t <= -3e-239: tmp = x elif t <= 2.9e-263: tmp = y * (z / a) elif t <= 1.35e-67: tmp = x else: tmp = y return tmp
function code(x, y, z, t, a) tmp = 0.0 if (t <= -3.8e+86) tmp = y; elseif (t <= -3e-239) tmp = x; elseif (t <= 2.9e-263) tmp = Float64(y * Float64(z / a)); elseif (t <= 1.35e-67) tmp = x; else tmp = y; end return tmp end
function tmp_2 = code(x, y, z, t, a) tmp = 0.0; if (t <= -3.8e+86) tmp = y; elseif (t <= -3e-239) tmp = x; elseif (t <= 2.9e-263) tmp = y * (z / a); elseif (t <= 1.35e-67) tmp = x; else tmp = y; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := If[LessEqual[t, -3.8e+86], y, If[LessEqual[t, -3e-239], x, If[LessEqual[t, 2.9e-263], N[(y * N[(z / a), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 1.35e-67], x, y]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq -3.8 \cdot 10^{+86}:\\
\;\;\;\;y\\
\mathbf{elif}\;t \leq -3 \cdot 10^{-239}:\\
\;\;\;\;x\\
\mathbf{elif}\;t \leq 2.9 \cdot 10^{-263}:\\
\;\;\;\;y \cdot \frac{z}{a}\\
\mathbf{elif}\;t \leq 1.35 \cdot 10^{-67}:\\
\;\;\;\;x\\
\mathbf{else}:\\
\;\;\;\;y\\
\end{array}
\end{array}
if t < -3.79999999999999978e86 or 1.35000000000000008e-67 < t Initial program 47.6%
Taylor expanded in t around inf 46.2%
if -3.79999999999999978e86 < t < -2.9999999999999998e-239 or 2.90000000000000004e-263 < t < 1.35000000000000008e-67Initial program 84.5%
Taylor expanded in a around inf 45.2%
if -2.9999999999999998e-239 < t < 2.90000000000000004e-263Initial program 91.6%
+-commutative91.6%
associate-/l*91.9%
fma-define91.9%
Simplified91.9%
clear-num91.8%
inv-pow91.8%
Applied egg-rr91.8%
unpow-191.8%
Simplified91.8%
Taylor expanded in y around -inf 49.3%
Taylor expanded in t around 0 41.4%
associate-/l*50.0%
Simplified50.0%
Final simplification46.1%
(FPCore (x y z t a) :precision binary64 (if (or (<= y -0.007) (not (<= y 3.5e+36))) (* y (/ (- z t) (- a t))) (* x (- 1.0 (/ z a)))))
double code(double x, double y, double z, double t, double a) {
double tmp;
if ((y <= -0.007) || !(y <= 3.5e+36)) {
tmp = y * ((z - t) / (a - t));
} else {
tmp = x * (1.0 - (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 <= (-0.007d0)) .or. (.not. (y <= 3.5d+36))) then
tmp = y * ((z - t) / (a - t))
else
tmp = x * (1.0d0 - (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 <= -0.007) || !(y <= 3.5e+36)) {
tmp = y * ((z - t) / (a - t));
} else {
tmp = x * (1.0 - (z / a));
}
return tmp;
}
def code(x, y, z, t, a): tmp = 0 if (y <= -0.007) or not (y <= 3.5e+36): tmp = y * ((z - t) / (a - t)) else: tmp = x * (1.0 - (z / a)) return tmp
function code(x, y, z, t, a) tmp = 0.0 if ((y <= -0.007) || !(y <= 3.5e+36)) tmp = Float64(y * Float64(Float64(z - t) / Float64(a - t))); else tmp = Float64(x * Float64(1.0 - Float64(z / a))); end return tmp end
function tmp_2 = code(x, y, z, t, a) tmp = 0.0; if ((y <= -0.007) || ~((y <= 3.5e+36))) tmp = y * ((z - t) / (a - t)); else tmp = x * (1.0 - (z / a)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := If[Or[LessEqual[y, -0.007], N[Not[LessEqual[y, 3.5e+36]], $MachinePrecision]], N[(y * N[(N[(z - t), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x * N[(1.0 - N[(z / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -0.007 \lor \neg \left(y \leq 3.5 \cdot 10^{+36}\right):\\
\;\;\;\;y \cdot \frac{z - t}{a - t}\\
\mathbf{else}:\\
\;\;\;\;x \cdot \left(1 - \frac{z}{a}\right)\\
\end{array}
\end{array}
if y < -0.00700000000000000015 or 3.4999999999999998e36 < y Initial program 61.5%
+-commutative61.5%
associate-/l*92.2%
fma-define92.3%
Simplified92.3%
clear-num92.2%
inv-pow92.2%
Applied egg-rr92.2%
unpow-192.2%
Simplified92.2%
Taylor expanded in y around inf 82.8%
div-sub82.8%
Simplified82.8%
if -0.00700000000000000015 < y < 3.4999999999999998e36Initial program 71.8%
Taylor expanded in x around inf 58.7%
mul-1-neg58.7%
unsub-neg58.7%
Simplified58.7%
Taylor expanded in t around 0 50.5%
Final simplification65.6%
(FPCore (x y z t a) :precision binary64 (if (or (<= t -1.25e+27) (not (<= t 8.6e-101))) (* y (/ (- z t) (- a t))) (+ x (* z (/ (- y x) a)))))
double code(double x, double y, double z, double t, double a) {
double tmp;
if ((t <= -1.25e+27) || !(t <= 8.6e-101)) {
tmp = y * ((z - t) / (a - t));
} else {
tmp = x + (z * ((y - x) / 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 <= (-1.25d+27)) .or. (.not. (t <= 8.6d-101))) then
tmp = y * ((z - t) / (a - t))
else
tmp = x + (z * ((y - x) / 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 <= -1.25e+27) || !(t <= 8.6e-101)) {
tmp = y * ((z - t) / (a - t));
} else {
tmp = x + (z * ((y - x) / a));
}
return tmp;
}
def code(x, y, z, t, a): tmp = 0 if (t <= -1.25e+27) or not (t <= 8.6e-101): tmp = y * ((z - t) / (a - t)) else: tmp = x + (z * ((y - x) / a)) return tmp
function code(x, y, z, t, a) tmp = 0.0 if ((t <= -1.25e+27) || !(t <= 8.6e-101)) tmp = Float64(y * Float64(Float64(z - t) / Float64(a - t))); else tmp = Float64(x + Float64(z * Float64(Float64(y - x) / a))); end return tmp end
function tmp_2 = code(x, y, z, t, a) tmp = 0.0; if ((t <= -1.25e+27) || ~((t <= 8.6e-101))) tmp = y * ((z - t) / (a - t)); else tmp = x + (z * ((y - x) / a)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := If[Or[LessEqual[t, -1.25e+27], N[Not[LessEqual[t, 8.6e-101]], $MachinePrecision]], N[(y * N[(N[(z - t), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x + N[(z * N[(N[(y - x), $MachinePrecision] / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq -1.25 \cdot 10^{+27} \lor \neg \left(t \leq 8.6 \cdot 10^{-101}\right):\\
\;\;\;\;y \cdot \frac{z - t}{a - t}\\
\mathbf{else}:\\
\;\;\;\;x + z \cdot \frac{y - x}{a}\\
\end{array}
\end{array}
if t < -1.24999999999999995e27 or 8.5999999999999995e-101 < t Initial program 50.9%
+-commutative50.9%
associate-/l*75.8%
fma-define75.9%
Simplified75.9%
clear-num75.9%
inv-pow75.9%
Applied egg-rr75.9%
unpow-175.9%
Simplified75.9%
Taylor expanded in y around inf 64.7%
div-sub64.7%
Simplified64.7%
if -1.24999999999999995e27 < t < 8.5999999999999995e-101Initial program 88.0%
Taylor expanded in t around 0 72.5%
associate-/l*75.1%
Simplified75.1%
Final simplification69.3%
(FPCore (x y z t a) :precision binary64 (if (or (<= t -3.1e+25) (not (<= t 15500000000.0))) (+ y (* (/ z t) (- x y))) (+ x (* z (/ (- y x) a)))))
double code(double x, double y, double z, double t, double a) {
double tmp;
if ((t <= -3.1e+25) || !(t <= 15500000000.0)) {
tmp = y + ((z / t) * (x - y));
} else {
tmp = x + (z * ((y - x) / 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 <= (-3.1d+25)) .or. (.not. (t <= 15500000000.0d0))) then
tmp = y + ((z / t) * (x - y))
else
tmp = x + (z * ((y - x) / 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 <= -3.1e+25) || !(t <= 15500000000.0)) {
tmp = y + ((z / t) * (x - y));
} else {
tmp = x + (z * ((y - x) / a));
}
return tmp;
}
def code(x, y, z, t, a): tmp = 0 if (t <= -3.1e+25) or not (t <= 15500000000.0): tmp = y + ((z / t) * (x - y)) else: tmp = x + (z * ((y - x) / a)) return tmp
function code(x, y, z, t, a) tmp = 0.0 if ((t <= -3.1e+25) || !(t <= 15500000000.0)) tmp = Float64(y + Float64(Float64(z / t) * Float64(x - y))); else tmp = Float64(x + Float64(z * Float64(Float64(y - x) / a))); end return tmp end
function tmp_2 = code(x, y, z, t, a) tmp = 0.0; if ((t <= -3.1e+25) || ~((t <= 15500000000.0))) tmp = y + ((z / t) * (x - y)); else tmp = x + (z * ((y - x) / a)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := If[Or[LessEqual[t, -3.1e+25], N[Not[LessEqual[t, 15500000000.0]], $MachinePrecision]], N[(y + N[(N[(z / t), $MachinePrecision] * N[(x - y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x + N[(z * N[(N[(y - x), $MachinePrecision] / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq -3.1 \cdot 10^{+25} \lor \neg \left(t \leq 15500000000\right):\\
\;\;\;\;y + \frac{z}{t} \cdot \left(x - y\right)\\
\mathbf{else}:\\
\;\;\;\;x + z \cdot \frac{y - x}{a}\\
\end{array}
\end{array}
if t < -3.0999999999999998e25 or 1.55e10 < t Initial program 47.8%
Taylor expanded in t around inf 62.3%
associate--l+62.3%
distribute-lft-out--62.3%
div-sub62.3%
mul-1-neg62.3%
unsub-neg62.3%
div-sub62.3%
associate-/l*70.1%
associate-/l*76.3%
distribute-rgt-out--76.3%
Simplified76.3%
Taylor expanded in z around inf 60.0%
*-commutative60.0%
associate-/l*70.5%
Simplified70.5%
if -3.0999999999999998e25 < t < 1.55e10Initial program 87.0%
Taylor expanded in t around 0 68.9%
associate-/l*72.7%
Simplified72.7%
Final simplification71.6%
(FPCore (x y z t a) :precision binary64 (if (<= t -4.4e+86) y (if (<= t 1.35e-67) x y)))
double code(double x, double y, double z, double t, double a) {
double tmp;
if (t <= -4.4e+86) {
tmp = y;
} else if (t <= 1.35e-67) {
tmp = x;
} else {
tmp = y;
}
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 <= (-4.4d+86)) then
tmp = y
else if (t <= 1.35d-67) then
tmp = x
else
tmp = y
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double tmp;
if (t <= -4.4e+86) {
tmp = y;
} else if (t <= 1.35e-67) {
tmp = x;
} else {
tmp = y;
}
return tmp;
}
def code(x, y, z, t, a): tmp = 0 if t <= -4.4e+86: tmp = y elif t <= 1.35e-67: tmp = x else: tmp = y return tmp
function code(x, y, z, t, a) tmp = 0.0 if (t <= -4.4e+86) tmp = y; elseif (t <= 1.35e-67) tmp = x; else tmp = y; end return tmp end
function tmp_2 = code(x, y, z, t, a) tmp = 0.0; if (t <= -4.4e+86) tmp = y; elseif (t <= 1.35e-67) tmp = x; else tmp = y; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := If[LessEqual[t, -4.4e+86], y, If[LessEqual[t, 1.35e-67], x, y]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq -4.4 \cdot 10^{+86}:\\
\;\;\;\;y\\
\mathbf{elif}\;t \leq 1.35 \cdot 10^{-67}:\\
\;\;\;\;x\\
\mathbf{else}:\\
\;\;\;\;y\\
\end{array}
\end{array}
if t < -4.40000000000000006e86 or 1.35000000000000008e-67 < t Initial program 47.6%
Taylor expanded in t around inf 46.2%
if -4.40000000000000006e86 < t < 1.35000000000000008e-67Initial program 85.8%
Taylor expanded in a around inf 41.5%
Final simplification43.8%
(FPCore (x y z t a) :precision binary64 x)
double code(double x, double y, double z, double t, double a) {
return x;
}
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
end function
public static double code(double x, double y, double z, double t, double a) {
return x;
}
def code(x, y, z, t, a): return x
function code(x, y, z, t, a) return x end
function tmp = code(x, y, z, t, a) tmp = x; end
code[x_, y_, z_, t_, a_] := x
\begin{array}{l}
\\
x
\end{array}
Initial program 67.0%
Taylor expanded in a around inf 27.4%
Final simplification27.4%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (+ x (* (/ (- y x) 1.0) (/ (- z t) (- a t))))))
(if (< a -1.6153062845442575e-142)
t_1
(if (< a 3.774403170083174e-182) (- y (* (/ z t) (- y x))) t_1))))
double code(double x, double y, double z, double t, double a) {
double t_1 = x + (((y - x) / 1.0) * ((z - t) / (a - t)));
double tmp;
if (a < -1.6153062845442575e-142) {
tmp = t_1;
} else if (a < 3.774403170083174e-182) {
tmp = y - ((z / t) * (y - x));
} else {
tmp = t_1;
}
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 = x + (((y - x) / 1.0d0) * ((z - t) / (a - t)))
if (a < (-1.6153062845442575d-142)) then
tmp = t_1
else if (a < 3.774403170083174d-182) then
tmp = y - ((z / t) * (y - x))
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double t_1 = x + (((y - x) / 1.0) * ((z - t) / (a - t)));
double tmp;
if (a < -1.6153062845442575e-142) {
tmp = t_1;
} else if (a < 3.774403170083174e-182) {
tmp = y - ((z / t) * (y - x));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a): t_1 = x + (((y - x) / 1.0) * ((z - t) / (a - t))) tmp = 0 if a < -1.6153062845442575e-142: tmp = t_1 elif a < 3.774403170083174e-182: tmp = y - ((z / t) * (y - x)) else: tmp = t_1 return tmp
function code(x, y, z, t, a) t_1 = Float64(x + Float64(Float64(Float64(y - x) / 1.0) * Float64(Float64(z - t) / Float64(a - t)))) tmp = 0.0 if (a < -1.6153062845442575e-142) tmp = t_1; elseif (a < 3.774403170083174e-182) tmp = Float64(y - Float64(Float64(z / t) * Float64(y - x))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = x + (((y - x) / 1.0) * ((z - t) / (a - t))); tmp = 0.0; if (a < -1.6153062845442575e-142) tmp = t_1; elseif (a < 3.774403170083174e-182) tmp = y - ((z / t) * (y - x)); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(x + N[(N[(N[(y - x), $MachinePrecision] / 1.0), $MachinePrecision] * N[(N[(z - t), $MachinePrecision] / N[(a - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[Less[a, -1.6153062845442575e-142], t$95$1, If[Less[a, 3.774403170083174e-182], N[(y - N[(N[(z / t), $MachinePrecision] * N[(y - x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x + \frac{y - x}{1} \cdot \frac{z - t}{a - t}\\
\mathbf{if}\;a < -1.6153062845442575 \cdot 10^{-142}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a < 3.774403170083174 \cdot 10^{-182}:\\
\;\;\;\;y - \frac{z}{t} \cdot \left(y - x\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
herbie shell --seed 2024079
(FPCore (x y z t a)
:name "Graphics.Rendering.Chart.Axis.Types:linMap from Chart-1.5.3"
:precision binary64
:alt
(if (< a -1.6153062845442575e-142) (+ x (* (/ (- y x) 1.0) (/ (- z t) (- a t)))) (if (< a 3.774403170083174e-182) (- y (* (/ z t) (- y x))) (+ x (* (/ (- y x) 1.0) (/ (- z t) (- a t))))))
(+ x (/ (* (- y x) (- z t)) (- a t))))