
(FPCore (x y z t a) :precision binary64 (+ (/ (* 60.0 (- x y)) (- z t)) (* a 120.0)))
double code(double x, double y, double z, double t, double a) {
return ((60.0 * (x - y)) / (z - t)) + (a * 120.0);
}
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 = ((60.0d0 * (x - y)) / (z - t)) + (a * 120.0d0)
end function
public static double code(double x, double y, double z, double t, double a) {
return ((60.0 * (x - y)) / (z - t)) + (a * 120.0);
}
def code(x, y, z, t, a): return ((60.0 * (x - y)) / (z - t)) + (a * 120.0)
function code(x, y, z, t, a) return Float64(Float64(Float64(60.0 * Float64(x - y)) / Float64(z - t)) + Float64(a * 120.0)) end
function tmp = code(x, y, z, t, a) tmp = ((60.0 * (x - y)) / (z - t)) + (a * 120.0); end
code[x_, y_, z_, t_, a_] := N[(N[(N[(60.0 * N[(x - y), $MachinePrecision]), $MachinePrecision] / N[(z - t), $MachinePrecision]), $MachinePrecision] + N[(a * 120.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{60 \cdot \left(x - y\right)}{z - t} + a \cdot 120
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 17 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z t a) :precision binary64 (+ (/ (* 60.0 (- x y)) (- z t)) (* a 120.0)))
double code(double x, double y, double z, double t, double a) {
return ((60.0 * (x - y)) / (z - t)) + (a * 120.0);
}
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 = ((60.0d0 * (x - y)) / (z - t)) + (a * 120.0d0)
end function
public static double code(double x, double y, double z, double t, double a) {
return ((60.0 * (x - y)) / (z - t)) + (a * 120.0);
}
def code(x, y, z, t, a): return ((60.0 * (x - y)) / (z - t)) + (a * 120.0)
function code(x, y, z, t, a) return Float64(Float64(Float64(60.0 * Float64(x - y)) / Float64(z - t)) + Float64(a * 120.0)) end
function tmp = code(x, y, z, t, a) tmp = ((60.0 * (x - y)) / (z - t)) + (a * 120.0); end
code[x_, y_, z_, t_, a_] := N[(N[(N[(60.0 * N[(x - y), $MachinePrecision]), $MachinePrecision] / N[(z - t), $MachinePrecision]), $MachinePrecision] + N[(a * 120.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{60 \cdot \left(x - y\right)}{z - t} + a \cdot 120
\end{array}
(FPCore (x y z t a) :precision binary64 (fma a 120.0 (* (- x y) (/ -60.0 (- t z)))))
double code(double x, double y, double z, double t, double a) {
return fma(a, 120.0, ((x - y) * (-60.0 / (t - z))));
}
function code(x, y, z, t, a) return fma(a, 120.0, Float64(Float64(x - y) * Float64(-60.0 / Float64(t - z)))) end
code[x_, y_, z_, t_, a_] := N[(a * 120.0 + N[(N[(x - y), $MachinePrecision] * N[(-60.0 / N[(t - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(a, 120, \left(x - y\right) \cdot \frac{-60}{t - z}\right)
\end{array}
Initial program 99.4%
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lower-fma.f6499.4
lift-/.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
frac-2negN/A
lower-/.f64N/A
metadata-evalN/A
neg-sub0N/A
lift--.f64N/A
sub-negN/A
+-commutativeN/A
associate--r+N/A
neg-sub0N/A
remove-double-negN/A
lower--.f6499.8
Applied rewrites99.8%
Final simplification99.8%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (/ (* 60.0 (- x y)) (- z t))))
(if (<= t_1 -2e+124)
(/ (- x y) (* 0.016666666666666666 (- z t)))
(if (<= t_1 2e+50) (fma (/ x (- z t)) 60.0 (* 120.0 a)) t_1))))
double code(double x, double y, double z, double t, double a) {
double t_1 = (60.0 * (x - y)) / (z - t);
double tmp;
if (t_1 <= -2e+124) {
tmp = (x - y) / (0.016666666666666666 * (z - t));
} else if (t_1 <= 2e+50) {
tmp = fma((x / (z - t)), 60.0, (120.0 * a));
} else {
tmp = t_1;
}
return tmp;
}
function code(x, y, z, t, a) t_1 = Float64(Float64(60.0 * Float64(x - y)) / Float64(z - t)) tmp = 0.0 if (t_1 <= -2e+124) tmp = Float64(Float64(x - y) / Float64(0.016666666666666666 * Float64(z - t))); elseif (t_1 <= 2e+50) tmp = fma(Float64(x / Float64(z - t)), 60.0, Float64(120.0 * a)); else tmp = t_1; end return tmp end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(N[(60.0 * N[(x - y), $MachinePrecision]), $MachinePrecision] / N[(z - t), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, -2e+124], N[(N[(x - y), $MachinePrecision] / N[(0.016666666666666666 * N[(z - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, 2e+50], N[(N[(x / N[(z - t), $MachinePrecision]), $MachinePrecision] * 60.0 + N[(120.0 * a), $MachinePrecision]), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{60 \cdot \left(x - y\right)}{z - t}\\
\mathbf{if}\;t\_1 \leq -2 \cdot 10^{+124}:\\
\;\;\;\;\frac{x - y}{0.016666666666666666 \cdot \left(z - t\right)}\\
\mathbf{elif}\;t\_1 \leq 2 \cdot 10^{+50}:\\
\;\;\;\;\mathsf{fma}\left(\frac{x}{z - t}, 60, 120 \cdot a\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) < -1.9999999999999999e124Initial program 97.4%
Taylor expanded in a around 0
associate-*r/N/A
*-commutativeN/A
associate-/l*N/A
metadata-evalN/A
associate-*r/N/A
lower-*.f64N/A
lower--.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f64N/A
lower--.f6489.2
Applied rewrites89.2%
Applied rewrites89.2%
if -1.9999999999999999e124 < (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) < 2.0000000000000002e50Initial program 99.8%
Taylor expanded in y around 0
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower--.f64N/A
*-commutativeN/A
lower-*.f6488.1
Applied rewrites88.1%
if 2.0000000000000002e50 < (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) Initial program 99.7%
Taylor expanded in a around 0
associate-*r/N/A
*-commutativeN/A
associate-/l*N/A
metadata-evalN/A
associate-*r/N/A
lower-*.f64N/A
lower--.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f64N/A
lower--.f6478.3
Applied rewrites78.3%
Applied rewrites78.5%
Final simplification86.2%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (/ (* 60.0 (- x y)) (- z t))))
(if (<= t_1 -5e+114)
(* (/ -60.0 t) (- x y))
(if (<= t_1 2e+32) (* 120.0 a) (/ (- x y) (* 0.016666666666666666 z))))))
double code(double x, double y, double z, double t, double a) {
double t_1 = (60.0 * (x - y)) / (z - t);
double tmp;
if (t_1 <= -5e+114) {
tmp = (-60.0 / t) * (x - y);
} else if (t_1 <= 2e+32) {
tmp = 120.0 * a;
} else {
tmp = (x - y) / (0.016666666666666666 * z);
}
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 = (60.0d0 * (x - y)) / (z - t)
if (t_1 <= (-5d+114)) then
tmp = ((-60.0d0) / t) * (x - y)
else if (t_1 <= 2d+32) then
tmp = 120.0d0 * a
else
tmp = (x - y) / (0.016666666666666666d0 * z)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double t_1 = (60.0 * (x - y)) / (z - t);
double tmp;
if (t_1 <= -5e+114) {
tmp = (-60.0 / t) * (x - y);
} else if (t_1 <= 2e+32) {
tmp = 120.0 * a;
} else {
tmp = (x - y) / (0.016666666666666666 * z);
}
return tmp;
}
def code(x, y, z, t, a): t_1 = (60.0 * (x - y)) / (z - t) tmp = 0 if t_1 <= -5e+114: tmp = (-60.0 / t) * (x - y) elif t_1 <= 2e+32: tmp = 120.0 * a else: tmp = (x - y) / (0.016666666666666666 * z) return tmp
function code(x, y, z, t, a) t_1 = Float64(Float64(60.0 * Float64(x - y)) / Float64(z - t)) tmp = 0.0 if (t_1 <= -5e+114) tmp = Float64(Float64(-60.0 / t) * Float64(x - y)); elseif (t_1 <= 2e+32) tmp = Float64(120.0 * a); else tmp = Float64(Float64(x - y) / Float64(0.016666666666666666 * z)); end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = (60.0 * (x - y)) / (z - t); tmp = 0.0; if (t_1 <= -5e+114) tmp = (-60.0 / t) * (x - y); elseif (t_1 <= 2e+32) tmp = 120.0 * a; else tmp = (x - y) / (0.016666666666666666 * z); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(N[(60.0 * N[(x - y), $MachinePrecision]), $MachinePrecision] / N[(z - t), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, -5e+114], N[(N[(-60.0 / t), $MachinePrecision] * N[(x - y), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, 2e+32], N[(120.0 * a), $MachinePrecision], N[(N[(x - y), $MachinePrecision] / N[(0.016666666666666666 * z), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{60 \cdot \left(x - y\right)}{z - t}\\
\mathbf{if}\;t\_1 \leq -5 \cdot 10^{+114}:\\
\;\;\;\;\frac{-60}{t} \cdot \left(x - y\right)\\
\mathbf{elif}\;t\_1 \leq 2 \cdot 10^{+32}:\\
\;\;\;\;120 \cdot a\\
\mathbf{else}:\\
\;\;\;\;\frac{x - y}{0.016666666666666666 \cdot z}\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) < -5.0000000000000001e114Initial program 97.5%
Taylor expanded in a around 0
associate-*r/N/A
*-commutativeN/A
associate-/l*N/A
metadata-evalN/A
associate-*r/N/A
lower-*.f64N/A
lower--.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f64N/A
lower--.f6487.4
Applied rewrites87.4%
Taylor expanded in t around inf
Applied rewrites52.6%
if -5.0000000000000001e114 < (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) < 2.00000000000000011e32Initial program 99.8%
Taylor expanded in a around inf
*-commutativeN/A
lower-*.f6473.3
Applied rewrites73.3%
if 2.00000000000000011e32 < (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) Initial program 99.7%
Taylor expanded in t around 0
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower--.f64N/A
*-commutativeN/A
lower-*.f6466.5
Applied rewrites66.5%
Taylor expanded in a around 0
Applied rewrites49.3%
Applied rewrites49.2%
Applied rewrites49.3%
Final simplification64.1%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (/ (* 60.0 (- x y)) (- z t))))
(if (<= t_1 -5e+114)
(* (/ (- x y) t) -60.0)
(if (<= t_1 2e+32) (* 120.0 a) (/ (- x y) (* 0.016666666666666666 z))))))
double code(double x, double y, double z, double t, double a) {
double t_1 = (60.0 * (x - y)) / (z - t);
double tmp;
if (t_1 <= -5e+114) {
tmp = ((x - y) / t) * -60.0;
} else if (t_1 <= 2e+32) {
tmp = 120.0 * a;
} else {
tmp = (x - y) / (0.016666666666666666 * z);
}
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 = (60.0d0 * (x - y)) / (z - t)
if (t_1 <= (-5d+114)) then
tmp = ((x - y) / t) * (-60.0d0)
else if (t_1 <= 2d+32) then
tmp = 120.0d0 * a
else
tmp = (x - y) / (0.016666666666666666d0 * z)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double t_1 = (60.0 * (x - y)) / (z - t);
double tmp;
if (t_1 <= -5e+114) {
tmp = ((x - y) / t) * -60.0;
} else if (t_1 <= 2e+32) {
tmp = 120.0 * a;
} else {
tmp = (x - y) / (0.016666666666666666 * z);
}
return tmp;
}
def code(x, y, z, t, a): t_1 = (60.0 * (x - y)) / (z - t) tmp = 0 if t_1 <= -5e+114: tmp = ((x - y) / t) * -60.0 elif t_1 <= 2e+32: tmp = 120.0 * a else: tmp = (x - y) / (0.016666666666666666 * z) return tmp
function code(x, y, z, t, a) t_1 = Float64(Float64(60.0 * Float64(x - y)) / Float64(z - t)) tmp = 0.0 if (t_1 <= -5e+114) tmp = Float64(Float64(Float64(x - y) / t) * -60.0); elseif (t_1 <= 2e+32) tmp = Float64(120.0 * a); else tmp = Float64(Float64(x - y) / Float64(0.016666666666666666 * z)); end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = (60.0 * (x - y)) / (z - t); tmp = 0.0; if (t_1 <= -5e+114) tmp = ((x - y) / t) * -60.0; elseif (t_1 <= 2e+32) tmp = 120.0 * a; else tmp = (x - y) / (0.016666666666666666 * z); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(N[(60.0 * N[(x - y), $MachinePrecision]), $MachinePrecision] / N[(z - t), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, -5e+114], N[(N[(N[(x - y), $MachinePrecision] / t), $MachinePrecision] * -60.0), $MachinePrecision], If[LessEqual[t$95$1, 2e+32], N[(120.0 * a), $MachinePrecision], N[(N[(x - y), $MachinePrecision] / N[(0.016666666666666666 * z), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{60 \cdot \left(x - y\right)}{z - t}\\
\mathbf{if}\;t\_1 \leq -5 \cdot 10^{+114}:\\
\;\;\;\;\frac{x - y}{t} \cdot -60\\
\mathbf{elif}\;t\_1 \leq 2 \cdot 10^{+32}:\\
\;\;\;\;120 \cdot a\\
\mathbf{else}:\\
\;\;\;\;\frac{x - y}{0.016666666666666666 \cdot z}\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) < -5.0000000000000001e114Initial program 97.5%
Taylor expanded in a around 0
associate-*r/N/A
*-commutativeN/A
associate-/l*N/A
metadata-evalN/A
associate-*r/N/A
lower-*.f64N/A
lower--.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f64N/A
lower--.f6487.4
Applied rewrites87.4%
Taylor expanded in t around inf
Applied rewrites52.5%
if -5.0000000000000001e114 < (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) < 2.00000000000000011e32Initial program 99.8%
Taylor expanded in a around inf
*-commutativeN/A
lower-*.f6473.3
Applied rewrites73.3%
if 2.00000000000000011e32 < (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) Initial program 99.7%
Taylor expanded in t around 0
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower--.f64N/A
*-commutativeN/A
lower-*.f6466.5
Applied rewrites66.5%
Taylor expanded in a around 0
Applied rewrites49.3%
Applied rewrites49.2%
Applied rewrites49.3%
Final simplification64.1%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (/ (* 60.0 (- x y)) (- z t))))
(if (<= t_1 -5e+114)
(* (/ (- x y) t) -60.0)
(if (<= t_1 2e+32) (* 120.0 a) (* (/ (- x y) z) 60.0)))))
double code(double x, double y, double z, double t, double a) {
double t_1 = (60.0 * (x - y)) / (z - t);
double tmp;
if (t_1 <= -5e+114) {
tmp = ((x - y) / t) * -60.0;
} else if (t_1 <= 2e+32) {
tmp = 120.0 * a;
} else {
tmp = ((x - y) / z) * 60.0;
}
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 = (60.0d0 * (x - y)) / (z - t)
if (t_1 <= (-5d+114)) then
tmp = ((x - y) / t) * (-60.0d0)
else if (t_1 <= 2d+32) then
tmp = 120.0d0 * a
else
tmp = ((x - y) / z) * 60.0d0
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double t_1 = (60.0 * (x - y)) / (z - t);
double tmp;
if (t_1 <= -5e+114) {
tmp = ((x - y) / t) * -60.0;
} else if (t_1 <= 2e+32) {
tmp = 120.0 * a;
} else {
tmp = ((x - y) / z) * 60.0;
}
return tmp;
}
def code(x, y, z, t, a): t_1 = (60.0 * (x - y)) / (z - t) tmp = 0 if t_1 <= -5e+114: tmp = ((x - y) / t) * -60.0 elif t_1 <= 2e+32: tmp = 120.0 * a else: tmp = ((x - y) / z) * 60.0 return tmp
function code(x, y, z, t, a) t_1 = Float64(Float64(60.0 * Float64(x - y)) / Float64(z - t)) tmp = 0.0 if (t_1 <= -5e+114) tmp = Float64(Float64(Float64(x - y) / t) * -60.0); elseif (t_1 <= 2e+32) tmp = Float64(120.0 * a); else tmp = Float64(Float64(Float64(x - y) / z) * 60.0); end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = (60.0 * (x - y)) / (z - t); tmp = 0.0; if (t_1 <= -5e+114) tmp = ((x - y) / t) * -60.0; elseif (t_1 <= 2e+32) tmp = 120.0 * a; else tmp = ((x - y) / z) * 60.0; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(N[(60.0 * N[(x - y), $MachinePrecision]), $MachinePrecision] / N[(z - t), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, -5e+114], N[(N[(N[(x - y), $MachinePrecision] / t), $MachinePrecision] * -60.0), $MachinePrecision], If[LessEqual[t$95$1, 2e+32], N[(120.0 * a), $MachinePrecision], N[(N[(N[(x - y), $MachinePrecision] / z), $MachinePrecision] * 60.0), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{60 \cdot \left(x - y\right)}{z - t}\\
\mathbf{if}\;t\_1 \leq -5 \cdot 10^{+114}:\\
\;\;\;\;\frac{x - y}{t} \cdot -60\\
\mathbf{elif}\;t\_1 \leq 2 \cdot 10^{+32}:\\
\;\;\;\;120 \cdot a\\
\mathbf{else}:\\
\;\;\;\;\frac{x - y}{z} \cdot 60\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) < -5.0000000000000001e114Initial program 97.5%
Taylor expanded in a around 0
associate-*r/N/A
*-commutativeN/A
associate-/l*N/A
metadata-evalN/A
associate-*r/N/A
lower-*.f64N/A
lower--.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f64N/A
lower--.f6487.4
Applied rewrites87.4%
Taylor expanded in t around inf
Applied rewrites52.5%
if -5.0000000000000001e114 < (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) < 2.00000000000000011e32Initial program 99.8%
Taylor expanded in a around inf
*-commutativeN/A
lower-*.f6473.3
Applied rewrites73.3%
if 2.00000000000000011e32 < (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) Initial program 99.7%
Taylor expanded in t around 0
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower--.f64N/A
*-commutativeN/A
lower-*.f6466.5
Applied rewrites66.5%
Taylor expanded in a around 0
Applied rewrites49.3%
Final simplification64.1%
(FPCore (x y z t a) :precision binary64 (let* ((t_1 (* (/ (- x y) t) -60.0)) (t_2 (/ (* 60.0 (- x y)) (- z t)))) (if (<= t_2 -5e+114) t_1 (if (<= t_2 2.96e+206) (* 120.0 a) t_1))))
double code(double x, double y, double z, double t, double a) {
double t_1 = ((x - y) / t) * -60.0;
double t_2 = (60.0 * (x - y)) / (z - t);
double tmp;
if (t_2 <= -5e+114) {
tmp = t_1;
} else if (t_2 <= 2.96e+206) {
tmp = 120.0 * a;
} 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) :: t_2
real(8) :: tmp
t_1 = ((x - y) / t) * (-60.0d0)
t_2 = (60.0d0 * (x - y)) / (z - t)
if (t_2 <= (-5d+114)) then
tmp = t_1
else if (t_2 <= 2.96d+206) then
tmp = 120.0d0 * a
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) / t) * -60.0;
double t_2 = (60.0 * (x - y)) / (z - t);
double tmp;
if (t_2 <= -5e+114) {
tmp = t_1;
} else if (t_2 <= 2.96e+206) {
tmp = 120.0 * a;
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a): t_1 = ((x - y) / t) * -60.0 t_2 = (60.0 * (x - y)) / (z - t) tmp = 0 if t_2 <= -5e+114: tmp = t_1 elif t_2 <= 2.96e+206: tmp = 120.0 * a else: tmp = t_1 return tmp
function code(x, y, z, t, a) t_1 = Float64(Float64(Float64(x - y) / t) * -60.0) t_2 = Float64(Float64(60.0 * Float64(x - y)) / Float64(z - t)) tmp = 0.0 if (t_2 <= -5e+114) tmp = t_1; elseif (t_2 <= 2.96e+206) tmp = Float64(120.0 * a); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = ((x - y) / t) * -60.0; t_2 = (60.0 * (x - y)) / (z - t); tmp = 0.0; if (t_2 <= -5e+114) tmp = t_1; elseif (t_2 <= 2.96e+206) tmp = 120.0 * a; else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(N[(N[(x - y), $MachinePrecision] / t), $MachinePrecision] * -60.0), $MachinePrecision]}, Block[{t$95$2 = N[(N[(60.0 * N[(x - y), $MachinePrecision]), $MachinePrecision] / N[(z - t), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$2, -5e+114], t$95$1, If[LessEqual[t$95$2, 2.96e+206], N[(120.0 * a), $MachinePrecision], t$95$1]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{x - y}{t} \cdot -60\\
t_2 := \frac{60 \cdot \left(x - y\right)}{z - t}\\
\mathbf{if}\;t\_2 \leq -5 \cdot 10^{+114}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t\_2 \leq 2.96 \cdot 10^{+206}:\\
\;\;\;\;120 \cdot a\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) < -5.0000000000000001e114 or 2.95999999999999984e206 < (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) Initial program 98.3%
Taylor expanded in a around 0
associate-*r/N/A
*-commutativeN/A
associate-/l*N/A
metadata-evalN/A
associate-*r/N/A
lower-*.f64N/A
lower--.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f64N/A
lower--.f6490.3
Applied rewrites90.3%
Taylor expanded in t around inf
Applied rewrites55.5%
if -5.0000000000000001e114 < (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) < 2.95999999999999984e206Initial program 99.7%
Taylor expanded in a around inf
*-commutativeN/A
lower-*.f6465.5
Applied rewrites65.5%
Final simplification62.9%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (/ (* 60.0 (- x y)) (- z t))))
(if (<= t_1 -1e+210)
(/ x (* 0.016666666666666666 z))
(if (<= t_1 5e+206) (* 120.0 a) (/ (* y -60.0) z)))))
double code(double x, double y, double z, double t, double a) {
double t_1 = (60.0 * (x - y)) / (z - t);
double tmp;
if (t_1 <= -1e+210) {
tmp = x / (0.016666666666666666 * z);
} else if (t_1 <= 5e+206) {
tmp = 120.0 * a;
} else {
tmp = (y * -60.0) / z;
}
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 = (60.0d0 * (x - y)) / (z - t)
if (t_1 <= (-1d+210)) then
tmp = x / (0.016666666666666666d0 * z)
else if (t_1 <= 5d+206) then
tmp = 120.0d0 * a
else
tmp = (y * (-60.0d0)) / z
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double t_1 = (60.0 * (x - y)) / (z - t);
double tmp;
if (t_1 <= -1e+210) {
tmp = x / (0.016666666666666666 * z);
} else if (t_1 <= 5e+206) {
tmp = 120.0 * a;
} else {
tmp = (y * -60.0) / z;
}
return tmp;
}
def code(x, y, z, t, a): t_1 = (60.0 * (x - y)) / (z - t) tmp = 0 if t_1 <= -1e+210: tmp = x / (0.016666666666666666 * z) elif t_1 <= 5e+206: tmp = 120.0 * a else: tmp = (y * -60.0) / z return tmp
function code(x, y, z, t, a) t_1 = Float64(Float64(60.0 * Float64(x - y)) / Float64(z - t)) tmp = 0.0 if (t_1 <= -1e+210) tmp = Float64(x / Float64(0.016666666666666666 * z)); elseif (t_1 <= 5e+206) tmp = Float64(120.0 * a); else tmp = Float64(Float64(y * -60.0) / z); end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = (60.0 * (x - y)) / (z - t); tmp = 0.0; if (t_1 <= -1e+210) tmp = x / (0.016666666666666666 * z); elseif (t_1 <= 5e+206) tmp = 120.0 * a; else tmp = (y * -60.0) / z; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(N[(60.0 * N[(x - y), $MachinePrecision]), $MachinePrecision] / N[(z - t), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, -1e+210], N[(x / N[(0.016666666666666666 * z), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, 5e+206], N[(120.0 * a), $MachinePrecision], N[(N[(y * -60.0), $MachinePrecision] / z), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{60 \cdot \left(x - y\right)}{z - t}\\
\mathbf{if}\;t\_1 \leq -1 \cdot 10^{+210}:\\
\;\;\;\;\frac{x}{0.016666666666666666 \cdot z}\\
\mathbf{elif}\;t\_1 \leq 5 \cdot 10^{+206}:\\
\;\;\;\;120 \cdot a\\
\mathbf{else}:\\
\;\;\;\;\frac{y \cdot -60}{z}\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) < -9.99999999999999927e209Initial program 96.4%
Taylor expanded in t around 0
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower--.f64N/A
*-commutativeN/A
lower-*.f6456.1
Applied rewrites56.1%
Taylor expanded in x around inf
Applied rewrites31.3%
Applied rewrites31.3%
Applied rewrites31.3%
if -9.99999999999999927e209 < (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) < 5.0000000000000002e206Initial program 99.7%
Taylor expanded in a around inf
*-commutativeN/A
lower-*.f6462.5
Applied rewrites62.5%
if 5.0000000000000002e206 < (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) Initial program 99.8%
Taylor expanded in t around 0
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower--.f64N/A
*-commutativeN/A
lower-*.f6469.1
Applied rewrites69.1%
Taylor expanded in a around 0
Applied rewrites65.0%
Applied rewrites65.0%
Taylor expanded in y around inf
Applied rewrites38.7%
Final simplification57.0%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (/ (* 60.0 (- x y)) (- z t))))
(if (<= t_1 -1e+210)
(/ x (* 0.016666666666666666 z))
(if (<= t_1 5e+206) (* 120.0 a) (* (/ y z) -60.0)))))
double code(double x, double y, double z, double t, double a) {
double t_1 = (60.0 * (x - y)) / (z - t);
double tmp;
if (t_1 <= -1e+210) {
tmp = x / (0.016666666666666666 * z);
} else if (t_1 <= 5e+206) {
tmp = 120.0 * a;
} else {
tmp = (y / z) * -60.0;
}
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 = (60.0d0 * (x - y)) / (z - t)
if (t_1 <= (-1d+210)) then
tmp = x / (0.016666666666666666d0 * z)
else if (t_1 <= 5d+206) then
tmp = 120.0d0 * a
else
tmp = (y / z) * (-60.0d0)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double t_1 = (60.0 * (x - y)) / (z - t);
double tmp;
if (t_1 <= -1e+210) {
tmp = x / (0.016666666666666666 * z);
} else if (t_1 <= 5e+206) {
tmp = 120.0 * a;
} else {
tmp = (y / z) * -60.0;
}
return tmp;
}
def code(x, y, z, t, a): t_1 = (60.0 * (x - y)) / (z - t) tmp = 0 if t_1 <= -1e+210: tmp = x / (0.016666666666666666 * z) elif t_1 <= 5e+206: tmp = 120.0 * a else: tmp = (y / z) * -60.0 return tmp
function code(x, y, z, t, a) t_1 = Float64(Float64(60.0 * Float64(x - y)) / Float64(z - t)) tmp = 0.0 if (t_1 <= -1e+210) tmp = Float64(x / Float64(0.016666666666666666 * z)); elseif (t_1 <= 5e+206) tmp = Float64(120.0 * a); else tmp = Float64(Float64(y / z) * -60.0); end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = (60.0 * (x - y)) / (z - t); tmp = 0.0; if (t_1 <= -1e+210) tmp = x / (0.016666666666666666 * z); elseif (t_1 <= 5e+206) tmp = 120.0 * a; else tmp = (y / z) * -60.0; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(N[(60.0 * N[(x - y), $MachinePrecision]), $MachinePrecision] / N[(z - t), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, -1e+210], N[(x / N[(0.016666666666666666 * z), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, 5e+206], N[(120.0 * a), $MachinePrecision], N[(N[(y / z), $MachinePrecision] * -60.0), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{60 \cdot \left(x - y\right)}{z - t}\\
\mathbf{if}\;t\_1 \leq -1 \cdot 10^{+210}:\\
\;\;\;\;\frac{x}{0.016666666666666666 \cdot z}\\
\mathbf{elif}\;t\_1 \leq 5 \cdot 10^{+206}:\\
\;\;\;\;120 \cdot a\\
\mathbf{else}:\\
\;\;\;\;\frac{y}{z} \cdot -60\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) < -9.99999999999999927e209Initial program 96.4%
Taylor expanded in t around 0
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower--.f64N/A
*-commutativeN/A
lower-*.f6456.1
Applied rewrites56.1%
Taylor expanded in x around inf
Applied rewrites31.3%
Applied rewrites31.3%
Applied rewrites31.3%
if -9.99999999999999927e209 < (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) < 5.0000000000000002e206Initial program 99.7%
Taylor expanded in a around inf
*-commutativeN/A
lower-*.f6462.5
Applied rewrites62.5%
if 5.0000000000000002e206 < (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) Initial program 99.8%
Taylor expanded in t around 0
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower--.f64N/A
*-commutativeN/A
lower-*.f6469.1
Applied rewrites69.1%
Taylor expanded in y around inf
Applied rewrites38.6%
Final simplification57.0%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (/ (* 60.0 (- x y)) (- z t))))
(if (<= t_1 -1e+210)
(* (/ 60.0 z) x)
(if (<= t_1 5e+206) (* 120.0 a) (* (/ y z) -60.0)))))
double code(double x, double y, double z, double t, double a) {
double t_1 = (60.0 * (x - y)) / (z - t);
double tmp;
if (t_1 <= -1e+210) {
tmp = (60.0 / z) * x;
} else if (t_1 <= 5e+206) {
tmp = 120.0 * a;
} else {
tmp = (y / z) * -60.0;
}
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 = (60.0d0 * (x - y)) / (z - t)
if (t_1 <= (-1d+210)) then
tmp = (60.0d0 / z) * x
else if (t_1 <= 5d+206) then
tmp = 120.0d0 * a
else
tmp = (y / z) * (-60.0d0)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double t_1 = (60.0 * (x - y)) / (z - t);
double tmp;
if (t_1 <= -1e+210) {
tmp = (60.0 / z) * x;
} else if (t_1 <= 5e+206) {
tmp = 120.0 * a;
} else {
tmp = (y / z) * -60.0;
}
return tmp;
}
def code(x, y, z, t, a): t_1 = (60.0 * (x - y)) / (z - t) tmp = 0 if t_1 <= -1e+210: tmp = (60.0 / z) * x elif t_1 <= 5e+206: tmp = 120.0 * a else: tmp = (y / z) * -60.0 return tmp
function code(x, y, z, t, a) t_1 = Float64(Float64(60.0 * Float64(x - y)) / Float64(z - t)) tmp = 0.0 if (t_1 <= -1e+210) tmp = Float64(Float64(60.0 / z) * x); elseif (t_1 <= 5e+206) tmp = Float64(120.0 * a); else tmp = Float64(Float64(y / z) * -60.0); end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = (60.0 * (x - y)) / (z - t); tmp = 0.0; if (t_1 <= -1e+210) tmp = (60.0 / z) * x; elseif (t_1 <= 5e+206) tmp = 120.0 * a; else tmp = (y / z) * -60.0; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(N[(60.0 * N[(x - y), $MachinePrecision]), $MachinePrecision] / N[(z - t), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, -1e+210], N[(N[(60.0 / z), $MachinePrecision] * x), $MachinePrecision], If[LessEqual[t$95$1, 5e+206], N[(120.0 * a), $MachinePrecision], N[(N[(y / z), $MachinePrecision] * -60.0), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{60 \cdot \left(x - y\right)}{z - t}\\
\mathbf{if}\;t\_1 \leq -1 \cdot 10^{+210}:\\
\;\;\;\;\frac{60}{z} \cdot x\\
\mathbf{elif}\;t\_1 \leq 5 \cdot 10^{+206}:\\
\;\;\;\;120 \cdot a\\
\mathbf{else}:\\
\;\;\;\;\frac{y}{z} \cdot -60\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) < -9.99999999999999927e209Initial program 96.4%
Taylor expanded in t around 0
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower--.f64N/A
*-commutativeN/A
lower-*.f6456.1
Applied rewrites56.1%
Taylor expanded in x around inf
Applied rewrites31.3%
Applied rewrites31.3%
if -9.99999999999999927e209 < (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) < 5.0000000000000002e206Initial program 99.7%
Taylor expanded in a around inf
*-commutativeN/A
lower-*.f6462.5
Applied rewrites62.5%
if 5.0000000000000002e206 < (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) Initial program 99.8%
Taylor expanded in t around 0
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower--.f64N/A
*-commutativeN/A
lower-*.f6469.1
Applied rewrites69.1%
Taylor expanded in y around inf
Applied rewrites38.6%
Final simplification57.0%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (/ (* 60.0 (- x y)) (- z t))))
(if (<= t_1 -1e+210)
(* (/ 60.0 z) x)
(if (<= t_1 2e+218) (* 120.0 a) (* (/ x z) 60.0)))))
double code(double x, double y, double z, double t, double a) {
double t_1 = (60.0 * (x - y)) / (z - t);
double tmp;
if (t_1 <= -1e+210) {
tmp = (60.0 / z) * x;
} else if (t_1 <= 2e+218) {
tmp = 120.0 * a;
} else {
tmp = (x / z) * 60.0;
}
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 = (60.0d0 * (x - y)) / (z - t)
if (t_1 <= (-1d+210)) then
tmp = (60.0d0 / z) * x
else if (t_1 <= 2d+218) then
tmp = 120.0d0 * a
else
tmp = (x / z) * 60.0d0
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
double t_1 = (60.0 * (x - y)) / (z - t);
double tmp;
if (t_1 <= -1e+210) {
tmp = (60.0 / z) * x;
} else if (t_1 <= 2e+218) {
tmp = 120.0 * a;
} else {
tmp = (x / z) * 60.0;
}
return tmp;
}
def code(x, y, z, t, a): t_1 = (60.0 * (x - y)) / (z - t) tmp = 0 if t_1 <= -1e+210: tmp = (60.0 / z) * x elif t_1 <= 2e+218: tmp = 120.0 * a else: tmp = (x / z) * 60.0 return tmp
function code(x, y, z, t, a) t_1 = Float64(Float64(60.0 * Float64(x - y)) / Float64(z - t)) tmp = 0.0 if (t_1 <= -1e+210) tmp = Float64(Float64(60.0 / z) * x); elseif (t_1 <= 2e+218) tmp = Float64(120.0 * a); else tmp = Float64(Float64(x / z) * 60.0); end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = (60.0 * (x - y)) / (z - t); tmp = 0.0; if (t_1 <= -1e+210) tmp = (60.0 / z) * x; elseif (t_1 <= 2e+218) tmp = 120.0 * a; else tmp = (x / z) * 60.0; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(N[(60.0 * N[(x - y), $MachinePrecision]), $MachinePrecision] / N[(z - t), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, -1e+210], N[(N[(60.0 / z), $MachinePrecision] * x), $MachinePrecision], If[LessEqual[t$95$1, 2e+218], N[(120.0 * a), $MachinePrecision], N[(N[(x / z), $MachinePrecision] * 60.0), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{60 \cdot \left(x - y\right)}{z - t}\\
\mathbf{if}\;t\_1 \leq -1 \cdot 10^{+210}:\\
\;\;\;\;\frac{60}{z} \cdot x\\
\mathbf{elif}\;t\_1 \leq 2 \cdot 10^{+218}:\\
\;\;\;\;120 \cdot a\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{z} \cdot 60\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) < -9.99999999999999927e209Initial program 96.4%
Taylor expanded in t around 0
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower--.f64N/A
*-commutativeN/A
lower-*.f6456.1
Applied rewrites56.1%
Taylor expanded in x around inf
Applied rewrites31.3%
Applied rewrites31.3%
if -9.99999999999999927e209 < (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) < 2.00000000000000017e218Initial program 99.7%
Taylor expanded in a around inf
*-commutativeN/A
lower-*.f6461.7
Applied rewrites61.7%
if 2.00000000000000017e218 < (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) Initial program 99.8%
Taylor expanded in t around 0
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower--.f64N/A
*-commutativeN/A
lower-*.f6474.4
Applied rewrites74.4%
Taylor expanded in x around inf
Applied rewrites38.8%
Final simplification56.7%
(FPCore (x y z t a) :precision binary64 (let* ((t_1 (* (/ 60.0 z) x)) (t_2 (/ (* 60.0 (- x y)) (- z t)))) (if (<= t_2 -1e+210) t_1 (if (<= t_2 2e+218) (* 120.0 a) t_1))))
double code(double x, double y, double z, double t, double a) {
double t_1 = (60.0 / z) * x;
double t_2 = (60.0 * (x - y)) / (z - t);
double tmp;
if (t_2 <= -1e+210) {
tmp = t_1;
} else if (t_2 <= 2e+218) {
tmp = 120.0 * a;
} 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) :: t_2
real(8) :: tmp
t_1 = (60.0d0 / z) * x
t_2 = (60.0d0 * (x - y)) / (z - t)
if (t_2 <= (-1d+210)) then
tmp = t_1
else if (t_2 <= 2d+218) then
tmp = 120.0d0 * a
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 = (60.0 / z) * x;
double t_2 = (60.0 * (x - y)) / (z - t);
double tmp;
if (t_2 <= -1e+210) {
tmp = t_1;
} else if (t_2 <= 2e+218) {
tmp = 120.0 * a;
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a): t_1 = (60.0 / z) * x t_2 = (60.0 * (x - y)) / (z - t) tmp = 0 if t_2 <= -1e+210: tmp = t_1 elif t_2 <= 2e+218: tmp = 120.0 * a else: tmp = t_1 return tmp
function code(x, y, z, t, a) t_1 = Float64(Float64(60.0 / z) * x) t_2 = Float64(Float64(60.0 * Float64(x - y)) / Float64(z - t)) tmp = 0.0 if (t_2 <= -1e+210) tmp = t_1; elseif (t_2 <= 2e+218) tmp = Float64(120.0 * a); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a) t_1 = (60.0 / z) * x; t_2 = (60.0 * (x - y)) / (z - t); tmp = 0.0; if (t_2 <= -1e+210) tmp = t_1; elseif (t_2 <= 2e+218) tmp = 120.0 * a; else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(N[(60.0 / z), $MachinePrecision] * x), $MachinePrecision]}, Block[{t$95$2 = N[(N[(60.0 * N[(x - y), $MachinePrecision]), $MachinePrecision] / N[(z - t), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$2, -1e+210], t$95$1, If[LessEqual[t$95$2, 2e+218], N[(120.0 * a), $MachinePrecision], t$95$1]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{60}{z} \cdot x\\
t_2 := \frac{60 \cdot \left(x - y\right)}{z - t}\\
\mathbf{if}\;t\_2 \leq -1 \cdot 10^{+210}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t\_2 \leq 2 \cdot 10^{+218}:\\
\;\;\;\;120 \cdot a\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) < -9.99999999999999927e209 or 2.00000000000000017e218 < (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) Initial program 97.8%
Taylor expanded in t around 0
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower--.f64N/A
*-commutativeN/A
lower-*.f6463.5
Applied rewrites63.5%
Taylor expanded in x around inf
Applied rewrites34.3%
Applied rewrites34.2%
if -9.99999999999999927e209 < (/.f64 (*.f64 #s(literal 60 binary64) (-.f64 x y)) (-.f64 z t)) < 2.00000000000000017e218Initial program 99.7%
Taylor expanded in a around inf
*-commutativeN/A
lower-*.f6461.7
Applied rewrites61.7%
Final simplification56.6%
(FPCore (x y z t a)
:precision binary64
(if (<= (* 120.0 a) -1e+37)
(* 120.0 a)
(if (<= (* 120.0 a) 5e+72)
(/ (- x y) (* 0.016666666666666666 (- z t)))
(fma (/ y z) -60.0 (* 120.0 a)))))
double code(double x, double y, double z, double t, double a) {
double tmp;
if ((120.0 * a) <= -1e+37) {
tmp = 120.0 * a;
} else if ((120.0 * a) <= 5e+72) {
tmp = (x - y) / (0.016666666666666666 * (z - t));
} else {
tmp = fma((y / z), -60.0, (120.0 * a));
}
return tmp;
}
function code(x, y, z, t, a) tmp = 0.0 if (Float64(120.0 * a) <= -1e+37) tmp = Float64(120.0 * a); elseif (Float64(120.0 * a) <= 5e+72) tmp = Float64(Float64(x - y) / Float64(0.016666666666666666 * Float64(z - t))); else tmp = fma(Float64(y / z), -60.0, Float64(120.0 * a)); end return tmp end
code[x_, y_, z_, t_, a_] := If[LessEqual[N[(120.0 * a), $MachinePrecision], -1e+37], N[(120.0 * a), $MachinePrecision], If[LessEqual[N[(120.0 * a), $MachinePrecision], 5e+72], N[(N[(x - y), $MachinePrecision] / N[(0.016666666666666666 * N[(z - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(y / z), $MachinePrecision] * -60.0 + N[(120.0 * a), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;120 \cdot a \leq -1 \cdot 10^{+37}:\\
\;\;\;\;120 \cdot a\\
\mathbf{elif}\;120 \cdot a \leq 5 \cdot 10^{+72}:\\
\;\;\;\;\frac{x - y}{0.016666666666666666 \cdot \left(z - t\right)}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\frac{y}{z}, -60, 120 \cdot a\right)\\
\end{array}
\end{array}
if (*.f64 a #s(literal 120 binary64)) < -9.99999999999999954e36Initial program 99.8%
Taylor expanded in a around inf
*-commutativeN/A
lower-*.f6483.5
Applied rewrites83.5%
if -9.99999999999999954e36 < (*.f64 a #s(literal 120 binary64)) < 4.99999999999999992e72Initial program 99.0%
Taylor expanded in a around 0
associate-*r/N/A
*-commutativeN/A
associate-/l*N/A
metadata-evalN/A
associate-*r/N/A
lower-*.f64N/A
lower--.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f64N/A
lower--.f6474.5
Applied rewrites74.5%
Applied rewrites74.6%
if 4.99999999999999992e72 < (*.f64 a #s(literal 120 binary64)) Initial program 99.9%
Taylor expanded in t around 0
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower--.f64N/A
*-commutativeN/A
lower-*.f6482.6
Applied rewrites82.6%
Taylor expanded in x around 0
Applied rewrites82.8%
Final simplification78.4%
(FPCore (x y z t a)
:precision binary64
(if (<= (* 120.0 a) -3.9e+36)
(* 120.0 a)
(if (<= (* 120.0 a) 6.4e+72)
(* (/ 60.0 (- z t)) (- x y))
(fma (/ y z) -60.0 (* 120.0 a)))))
double code(double x, double y, double z, double t, double a) {
double tmp;
if ((120.0 * a) <= -3.9e+36) {
tmp = 120.0 * a;
} else if ((120.0 * a) <= 6.4e+72) {
tmp = (60.0 / (z - t)) * (x - y);
} else {
tmp = fma((y / z), -60.0, (120.0 * a));
}
return tmp;
}
function code(x, y, z, t, a) tmp = 0.0 if (Float64(120.0 * a) <= -3.9e+36) tmp = Float64(120.0 * a); elseif (Float64(120.0 * a) <= 6.4e+72) tmp = Float64(Float64(60.0 / Float64(z - t)) * Float64(x - y)); else tmp = fma(Float64(y / z), -60.0, Float64(120.0 * a)); end return tmp end
code[x_, y_, z_, t_, a_] := If[LessEqual[N[(120.0 * a), $MachinePrecision], -3.9e+36], N[(120.0 * a), $MachinePrecision], If[LessEqual[N[(120.0 * a), $MachinePrecision], 6.4e+72], N[(N[(60.0 / N[(z - t), $MachinePrecision]), $MachinePrecision] * N[(x - y), $MachinePrecision]), $MachinePrecision], N[(N[(y / z), $MachinePrecision] * -60.0 + N[(120.0 * a), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;120 \cdot a \leq -3.9 \cdot 10^{+36}:\\
\;\;\;\;120 \cdot a\\
\mathbf{elif}\;120 \cdot a \leq 6.4 \cdot 10^{+72}:\\
\;\;\;\;\frac{60}{z - t} \cdot \left(x - y\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\frac{y}{z}, -60, 120 \cdot a\right)\\
\end{array}
\end{array}
if (*.f64 a #s(literal 120 binary64)) < -3.90000000000000021e36Initial program 99.8%
Taylor expanded in a around inf
*-commutativeN/A
lower-*.f6483.5
Applied rewrites83.5%
if -3.90000000000000021e36 < (*.f64 a #s(literal 120 binary64)) < 6.4000000000000003e72Initial program 99.0%
Taylor expanded in a around 0
associate-*r/N/A
*-commutativeN/A
associate-/l*N/A
metadata-evalN/A
associate-*r/N/A
lower-*.f64N/A
lower--.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f64N/A
lower--.f6474.5
Applied rewrites74.5%
if 6.4000000000000003e72 < (*.f64 a #s(literal 120 binary64)) Initial program 99.9%
Taylor expanded in t around 0
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower--.f64N/A
*-commutativeN/A
lower-*.f6482.6
Applied rewrites82.6%
Taylor expanded in x around 0
Applied rewrites82.8%
Final simplification78.4%
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (fma (/ y (- z t)) -60.0 (* 120.0 a))))
(if (<= y -1.15e+179)
t_1
(if (<= y 8e+44) (fma (/ x (- z t)) 60.0 (* 120.0 a)) t_1))))
double code(double x, double y, double z, double t, double a) {
double t_1 = fma((y / (z - t)), -60.0, (120.0 * a));
double tmp;
if (y <= -1.15e+179) {
tmp = t_1;
} else if (y <= 8e+44) {
tmp = fma((x / (z - t)), 60.0, (120.0 * a));
} else {
tmp = t_1;
}
return tmp;
}
function code(x, y, z, t, a) t_1 = fma(Float64(y / Float64(z - t)), -60.0, Float64(120.0 * a)) tmp = 0.0 if (y <= -1.15e+179) tmp = t_1; elseif (y <= 8e+44) tmp = fma(Float64(x / Float64(z - t)), 60.0, Float64(120.0 * a)); else tmp = t_1; end return tmp end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(N[(y / N[(z - t), $MachinePrecision]), $MachinePrecision] * -60.0 + N[(120.0 * a), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -1.15e+179], t$95$1, If[LessEqual[y, 8e+44], N[(N[(x / N[(z - t), $MachinePrecision]), $MachinePrecision] * 60.0 + N[(120.0 * a), $MachinePrecision]), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \mathsf{fma}\left(\frac{y}{z - t}, -60, 120 \cdot a\right)\\
\mathbf{if}\;y \leq -1.15 \cdot 10^{+179}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 8 \cdot 10^{+44}:\\
\;\;\;\;\mathsf{fma}\left(\frac{x}{z - t}, 60, 120 \cdot a\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y < -1.14999999999999997e179 or 8.0000000000000007e44 < y Initial program 98.5%
Taylor expanded in x around 0
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower--.f64N/A
*-commutativeN/A
lower-*.f6489.6
Applied rewrites89.6%
if -1.14999999999999997e179 < y < 8.0000000000000007e44Initial program 99.8%
Taylor expanded in y around 0
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower--.f64N/A
*-commutativeN/A
lower-*.f6491.3
Applied rewrites91.3%
Final simplification90.7%
(FPCore (x y z t a) :precision binary64 (if (<= (- z t) -5e-31) (* 120.0 a) (if (<= (- z t) 5e+31) (/ (* x -60.0) (- t z)) (* 120.0 a))))
double code(double x, double y, double z, double t, double a) {
double tmp;
if ((z - t) <= -5e-31) {
tmp = 120.0 * a;
} else if ((z - t) <= 5e+31) {
tmp = (x * -60.0) / (t - z);
} else {
tmp = 120.0 * 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 - t) <= (-5d-31)) then
tmp = 120.0d0 * a
else if ((z - t) <= 5d+31) then
tmp = (x * (-60.0d0)) / (t - z)
else
tmp = 120.0d0 * 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 - t) <= -5e-31) {
tmp = 120.0 * a;
} else if ((z - t) <= 5e+31) {
tmp = (x * -60.0) / (t - z);
} else {
tmp = 120.0 * a;
}
return tmp;
}
def code(x, y, z, t, a): tmp = 0 if (z - t) <= -5e-31: tmp = 120.0 * a elif (z - t) <= 5e+31: tmp = (x * -60.0) / (t - z) else: tmp = 120.0 * a return tmp
function code(x, y, z, t, a) tmp = 0.0 if (Float64(z - t) <= -5e-31) tmp = Float64(120.0 * a); elseif (Float64(z - t) <= 5e+31) tmp = Float64(Float64(x * -60.0) / Float64(t - z)); else tmp = Float64(120.0 * a); end return tmp end
function tmp_2 = code(x, y, z, t, a) tmp = 0.0; if ((z - t) <= -5e-31) tmp = 120.0 * a; elseif ((z - t) <= 5e+31) tmp = (x * -60.0) / (t - z); else tmp = 120.0 * a; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_] := If[LessEqual[N[(z - t), $MachinePrecision], -5e-31], N[(120.0 * a), $MachinePrecision], If[LessEqual[N[(z - t), $MachinePrecision], 5e+31], N[(N[(x * -60.0), $MachinePrecision] / N[(t - z), $MachinePrecision]), $MachinePrecision], N[(120.0 * a), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z - t \leq -5 \cdot 10^{-31}:\\
\;\;\;\;120 \cdot a\\
\mathbf{elif}\;z - t \leq 5 \cdot 10^{+31}:\\
\;\;\;\;\frac{x \cdot -60}{t - z}\\
\mathbf{else}:\\
\;\;\;\;120 \cdot a\\
\end{array}
\end{array}
if (-.f64 z t) < -5e-31 or 5.00000000000000027e31 < (-.f64 z t) Initial program 99.3%
Taylor expanded in a around inf
*-commutativeN/A
lower-*.f6465.7
Applied rewrites65.7%
if -5e-31 < (-.f64 z t) < 5.00000000000000027e31Initial program 99.6%
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lower-fma.f6499.7
lift-/.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
frac-2negN/A
lower-/.f64N/A
metadata-evalN/A
neg-sub0N/A
lift--.f64N/A
sub-negN/A
+-commutativeN/A
associate--r+N/A
neg-sub0N/A
remove-double-negN/A
lower--.f6499.7
Applied rewrites99.7%
Taylor expanded in x around inf
associate-*r/N/A
remove-double-negN/A
unsub-negN/A
distribute-neg-inN/A
+-commutativeN/A
sub-negN/A
mul-1-negN/A
lower-/.f64N/A
lower-*.f64N/A
mul-1-negN/A
sub-negN/A
+-commutativeN/A
distribute-neg-inN/A
unsub-negN/A
remove-double-negN/A
lower--.f6449.9
Applied rewrites49.9%
Final simplification61.4%
(FPCore (x y z t a) :precision binary64 (let* ((t_1 (fma (/ y z) -60.0 (* 120.0 a)))) (if (<= z -1.4e-103) t_1 (if (<= z 4.2e-144) (* (/ (- x y) t) -60.0) t_1))))
double code(double x, double y, double z, double t, double a) {
double t_1 = fma((y / z), -60.0, (120.0 * a));
double tmp;
if (z <= -1.4e-103) {
tmp = t_1;
} else if (z <= 4.2e-144) {
tmp = ((x - y) / t) * -60.0;
} else {
tmp = t_1;
}
return tmp;
}
function code(x, y, z, t, a) t_1 = fma(Float64(y / z), -60.0, Float64(120.0 * a)) tmp = 0.0 if (z <= -1.4e-103) tmp = t_1; elseif (z <= 4.2e-144) tmp = Float64(Float64(Float64(x - y) / t) * -60.0); else tmp = t_1; end return tmp end
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(N[(y / z), $MachinePrecision] * -60.0 + N[(120.0 * a), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -1.4e-103], t$95$1, If[LessEqual[z, 4.2e-144], N[(N[(N[(x - y), $MachinePrecision] / t), $MachinePrecision] * -60.0), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \mathsf{fma}\left(\frac{y}{z}, -60, 120 \cdot a\right)\\
\mathbf{if}\;z \leq -1.4 \cdot 10^{-103}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq 4.2 \cdot 10^{-144}:\\
\;\;\;\;\frac{x - y}{t} \cdot -60\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if z < -1.40000000000000011e-103 or 4.2000000000000002e-144 < z Initial program 99.2%
Taylor expanded in t around 0
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower--.f64N/A
*-commutativeN/A
lower-*.f6482.4
Applied rewrites82.4%
Taylor expanded in x around 0
Applied rewrites71.6%
if -1.40000000000000011e-103 < z < 4.2000000000000002e-144Initial program 99.7%
Taylor expanded in a around 0
associate-*r/N/A
*-commutativeN/A
associate-/l*N/A
metadata-evalN/A
associate-*r/N/A
lower-*.f64N/A
lower--.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f64N/A
lower--.f6466.7
Applied rewrites66.7%
Taylor expanded in t around inf
Applied rewrites56.6%
Final simplification66.6%
(FPCore (x y z t a) :precision binary64 (* 120.0 a))
double code(double x, double y, double z, double t, double a) {
return 120.0 * a;
}
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 = 120.0d0 * a
end function
public static double code(double x, double y, double z, double t, double a) {
return 120.0 * a;
}
def code(x, y, z, t, a): return 120.0 * a
function code(x, y, z, t, a) return Float64(120.0 * a) end
function tmp = code(x, y, z, t, a) tmp = 120.0 * a; end
code[x_, y_, z_, t_, a_] := N[(120.0 * a), $MachinePrecision]
\begin{array}{l}
\\
120 \cdot a
\end{array}
Initial program 99.4%
Taylor expanded in a around inf
*-commutativeN/A
lower-*.f6451.5
Applied rewrites51.5%
Final simplification51.5%
(FPCore (x y z t a) :precision binary64 (+ (/ 60.0 (/ (- z t) (- x y))) (* a 120.0)))
double code(double x, double y, double z, double t, double a) {
return (60.0 / ((z - t) / (x - y))) + (a * 120.0);
}
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 = (60.0d0 / ((z - t) / (x - y))) + (a * 120.0d0)
end function
public static double code(double x, double y, double z, double t, double a) {
return (60.0 / ((z - t) / (x - y))) + (a * 120.0);
}
def code(x, y, z, t, a): return (60.0 / ((z - t) / (x - y))) + (a * 120.0)
function code(x, y, z, t, a) return Float64(Float64(60.0 / Float64(Float64(z - t) / Float64(x - y))) + Float64(a * 120.0)) end
function tmp = code(x, y, z, t, a) tmp = (60.0 / ((z - t) / (x - y))) + (a * 120.0); end
code[x_, y_, z_, t_, a_] := N[(N[(60.0 / N[(N[(z - t), $MachinePrecision] / N[(x - y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(a * 120.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{60}{\frac{z - t}{x - y}} + a \cdot 120
\end{array}
herbie shell --seed 2024270
(FPCore (x y z t a)
:name "Data.Colour.RGB:hslsv from colour-2.3.3, B"
:precision binary64
:alt
(! :herbie-platform default (+ (/ 60 (/ (- z t) (- x y))) (* a 120)))
(+ (/ (* 60.0 (- x y)) (- z t)) (* a 120.0)))