
(FPCore (x y z t a b) :precision binary64 (* x (exp (+ (* y (- (log z) t)) (* a (- (log (- 1.0 z)) b))))))
double code(double x, double y, double z, double t, double a, double b) {
return x * exp(((y * (log(z) - t)) + (a * (log((1.0 - z)) - b))));
}
real(8) function code(x, y, z, t, a, b)
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), intent (in) :: b
code = x * exp(((y * (log(z) - t)) + (a * (log((1.0d0 - z)) - b))))
end function
public static double code(double x, double y, double z, double t, double a, double b) {
return x * Math.exp(((y * (Math.log(z) - t)) + (a * (Math.log((1.0 - z)) - b))));
}
def code(x, y, z, t, a, b): return x * math.exp(((y * (math.log(z) - t)) + (a * (math.log((1.0 - z)) - b))))
function code(x, y, z, t, a, b) return Float64(x * exp(Float64(Float64(y * Float64(log(z) - t)) + Float64(a * Float64(log(Float64(1.0 - z)) - b))))) end
function tmp = code(x, y, z, t, a, b) tmp = x * exp(((y * (log(z) - t)) + (a * (log((1.0 - z)) - b)))); end
code[x_, y_, z_, t_, a_, b_] := N[(x * N[Exp[N[(N[(y * N[(N[Log[z], $MachinePrecision] - t), $MachinePrecision]), $MachinePrecision] + N[(a * N[(N[Log[N[(1.0 - z), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x \cdot e^{y \cdot \left(\log z - t\right) + a \cdot \left(\log \left(1 - z\right) - b\right)}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 15 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z t a b) :precision binary64 (* x (exp (+ (* y (- (log z) t)) (* a (- (log (- 1.0 z)) b))))))
double code(double x, double y, double z, double t, double a, double b) {
return x * exp(((y * (log(z) - t)) + (a * (log((1.0 - z)) - b))));
}
real(8) function code(x, y, z, t, a, b)
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), intent (in) :: b
code = x * exp(((y * (log(z) - t)) + (a * (log((1.0d0 - z)) - b))))
end function
public static double code(double x, double y, double z, double t, double a, double b) {
return x * Math.exp(((y * (Math.log(z) - t)) + (a * (Math.log((1.0 - z)) - b))));
}
def code(x, y, z, t, a, b): return x * math.exp(((y * (math.log(z) - t)) + (a * (math.log((1.0 - z)) - b))))
function code(x, y, z, t, a, b) return Float64(x * exp(Float64(Float64(y * Float64(log(z) - t)) + Float64(a * Float64(log(Float64(1.0 - z)) - b))))) end
function tmp = code(x, y, z, t, a, b) tmp = x * exp(((y * (log(z) - t)) + (a * (log((1.0 - z)) - b)))); end
code[x_, y_, z_, t_, a_, b_] := N[(x * N[Exp[N[(N[(y * N[(N[Log[z], $MachinePrecision] - t), $MachinePrecision]), $MachinePrecision] + N[(a * N[(N[Log[N[(1.0 - z), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x \cdot e^{y \cdot \left(\log z - t\right) + a \cdot \left(\log \left(1 - z\right) - b\right)}
\end{array}
(FPCore (x y z t a b) :precision binary64 (* x (exp (fma y (- (log z) t) (* a (- (log1p (- z)) b))))))
double code(double x, double y, double z, double t, double a, double b) {
return x * exp(fma(y, (log(z) - t), (a * (log1p(-z) - b))));
}
function code(x, y, z, t, a, b) return Float64(x * exp(fma(y, Float64(log(z) - t), Float64(a * Float64(log1p(Float64(-z)) - b))))) end
code[x_, y_, z_, t_, a_, b_] := N[(x * N[Exp[N[(y * N[(N[Log[z], $MachinePrecision] - t), $MachinePrecision] + N[(a * N[(N[Log[1 + (-z)], $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x \cdot e^{\mathsf{fma}\left(y, \log z - t, a \cdot \left(\mathsf{log1p}\left(-z\right) - b\right)\right)}
\end{array}
Initial program 97.7%
fma-def98.1%
sub-neg98.1%
log1p-def100.0%
Simplified100.0%
Final simplification100.0%
(FPCore (x y z t a b) :precision binary64 (* x (exp (+ (* y (- (log z) t)) (* a (- (log (- 1.0 z)) b))))))
double code(double x, double y, double z, double t, double a, double b) {
return x * exp(((y * (log(z) - t)) + (a * (log((1.0 - z)) - b))));
}
real(8) function code(x, y, z, t, a, b)
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), intent (in) :: b
code = x * exp(((y * (log(z) - t)) + (a * (log((1.0d0 - z)) - b))))
end function
public static double code(double x, double y, double z, double t, double a, double b) {
return x * Math.exp(((y * (Math.log(z) - t)) + (a * (Math.log((1.0 - z)) - b))));
}
def code(x, y, z, t, a, b): return x * math.exp(((y * (math.log(z) - t)) + (a * (math.log((1.0 - z)) - b))))
function code(x, y, z, t, a, b) return Float64(x * exp(Float64(Float64(y * Float64(log(z) - t)) + Float64(a * Float64(log(Float64(1.0 - z)) - b))))) end
function tmp = code(x, y, z, t, a, b) tmp = x * exp(((y * (log(z) - t)) + (a * (log((1.0 - z)) - b)))); end
code[x_, y_, z_, t_, a_, b_] := N[(x * N[Exp[N[(N[(y * N[(N[Log[z], $MachinePrecision] - t), $MachinePrecision]), $MachinePrecision] + N[(a * N[(N[Log[N[(1.0 - z), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x \cdot e^{y \cdot \left(\log z - t\right) + a \cdot \left(\log \left(1 - z\right) - b\right)}
\end{array}
Initial program 97.7%
Final simplification97.7%
(FPCore (x y z t a b) :precision binary64 (if (or (<= y -1.1e-23) (not (<= y 1.3e-42))) (* x (exp (* y (- (log z) t)))) (* x (exp (* (- a) (+ z b))))))
double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if ((y <= -1.1e-23) || !(y <= 1.3e-42)) {
tmp = x * exp((y * (log(z) - t)));
} else {
tmp = x * exp((-a * (z + b)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b)
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), intent (in) :: b
real(8) :: tmp
if ((y <= (-1.1d-23)) .or. (.not. (y <= 1.3d-42))) then
tmp = x * exp((y * (log(z) - t)))
else
tmp = x * exp((-a * (z + b)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if ((y <= -1.1e-23) || !(y <= 1.3e-42)) {
tmp = x * Math.exp((y * (Math.log(z) - t)));
} else {
tmp = x * Math.exp((-a * (z + b)));
}
return tmp;
}
def code(x, y, z, t, a, b): tmp = 0 if (y <= -1.1e-23) or not (y <= 1.3e-42): tmp = x * math.exp((y * (math.log(z) - t))) else: tmp = x * math.exp((-a * (z + b))) return tmp
function code(x, y, z, t, a, b) tmp = 0.0 if ((y <= -1.1e-23) || !(y <= 1.3e-42)) tmp = Float64(x * exp(Float64(y * Float64(log(z) - t)))); else tmp = Float64(x * exp(Float64(Float64(-a) * Float64(z + b)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b) tmp = 0.0; if ((y <= -1.1e-23) || ~((y <= 1.3e-42))) tmp = x * exp((y * (log(z) - t))); else tmp = x * exp((-a * (z + b))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_] := If[Or[LessEqual[y, -1.1e-23], N[Not[LessEqual[y, 1.3e-42]], $MachinePrecision]], N[(x * N[Exp[N[(y * N[(N[Log[z], $MachinePrecision] - t), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], N[(x * N[Exp[N[((-a) * N[(z + b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.1 \cdot 10^{-23} \lor \neg \left(y \leq 1.3 \cdot 10^{-42}\right):\\
\;\;\;\;x \cdot e^{y \cdot \left(\log z - t\right)}\\
\mathbf{else}:\\
\;\;\;\;x \cdot e^{\left(-a\right) \cdot \left(z + b\right)}\\
\end{array}
\end{array}
if y < -1.1e-23 or 1.3e-42 < y Initial program 98.0%
Taylor expanded in y around inf 89.2%
if -1.1e-23 < y < 1.3e-42Initial program 97.3%
Taylor expanded in y around 0 87.4%
sub-neg87.4%
neg-mul-187.4%
log1p-def90.0%
neg-mul-190.0%
Simplified90.0%
Taylor expanded in z around 0 90.0%
associate-*r*90.0%
neg-mul-190.0%
associate-*r*90.0%
neg-mul-190.0%
distribute-lft-out90.0%
Simplified90.0%
Final simplification89.5%
(FPCore (x y z t a b)
:precision binary64
(let* ((t_1 (* x (pow z y))))
(if (<= y -28000000000000.0)
t_1
(if (<= y 0.00125)
(* x (exp (* a (- b))))
(if (or (<= y 3.2e+144) (not (<= y 7e+223)))
t_1
(* x (exp (* y (- t)))))))))
double code(double x, double y, double z, double t, double a, double b) {
double t_1 = x * pow(z, y);
double tmp;
if (y <= -28000000000000.0) {
tmp = t_1;
} else if (y <= 0.00125) {
tmp = x * exp((a * -b));
} else if ((y <= 3.2e+144) || !(y <= 7e+223)) {
tmp = t_1;
} else {
tmp = x * exp((y * -t));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b)
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), intent (in) :: b
real(8) :: t_1
real(8) :: tmp
t_1 = x * (z ** y)
if (y <= (-28000000000000.0d0)) then
tmp = t_1
else if (y <= 0.00125d0) then
tmp = x * exp((a * -b))
else if ((y <= 3.2d+144) .or. (.not. (y <= 7d+223))) then
tmp = t_1
else
tmp = x * exp((y * -t))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b) {
double t_1 = x * Math.pow(z, y);
double tmp;
if (y <= -28000000000000.0) {
tmp = t_1;
} else if (y <= 0.00125) {
tmp = x * Math.exp((a * -b));
} else if ((y <= 3.2e+144) || !(y <= 7e+223)) {
tmp = t_1;
} else {
tmp = x * Math.exp((y * -t));
}
return tmp;
}
def code(x, y, z, t, a, b): t_1 = x * math.pow(z, y) tmp = 0 if y <= -28000000000000.0: tmp = t_1 elif y <= 0.00125: tmp = x * math.exp((a * -b)) elif (y <= 3.2e+144) or not (y <= 7e+223): tmp = t_1 else: tmp = x * math.exp((y * -t)) return tmp
function code(x, y, z, t, a, b) t_1 = Float64(x * (z ^ y)) tmp = 0.0 if (y <= -28000000000000.0) tmp = t_1; elseif (y <= 0.00125) tmp = Float64(x * exp(Float64(a * Float64(-b)))); elseif ((y <= 3.2e+144) || !(y <= 7e+223)) tmp = t_1; else tmp = Float64(x * exp(Float64(y * Float64(-t)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b) t_1 = x * (z ^ y); tmp = 0.0; if (y <= -28000000000000.0) tmp = t_1; elseif (y <= 0.00125) tmp = x * exp((a * -b)); elseif ((y <= 3.2e+144) || ~((y <= 7e+223))) tmp = t_1; else tmp = x * exp((y * -t)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_] := Block[{t$95$1 = N[(x * N[Power[z, y], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -28000000000000.0], t$95$1, If[LessEqual[y, 0.00125], N[(x * N[Exp[N[(a * (-b)), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[y, 3.2e+144], N[Not[LessEqual[y, 7e+223]], $MachinePrecision]], t$95$1, N[(x * N[Exp[N[(y * (-t)), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x \cdot {z}^{y}\\
\mathbf{if}\;y \leq -28000000000000:\\
\;\;\;\;t_1\\
\mathbf{elif}\;y \leq 0.00125:\\
\;\;\;\;x \cdot e^{a \cdot \left(-b\right)}\\
\mathbf{elif}\;y \leq 3.2 \cdot 10^{+144} \lor \neg \left(y \leq 7 \cdot 10^{+223}\right):\\
\;\;\;\;t_1\\
\mathbf{else}:\\
\;\;\;\;x \cdot e^{y \cdot \left(-t\right)}\\
\end{array}
\end{array}
if y < -2.8e13 or 0.00125000000000000003 < y < 3.2000000000000001e144 or 7.0000000000000002e223 < y Initial program 97.4%
Taylor expanded in y around inf 88.9%
Taylor expanded in t around 0 69.2%
if -2.8e13 < y < 0.00125000000000000003Initial program 97.6%
Taylor expanded in b around inf 84.9%
mul-1-neg84.9%
*-commutative84.9%
distribute-rgt-neg-in84.9%
Simplified84.9%
if 3.2000000000000001e144 < y < 7.0000000000000002e223Initial program 100.0%
Taylor expanded in t around inf 84.5%
mul-1-neg84.5%
distribute-rgt-neg-out84.5%
Simplified84.5%
Final simplification77.8%
(FPCore (x y z t a b)
:precision binary64
(let* ((t_1 (* x (pow z y))))
(if (<= y -3e+14)
t_1
(if (<= y 1.55)
(* x (exp (* (- a) (+ z b))))
(if (or (<= y 4.8e+144) (not (<= y 6e+225)))
t_1
(* x (exp (* y (- t)))))))))
double code(double x, double y, double z, double t, double a, double b) {
double t_1 = x * pow(z, y);
double tmp;
if (y <= -3e+14) {
tmp = t_1;
} else if (y <= 1.55) {
tmp = x * exp((-a * (z + b)));
} else if ((y <= 4.8e+144) || !(y <= 6e+225)) {
tmp = t_1;
} else {
tmp = x * exp((y * -t));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b)
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), intent (in) :: b
real(8) :: t_1
real(8) :: tmp
t_1 = x * (z ** y)
if (y <= (-3d+14)) then
tmp = t_1
else if (y <= 1.55d0) then
tmp = x * exp((-a * (z + b)))
else if ((y <= 4.8d+144) .or. (.not. (y <= 6d+225))) then
tmp = t_1
else
tmp = x * exp((y * -t))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b) {
double t_1 = x * Math.pow(z, y);
double tmp;
if (y <= -3e+14) {
tmp = t_1;
} else if (y <= 1.55) {
tmp = x * Math.exp((-a * (z + b)));
} else if ((y <= 4.8e+144) || !(y <= 6e+225)) {
tmp = t_1;
} else {
tmp = x * Math.exp((y * -t));
}
return tmp;
}
def code(x, y, z, t, a, b): t_1 = x * math.pow(z, y) tmp = 0 if y <= -3e+14: tmp = t_1 elif y <= 1.55: tmp = x * math.exp((-a * (z + b))) elif (y <= 4.8e+144) or not (y <= 6e+225): tmp = t_1 else: tmp = x * math.exp((y * -t)) return tmp
function code(x, y, z, t, a, b) t_1 = Float64(x * (z ^ y)) tmp = 0.0 if (y <= -3e+14) tmp = t_1; elseif (y <= 1.55) tmp = Float64(x * exp(Float64(Float64(-a) * Float64(z + b)))); elseif ((y <= 4.8e+144) || !(y <= 6e+225)) tmp = t_1; else tmp = Float64(x * exp(Float64(y * Float64(-t)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b) t_1 = x * (z ^ y); tmp = 0.0; if (y <= -3e+14) tmp = t_1; elseif (y <= 1.55) tmp = x * exp((-a * (z + b))); elseif ((y <= 4.8e+144) || ~((y <= 6e+225))) tmp = t_1; else tmp = x * exp((y * -t)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_] := Block[{t$95$1 = N[(x * N[Power[z, y], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -3e+14], t$95$1, If[LessEqual[y, 1.55], N[(x * N[Exp[N[((-a) * N[(z + b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[y, 4.8e+144], N[Not[LessEqual[y, 6e+225]], $MachinePrecision]], t$95$1, N[(x * N[Exp[N[(y * (-t)), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x \cdot {z}^{y}\\
\mathbf{if}\;y \leq -3 \cdot 10^{+14}:\\
\;\;\;\;t_1\\
\mathbf{elif}\;y \leq 1.55:\\
\;\;\;\;x \cdot e^{\left(-a\right) \cdot \left(z + b\right)}\\
\mathbf{elif}\;y \leq 4.8 \cdot 10^{+144} \lor \neg \left(y \leq 6 \cdot 10^{+225}\right):\\
\;\;\;\;t_1\\
\mathbf{else}:\\
\;\;\;\;x \cdot e^{y \cdot \left(-t\right)}\\
\end{array}
\end{array}
if y < -3e14 or 1.55000000000000004 < y < 4.8000000000000001e144 or 6.000000000000001e225 < y Initial program 98.3%
Taylor expanded in y around inf 88.8%
Taylor expanded in t around 0 69.8%
if -3e14 < y < 1.55000000000000004Initial program 96.8%
Taylor expanded in y around 0 85.0%
sub-neg85.0%
neg-mul-185.0%
log1p-def88.2%
neg-mul-188.2%
Simplified88.2%
Taylor expanded in z around 0 88.2%
associate-*r*88.2%
neg-mul-188.2%
associate-*r*88.2%
neg-mul-188.2%
distribute-lft-out88.2%
Simplified88.2%
if 4.8000000000000001e144 < y < 6.000000000000001e225Initial program 100.0%
Taylor expanded in t around inf 84.5%
mul-1-neg84.5%
distribute-rgt-neg-out84.5%
Simplified84.5%
Final simplification79.7%
(FPCore (x y z t a b)
:precision binary64
(let* ((t_1 (* x (- 1.0 (* y t)))))
(if (<= t -1.25e+286)
(/ (* x x) (+ x (* x (* y t))))
(if (<= t -5.4e+200)
t_1
(if (<= t -1.44e+162)
(* x (* a (- b)))
(if (<= t -2.3e+73) t_1 (* x (pow z y))))))))
double code(double x, double y, double z, double t, double a, double b) {
double t_1 = x * (1.0 - (y * t));
double tmp;
if (t <= -1.25e+286) {
tmp = (x * x) / (x + (x * (y * t)));
} else if (t <= -5.4e+200) {
tmp = t_1;
} else if (t <= -1.44e+162) {
tmp = x * (a * -b);
} else if (t <= -2.3e+73) {
tmp = t_1;
} else {
tmp = x * pow(z, y);
}
return tmp;
}
real(8) function code(x, y, z, t, a, b)
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), intent (in) :: b
real(8) :: t_1
real(8) :: tmp
t_1 = x * (1.0d0 - (y * t))
if (t <= (-1.25d+286)) then
tmp = (x * x) / (x + (x * (y * t)))
else if (t <= (-5.4d+200)) then
tmp = t_1
else if (t <= (-1.44d+162)) then
tmp = x * (a * -b)
else if (t <= (-2.3d+73)) then
tmp = t_1
else
tmp = x * (z ** y)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b) {
double t_1 = x * (1.0 - (y * t));
double tmp;
if (t <= -1.25e+286) {
tmp = (x * x) / (x + (x * (y * t)));
} else if (t <= -5.4e+200) {
tmp = t_1;
} else if (t <= -1.44e+162) {
tmp = x * (a * -b);
} else if (t <= -2.3e+73) {
tmp = t_1;
} else {
tmp = x * Math.pow(z, y);
}
return tmp;
}
def code(x, y, z, t, a, b): t_1 = x * (1.0 - (y * t)) tmp = 0 if t <= -1.25e+286: tmp = (x * x) / (x + (x * (y * t))) elif t <= -5.4e+200: tmp = t_1 elif t <= -1.44e+162: tmp = x * (a * -b) elif t <= -2.3e+73: tmp = t_1 else: tmp = x * math.pow(z, y) return tmp
function code(x, y, z, t, a, b) t_1 = Float64(x * Float64(1.0 - Float64(y * t))) tmp = 0.0 if (t <= -1.25e+286) tmp = Float64(Float64(x * x) / Float64(x + Float64(x * Float64(y * t)))); elseif (t <= -5.4e+200) tmp = t_1; elseif (t <= -1.44e+162) tmp = Float64(x * Float64(a * Float64(-b))); elseif (t <= -2.3e+73) tmp = t_1; else tmp = Float64(x * (z ^ y)); end return tmp end
function tmp_2 = code(x, y, z, t, a, b) t_1 = x * (1.0 - (y * t)); tmp = 0.0; if (t <= -1.25e+286) tmp = (x * x) / (x + (x * (y * t))); elseif (t <= -5.4e+200) tmp = t_1; elseif (t <= -1.44e+162) tmp = x * (a * -b); elseif (t <= -2.3e+73) tmp = t_1; else tmp = x * (z ^ y); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_] := Block[{t$95$1 = N[(x * N[(1.0 - N[(y * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t, -1.25e+286], N[(N[(x * x), $MachinePrecision] / N[(x + N[(x * N[(y * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -5.4e+200], t$95$1, If[LessEqual[t, -1.44e+162], N[(x * N[(a * (-b)), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -2.3e+73], t$95$1, N[(x * N[Power[z, y], $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x \cdot \left(1 - y \cdot t\right)\\
\mathbf{if}\;t \leq -1.25 \cdot 10^{+286}:\\
\;\;\;\;\frac{x \cdot x}{x + x \cdot \left(y \cdot t\right)}\\
\mathbf{elif}\;t \leq -5.4 \cdot 10^{+200}:\\
\;\;\;\;t_1\\
\mathbf{elif}\;t \leq -1.44 \cdot 10^{+162}:\\
\;\;\;\;x \cdot \left(a \cdot \left(-b\right)\right)\\
\mathbf{elif}\;t \leq -2.3 \cdot 10^{+73}:\\
\;\;\;\;t_1\\
\mathbf{else}:\\
\;\;\;\;x \cdot {z}^{y}\\
\end{array}
\end{array}
if t < -1.2500000000000001e286Initial program 100.0%
Taylor expanded in t around inf 87.7%
mul-1-neg87.7%
distribute-rgt-neg-out87.7%
Simplified87.7%
Taylor expanded in y around 0 2.4%
+-commutative2.4%
mul-1-neg2.4%
unsub-neg2.4%
Simplified2.4%
flip--1.6%
*-commutative1.6%
*-commutative1.6%
*-commutative1.6%
Applied egg-rr1.6%
associate-*l*1.6%
*-commutative1.6%
associate-*r*1.5%
*-commutative1.5%
*-commutative1.5%
associate-*r*1.5%
*-commutative1.5%
Simplified1.5%
Taylor expanded in y around 0 63.1%
unpow263.1%
Simplified63.1%
if -1.2500000000000001e286 < t < -5.40000000000000031e200 or -1.43999999999999993e162 < t < -2.3e73Initial program 97.1%
Taylor expanded in t around inf 83.4%
mul-1-neg83.4%
distribute-rgt-neg-out83.4%
Simplified83.4%
Taylor expanded in y around 0 38.9%
+-commutative38.9%
mul-1-neg38.9%
unsub-neg38.9%
Simplified38.9%
Taylor expanded in x around 0 52.6%
if -5.40000000000000031e200 < t < -1.43999999999999993e162Initial program 100.0%
Taylor expanded in b around inf 36.3%
mul-1-neg36.3%
*-commutative36.3%
distribute-rgt-neg-in36.3%
Simplified36.3%
Taylor expanded in b around 0 19.9%
mul-1-neg19.9%
unsub-neg19.9%
*-commutative19.9%
Simplified19.9%
Taylor expanded in b around inf 51.8%
mul-1-neg51.8%
associate-*r*83.6%
distribute-rgt-neg-in83.6%
Simplified83.6%
if -2.3e73 < t Initial program 97.6%
Taylor expanded in y around inf 70.7%
Taylor expanded in t around 0 61.9%
Final simplification61.1%
(FPCore (x y z t a b) :precision binary64 (if (or (<= y -3.1e+14) (not (<= y 0.0042))) (* x (pow z y)) (* x (exp (* a (- b))))))
double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if ((y <= -3.1e+14) || !(y <= 0.0042)) {
tmp = x * pow(z, y);
} else {
tmp = x * exp((a * -b));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b)
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), intent (in) :: b
real(8) :: tmp
if ((y <= (-3.1d+14)) .or. (.not. (y <= 0.0042d0))) then
tmp = x * (z ** y)
else
tmp = x * exp((a * -b))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if ((y <= -3.1e+14) || !(y <= 0.0042)) {
tmp = x * Math.pow(z, y);
} else {
tmp = x * Math.exp((a * -b));
}
return tmp;
}
def code(x, y, z, t, a, b): tmp = 0 if (y <= -3.1e+14) or not (y <= 0.0042): tmp = x * math.pow(z, y) else: tmp = x * math.exp((a * -b)) return tmp
function code(x, y, z, t, a, b) tmp = 0.0 if ((y <= -3.1e+14) || !(y <= 0.0042)) tmp = Float64(x * (z ^ y)); else tmp = Float64(x * exp(Float64(a * Float64(-b)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b) tmp = 0.0; if ((y <= -3.1e+14) || ~((y <= 0.0042))) tmp = x * (z ^ y); else tmp = x * exp((a * -b)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_] := If[Or[LessEqual[y, -3.1e+14], N[Not[LessEqual[y, 0.0042]], $MachinePrecision]], N[(x * N[Power[z, y], $MachinePrecision]), $MachinePrecision], N[(x * N[Exp[N[(a * (-b)), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -3.1 \cdot 10^{+14} \lor \neg \left(y \leq 0.0042\right):\\
\;\;\;\;x \cdot {z}^{y}\\
\mathbf{else}:\\
\;\;\;\;x \cdot e^{a \cdot \left(-b\right)}\\
\end{array}
\end{array}
if y < -3.1e14 or 0.00419999999999999974 < y Initial program 97.8%
Taylor expanded in y around inf 89.7%
Taylor expanded in t around 0 66.2%
if -3.1e14 < y < 0.00419999999999999974Initial program 97.6%
Taylor expanded in b around inf 84.9%
mul-1-neg84.9%
*-commutative84.9%
distribute-rgt-neg-in84.9%
Simplified84.9%
Final simplification75.1%
(FPCore (x y z t a b)
:precision binary64
(let* ((t_1 (/ (* x x) (+ x (* x (* y t))))))
(if (<= y -6e+111)
(* (- t) (* x y))
(if (<= y -1.2e-66)
t_1
(if (<= y 0.00013)
(* x (- 1.0 (* a b)))
(if (<= y 4.2e+103) (* x (* a (- b))) t_1))))))
double code(double x, double y, double z, double t, double a, double b) {
double t_1 = (x * x) / (x + (x * (y * t)));
double tmp;
if (y <= -6e+111) {
tmp = -t * (x * y);
} else if (y <= -1.2e-66) {
tmp = t_1;
} else if (y <= 0.00013) {
tmp = x * (1.0 - (a * b));
} else if (y <= 4.2e+103) {
tmp = x * (a * -b);
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b)
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), intent (in) :: b
real(8) :: t_1
real(8) :: tmp
t_1 = (x * x) / (x + (x * (y * t)))
if (y <= (-6d+111)) then
tmp = -t * (x * y)
else if (y <= (-1.2d-66)) then
tmp = t_1
else if (y <= 0.00013d0) then
tmp = x * (1.0d0 - (a * b))
else if (y <= 4.2d+103) then
tmp = x * (a * -b)
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 b) {
double t_1 = (x * x) / (x + (x * (y * t)));
double tmp;
if (y <= -6e+111) {
tmp = -t * (x * y);
} else if (y <= -1.2e-66) {
tmp = t_1;
} else if (y <= 0.00013) {
tmp = x * (1.0 - (a * b));
} else if (y <= 4.2e+103) {
tmp = x * (a * -b);
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b): t_1 = (x * x) / (x + (x * (y * t))) tmp = 0 if y <= -6e+111: tmp = -t * (x * y) elif y <= -1.2e-66: tmp = t_1 elif y <= 0.00013: tmp = x * (1.0 - (a * b)) elif y <= 4.2e+103: tmp = x * (a * -b) else: tmp = t_1 return tmp
function code(x, y, z, t, a, b) t_1 = Float64(Float64(x * x) / Float64(x + Float64(x * Float64(y * t)))) tmp = 0.0 if (y <= -6e+111) tmp = Float64(Float64(-t) * Float64(x * y)); elseif (y <= -1.2e-66) tmp = t_1; elseif (y <= 0.00013) tmp = Float64(x * Float64(1.0 - Float64(a * b))); elseif (y <= 4.2e+103) tmp = Float64(x * Float64(a * Float64(-b))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b) t_1 = (x * x) / (x + (x * (y * t))); tmp = 0.0; if (y <= -6e+111) tmp = -t * (x * y); elseif (y <= -1.2e-66) tmp = t_1; elseif (y <= 0.00013) tmp = x * (1.0 - (a * b)); elseif (y <= 4.2e+103) tmp = x * (a * -b); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_] := Block[{t$95$1 = N[(N[(x * x), $MachinePrecision] / N[(x + N[(x * N[(y * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -6e+111], N[((-t) * N[(x * y), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1.2e-66], t$95$1, If[LessEqual[y, 0.00013], N[(x * N[(1.0 - N[(a * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 4.2e+103], N[(x * N[(a * (-b)), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{x \cdot x}{x + x \cdot \left(y \cdot t\right)}\\
\mathbf{if}\;y \leq -6 \cdot 10^{+111}:\\
\;\;\;\;\left(-t\right) \cdot \left(x \cdot y\right)\\
\mathbf{elif}\;y \leq -1.2 \cdot 10^{-66}:\\
\;\;\;\;t_1\\
\mathbf{elif}\;y \leq 0.00013:\\
\;\;\;\;x \cdot \left(1 - a \cdot b\right)\\
\mathbf{elif}\;y \leq 4.2 \cdot 10^{+103}:\\
\;\;\;\;x \cdot \left(a \cdot \left(-b\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t_1\\
\end{array}
\end{array}
if y < -6e111Initial program 97.8%
Taylor expanded in t around inf 69.5%
mul-1-neg69.5%
distribute-rgt-neg-out69.5%
Simplified69.5%
Taylor expanded in y around 0 21.0%
+-commutative21.0%
mul-1-neg21.0%
unsub-neg21.0%
Simplified21.0%
Taylor expanded in y around inf 20.5%
*-commutative20.5%
neg-mul-120.5%
distribute-rgt-neg-in20.5%
distribute-rgt-neg-in20.5%
Simplified20.5%
Taylor expanded in y around 0 20.5%
mul-1-neg20.5%
*-commutative20.5%
associate-*r*33.4%
*-commutative33.4%
distribute-rgt-neg-in33.4%
Simplified33.4%
if -6e111 < y < -1.20000000000000013e-66 or 4.2000000000000003e103 < y Initial program 98.8%
Taylor expanded in t around inf 60.8%
mul-1-neg60.8%
distribute-rgt-neg-out60.8%
Simplified60.8%
Taylor expanded in y around 0 13.8%
+-commutative13.8%
mul-1-neg13.8%
unsub-neg13.8%
Simplified13.8%
flip--17.3%
*-commutative17.3%
*-commutative17.3%
*-commutative17.3%
Applied egg-rr17.3%
associate-*l*18.5%
*-commutative18.5%
associate-*r*23.1%
*-commutative23.1%
*-commutative23.1%
associate-*r*14.5%
*-commutative14.5%
Simplified14.5%
Taylor expanded in y around 0 35.4%
unpow235.4%
Simplified35.4%
if -1.20000000000000013e-66 < y < 1.29999999999999989e-4Initial program 97.3%
Taylor expanded in b around inf 85.8%
mul-1-neg85.8%
*-commutative85.8%
distribute-rgt-neg-in85.8%
Simplified85.8%
Taylor expanded in b around 0 50.7%
mul-1-neg50.7%
unsub-neg50.7%
*-commutative50.7%
Simplified50.7%
if 1.29999999999999989e-4 < y < 4.2000000000000003e103Initial program 95.3%
Taylor expanded in b around inf 35.5%
mul-1-neg35.5%
*-commutative35.5%
distribute-rgt-neg-in35.5%
Simplified35.5%
Taylor expanded in b around 0 21.7%
mul-1-neg21.7%
unsub-neg21.7%
*-commutative21.7%
Simplified21.7%
Taylor expanded in b around inf 35.5%
mul-1-neg35.5%
associate-*r*45.6%
distribute-rgt-neg-in45.6%
Simplified45.6%
Final simplification42.4%
(FPCore (x y z t a b)
:precision binary64
(let* ((t_1 (* (- t) (* x y))))
(if (<= y -6e+111)
t_1
(if (<= y -6.6e-41)
(* a (* x (- b)))
(if (<= y -5e-79)
t_1
(if (<= y 8.2e-115)
x
(if (<= y 8.8e+83) (* x (* a (- b))) (* x (* y (- t))))))))))
double code(double x, double y, double z, double t, double a, double b) {
double t_1 = -t * (x * y);
double tmp;
if (y <= -6e+111) {
tmp = t_1;
} else if (y <= -6.6e-41) {
tmp = a * (x * -b);
} else if (y <= -5e-79) {
tmp = t_1;
} else if (y <= 8.2e-115) {
tmp = x;
} else if (y <= 8.8e+83) {
tmp = x * (a * -b);
} else {
tmp = x * (y * -t);
}
return tmp;
}
real(8) function code(x, y, z, t, a, b)
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), intent (in) :: b
real(8) :: t_1
real(8) :: tmp
t_1 = -t * (x * y)
if (y <= (-6d+111)) then
tmp = t_1
else if (y <= (-6.6d-41)) then
tmp = a * (x * -b)
else if (y <= (-5d-79)) then
tmp = t_1
else if (y <= 8.2d-115) then
tmp = x
else if (y <= 8.8d+83) then
tmp = x * (a * -b)
else
tmp = x * (y * -t)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b) {
double t_1 = -t * (x * y);
double tmp;
if (y <= -6e+111) {
tmp = t_1;
} else if (y <= -6.6e-41) {
tmp = a * (x * -b);
} else if (y <= -5e-79) {
tmp = t_1;
} else if (y <= 8.2e-115) {
tmp = x;
} else if (y <= 8.8e+83) {
tmp = x * (a * -b);
} else {
tmp = x * (y * -t);
}
return tmp;
}
def code(x, y, z, t, a, b): t_1 = -t * (x * y) tmp = 0 if y <= -6e+111: tmp = t_1 elif y <= -6.6e-41: tmp = a * (x * -b) elif y <= -5e-79: tmp = t_1 elif y <= 8.2e-115: tmp = x elif y <= 8.8e+83: tmp = x * (a * -b) else: tmp = x * (y * -t) return tmp
function code(x, y, z, t, a, b) t_1 = Float64(Float64(-t) * Float64(x * y)) tmp = 0.0 if (y <= -6e+111) tmp = t_1; elseif (y <= -6.6e-41) tmp = Float64(a * Float64(x * Float64(-b))); elseif (y <= -5e-79) tmp = t_1; elseif (y <= 8.2e-115) tmp = x; elseif (y <= 8.8e+83) tmp = Float64(x * Float64(a * Float64(-b))); else tmp = Float64(x * Float64(y * Float64(-t))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b) t_1 = -t * (x * y); tmp = 0.0; if (y <= -6e+111) tmp = t_1; elseif (y <= -6.6e-41) tmp = a * (x * -b); elseif (y <= -5e-79) tmp = t_1; elseif (y <= 8.2e-115) tmp = x; elseif (y <= 8.8e+83) tmp = x * (a * -b); else tmp = x * (y * -t); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_] := Block[{t$95$1 = N[((-t) * N[(x * y), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -6e+111], t$95$1, If[LessEqual[y, -6.6e-41], N[(a * N[(x * (-b)), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -5e-79], t$95$1, If[LessEqual[y, 8.2e-115], x, If[LessEqual[y, 8.8e+83], N[(x * N[(a * (-b)), $MachinePrecision]), $MachinePrecision], N[(x * N[(y * (-t)), $MachinePrecision]), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \left(-t\right) \cdot \left(x \cdot y\right)\\
\mathbf{if}\;y \leq -6 \cdot 10^{+111}:\\
\;\;\;\;t_1\\
\mathbf{elif}\;y \leq -6.6 \cdot 10^{-41}:\\
\;\;\;\;a \cdot \left(x \cdot \left(-b\right)\right)\\
\mathbf{elif}\;y \leq -5 \cdot 10^{-79}:\\
\;\;\;\;t_1\\
\mathbf{elif}\;y \leq 8.2 \cdot 10^{-115}:\\
\;\;\;\;x\\
\mathbf{elif}\;y \leq 8.8 \cdot 10^{+83}:\\
\;\;\;\;x \cdot \left(a \cdot \left(-b\right)\right)\\
\mathbf{else}:\\
\;\;\;\;x \cdot \left(y \cdot \left(-t\right)\right)\\
\end{array}
\end{array}
if y < -6e111 or -6.60000000000000047e-41 < y < -4.99999999999999999e-79Initial program 98.0%
Taylor expanded in t around inf 65.4%
mul-1-neg65.4%
distribute-rgt-neg-out65.4%
Simplified65.4%
Taylor expanded in y around 0 19.0%
+-commutative19.0%
mul-1-neg19.0%
unsub-neg19.0%
Simplified19.0%
Taylor expanded in y around inf 20.4%
*-commutative20.4%
neg-mul-120.4%
distribute-rgt-neg-in20.4%
distribute-rgt-neg-in20.4%
Simplified20.4%
Taylor expanded in y around 0 20.4%
mul-1-neg20.4%
*-commutative20.4%
associate-*r*35.5%
*-commutative35.5%
distribute-rgt-neg-in35.5%
Simplified35.5%
if -6e111 < y < -6.60000000000000047e-41Initial program 100.0%
Taylor expanded in b around inf 54.3%
mul-1-neg54.3%
*-commutative54.3%
distribute-rgt-neg-in54.3%
Simplified54.3%
Taylor expanded in b around 0 11.5%
mul-1-neg11.5%
unsub-neg11.5%
*-commutative11.5%
Simplified11.5%
Taylor expanded in b around inf 27.9%
associate-*r*27.9%
neg-mul-127.9%
Simplified27.9%
if -4.99999999999999999e-79 < y < 8.1999999999999993e-115Initial program 96.8%
Taylor expanded in b around inf 85.1%
mul-1-neg85.1%
*-commutative85.1%
distribute-rgt-neg-in85.1%
Simplified85.1%
Taylor expanded in b around 0 40.3%
if 8.1999999999999993e-115 < y < 8.79999999999999995e83Initial program 97.0%
Taylor expanded in b around inf 57.5%
mul-1-neg57.5%
*-commutative57.5%
distribute-rgt-neg-in57.5%
Simplified57.5%
Taylor expanded in b around 0 37.1%
mul-1-neg37.1%
unsub-neg37.1%
*-commutative37.1%
Simplified37.1%
Taylor expanded in b around inf 38.9%
mul-1-neg38.9%
associate-*r*45.3%
distribute-rgt-neg-in45.3%
Simplified45.3%
if 8.79999999999999995e83 < y Initial program 97.8%
Taylor expanded in t around inf 65.1%
mul-1-neg65.1%
distribute-rgt-neg-out65.1%
Simplified65.1%
Taylor expanded in y around 0 16.2%
+-commutative16.2%
mul-1-neg16.2%
unsub-neg16.2%
Simplified16.2%
Taylor expanded in y around inf 26.6%
*-commutative26.6%
neg-mul-126.6%
distribute-rgt-neg-in26.6%
distribute-rgt-neg-in26.6%
Simplified26.6%
Taylor expanded in y around 0 26.6%
mul-1-neg26.6%
associate-*r*28.5%
*-commutative28.5%
distribute-rgt-neg-in28.5%
*-commutative28.5%
distribute-rgt-neg-in28.5%
Simplified28.5%
Final simplification36.3%
(FPCore (x y z t a b)
:precision binary64
(let* ((t_1 (* (- t) (* x y))))
(if (<= y -4.5e+111)
t_1
(if (<= y -2.8e-39)
(* a (* x (- b)))
(if (<= y -6.8e-63)
t_1
(if (<= y 3.6e-7)
(* x (- 1.0 (* a b)))
(if (<= y 9.3e+86) (* x (* a (- b))) (* x (* y (- t))))))))))
double code(double x, double y, double z, double t, double a, double b) {
double t_1 = -t * (x * y);
double tmp;
if (y <= -4.5e+111) {
tmp = t_1;
} else if (y <= -2.8e-39) {
tmp = a * (x * -b);
} else if (y <= -6.8e-63) {
tmp = t_1;
} else if (y <= 3.6e-7) {
tmp = x * (1.0 - (a * b));
} else if (y <= 9.3e+86) {
tmp = x * (a * -b);
} else {
tmp = x * (y * -t);
}
return tmp;
}
real(8) function code(x, y, z, t, a, b)
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), intent (in) :: b
real(8) :: t_1
real(8) :: tmp
t_1 = -t * (x * y)
if (y <= (-4.5d+111)) then
tmp = t_1
else if (y <= (-2.8d-39)) then
tmp = a * (x * -b)
else if (y <= (-6.8d-63)) then
tmp = t_1
else if (y <= 3.6d-7) then
tmp = x * (1.0d0 - (a * b))
else if (y <= 9.3d+86) then
tmp = x * (a * -b)
else
tmp = x * (y * -t)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b) {
double t_1 = -t * (x * y);
double tmp;
if (y <= -4.5e+111) {
tmp = t_1;
} else if (y <= -2.8e-39) {
tmp = a * (x * -b);
} else if (y <= -6.8e-63) {
tmp = t_1;
} else if (y <= 3.6e-7) {
tmp = x * (1.0 - (a * b));
} else if (y <= 9.3e+86) {
tmp = x * (a * -b);
} else {
tmp = x * (y * -t);
}
return tmp;
}
def code(x, y, z, t, a, b): t_1 = -t * (x * y) tmp = 0 if y <= -4.5e+111: tmp = t_1 elif y <= -2.8e-39: tmp = a * (x * -b) elif y <= -6.8e-63: tmp = t_1 elif y <= 3.6e-7: tmp = x * (1.0 - (a * b)) elif y <= 9.3e+86: tmp = x * (a * -b) else: tmp = x * (y * -t) return tmp
function code(x, y, z, t, a, b) t_1 = Float64(Float64(-t) * Float64(x * y)) tmp = 0.0 if (y <= -4.5e+111) tmp = t_1; elseif (y <= -2.8e-39) tmp = Float64(a * Float64(x * Float64(-b))); elseif (y <= -6.8e-63) tmp = t_1; elseif (y <= 3.6e-7) tmp = Float64(x * Float64(1.0 - Float64(a * b))); elseif (y <= 9.3e+86) tmp = Float64(x * Float64(a * Float64(-b))); else tmp = Float64(x * Float64(y * Float64(-t))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b) t_1 = -t * (x * y); tmp = 0.0; if (y <= -4.5e+111) tmp = t_1; elseif (y <= -2.8e-39) tmp = a * (x * -b); elseif (y <= -6.8e-63) tmp = t_1; elseif (y <= 3.6e-7) tmp = x * (1.0 - (a * b)); elseif (y <= 9.3e+86) tmp = x * (a * -b); else tmp = x * (y * -t); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_] := Block[{t$95$1 = N[((-t) * N[(x * y), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -4.5e+111], t$95$1, If[LessEqual[y, -2.8e-39], N[(a * N[(x * (-b)), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -6.8e-63], t$95$1, If[LessEqual[y, 3.6e-7], N[(x * N[(1.0 - N[(a * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 9.3e+86], N[(x * N[(a * (-b)), $MachinePrecision]), $MachinePrecision], N[(x * N[(y * (-t)), $MachinePrecision]), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \left(-t\right) \cdot \left(x \cdot y\right)\\
\mathbf{if}\;y \leq -4.5 \cdot 10^{+111}:\\
\;\;\;\;t_1\\
\mathbf{elif}\;y \leq -2.8 \cdot 10^{-39}:\\
\;\;\;\;a \cdot \left(x \cdot \left(-b\right)\right)\\
\mathbf{elif}\;y \leq -6.8 \cdot 10^{-63}:\\
\;\;\;\;t_1\\
\mathbf{elif}\;y \leq 3.6 \cdot 10^{-7}:\\
\;\;\;\;x \cdot \left(1 - a \cdot b\right)\\
\mathbf{elif}\;y \leq 9.3 \cdot 10^{+86}:\\
\;\;\;\;x \cdot \left(a \cdot \left(-b\right)\right)\\
\mathbf{else}:\\
\;\;\;\;x \cdot \left(y \cdot \left(-t\right)\right)\\
\end{array}
\end{array}
if y < -4.50000000000000001e111 or -2.8000000000000001e-39 < y < -6.79999999999999997e-63Initial program 97.9%
Taylor expanded in t around inf 67.9%
mul-1-neg67.9%
distribute-rgt-neg-out67.9%
Simplified67.9%
Taylor expanded in y around 0 19.6%
+-commutative19.6%
mul-1-neg19.6%
unsub-neg19.6%
Simplified19.6%
Taylor expanded in y around inf 19.1%
*-commutative19.1%
neg-mul-119.1%
distribute-rgt-neg-in19.1%
distribute-rgt-neg-in19.1%
Simplified19.1%
Taylor expanded in y around 0 19.1%
mul-1-neg19.1%
*-commutative19.1%
associate-*r*34.8%
*-commutative34.8%
distribute-rgt-neg-in34.8%
Simplified34.8%
if -4.50000000000000001e111 < y < -2.8000000000000001e-39Initial program 100.0%
Taylor expanded in b around inf 54.3%
mul-1-neg54.3%
*-commutative54.3%
distribute-rgt-neg-in54.3%
Simplified54.3%
Taylor expanded in b around 0 11.5%
mul-1-neg11.5%
unsub-neg11.5%
*-commutative11.5%
Simplified11.5%
Taylor expanded in b around inf 27.9%
associate-*r*27.9%
neg-mul-127.9%
Simplified27.9%
if -6.79999999999999997e-63 < y < 3.59999999999999994e-7Initial program 97.3%
Taylor expanded in b around inf 85.8%
mul-1-neg85.8%
*-commutative85.8%
distribute-rgt-neg-in85.8%
Simplified85.8%
Taylor expanded in b around 0 50.7%
mul-1-neg50.7%
unsub-neg50.7%
*-commutative50.7%
Simplified50.7%
if 3.59999999999999994e-7 < y < 9.30000000000000055e86Initial program 95.1%
Taylor expanded in b around inf 37.2%
mul-1-neg37.2%
*-commutative37.2%
distribute-rgt-neg-in37.2%
Simplified37.2%
Taylor expanded in b around 0 22.7%
mul-1-neg22.7%
unsub-neg22.7%
*-commutative22.7%
Simplified22.7%
Taylor expanded in b around inf 37.1%
mul-1-neg37.1%
associate-*r*47.8%
distribute-rgt-neg-in47.8%
Simplified47.8%
if 9.30000000000000055e86 < y Initial program 97.8%
Taylor expanded in t around inf 65.1%
mul-1-neg65.1%
distribute-rgt-neg-out65.1%
Simplified65.1%
Taylor expanded in y around 0 16.2%
+-commutative16.2%
mul-1-neg16.2%
unsub-neg16.2%
Simplified16.2%
Taylor expanded in y around inf 26.6%
*-commutative26.6%
neg-mul-126.6%
distribute-rgt-neg-in26.6%
distribute-rgt-neg-in26.6%
Simplified26.6%
Taylor expanded in y around 0 26.6%
mul-1-neg26.6%
associate-*r*28.5%
*-commutative28.5%
distribute-rgt-neg-in28.5%
*-commutative28.5%
distribute-rgt-neg-in28.5%
Simplified28.5%
Final simplification40.6%
(FPCore (x y z t a b)
:precision binary64
(let* ((t_1 (* a (* x (- b)))))
(if (<= y -2.1e-15)
t_1
(if (<= y 1.16e-114)
x
(if (<= y 1.9e+144)
t_1
(if (<= y 8.5e+222) (* x (* y (- t))) (* y (* x (- t)))))))))
double code(double x, double y, double z, double t, double a, double b) {
double t_1 = a * (x * -b);
double tmp;
if (y <= -2.1e-15) {
tmp = t_1;
} else if (y <= 1.16e-114) {
tmp = x;
} else if (y <= 1.9e+144) {
tmp = t_1;
} else if (y <= 8.5e+222) {
tmp = x * (y * -t);
} else {
tmp = y * (x * -t);
}
return tmp;
}
real(8) function code(x, y, z, t, a, b)
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), intent (in) :: b
real(8) :: t_1
real(8) :: tmp
t_1 = a * (x * -b)
if (y <= (-2.1d-15)) then
tmp = t_1
else if (y <= 1.16d-114) then
tmp = x
else if (y <= 1.9d+144) then
tmp = t_1
else if (y <= 8.5d+222) then
tmp = x * (y * -t)
else
tmp = y * (x * -t)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b) {
double t_1 = a * (x * -b);
double tmp;
if (y <= -2.1e-15) {
tmp = t_1;
} else if (y <= 1.16e-114) {
tmp = x;
} else if (y <= 1.9e+144) {
tmp = t_1;
} else if (y <= 8.5e+222) {
tmp = x * (y * -t);
} else {
tmp = y * (x * -t);
}
return tmp;
}
def code(x, y, z, t, a, b): t_1 = a * (x * -b) tmp = 0 if y <= -2.1e-15: tmp = t_1 elif y <= 1.16e-114: tmp = x elif y <= 1.9e+144: tmp = t_1 elif y <= 8.5e+222: tmp = x * (y * -t) else: tmp = y * (x * -t) return tmp
function code(x, y, z, t, a, b) t_1 = Float64(a * Float64(x * Float64(-b))) tmp = 0.0 if (y <= -2.1e-15) tmp = t_1; elseif (y <= 1.16e-114) tmp = x; elseif (y <= 1.9e+144) tmp = t_1; elseif (y <= 8.5e+222) tmp = Float64(x * Float64(y * Float64(-t))); else tmp = Float64(y * Float64(x * Float64(-t))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b) t_1 = a * (x * -b); tmp = 0.0; if (y <= -2.1e-15) tmp = t_1; elseif (y <= 1.16e-114) tmp = x; elseif (y <= 1.9e+144) tmp = t_1; elseif (y <= 8.5e+222) tmp = x * (y * -t); else tmp = y * (x * -t); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_] := Block[{t$95$1 = N[(a * N[(x * (-b)), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -2.1e-15], t$95$1, If[LessEqual[y, 1.16e-114], x, If[LessEqual[y, 1.9e+144], t$95$1, If[LessEqual[y, 8.5e+222], N[(x * N[(y * (-t)), $MachinePrecision]), $MachinePrecision], N[(y * N[(x * (-t)), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(x \cdot \left(-b\right)\right)\\
\mathbf{if}\;y \leq -2.1 \cdot 10^{-15}:\\
\;\;\;\;t_1\\
\mathbf{elif}\;y \leq 1.16 \cdot 10^{-114}:\\
\;\;\;\;x\\
\mathbf{elif}\;y \leq 1.9 \cdot 10^{+144}:\\
\;\;\;\;t_1\\
\mathbf{elif}\;y \leq 8.5 \cdot 10^{+222}:\\
\;\;\;\;x \cdot \left(y \cdot \left(-t\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y \cdot \left(x \cdot \left(-t\right)\right)\\
\end{array}
\end{array}
if y < -2.09999999999999981e-15 or 1.1599999999999999e-114 < y < 1.90000000000000013e144Initial program 98.3%
Taylor expanded in b around inf 46.1%
mul-1-neg46.1%
*-commutative46.1%
distribute-rgt-neg-in46.1%
Simplified46.1%
Taylor expanded in b around 0 17.9%
mul-1-neg17.9%
unsub-neg17.9%
*-commutative17.9%
Simplified17.9%
Taylor expanded in b around inf 27.6%
associate-*r*27.6%
neg-mul-127.6%
Simplified27.6%
if -2.09999999999999981e-15 < y < 1.1599999999999999e-114Initial program 97.1%
Taylor expanded in b around inf 85.3%
mul-1-neg85.3%
*-commutative85.3%
distribute-rgt-neg-in85.3%
Simplified85.3%
Taylor expanded in b around 0 38.5%
if 1.90000000000000013e144 < y < 8.4999999999999994e222Initial program 100.0%
Taylor expanded in t around inf 84.5%
mul-1-neg84.5%
distribute-rgt-neg-out84.5%
Simplified84.5%
Taylor expanded in y around 0 23.8%
+-commutative23.8%
mul-1-neg23.8%
unsub-neg23.8%
Simplified23.8%
Taylor expanded in y around inf 28.7%
*-commutative28.7%
neg-mul-128.7%
distribute-rgt-neg-in28.7%
distribute-rgt-neg-in28.7%
Simplified28.7%
Taylor expanded in y around 0 28.7%
mul-1-neg28.7%
associate-*r*43.5%
*-commutative43.5%
distribute-rgt-neg-in43.5%
*-commutative43.5%
distribute-rgt-neg-in43.5%
Simplified43.5%
if 8.4999999999999994e222 < y Initial program 94.4%
Taylor expanded in t around inf 50.8%
mul-1-neg50.8%
distribute-rgt-neg-out50.8%
Simplified50.8%
Taylor expanded in y around 0 14.0%
+-commutative14.0%
mul-1-neg14.0%
unsub-neg14.0%
Simplified14.0%
Taylor expanded in y around inf 34.8%
*-commutative34.8%
neg-mul-134.8%
distribute-rgt-neg-in34.8%
distribute-rgt-neg-in34.8%
Simplified34.8%
Final simplification33.6%
(FPCore (x y z t a b)
:precision binary64
(if (<= y -2.35e-9)
(* a (* x (- b)))
(if (<= y 9e-117)
x
(if (<= y 4.9e+87) (* x (* a (- b))) (* x (* y (- t)))))))
double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if (y <= -2.35e-9) {
tmp = a * (x * -b);
} else if (y <= 9e-117) {
tmp = x;
} else if (y <= 4.9e+87) {
tmp = x * (a * -b);
} else {
tmp = x * (y * -t);
}
return tmp;
}
real(8) function code(x, y, z, t, a, b)
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), intent (in) :: b
real(8) :: tmp
if (y <= (-2.35d-9)) then
tmp = a * (x * -b)
else if (y <= 9d-117) then
tmp = x
else if (y <= 4.9d+87) then
tmp = x * (a * -b)
else
tmp = x * (y * -t)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if (y <= -2.35e-9) {
tmp = a * (x * -b);
} else if (y <= 9e-117) {
tmp = x;
} else if (y <= 4.9e+87) {
tmp = x * (a * -b);
} else {
tmp = x * (y * -t);
}
return tmp;
}
def code(x, y, z, t, a, b): tmp = 0 if y <= -2.35e-9: tmp = a * (x * -b) elif y <= 9e-117: tmp = x elif y <= 4.9e+87: tmp = x * (a * -b) else: tmp = x * (y * -t) return tmp
function code(x, y, z, t, a, b) tmp = 0.0 if (y <= -2.35e-9) tmp = Float64(a * Float64(x * Float64(-b))); elseif (y <= 9e-117) tmp = x; elseif (y <= 4.9e+87) tmp = Float64(x * Float64(a * Float64(-b))); else tmp = Float64(x * Float64(y * Float64(-t))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b) tmp = 0.0; if (y <= -2.35e-9) tmp = a * (x * -b); elseif (y <= 9e-117) tmp = x; elseif (y <= 4.9e+87) tmp = x * (a * -b); else tmp = x * (y * -t); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_] := If[LessEqual[y, -2.35e-9], N[(a * N[(x * (-b)), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 9e-117], x, If[LessEqual[y, 4.9e+87], N[(x * N[(a * (-b)), $MachinePrecision]), $MachinePrecision], N[(x * N[(y * (-t)), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -2.35 \cdot 10^{-9}:\\
\;\;\;\;a \cdot \left(x \cdot \left(-b\right)\right)\\
\mathbf{elif}\;y \leq 9 \cdot 10^{-117}:\\
\;\;\;\;x\\
\mathbf{elif}\;y \leq 4.9 \cdot 10^{+87}:\\
\;\;\;\;x \cdot \left(a \cdot \left(-b\right)\right)\\
\mathbf{else}:\\
\;\;\;\;x \cdot \left(y \cdot \left(-t\right)\right)\\
\end{array}
\end{array}
if y < -2.34999999999999995e-9Initial program 98.7%
Taylor expanded in b around inf 41.8%
mul-1-neg41.8%
*-commutative41.8%
distribute-rgt-neg-in41.8%
Simplified41.8%
Taylor expanded in b around 0 11.2%
mul-1-neg11.2%
unsub-neg11.2%
*-commutative11.2%
Simplified11.2%
Taylor expanded in b around inf 22.8%
associate-*r*22.8%
neg-mul-122.8%
Simplified22.8%
if -2.34999999999999995e-9 < y < 8.99999999999999939e-117Initial program 97.1%
Taylor expanded in b around inf 85.3%
mul-1-neg85.3%
*-commutative85.3%
distribute-rgt-neg-in85.3%
Simplified85.3%
Taylor expanded in b around 0 38.5%
if 8.99999999999999939e-117 < y < 4.89999999999999971e87Initial program 97.0%
Taylor expanded in b around inf 57.5%
mul-1-neg57.5%
*-commutative57.5%
distribute-rgt-neg-in57.5%
Simplified57.5%
Taylor expanded in b around 0 37.1%
mul-1-neg37.1%
unsub-neg37.1%
*-commutative37.1%
Simplified37.1%
Taylor expanded in b around inf 38.9%
mul-1-neg38.9%
associate-*r*45.3%
distribute-rgt-neg-in45.3%
Simplified45.3%
if 4.89999999999999971e87 < y Initial program 97.8%
Taylor expanded in t around inf 65.1%
mul-1-neg65.1%
distribute-rgt-neg-out65.1%
Simplified65.1%
Taylor expanded in y around 0 16.2%
+-commutative16.2%
mul-1-neg16.2%
unsub-neg16.2%
Simplified16.2%
Taylor expanded in y around inf 26.6%
*-commutative26.6%
neg-mul-126.6%
distribute-rgt-neg-in26.6%
distribute-rgt-neg-in26.6%
Simplified26.6%
Taylor expanded in y around 0 26.6%
mul-1-neg26.6%
associate-*r*28.5%
*-commutative28.5%
distribute-rgt-neg-in28.5%
*-commutative28.5%
distribute-rgt-neg-in28.5%
Simplified28.5%
Final simplification32.9%
(FPCore (x y z t a b) :precision binary64 (if (or (<= y -8.5e-10) (not (<= y 2.2e-32))) (* x (* y (- t))) x))
double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if ((y <= -8.5e-10) || !(y <= 2.2e-32)) {
tmp = x * (y * -t);
} else {
tmp = x;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b)
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), intent (in) :: b
real(8) :: tmp
if ((y <= (-8.5d-10)) .or. (.not. (y <= 2.2d-32))) then
tmp = x * (y * -t)
else
tmp = x
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if ((y <= -8.5e-10) || !(y <= 2.2e-32)) {
tmp = x * (y * -t);
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z, t, a, b): tmp = 0 if (y <= -8.5e-10) or not (y <= 2.2e-32): tmp = x * (y * -t) else: tmp = x return tmp
function code(x, y, z, t, a, b) tmp = 0.0 if ((y <= -8.5e-10) || !(y <= 2.2e-32)) tmp = Float64(x * Float64(y * Float64(-t))); else tmp = x; end return tmp end
function tmp_2 = code(x, y, z, t, a, b) tmp = 0.0; if ((y <= -8.5e-10) || ~((y <= 2.2e-32))) tmp = x * (y * -t); else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_] := If[Or[LessEqual[y, -8.5e-10], N[Not[LessEqual[y, 2.2e-32]], $MachinePrecision]], N[(x * N[(y * (-t)), $MachinePrecision]), $MachinePrecision], x]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -8.5 \cdot 10^{-10} \lor \neg \left(y \leq 2.2 \cdot 10^{-32}\right):\\
\;\;\;\;x \cdot \left(y \cdot \left(-t\right)\right)\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if y < -8.4999999999999996e-10 or 2.2e-32 < y Initial program 97.9%
Taylor expanded in t around inf 61.0%
mul-1-neg61.0%
distribute-rgt-neg-out61.0%
Simplified61.0%
Taylor expanded in y around 0 16.5%
+-commutative16.5%
mul-1-neg16.5%
unsub-neg16.5%
Simplified16.5%
Taylor expanded in y around inf 20.5%
*-commutative20.5%
neg-mul-120.5%
distribute-rgt-neg-in20.5%
distribute-rgt-neg-in20.5%
Simplified20.5%
Taylor expanded in y around 0 20.5%
mul-1-neg20.5%
associate-*r*22.3%
*-commutative22.3%
distribute-rgt-neg-in22.3%
*-commutative22.3%
distribute-rgt-neg-in22.3%
Simplified22.3%
if -8.4999999999999996e-10 < y < 2.2e-32Initial program 97.4%
Taylor expanded in b around inf 85.8%
mul-1-neg85.8%
*-commutative85.8%
distribute-rgt-neg-in85.8%
Simplified85.8%
Taylor expanded in b around 0 36.8%
Final simplification28.7%
(FPCore (x y z t a b) :precision binary64 (if (or (<= y -0.00027) (not (<= y 0.0034))) (* a (* x b)) x))
double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if ((y <= -0.00027) || !(y <= 0.0034)) {
tmp = a * (x * b);
} else {
tmp = x;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b)
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), intent (in) :: b
real(8) :: tmp
if ((y <= (-0.00027d0)) .or. (.not. (y <= 0.0034d0))) then
tmp = a * (x * b)
else
tmp = x
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if ((y <= -0.00027) || !(y <= 0.0034)) {
tmp = a * (x * b);
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z, t, a, b): tmp = 0 if (y <= -0.00027) or not (y <= 0.0034): tmp = a * (x * b) else: tmp = x return tmp
function code(x, y, z, t, a, b) tmp = 0.0 if ((y <= -0.00027) || !(y <= 0.0034)) tmp = Float64(a * Float64(x * b)); else tmp = x; end return tmp end
function tmp_2 = code(x, y, z, t, a, b) tmp = 0.0; if ((y <= -0.00027) || ~((y <= 0.0034))) tmp = a * (x * b); else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_] := If[Or[LessEqual[y, -0.00027], N[Not[LessEqual[y, 0.0034]], $MachinePrecision]], N[(a * N[(x * b), $MachinePrecision]), $MachinePrecision], x]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -0.00027 \lor \neg \left(y \leq 0.0034\right):\\
\;\;\;\;a \cdot \left(x \cdot b\right)\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if y < -2.70000000000000003e-4 or 0.00339999999999999981 < y Initial program 97.8%
Taylor expanded in b around inf 39.9%
mul-1-neg39.9%
*-commutative39.9%
distribute-rgt-neg-in39.9%
Simplified39.9%
Taylor expanded in b around 0 9.7%
mul-1-neg9.7%
unsub-neg9.7%
*-commutative9.7%
Simplified9.7%
Taylor expanded in b around inf 23.7%
mul-1-neg23.7%
associate-*r*21.7%
distribute-rgt-neg-in21.7%
Simplified21.7%
expm1-log1p-u17.7%
expm1-udef29.2%
*-commutative29.2%
add-sqr-sqrt14.1%
sqrt-unprod26.1%
sqr-neg26.1%
sqrt-prod12.2%
add-sqr-sqrt26.2%
*-commutative26.2%
Applied egg-rr26.2%
expm1-def14.7%
expm1-log1p15.2%
associate-*r*19.1%
*-commutative19.1%
*-commutative19.1%
Simplified19.1%
if -2.70000000000000003e-4 < y < 0.00339999999999999981Initial program 97.5%
Taylor expanded in b around inf 85.2%
mul-1-neg85.2%
*-commutative85.2%
distribute-rgt-neg-in85.2%
Simplified85.2%
Taylor expanded in b around 0 35.9%
Final simplification26.8%
(FPCore (x y z t a b) :precision binary64 x)
double code(double x, double y, double z, double t, double a, double b) {
return x;
}
real(8) function code(x, y, z, t, a, b)
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), intent (in) :: b
code = x
end function
public static double code(double x, double y, double z, double t, double a, double b) {
return x;
}
def code(x, y, z, t, a, b): return x
function code(x, y, z, t, a, b) return x end
function tmp = code(x, y, z, t, a, b) tmp = x; end
code[x_, y_, z_, t_, a_, b_] := x
\begin{array}{l}
\\
x
\end{array}
Initial program 97.7%
Taylor expanded in b around inf 60.8%
mul-1-neg60.8%
*-commutative60.8%
distribute-rgt-neg-in60.8%
Simplified60.8%
Taylor expanded in b around 0 18.7%
Final simplification18.7%
herbie shell --seed 2023238
(FPCore (x y z t a b)
:name "Numeric.SpecFunctions:incompleteBetaApprox from math-functions-0.1.5.2, B"
:precision binary64
(* x (exp (+ (* y (- (log z) t)) (* a (- (log (- 1.0 z)) b))))))