
(FPCore (z2 z1 z0)
:precision binary64
(let* ((t_0 (+ z2 (+ z1 z0)))
(t_1 (+ t_0 z2))
(t_2 (* t_0 z2))
(t_3 (* t_1 t_1)))
(* (+ t_2 (* z1 z0)) (/ t_2 (* (- t_3 1.0) t_3)))))double code(double z2, double z1, double z0) {
double t_0 = z2 + (z1 + z0);
double t_1 = t_0 + z2;
double t_2 = t_0 * z2;
double t_3 = t_1 * t_1;
return (t_2 + (z1 * z0)) * (t_2 / ((t_3 - 1.0) * t_3));
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
t_0 = z2 + (z1 + z0)
t_1 = t_0 + z2
t_2 = t_0 * z2
t_3 = t_1 * t_1
code = (t_2 + (z1 * z0)) * (t_2 / ((t_3 - 1.0d0) * t_3))
end function
public static double code(double z2, double z1, double z0) {
double t_0 = z2 + (z1 + z0);
double t_1 = t_0 + z2;
double t_2 = t_0 * z2;
double t_3 = t_1 * t_1;
return (t_2 + (z1 * z0)) * (t_2 / ((t_3 - 1.0) * t_3));
}
def code(z2, z1, z0): t_0 = z2 + (z1 + z0) t_1 = t_0 + z2 t_2 = t_0 * z2 t_3 = t_1 * t_1 return (t_2 + (z1 * z0)) * (t_2 / ((t_3 - 1.0) * t_3))
function code(z2, z1, z0) t_0 = Float64(z2 + Float64(z1 + z0)) t_1 = Float64(t_0 + z2) t_2 = Float64(t_0 * z2) t_3 = Float64(t_1 * t_1) return Float64(Float64(t_2 + Float64(z1 * z0)) * Float64(t_2 / Float64(Float64(t_3 - 1.0) * t_3))) end
function tmp = code(z2, z1, z0) t_0 = z2 + (z1 + z0); t_1 = t_0 + z2; t_2 = t_0 * z2; t_3 = t_1 * t_1; tmp = (t_2 + (z1 * z0)) * (t_2 / ((t_3 - 1.0) * t_3)); end
code[z2_, z1_, z0_] := Block[{t$95$0 = N[(z2 + N[(z1 + z0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(t$95$0 + z2), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$0 * z2), $MachinePrecision]}, Block[{t$95$3 = N[(t$95$1 * t$95$1), $MachinePrecision]}, N[(N[(t$95$2 + N[(z1 * z0), $MachinePrecision]), $MachinePrecision] * N[(t$95$2 / N[(N[(t$95$3 - 1.0), $MachinePrecision] * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
t_0 := z2 + \left(z1 + z0\right)\\
t_1 := t\_0 + z2\\
t_2 := t\_0 \cdot z2\\
t_3 := t\_1 \cdot t\_1\\
\left(t\_2 + z1 \cdot z0\right) \cdot \frac{t\_2}{\left(t\_3 - 1\right) \cdot t\_3}
\end{array}
Herbie found 19 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (z2 z1 z0)
:precision binary64
(let* ((t_0 (+ z2 (+ z1 z0)))
(t_1 (+ t_0 z2))
(t_2 (* t_0 z2))
(t_3 (* t_1 t_1)))
(* (+ t_2 (* z1 z0)) (/ t_2 (* (- t_3 1.0) t_3)))))double code(double z2, double z1, double z0) {
double t_0 = z2 + (z1 + z0);
double t_1 = t_0 + z2;
double t_2 = t_0 * z2;
double t_3 = t_1 * t_1;
return (t_2 + (z1 * z0)) * (t_2 / ((t_3 - 1.0) * t_3));
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
t_0 = z2 + (z1 + z0)
t_1 = t_0 + z2
t_2 = t_0 * z2
t_3 = t_1 * t_1
code = (t_2 + (z1 * z0)) * (t_2 / ((t_3 - 1.0d0) * t_3))
end function
public static double code(double z2, double z1, double z0) {
double t_0 = z2 + (z1 + z0);
double t_1 = t_0 + z2;
double t_2 = t_0 * z2;
double t_3 = t_1 * t_1;
return (t_2 + (z1 * z0)) * (t_2 / ((t_3 - 1.0) * t_3));
}
def code(z2, z1, z0): t_0 = z2 + (z1 + z0) t_1 = t_0 + z2 t_2 = t_0 * z2 t_3 = t_1 * t_1 return (t_2 + (z1 * z0)) * (t_2 / ((t_3 - 1.0) * t_3))
function code(z2, z1, z0) t_0 = Float64(z2 + Float64(z1 + z0)) t_1 = Float64(t_0 + z2) t_2 = Float64(t_0 * z2) t_3 = Float64(t_1 * t_1) return Float64(Float64(t_2 + Float64(z1 * z0)) * Float64(t_2 / Float64(Float64(t_3 - 1.0) * t_3))) end
function tmp = code(z2, z1, z0) t_0 = z2 + (z1 + z0); t_1 = t_0 + z2; t_2 = t_0 * z2; t_3 = t_1 * t_1; tmp = (t_2 + (z1 * z0)) * (t_2 / ((t_3 - 1.0) * t_3)); end
code[z2_, z1_, z0_] := Block[{t$95$0 = N[(z2 + N[(z1 + z0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(t$95$0 + z2), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$0 * z2), $MachinePrecision]}, Block[{t$95$3 = N[(t$95$1 * t$95$1), $MachinePrecision]}, N[(N[(t$95$2 + N[(z1 * z0), $MachinePrecision]), $MachinePrecision] * N[(t$95$2 / N[(N[(t$95$3 - 1.0), $MachinePrecision] * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
t_0 := z2 + \left(z1 + z0\right)\\
t_1 := t\_0 + z2\\
t_2 := t\_0 \cdot z2\\
t_3 := t\_1 \cdot t\_1\\
\left(t\_2 + z1 \cdot z0\right) \cdot \frac{t\_2}{\left(t\_3 - 1\right) \cdot t\_3}
\end{array}
(FPCore (z2 z1 z0)
:precision binary64
(let* ((t_0 (+ z2 (+ z1 z0)))
(t_1 (+ t_0 z2))
(t_2 (* t_1 t_1))
(t_3 (* t_0 z2)))
(if (<= (* (+ t_3 (* z1 z0)) (/ t_3 (* (- t_2 1.0) t_2))) 0.1)
(*
(/ (/ t_0 (- t_1 -1.0)) (- t_1 1.0))
(* (/ (/ z2 t_1) t_1) (+ (* z0 z1) (* (+ (+ z0 z1) z2) z2))))
(/
(-
(+ (* 0.0625 z2) (* 0.0625 (+ (* 2.0 z0) (* 2.0 z1))))
(* 0.125 (+ z0 z1)))
z2))))double code(double z2, double z1, double z0) {
double t_0 = z2 + (z1 + z0);
double t_1 = t_0 + z2;
double t_2 = t_1 * t_1;
double t_3 = t_0 * z2;
double tmp;
if (((t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2))) <= 0.1) {
tmp = ((t_0 / (t_1 - -1.0)) / (t_1 - 1.0)) * (((z2 / t_1) / t_1) * ((z0 * z1) + (((z0 + z1) + z2) * z2)));
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_0 = z2 + (z1 + z0)
t_1 = t_0 + z2
t_2 = t_1 * t_1
t_3 = t_0 * z2
if (((t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0d0) * t_2))) <= 0.1d0) then
tmp = ((t_0 / (t_1 - (-1.0d0))) / (t_1 - 1.0d0)) * (((z2 / t_1) / t_1) * ((z0 * z1) + (((z0 + z1) + z2) * z2)))
else
tmp = (((0.0625d0 * z2) + (0.0625d0 * ((2.0d0 * z0) + (2.0d0 * z1)))) - (0.125d0 * (z0 + z1))) / z2
end if
code = tmp
end function
public static double code(double z2, double z1, double z0) {
double t_0 = z2 + (z1 + z0);
double t_1 = t_0 + z2;
double t_2 = t_1 * t_1;
double t_3 = t_0 * z2;
double tmp;
if (((t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2))) <= 0.1) {
tmp = ((t_0 / (t_1 - -1.0)) / (t_1 - 1.0)) * (((z2 / t_1) / t_1) * ((z0 * z1) + (((z0 + z1) + z2) * z2)));
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2;
}
return tmp;
}
def code(z2, z1, z0): t_0 = z2 + (z1 + z0) t_1 = t_0 + z2 t_2 = t_1 * t_1 t_3 = t_0 * z2 tmp = 0 if ((t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2))) <= 0.1: tmp = ((t_0 / (t_1 - -1.0)) / (t_1 - 1.0)) * (((z2 / t_1) / t_1) * ((z0 * z1) + (((z0 + z1) + z2) * z2))) else: tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2 return tmp
function code(z2, z1, z0) t_0 = Float64(z2 + Float64(z1 + z0)) t_1 = Float64(t_0 + z2) t_2 = Float64(t_1 * t_1) t_3 = Float64(t_0 * z2) tmp = 0.0 if (Float64(Float64(t_3 + Float64(z1 * z0)) * Float64(t_3 / Float64(Float64(t_2 - 1.0) * t_2))) <= 0.1) tmp = Float64(Float64(Float64(t_0 / Float64(t_1 - -1.0)) / Float64(t_1 - 1.0)) * Float64(Float64(Float64(z2 / t_1) / t_1) * Float64(Float64(z0 * z1) + Float64(Float64(Float64(z0 + z1) + z2) * z2)))); else tmp = Float64(Float64(Float64(Float64(0.0625 * z2) + Float64(0.0625 * Float64(Float64(2.0 * z0) + Float64(2.0 * z1)))) - Float64(0.125 * Float64(z0 + z1))) / z2); end return tmp end
function tmp_2 = code(z2, z1, z0) t_0 = z2 + (z1 + z0); t_1 = t_0 + z2; t_2 = t_1 * t_1; t_3 = t_0 * z2; tmp = 0.0; if (((t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2))) <= 0.1) tmp = ((t_0 / (t_1 - -1.0)) / (t_1 - 1.0)) * (((z2 / t_1) / t_1) * ((z0 * z1) + (((z0 + z1) + z2) * z2))); else tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2; end tmp_2 = tmp; end
code[z2_, z1_, z0_] := Block[{t$95$0 = N[(z2 + N[(z1 + z0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(t$95$0 + z2), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 * t$95$1), $MachinePrecision]}, Block[{t$95$3 = N[(t$95$0 * z2), $MachinePrecision]}, If[LessEqual[N[(N[(t$95$3 + N[(z1 * z0), $MachinePrecision]), $MachinePrecision] * N[(t$95$3 / N[(N[(t$95$2 - 1.0), $MachinePrecision] * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 0.1], N[(N[(N[(t$95$0 / N[(t$95$1 - -1.0), $MachinePrecision]), $MachinePrecision] / N[(t$95$1 - 1.0), $MachinePrecision]), $MachinePrecision] * N[(N[(N[(z2 / t$95$1), $MachinePrecision] / t$95$1), $MachinePrecision] * N[(N[(z0 * z1), $MachinePrecision] + N[(N[(N[(z0 + z1), $MachinePrecision] + z2), $MachinePrecision] * z2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.0625 * z2), $MachinePrecision] + N[(0.0625 * N[(N[(2.0 * z0), $MachinePrecision] + N[(2.0 * z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(0.125 * N[(z0 + z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z2), $MachinePrecision]]]]]]
\begin{array}{l}
t_0 := z2 + \left(z1 + z0\right)\\
t_1 := t\_0 + z2\\
t_2 := t\_1 \cdot t\_1\\
t_3 := t\_0 \cdot z2\\
\mathbf{if}\;\left(t\_3 + z1 \cdot z0\right) \cdot \frac{t\_3}{\left(t\_2 - 1\right) \cdot t\_2} \leq 0.1:\\
\;\;\;\;\frac{\frac{t\_0}{t\_1 - -1}}{t\_1 - 1} \cdot \left(\frac{\frac{z2}{t\_1}}{t\_1} \cdot \left(z0 \cdot z1 + \left(\left(z0 + z1\right) + z2\right) \cdot z2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(0.0625 \cdot z2 + 0.0625 \cdot \left(2 \cdot z0 + 2 \cdot z1\right)\right) - 0.125 \cdot \left(z0 + z1\right)}{z2}\\
\end{array}
if (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < 0.10000000000000001Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
lift-/.f64N/A
lift--.f64N/A
lift-*.f64N/A
difference-of-sqr-1N/A
lift-+.f64N/A
+-commutativeN/A
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-+.f64N/A
associate-+l+N/A
lift-+.f64N/A
lift-+.f64N/A
Applied rewrites61.1%
if 0.10000000000000001 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
Taylor expanded in z2 around inf
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f6450.3%
Applied rewrites50.3%
Taylor expanded in z2 around 0
lower-/.f64N/A
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f6471.4%
Applied rewrites71.4%
(FPCore (z2 z1 z0)
:precision binary64
(let* ((t_0 (+ z2 (+ z1 z0)))
(t_1 (+ t_0 z2))
(t_2 (* t_1 t_1))
(t_3 (* t_0 z2))
(t_4 (+ (+ z0 z1) z2))
(t_5 (* t_4 z2))
(t_6 (+ t_4 z2))
(t_7 (* t_6 t_6)))
(if (<= (* (+ t_3 (* z1 z0)) (/ t_3 (* (- t_2 1.0) t_2))) 0.1)
(* (/ (+ (* z0 z1) t_5) (- t_7 1.0)) (/ t_5 t_7))
(/
(-
(+ (* 0.0625 z2) (* 0.0625 (+ (* 2.0 z0) (* 2.0 z1))))
(* 0.125 (+ z0 z1)))
z2))))double code(double z2, double z1, double z0) {
double t_0 = z2 + (z1 + z0);
double t_1 = t_0 + z2;
double t_2 = t_1 * t_1;
double t_3 = t_0 * z2;
double t_4 = (z0 + z1) + z2;
double t_5 = t_4 * z2;
double t_6 = t_4 + z2;
double t_7 = t_6 * t_6;
double tmp;
if (((t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2))) <= 0.1) {
tmp = (((z0 * z1) + t_5) / (t_7 - 1.0)) * (t_5 / t_7);
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
real(8) :: tmp
t_0 = z2 + (z1 + z0)
t_1 = t_0 + z2
t_2 = t_1 * t_1
t_3 = t_0 * z2
t_4 = (z0 + z1) + z2
t_5 = t_4 * z2
t_6 = t_4 + z2
t_7 = t_6 * t_6
if (((t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0d0) * t_2))) <= 0.1d0) then
tmp = (((z0 * z1) + t_5) / (t_7 - 1.0d0)) * (t_5 / t_7)
else
tmp = (((0.0625d0 * z2) + (0.0625d0 * ((2.0d0 * z0) + (2.0d0 * z1)))) - (0.125d0 * (z0 + z1))) / z2
end if
code = tmp
end function
public static double code(double z2, double z1, double z0) {
double t_0 = z2 + (z1 + z0);
double t_1 = t_0 + z2;
double t_2 = t_1 * t_1;
double t_3 = t_0 * z2;
double t_4 = (z0 + z1) + z2;
double t_5 = t_4 * z2;
double t_6 = t_4 + z2;
double t_7 = t_6 * t_6;
double tmp;
if (((t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2))) <= 0.1) {
tmp = (((z0 * z1) + t_5) / (t_7 - 1.0)) * (t_5 / t_7);
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2;
}
return tmp;
}
def code(z2, z1, z0): t_0 = z2 + (z1 + z0) t_1 = t_0 + z2 t_2 = t_1 * t_1 t_3 = t_0 * z2 t_4 = (z0 + z1) + z2 t_5 = t_4 * z2 t_6 = t_4 + z2 t_7 = t_6 * t_6 tmp = 0 if ((t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2))) <= 0.1: tmp = (((z0 * z1) + t_5) / (t_7 - 1.0)) * (t_5 / t_7) else: tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2 return tmp
function code(z2, z1, z0) t_0 = Float64(z2 + Float64(z1 + z0)) t_1 = Float64(t_0 + z2) t_2 = Float64(t_1 * t_1) t_3 = Float64(t_0 * z2) t_4 = Float64(Float64(z0 + z1) + z2) t_5 = Float64(t_4 * z2) t_6 = Float64(t_4 + z2) t_7 = Float64(t_6 * t_6) tmp = 0.0 if (Float64(Float64(t_3 + Float64(z1 * z0)) * Float64(t_3 / Float64(Float64(t_2 - 1.0) * t_2))) <= 0.1) tmp = Float64(Float64(Float64(Float64(z0 * z1) + t_5) / Float64(t_7 - 1.0)) * Float64(t_5 / t_7)); else tmp = Float64(Float64(Float64(Float64(0.0625 * z2) + Float64(0.0625 * Float64(Float64(2.0 * z0) + Float64(2.0 * z1)))) - Float64(0.125 * Float64(z0 + z1))) / z2); end return tmp end
function tmp_2 = code(z2, z1, z0) t_0 = z2 + (z1 + z0); t_1 = t_0 + z2; t_2 = t_1 * t_1; t_3 = t_0 * z2; t_4 = (z0 + z1) + z2; t_5 = t_4 * z2; t_6 = t_4 + z2; t_7 = t_6 * t_6; tmp = 0.0; if (((t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2))) <= 0.1) tmp = (((z0 * z1) + t_5) / (t_7 - 1.0)) * (t_5 / t_7); else tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2; end tmp_2 = tmp; end
code[z2_, z1_, z0_] := Block[{t$95$0 = N[(z2 + N[(z1 + z0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(t$95$0 + z2), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 * t$95$1), $MachinePrecision]}, Block[{t$95$3 = N[(t$95$0 * z2), $MachinePrecision]}, Block[{t$95$4 = N[(N[(z0 + z1), $MachinePrecision] + z2), $MachinePrecision]}, Block[{t$95$5 = N[(t$95$4 * z2), $MachinePrecision]}, Block[{t$95$6 = N[(t$95$4 + z2), $MachinePrecision]}, Block[{t$95$7 = N[(t$95$6 * t$95$6), $MachinePrecision]}, If[LessEqual[N[(N[(t$95$3 + N[(z1 * z0), $MachinePrecision]), $MachinePrecision] * N[(t$95$3 / N[(N[(t$95$2 - 1.0), $MachinePrecision] * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 0.1], N[(N[(N[(N[(z0 * z1), $MachinePrecision] + t$95$5), $MachinePrecision] / N[(t$95$7 - 1.0), $MachinePrecision]), $MachinePrecision] * N[(t$95$5 / t$95$7), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.0625 * z2), $MachinePrecision] + N[(0.0625 * N[(N[(2.0 * z0), $MachinePrecision] + N[(2.0 * z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(0.125 * N[(z0 + z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z2), $MachinePrecision]]]]]]]]]]
\begin{array}{l}
t_0 := z2 + \left(z1 + z0\right)\\
t_1 := t\_0 + z2\\
t_2 := t\_1 \cdot t\_1\\
t_3 := t\_0 \cdot z2\\
t_4 := \left(z0 + z1\right) + z2\\
t_5 := t\_4 \cdot z2\\
t_6 := t\_4 + z2\\
t_7 := t\_6 \cdot t\_6\\
\mathbf{if}\;\left(t\_3 + z1 \cdot z0\right) \cdot \frac{t\_3}{\left(t\_2 - 1\right) \cdot t\_2} \leq 0.1:\\
\;\;\;\;\frac{z0 \cdot z1 + t\_5}{t\_7 - 1} \cdot \frac{t\_5}{t\_7}\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(0.0625 \cdot z2 + 0.0625 \cdot \left(2 \cdot z0 + 2 \cdot z1\right)\right) - 0.125 \cdot \left(z0 + z1\right)}{z2}\\
\end{array}
if (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < 0.10000000000000001Initial program 47.4%
lift-*.f64N/A
lift-/.f64N/A
associate-*r/N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.8%
if 0.10000000000000001 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
Taylor expanded in z2 around inf
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f6450.3%
Applied rewrites50.3%
Taylor expanded in z2 around 0
lower-/.f64N/A
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f6471.4%
Applied rewrites71.4%
(FPCore (z2 z1 z0)
:precision binary64
(let* ((t_0 (+ z2 (+ z1 z0)))
(t_1 (+ t_0 z2))
(t_2 (* t_1 t_1))
(t_3 (* t_0 z2))
(t_4 (+ (+ z0 z1) z2))
(t_5 (+ t_4 z2))
(t_6 (* t_5 t_5)))
(if (<= (* (+ t_3 (* z1 z0)) (/ t_3 (* (- t_2 1.0) t_2))) 0.1)
(* (* (+ (* z0 z1) (* t_4 z2)) (/ t_4 (- t_6 1.0))) (/ z2 t_6))
(/
(-
(+ (* 0.0625 z2) (* 0.0625 (+ (* 2.0 z0) (* 2.0 z1))))
(* 0.125 (+ z0 z1)))
z2))))double code(double z2, double z1, double z0) {
double t_0 = z2 + (z1 + z0);
double t_1 = t_0 + z2;
double t_2 = t_1 * t_1;
double t_3 = t_0 * z2;
double t_4 = (z0 + z1) + z2;
double t_5 = t_4 + z2;
double t_6 = t_5 * t_5;
double tmp;
if (((t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2))) <= 0.1) {
tmp = (((z0 * z1) + (t_4 * z2)) * (t_4 / (t_6 - 1.0))) * (z2 / t_6);
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: tmp
t_0 = z2 + (z1 + z0)
t_1 = t_0 + z2
t_2 = t_1 * t_1
t_3 = t_0 * z2
t_4 = (z0 + z1) + z2
t_5 = t_4 + z2
t_6 = t_5 * t_5
if (((t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0d0) * t_2))) <= 0.1d0) then
tmp = (((z0 * z1) + (t_4 * z2)) * (t_4 / (t_6 - 1.0d0))) * (z2 / t_6)
else
tmp = (((0.0625d0 * z2) + (0.0625d0 * ((2.0d0 * z0) + (2.0d0 * z1)))) - (0.125d0 * (z0 + z1))) / z2
end if
code = tmp
end function
public static double code(double z2, double z1, double z0) {
double t_0 = z2 + (z1 + z0);
double t_1 = t_0 + z2;
double t_2 = t_1 * t_1;
double t_3 = t_0 * z2;
double t_4 = (z0 + z1) + z2;
double t_5 = t_4 + z2;
double t_6 = t_5 * t_5;
double tmp;
if (((t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2))) <= 0.1) {
tmp = (((z0 * z1) + (t_4 * z2)) * (t_4 / (t_6 - 1.0))) * (z2 / t_6);
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2;
}
return tmp;
}
def code(z2, z1, z0): t_0 = z2 + (z1 + z0) t_1 = t_0 + z2 t_2 = t_1 * t_1 t_3 = t_0 * z2 t_4 = (z0 + z1) + z2 t_5 = t_4 + z2 t_6 = t_5 * t_5 tmp = 0 if ((t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2))) <= 0.1: tmp = (((z0 * z1) + (t_4 * z2)) * (t_4 / (t_6 - 1.0))) * (z2 / t_6) else: tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2 return tmp
function code(z2, z1, z0) t_0 = Float64(z2 + Float64(z1 + z0)) t_1 = Float64(t_0 + z2) t_2 = Float64(t_1 * t_1) t_3 = Float64(t_0 * z2) t_4 = Float64(Float64(z0 + z1) + z2) t_5 = Float64(t_4 + z2) t_6 = Float64(t_5 * t_5) tmp = 0.0 if (Float64(Float64(t_3 + Float64(z1 * z0)) * Float64(t_3 / Float64(Float64(t_2 - 1.0) * t_2))) <= 0.1) tmp = Float64(Float64(Float64(Float64(z0 * z1) + Float64(t_4 * z2)) * Float64(t_4 / Float64(t_6 - 1.0))) * Float64(z2 / t_6)); else tmp = Float64(Float64(Float64(Float64(0.0625 * z2) + Float64(0.0625 * Float64(Float64(2.0 * z0) + Float64(2.0 * z1)))) - Float64(0.125 * Float64(z0 + z1))) / z2); end return tmp end
function tmp_2 = code(z2, z1, z0) t_0 = z2 + (z1 + z0); t_1 = t_0 + z2; t_2 = t_1 * t_1; t_3 = t_0 * z2; t_4 = (z0 + z1) + z2; t_5 = t_4 + z2; t_6 = t_5 * t_5; tmp = 0.0; if (((t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2))) <= 0.1) tmp = (((z0 * z1) + (t_4 * z2)) * (t_4 / (t_6 - 1.0))) * (z2 / t_6); else tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2; end tmp_2 = tmp; end
code[z2_, z1_, z0_] := Block[{t$95$0 = N[(z2 + N[(z1 + z0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(t$95$0 + z2), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 * t$95$1), $MachinePrecision]}, Block[{t$95$3 = N[(t$95$0 * z2), $MachinePrecision]}, Block[{t$95$4 = N[(N[(z0 + z1), $MachinePrecision] + z2), $MachinePrecision]}, Block[{t$95$5 = N[(t$95$4 + z2), $MachinePrecision]}, Block[{t$95$6 = N[(t$95$5 * t$95$5), $MachinePrecision]}, If[LessEqual[N[(N[(t$95$3 + N[(z1 * z0), $MachinePrecision]), $MachinePrecision] * N[(t$95$3 / N[(N[(t$95$2 - 1.0), $MachinePrecision] * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 0.1], N[(N[(N[(N[(z0 * z1), $MachinePrecision] + N[(t$95$4 * z2), $MachinePrecision]), $MachinePrecision] * N[(t$95$4 / N[(t$95$6 - 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(z2 / t$95$6), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.0625 * z2), $MachinePrecision] + N[(0.0625 * N[(N[(2.0 * z0), $MachinePrecision] + N[(2.0 * z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(0.125 * N[(z0 + z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z2), $MachinePrecision]]]]]]]]]
\begin{array}{l}
t_0 := z2 + \left(z1 + z0\right)\\
t_1 := t\_0 + z2\\
t_2 := t\_1 \cdot t\_1\\
t_3 := t\_0 \cdot z2\\
t_4 := \left(z0 + z1\right) + z2\\
t_5 := t\_4 + z2\\
t_6 := t\_5 \cdot t\_5\\
\mathbf{if}\;\left(t\_3 + z1 \cdot z0\right) \cdot \frac{t\_3}{\left(t\_2 - 1\right) \cdot t\_2} \leq 0.1:\\
\;\;\;\;\left(\left(z0 \cdot z1 + t\_4 \cdot z2\right) \cdot \frac{t\_4}{t\_6 - 1}\right) \cdot \frac{z2}{t\_6}\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(0.0625 \cdot z2 + 0.0625 \cdot \left(2 \cdot z0 + 2 \cdot z1\right)\right) - 0.125 \cdot \left(z0 + z1\right)}{z2}\\
\end{array}
if (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < 0.10000000000000001Initial program 47.4%
lift-*.f64N/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
associate-*r*N/A
Applied rewrites56.1%
if 0.10000000000000001 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
Taylor expanded in z2 around inf
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f6450.3%
Applied rewrites50.3%
Taylor expanded in z2 around 0
lower-/.f64N/A
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f6471.4%
Applied rewrites71.4%
(FPCore (z2 z1 z0)
:precision binary64
(let* ((t_0 (+ z2 (+ (fmin z1 z0) (fmax z1 z0))))
(t_1 (* t_0 z2))
(t_2 (+ (fmax z1 z0) z2))
(t_3 (+ (fmax z1 z0) (fmin z1 z0)))
(t_4 (+ t_3 z2))
(t_5 (+ t_2 z2))
(t_6 (+ t_4 z2))
(t_7 (* t_6 t_6))
(t_8 (+ t_0 z2))
(t_9 (* t_8 t_8))
(t_10
(*
(+ t_1 (* (fmin z1 z0) (fmax z1 z0)))
(/ t_1 (* (- t_9 1.0) t_9))))
(t_11 (* (fmax z1 z0) (fmin z1 z0))))
(if (<= t_10 -5e-286)
t_10
(if (<= t_10 0.0)
(*
(/ t_2 (- (* t_5 t_5) 1.0))
(* (/ (/ z2 t_8) t_8) (+ t_11 (* t_2 z2))))
(if (<= t_10 4e-11)
(* (* (+ t_11 (* t_4 z2)) t_4) (/ z2 (* (- t_7 1.0) t_7)))
(/
(-
(+
(* 0.0625 z2)
(* 0.0625 (+ (* 2.0 (fmax z1 z0)) (* 2.0 (fmin z1 z0)))))
(* 0.125 t_3))
z2))))))double code(double z2, double z1, double z0) {
double t_0 = z2 + (fmin(z1, z0) + fmax(z1, z0));
double t_1 = t_0 * z2;
double t_2 = fmax(z1, z0) + z2;
double t_3 = fmax(z1, z0) + fmin(z1, z0);
double t_4 = t_3 + z2;
double t_5 = t_2 + z2;
double t_6 = t_4 + z2;
double t_7 = t_6 * t_6;
double t_8 = t_0 + z2;
double t_9 = t_8 * t_8;
double t_10 = (t_1 + (fmin(z1, z0) * fmax(z1, z0))) * (t_1 / ((t_9 - 1.0) * t_9));
double t_11 = fmax(z1, z0) * fmin(z1, z0);
double tmp;
if (t_10 <= -5e-286) {
tmp = t_10;
} else if (t_10 <= 0.0) {
tmp = (t_2 / ((t_5 * t_5) - 1.0)) * (((z2 / t_8) / t_8) * (t_11 + (t_2 * z2)));
} else if (t_10 <= 4e-11) {
tmp = ((t_11 + (t_4 * z2)) * t_4) * (z2 / ((t_7 - 1.0) * t_7));
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * fmax(z1, z0)) + (2.0 * fmin(z1, z0))))) - (0.125 * t_3)) / z2;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
real(8) :: t_0
real(8) :: t_1
real(8) :: t_10
real(8) :: t_11
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
real(8) :: t_8
real(8) :: t_9
real(8) :: tmp
t_0 = z2 + (fmin(z1, z0) + fmax(z1, z0))
t_1 = t_0 * z2
t_2 = fmax(z1, z0) + z2
t_3 = fmax(z1, z0) + fmin(z1, z0)
t_4 = t_3 + z2
t_5 = t_2 + z2
t_6 = t_4 + z2
t_7 = t_6 * t_6
t_8 = t_0 + z2
t_9 = t_8 * t_8
t_10 = (t_1 + (fmin(z1, z0) * fmax(z1, z0))) * (t_1 / ((t_9 - 1.0d0) * t_9))
t_11 = fmax(z1, z0) * fmin(z1, z0)
if (t_10 <= (-5d-286)) then
tmp = t_10
else if (t_10 <= 0.0d0) then
tmp = (t_2 / ((t_5 * t_5) - 1.0d0)) * (((z2 / t_8) / t_8) * (t_11 + (t_2 * z2)))
else if (t_10 <= 4d-11) then
tmp = ((t_11 + (t_4 * z2)) * t_4) * (z2 / ((t_7 - 1.0d0) * t_7))
else
tmp = (((0.0625d0 * z2) + (0.0625d0 * ((2.0d0 * fmax(z1, z0)) + (2.0d0 * fmin(z1, z0))))) - (0.125d0 * t_3)) / z2
end if
code = tmp
end function
public static double code(double z2, double z1, double z0) {
double t_0 = z2 + (fmin(z1, z0) + fmax(z1, z0));
double t_1 = t_0 * z2;
double t_2 = fmax(z1, z0) + z2;
double t_3 = fmax(z1, z0) + fmin(z1, z0);
double t_4 = t_3 + z2;
double t_5 = t_2 + z2;
double t_6 = t_4 + z2;
double t_7 = t_6 * t_6;
double t_8 = t_0 + z2;
double t_9 = t_8 * t_8;
double t_10 = (t_1 + (fmin(z1, z0) * fmax(z1, z0))) * (t_1 / ((t_9 - 1.0) * t_9));
double t_11 = fmax(z1, z0) * fmin(z1, z0);
double tmp;
if (t_10 <= -5e-286) {
tmp = t_10;
} else if (t_10 <= 0.0) {
tmp = (t_2 / ((t_5 * t_5) - 1.0)) * (((z2 / t_8) / t_8) * (t_11 + (t_2 * z2)));
} else if (t_10 <= 4e-11) {
tmp = ((t_11 + (t_4 * z2)) * t_4) * (z2 / ((t_7 - 1.0) * t_7));
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * fmax(z1, z0)) + (2.0 * fmin(z1, z0))))) - (0.125 * t_3)) / z2;
}
return tmp;
}
def code(z2, z1, z0): t_0 = z2 + (fmin(z1, z0) + fmax(z1, z0)) t_1 = t_0 * z2 t_2 = fmax(z1, z0) + z2 t_3 = fmax(z1, z0) + fmin(z1, z0) t_4 = t_3 + z2 t_5 = t_2 + z2 t_6 = t_4 + z2 t_7 = t_6 * t_6 t_8 = t_0 + z2 t_9 = t_8 * t_8 t_10 = (t_1 + (fmin(z1, z0) * fmax(z1, z0))) * (t_1 / ((t_9 - 1.0) * t_9)) t_11 = fmax(z1, z0) * fmin(z1, z0) tmp = 0 if t_10 <= -5e-286: tmp = t_10 elif t_10 <= 0.0: tmp = (t_2 / ((t_5 * t_5) - 1.0)) * (((z2 / t_8) / t_8) * (t_11 + (t_2 * z2))) elif t_10 <= 4e-11: tmp = ((t_11 + (t_4 * z2)) * t_4) * (z2 / ((t_7 - 1.0) * t_7)) else: tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * fmax(z1, z0)) + (2.0 * fmin(z1, z0))))) - (0.125 * t_3)) / z2 return tmp
function code(z2, z1, z0) t_0 = Float64(z2 + Float64(fmin(z1, z0) + fmax(z1, z0))) t_1 = Float64(t_0 * z2) t_2 = Float64(fmax(z1, z0) + z2) t_3 = Float64(fmax(z1, z0) + fmin(z1, z0)) t_4 = Float64(t_3 + z2) t_5 = Float64(t_2 + z2) t_6 = Float64(t_4 + z2) t_7 = Float64(t_6 * t_6) t_8 = Float64(t_0 + z2) t_9 = Float64(t_8 * t_8) t_10 = Float64(Float64(t_1 + Float64(fmin(z1, z0) * fmax(z1, z0))) * Float64(t_1 / Float64(Float64(t_9 - 1.0) * t_9))) t_11 = Float64(fmax(z1, z0) * fmin(z1, z0)) tmp = 0.0 if (t_10 <= -5e-286) tmp = t_10; elseif (t_10 <= 0.0) tmp = Float64(Float64(t_2 / Float64(Float64(t_5 * t_5) - 1.0)) * Float64(Float64(Float64(z2 / t_8) / t_8) * Float64(t_11 + Float64(t_2 * z2)))); elseif (t_10 <= 4e-11) tmp = Float64(Float64(Float64(t_11 + Float64(t_4 * z2)) * t_4) * Float64(z2 / Float64(Float64(t_7 - 1.0) * t_7))); else tmp = Float64(Float64(Float64(Float64(0.0625 * z2) + Float64(0.0625 * Float64(Float64(2.0 * fmax(z1, z0)) + Float64(2.0 * fmin(z1, z0))))) - Float64(0.125 * t_3)) / z2); end return tmp end
function tmp_2 = code(z2, z1, z0) t_0 = z2 + (min(z1, z0) + max(z1, z0)); t_1 = t_0 * z2; t_2 = max(z1, z0) + z2; t_3 = max(z1, z0) + min(z1, z0); t_4 = t_3 + z2; t_5 = t_2 + z2; t_6 = t_4 + z2; t_7 = t_6 * t_6; t_8 = t_0 + z2; t_9 = t_8 * t_8; t_10 = (t_1 + (min(z1, z0) * max(z1, z0))) * (t_1 / ((t_9 - 1.0) * t_9)); t_11 = max(z1, z0) * min(z1, z0); tmp = 0.0; if (t_10 <= -5e-286) tmp = t_10; elseif (t_10 <= 0.0) tmp = (t_2 / ((t_5 * t_5) - 1.0)) * (((z2 / t_8) / t_8) * (t_11 + (t_2 * z2))); elseif (t_10 <= 4e-11) tmp = ((t_11 + (t_4 * z2)) * t_4) * (z2 / ((t_7 - 1.0) * t_7)); else tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * max(z1, z0)) + (2.0 * min(z1, z0))))) - (0.125 * t_3)) / z2; end tmp_2 = tmp; end
code[z2_, z1_, z0_] := Block[{t$95$0 = N[(z2 + N[(N[Min[z1, z0], $MachinePrecision] + N[Max[z1, z0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(t$95$0 * z2), $MachinePrecision]}, Block[{t$95$2 = N[(N[Max[z1, z0], $MachinePrecision] + z2), $MachinePrecision]}, Block[{t$95$3 = N[(N[Max[z1, z0], $MachinePrecision] + N[Min[z1, z0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(t$95$3 + z2), $MachinePrecision]}, Block[{t$95$5 = N[(t$95$2 + z2), $MachinePrecision]}, Block[{t$95$6 = N[(t$95$4 + z2), $MachinePrecision]}, Block[{t$95$7 = N[(t$95$6 * t$95$6), $MachinePrecision]}, Block[{t$95$8 = N[(t$95$0 + z2), $MachinePrecision]}, Block[{t$95$9 = N[(t$95$8 * t$95$8), $MachinePrecision]}, Block[{t$95$10 = N[(N[(t$95$1 + N[(N[Min[z1, z0], $MachinePrecision] * N[Max[z1, z0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(t$95$1 / N[(N[(t$95$9 - 1.0), $MachinePrecision] * t$95$9), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$11 = N[(N[Max[z1, z0], $MachinePrecision] * N[Min[z1, z0], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$10, -5e-286], t$95$10, If[LessEqual[t$95$10, 0.0], N[(N[(t$95$2 / N[(N[(t$95$5 * t$95$5), $MachinePrecision] - 1.0), $MachinePrecision]), $MachinePrecision] * N[(N[(N[(z2 / t$95$8), $MachinePrecision] / t$95$8), $MachinePrecision] * N[(t$95$11 + N[(t$95$2 * z2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$10, 4e-11], N[(N[(N[(t$95$11 + N[(t$95$4 * z2), $MachinePrecision]), $MachinePrecision] * t$95$4), $MachinePrecision] * N[(z2 / N[(N[(t$95$7 - 1.0), $MachinePrecision] * t$95$7), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.0625 * z2), $MachinePrecision] + N[(0.0625 * N[(N[(2.0 * N[Max[z1, z0], $MachinePrecision]), $MachinePrecision] + N[(2.0 * N[Min[z1, z0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(0.125 * t$95$3), $MachinePrecision]), $MachinePrecision] / z2), $MachinePrecision]]]]]]]]]]]]]]]]
\begin{array}{l}
t_0 := z2 + \left(\mathsf{min}\left(z1, z0\right) + \mathsf{max}\left(z1, z0\right)\right)\\
t_1 := t\_0 \cdot z2\\
t_2 := \mathsf{max}\left(z1, z0\right) + z2\\
t_3 := \mathsf{max}\left(z1, z0\right) + \mathsf{min}\left(z1, z0\right)\\
t_4 := t\_3 + z2\\
t_5 := t\_2 + z2\\
t_6 := t\_4 + z2\\
t_7 := t\_6 \cdot t\_6\\
t_8 := t\_0 + z2\\
t_9 := t\_8 \cdot t\_8\\
t_10 := \left(t\_1 + \mathsf{min}\left(z1, z0\right) \cdot \mathsf{max}\left(z1, z0\right)\right) \cdot \frac{t\_1}{\left(t\_9 - 1\right) \cdot t\_9}\\
t_11 := \mathsf{max}\left(z1, z0\right) \cdot \mathsf{min}\left(z1, z0\right)\\
\mathbf{if}\;t\_10 \leq -5 \cdot 10^{-286}:\\
\;\;\;\;t\_10\\
\mathbf{elif}\;t\_10 \leq 0:\\
\;\;\;\;\frac{t\_2}{t\_5 \cdot t\_5 - 1} \cdot \left(\frac{\frac{z2}{t\_8}}{t\_8} \cdot \left(t\_11 + t\_2 \cdot z2\right)\right)\\
\mathbf{elif}\;t\_10 \leq 4 \cdot 10^{-11}:\\
\;\;\;\;\left(\left(t\_11 + t\_4 \cdot z2\right) \cdot t\_4\right) \cdot \frac{z2}{\left(t\_7 - 1\right) \cdot t\_7}\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(0.0625 \cdot z2 + 0.0625 \cdot \left(2 \cdot \mathsf{max}\left(z1, z0\right) + 2 \cdot \mathsf{min}\left(z1, z0\right)\right)\right) - 0.125 \cdot t\_3}{z2}\\
\end{array}
if (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < -5.0000000000000004e-286Initial program 47.4%
if -5.0000000000000004e-286 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < 0.0Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
Taylor expanded in z1 around 0
Applied rewrites52.5%
Taylor expanded in z1 around 0
Applied rewrites54.3%
Taylor expanded in z1 around 0
Applied rewrites52.3%
Taylor expanded in z1 around 0
Applied rewrites53.4%
if 0.0 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < 3.9999999999999998e-11Initial program 47.4%
lift-*.f64N/A
lift-/.f64N/A
lift-*.f64N/A
associate-/l*N/A
associate-*r*N/A
Applied rewrites31.0%
if 3.9999999999999998e-11 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
Taylor expanded in z2 around inf
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f6450.3%
Applied rewrites50.3%
Taylor expanded in z2 around 0
lower-/.f64N/A
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f6471.4%
Applied rewrites71.4%
(FPCore (z2 z1 z0)
:precision binary64
(let* ((t_0 (+ z2 (+ z1 z0)))
(t_1 (+ t_0 z2))
(t_2 (* t_1 t_1))
(t_3 (* t_0 z2))
(t_4 (* (+ t_3 (* z1 z0)) (/ t_3 (* (- t_2 1.0) t_2)))))
(if (<= t_4 -4e-304)
t_4
(if (<= t_4 4e-11)
(*
(/ 1.0 (- t_1 1.0))
(* (/ (/ z2 t_1) t_1) (+ (* z0 z1) (* (+ (+ z0 z1) z2) z2))))
(/
(-
(+ (* 0.0625 z2) (* 0.0625 (+ (* 2.0 z0) (* 2.0 z1))))
(* 0.125 (+ z0 z1)))
z2)))))double code(double z2, double z1, double z0) {
double t_0 = z2 + (z1 + z0);
double t_1 = t_0 + z2;
double t_2 = t_1 * t_1;
double t_3 = t_0 * z2;
double t_4 = (t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2));
double tmp;
if (t_4 <= -4e-304) {
tmp = t_4;
} else if (t_4 <= 4e-11) {
tmp = (1.0 / (t_1 - 1.0)) * (((z2 / t_1) / t_1) * ((z0 * z1) + (((z0 + z1) + z2) * z2)));
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: tmp
t_0 = z2 + (z1 + z0)
t_1 = t_0 + z2
t_2 = t_1 * t_1
t_3 = t_0 * z2
t_4 = (t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0d0) * t_2))
if (t_4 <= (-4d-304)) then
tmp = t_4
else if (t_4 <= 4d-11) then
tmp = (1.0d0 / (t_1 - 1.0d0)) * (((z2 / t_1) / t_1) * ((z0 * z1) + (((z0 + z1) + z2) * z2)))
else
tmp = (((0.0625d0 * z2) + (0.0625d0 * ((2.0d0 * z0) + (2.0d0 * z1)))) - (0.125d0 * (z0 + z1))) / z2
end if
code = tmp
end function
public static double code(double z2, double z1, double z0) {
double t_0 = z2 + (z1 + z0);
double t_1 = t_0 + z2;
double t_2 = t_1 * t_1;
double t_3 = t_0 * z2;
double t_4 = (t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2));
double tmp;
if (t_4 <= -4e-304) {
tmp = t_4;
} else if (t_4 <= 4e-11) {
tmp = (1.0 / (t_1 - 1.0)) * (((z2 / t_1) / t_1) * ((z0 * z1) + (((z0 + z1) + z2) * z2)));
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2;
}
return tmp;
}
def code(z2, z1, z0): t_0 = z2 + (z1 + z0) t_1 = t_0 + z2 t_2 = t_1 * t_1 t_3 = t_0 * z2 t_4 = (t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2)) tmp = 0 if t_4 <= -4e-304: tmp = t_4 elif t_4 <= 4e-11: tmp = (1.0 / (t_1 - 1.0)) * (((z2 / t_1) / t_1) * ((z0 * z1) + (((z0 + z1) + z2) * z2))) else: tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2 return tmp
function code(z2, z1, z0) t_0 = Float64(z2 + Float64(z1 + z0)) t_1 = Float64(t_0 + z2) t_2 = Float64(t_1 * t_1) t_3 = Float64(t_0 * z2) t_4 = Float64(Float64(t_3 + Float64(z1 * z0)) * Float64(t_3 / Float64(Float64(t_2 - 1.0) * t_2))) tmp = 0.0 if (t_4 <= -4e-304) tmp = t_4; elseif (t_4 <= 4e-11) tmp = Float64(Float64(1.0 / Float64(t_1 - 1.0)) * Float64(Float64(Float64(z2 / t_1) / t_1) * Float64(Float64(z0 * z1) + Float64(Float64(Float64(z0 + z1) + z2) * z2)))); else tmp = Float64(Float64(Float64(Float64(0.0625 * z2) + Float64(0.0625 * Float64(Float64(2.0 * z0) + Float64(2.0 * z1)))) - Float64(0.125 * Float64(z0 + z1))) / z2); end return tmp end
function tmp_2 = code(z2, z1, z0) t_0 = z2 + (z1 + z0); t_1 = t_0 + z2; t_2 = t_1 * t_1; t_3 = t_0 * z2; t_4 = (t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2)); tmp = 0.0; if (t_4 <= -4e-304) tmp = t_4; elseif (t_4 <= 4e-11) tmp = (1.0 / (t_1 - 1.0)) * (((z2 / t_1) / t_1) * ((z0 * z1) + (((z0 + z1) + z2) * z2))); else tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2; end tmp_2 = tmp; end
code[z2_, z1_, z0_] := Block[{t$95$0 = N[(z2 + N[(z1 + z0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(t$95$0 + z2), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 * t$95$1), $MachinePrecision]}, Block[{t$95$3 = N[(t$95$0 * z2), $MachinePrecision]}, Block[{t$95$4 = N[(N[(t$95$3 + N[(z1 * z0), $MachinePrecision]), $MachinePrecision] * N[(t$95$3 / N[(N[(t$95$2 - 1.0), $MachinePrecision] * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$4, -4e-304], t$95$4, If[LessEqual[t$95$4, 4e-11], N[(N[(1.0 / N[(t$95$1 - 1.0), $MachinePrecision]), $MachinePrecision] * N[(N[(N[(z2 / t$95$1), $MachinePrecision] / t$95$1), $MachinePrecision] * N[(N[(z0 * z1), $MachinePrecision] + N[(N[(N[(z0 + z1), $MachinePrecision] + z2), $MachinePrecision] * z2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.0625 * z2), $MachinePrecision] + N[(0.0625 * N[(N[(2.0 * z0), $MachinePrecision] + N[(2.0 * z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(0.125 * N[(z0 + z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z2), $MachinePrecision]]]]]]]]
\begin{array}{l}
t_0 := z2 + \left(z1 + z0\right)\\
t_1 := t\_0 + z2\\
t_2 := t\_1 \cdot t\_1\\
t_3 := t\_0 \cdot z2\\
t_4 := \left(t\_3 + z1 \cdot z0\right) \cdot \frac{t\_3}{\left(t\_2 - 1\right) \cdot t\_2}\\
\mathbf{if}\;t\_4 \leq -4 \cdot 10^{-304}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;t\_4 \leq 4 \cdot 10^{-11}:\\
\;\;\;\;\frac{1}{t\_1 - 1} \cdot \left(\frac{\frac{z2}{t\_1}}{t\_1} \cdot \left(z0 \cdot z1 + \left(\left(z0 + z1\right) + z2\right) \cdot z2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(0.0625 \cdot z2 + 0.0625 \cdot \left(2 \cdot z0 + 2 \cdot z1\right)\right) - 0.125 \cdot \left(z0 + z1\right)}{z2}\\
\end{array}
if (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < -3.9999999999999999e-304Initial program 47.4%
if -3.9999999999999999e-304 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < 3.9999999999999998e-11Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
lift-/.f64N/A
lift--.f64N/A
lift-*.f64N/A
difference-of-sqr-1N/A
lift-+.f64N/A
+-commutativeN/A
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-+.f64N/A
associate-+l+N/A
lift-+.f64N/A
lift-+.f64N/A
Applied rewrites61.1%
Taylor expanded in z1 around inf
Applied rewrites44.9%
if 3.9999999999999998e-11 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
Taylor expanded in z2 around inf
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f6450.3%
Applied rewrites50.3%
Taylor expanded in z2 around 0
lower-/.f64N/A
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f6471.4%
Applied rewrites71.4%
(FPCore (z2 z1 z0)
:precision binary64
(let* ((t_0 (+ (+ z0 z1) z2))
(t_1 (+ z2 (+ z1 z0)))
(t_2 (+ t_1 z2))
(t_3 (* t_2 t_2))
(t_4 (* t_1 z2))
(t_5 (+ t_4 (* z1 z0)))
(t_6 (* t_5 (/ t_4 (* (- t_3 1.0) t_3))))
(t_7 (+ t_0 z2)))
(if (<= t_6 -4e-304)
(* t_5 (/ t_4 (* t_7 (* (- (* t_7 t_7) 1.0) t_7))))
(if (<= t_6 4e-11)
(*
(/ 1.0 (- t_2 1.0))
(* (/ (/ z2 t_2) t_2) (+ (* z0 z1) (* t_0 z2))))
(/
(-
(+ (* 0.0625 z2) (* 0.0625 (+ (* 2.0 z0) (* 2.0 z1))))
(* 0.125 (+ z0 z1)))
z2)))))double code(double z2, double z1, double z0) {
double t_0 = (z0 + z1) + z2;
double t_1 = z2 + (z1 + z0);
double t_2 = t_1 + z2;
double t_3 = t_2 * t_2;
double t_4 = t_1 * z2;
double t_5 = t_4 + (z1 * z0);
double t_6 = t_5 * (t_4 / ((t_3 - 1.0) * t_3));
double t_7 = t_0 + z2;
double tmp;
if (t_6 <= -4e-304) {
tmp = t_5 * (t_4 / (t_7 * (((t_7 * t_7) - 1.0) * t_7)));
} else if (t_6 <= 4e-11) {
tmp = (1.0 / (t_2 - 1.0)) * (((z2 / t_2) / t_2) * ((z0 * z1) + (t_0 * z2)));
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
real(8) :: tmp
t_0 = (z0 + z1) + z2
t_1 = z2 + (z1 + z0)
t_2 = t_1 + z2
t_3 = t_2 * t_2
t_4 = t_1 * z2
t_5 = t_4 + (z1 * z0)
t_6 = t_5 * (t_4 / ((t_3 - 1.0d0) * t_3))
t_7 = t_0 + z2
if (t_6 <= (-4d-304)) then
tmp = t_5 * (t_4 / (t_7 * (((t_7 * t_7) - 1.0d0) * t_7)))
else if (t_6 <= 4d-11) then
tmp = (1.0d0 / (t_2 - 1.0d0)) * (((z2 / t_2) / t_2) * ((z0 * z1) + (t_0 * z2)))
else
tmp = (((0.0625d0 * z2) + (0.0625d0 * ((2.0d0 * z0) + (2.0d0 * z1)))) - (0.125d0 * (z0 + z1))) / z2
end if
code = tmp
end function
public static double code(double z2, double z1, double z0) {
double t_0 = (z0 + z1) + z2;
double t_1 = z2 + (z1 + z0);
double t_2 = t_1 + z2;
double t_3 = t_2 * t_2;
double t_4 = t_1 * z2;
double t_5 = t_4 + (z1 * z0);
double t_6 = t_5 * (t_4 / ((t_3 - 1.0) * t_3));
double t_7 = t_0 + z2;
double tmp;
if (t_6 <= -4e-304) {
tmp = t_5 * (t_4 / (t_7 * (((t_7 * t_7) - 1.0) * t_7)));
} else if (t_6 <= 4e-11) {
tmp = (1.0 / (t_2 - 1.0)) * (((z2 / t_2) / t_2) * ((z0 * z1) + (t_0 * z2)));
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2;
}
return tmp;
}
def code(z2, z1, z0): t_0 = (z0 + z1) + z2 t_1 = z2 + (z1 + z0) t_2 = t_1 + z2 t_3 = t_2 * t_2 t_4 = t_1 * z2 t_5 = t_4 + (z1 * z0) t_6 = t_5 * (t_4 / ((t_3 - 1.0) * t_3)) t_7 = t_0 + z2 tmp = 0 if t_6 <= -4e-304: tmp = t_5 * (t_4 / (t_7 * (((t_7 * t_7) - 1.0) * t_7))) elif t_6 <= 4e-11: tmp = (1.0 / (t_2 - 1.0)) * (((z2 / t_2) / t_2) * ((z0 * z1) + (t_0 * z2))) else: tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2 return tmp
function code(z2, z1, z0) t_0 = Float64(Float64(z0 + z1) + z2) t_1 = Float64(z2 + Float64(z1 + z0)) t_2 = Float64(t_1 + z2) t_3 = Float64(t_2 * t_2) t_4 = Float64(t_1 * z2) t_5 = Float64(t_4 + Float64(z1 * z0)) t_6 = Float64(t_5 * Float64(t_4 / Float64(Float64(t_3 - 1.0) * t_3))) t_7 = Float64(t_0 + z2) tmp = 0.0 if (t_6 <= -4e-304) tmp = Float64(t_5 * Float64(t_4 / Float64(t_7 * Float64(Float64(Float64(t_7 * t_7) - 1.0) * t_7)))); elseif (t_6 <= 4e-11) tmp = Float64(Float64(1.0 / Float64(t_2 - 1.0)) * Float64(Float64(Float64(z2 / t_2) / t_2) * Float64(Float64(z0 * z1) + Float64(t_0 * z2)))); else tmp = Float64(Float64(Float64(Float64(0.0625 * z2) + Float64(0.0625 * Float64(Float64(2.0 * z0) + Float64(2.0 * z1)))) - Float64(0.125 * Float64(z0 + z1))) / z2); end return tmp end
function tmp_2 = code(z2, z1, z0) t_0 = (z0 + z1) + z2; t_1 = z2 + (z1 + z0); t_2 = t_1 + z2; t_3 = t_2 * t_2; t_4 = t_1 * z2; t_5 = t_4 + (z1 * z0); t_6 = t_5 * (t_4 / ((t_3 - 1.0) * t_3)); t_7 = t_0 + z2; tmp = 0.0; if (t_6 <= -4e-304) tmp = t_5 * (t_4 / (t_7 * (((t_7 * t_7) - 1.0) * t_7))); elseif (t_6 <= 4e-11) tmp = (1.0 / (t_2 - 1.0)) * (((z2 / t_2) / t_2) * ((z0 * z1) + (t_0 * z2))); else tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2; end tmp_2 = tmp; end
code[z2_, z1_, z0_] := Block[{t$95$0 = N[(N[(z0 + z1), $MachinePrecision] + z2), $MachinePrecision]}, Block[{t$95$1 = N[(z2 + N[(z1 + z0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 + z2), $MachinePrecision]}, Block[{t$95$3 = N[(t$95$2 * t$95$2), $MachinePrecision]}, Block[{t$95$4 = N[(t$95$1 * z2), $MachinePrecision]}, Block[{t$95$5 = N[(t$95$4 + N[(z1 * z0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(t$95$5 * N[(t$95$4 / N[(N[(t$95$3 - 1.0), $MachinePrecision] * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$7 = N[(t$95$0 + z2), $MachinePrecision]}, If[LessEqual[t$95$6, -4e-304], N[(t$95$5 * N[(t$95$4 / N[(t$95$7 * N[(N[(N[(t$95$7 * t$95$7), $MachinePrecision] - 1.0), $MachinePrecision] * t$95$7), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$6, 4e-11], N[(N[(1.0 / N[(t$95$2 - 1.0), $MachinePrecision]), $MachinePrecision] * N[(N[(N[(z2 / t$95$2), $MachinePrecision] / t$95$2), $MachinePrecision] * N[(N[(z0 * z1), $MachinePrecision] + N[(t$95$0 * z2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.0625 * z2), $MachinePrecision] + N[(0.0625 * N[(N[(2.0 * z0), $MachinePrecision] + N[(2.0 * z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(0.125 * N[(z0 + z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z2), $MachinePrecision]]]]]]]]]]]
\begin{array}{l}
t_0 := \left(z0 + z1\right) + z2\\
t_1 := z2 + \left(z1 + z0\right)\\
t_2 := t\_1 + z2\\
t_3 := t\_2 \cdot t\_2\\
t_4 := t\_1 \cdot z2\\
t_5 := t\_4 + z1 \cdot z0\\
t_6 := t\_5 \cdot \frac{t\_4}{\left(t\_3 - 1\right) \cdot t\_3}\\
t_7 := t\_0 + z2\\
\mathbf{if}\;t\_6 \leq -4 \cdot 10^{-304}:\\
\;\;\;\;t\_5 \cdot \frac{t\_4}{t\_7 \cdot \left(\left(t\_7 \cdot t\_7 - 1\right) \cdot t\_7\right)}\\
\mathbf{elif}\;t\_6 \leq 4 \cdot 10^{-11}:\\
\;\;\;\;\frac{1}{t\_2 - 1} \cdot \left(\frac{\frac{z2}{t\_2}}{t\_2} \cdot \left(z0 \cdot z1 + t\_0 \cdot z2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(0.0625 \cdot z2 + 0.0625 \cdot \left(2 \cdot z0 + 2 \cdot z1\right)\right) - 0.125 \cdot \left(z0 + z1\right)}{z2}\\
\end{array}
if (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < -3.9999999999999999e-304Initial program 47.4%
lift-*.f64N/A
lift-*.f64N/A
associate-*r*N/A
*-commutativeN/A
lower-*.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-*.f6447.4%
Applied rewrites47.4%
if -3.9999999999999999e-304 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < 3.9999999999999998e-11Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
lift-/.f64N/A
lift--.f64N/A
lift-*.f64N/A
difference-of-sqr-1N/A
lift-+.f64N/A
+-commutativeN/A
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-+.f64N/A
associate-+l+N/A
lift-+.f64N/A
lift-+.f64N/A
Applied rewrites61.1%
Taylor expanded in z1 around inf
Applied rewrites44.9%
if 3.9999999999999998e-11 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
Taylor expanded in z2 around inf
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f6450.3%
Applied rewrites50.3%
Taylor expanded in z2 around 0
lower-/.f64N/A
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f6471.4%
Applied rewrites71.4%
(FPCore (z2 z1 z0)
:precision binary64
(let* ((t_0 (+ z2 (+ z1 z0)))
(t_1 (+ t_0 z2))
(t_2 (* t_1 t_1))
(t_3 (+ (+ z0 z1) z2))
(t_4 (+ t_3 z2))
(t_5 (* t_4 t_4))
(t_6 (* t_0 z2))
(t_7 (* (+ t_6 (* z1 z0)) (/ t_6 (* (- t_2 1.0) t_2))))
(t_8 (+ (* z0 z1) (* t_3 z2))))
(if (<= t_7 -4e-304)
(* (* t_8 t_3) (/ z2 (* (- t_5 1.0) t_5)))
(if (<= t_7 4e-11)
(* (/ 1.0 (- t_1 1.0)) (* (/ (/ z2 t_1) t_1) t_8))
(/
(-
(+ (* 0.0625 z2) (* 0.0625 (+ (* 2.0 z0) (* 2.0 z1))))
(* 0.125 (+ z0 z1)))
z2)))))double code(double z2, double z1, double z0) {
double t_0 = z2 + (z1 + z0);
double t_1 = t_0 + z2;
double t_2 = t_1 * t_1;
double t_3 = (z0 + z1) + z2;
double t_4 = t_3 + z2;
double t_5 = t_4 * t_4;
double t_6 = t_0 * z2;
double t_7 = (t_6 + (z1 * z0)) * (t_6 / ((t_2 - 1.0) * t_2));
double t_8 = (z0 * z1) + (t_3 * z2);
double tmp;
if (t_7 <= -4e-304) {
tmp = (t_8 * t_3) * (z2 / ((t_5 - 1.0) * t_5));
} else if (t_7 <= 4e-11) {
tmp = (1.0 / (t_1 - 1.0)) * (((z2 / t_1) / t_1) * t_8);
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
real(8) :: t_8
real(8) :: tmp
t_0 = z2 + (z1 + z0)
t_1 = t_0 + z2
t_2 = t_1 * t_1
t_3 = (z0 + z1) + z2
t_4 = t_3 + z2
t_5 = t_4 * t_4
t_6 = t_0 * z2
t_7 = (t_6 + (z1 * z0)) * (t_6 / ((t_2 - 1.0d0) * t_2))
t_8 = (z0 * z1) + (t_3 * z2)
if (t_7 <= (-4d-304)) then
tmp = (t_8 * t_3) * (z2 / ((t_5 - 1.0d0) * t_5))
else if (t_7 <= 4d-11) then
tmp = (1.0d0 / (t_1 - 1.0d0)) * (((z2 / t_1) / t_1) * t_8)
else
tmp = (((0.0625d0 * z2) + (0.0625d0 * ((2.0d0 * z0) + (2.0d0 * z1)))) - (0.125d0 * (z0 + z1))) / z2
end if
code = tmp
end function
public static double code(double z2, double z1, double z0) {
double t_0 = z2 + (z1 + z0);
double t_1 = t_0 + z2;
double t_2 = t_1 * t_1;
double t_3 = (z0 + z1) + z2;
double t_4 = t_3 + z2;
double t_5 = t_4 * t_4;
double t_6 = t_0 * z2;
double t_7 = (t_6 + (z1 * z0)) * (t_6 / ((t_2 - 1.0) * t_2));
double t_8 = (z0 * z1) + (t_3 * z2);
double tmp;
if (t_7 <= -4e-304) {
tmp = (t_8 * t_3) * (z2 / ((t_5 - 1.0) * t_5));
} else if (t_7 <= 4e-11) {
tmp = (1.0 / (t_1 - 1.0)) * (((z2 / t_1) / t_1) * t_8);
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2;
}
return tmp;
}
def code(z2, z1, z0): t_0 = z2 + (z1 + z0) t_1 = t_0 + z2 t_2 = t_1 * t_1 t_3 = (z0 + z1) + z2 t_4 = t_3 + z2 t_5 = t_4 * t_4 t_6 = t_0 * z2 t_7 = (t_6 + (z1 * z0)) * (t_6 / ((t_2 - 1.0) * t_2)) t_8 = (z0 * z1) + (t_3 * z2) tmp = 0 if t_7 <= -4e-304: tmp = (t_8 * t_3) * (z2 / ((t_5 - 1.0) * t_5)) elif t_7 <= 4e-11: tmp = (1.0 / (t_1 - 1.0)) * (((z2 / t_1) / t_1) * t_8) else: tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2 return tmp
function code(z2, z1, z0) t_0 = Float64(z2 + Float64(z1 + z0)) t_1 = Float64(t_0 + z2) t_2 = Float64(t_1 * t_1) t_3 = Float64(Float64(z0 + z1) + z2) t_4 = Float64(t_3 + z2) t_5 = Float64(t_4 * t_4) t_6 = Float64(t_0 * z2) t_7 = Float64(Float64(t_6 + Float64(z1 * z0)) * Float64(t_6 / Float64(Float64(t_2 - 1.0) * t_2))) t_8 = Float64(Float64(z0 * z1) + Float64(t_3 * z2)) tmp = 0.0 if (t_7 <= -4e-304) tmp = Float64(Float64(t_8 * t_3) * Float64(z2 / Float64(Float64(t_5 - 1.0) * t_5))); elseif (t_7 <= 4e-11) tmp = Float64(Float64(1.0 / Float64(t_1 - 1.0)) * Float64(Float64(Float64(z2 / t_1) / t_1) * t_8)); else tmp = Float64(Float64(Float64(Float64(0.0625 * z2) + Float64(0.0625 * Float64(Float64(2.0 * z0) + Float64(2.0 * z1)))) - Float64(0.125 * Float64(z0 + z1))) / z2); end return tmp end
function tmp_2 = code(z2, z1, z0) t_0 = z2 + (z1 + z0); t_1 = t_0 + z2; t_2 = t_1 * t_1; t_3 = (z0 + z1) + z2; t_4 = t_3 + z2; t_5 = t_4 * t_4; t_6 = t_0 * z2; t_7 = (t_6 + (z1 * z0)) * (t_6 / ((t_2 - 1.0) * t_2)); t_8 = (z0 * z1) + (t_3 * z2); tmp = 0.0; if (t_7 <= -4e-304) tmp = (t_8 * t_3) * (z2 / ((t_5 - 1.0) * t_5)); elseif (t_7 <= 4e-11) tmp = (1.0 / (t_1 - 1.0)) * (((z2 / t_1) / t_1) * t_8); else tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2; end tmp_2 = tmp; end
code[z2_, z1_, z0_] := Block[{t$95$0 = N[(z2 + N[(z1 + z0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(t$95$0 + z2), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 * t$95$1), $MachinePrecision]}, Block[{t$95$3 = N[(N[(z0 + z1), $MachinePrecision] + z2), $MachinePrecision]}, Block[{t$95$4 = N[(t$95$3 + z2), $MachinePrecision]}, Block[{t$95$5 = N[(t$95$4 * t$95$4), $MachinePrecision]}, Block[{t$95$6 = N[(t$95$0 * z2), $MachinePrecision]}, Block[{t$95$7 = N[(N[(t$95$6 + N[(z1 * z0), $MachinePrecision]), $MachinePrecision] * N[(t$95$6 / N[(N[(t$95$2 - 1.0), $MachinePrecision] * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$8 = N[(N[(z0 * z1), $MachinePrecision] + N[(t$95$3 * z2), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$7, -4e-304], N[(N[(t$95$8 * t$95$3), $MachinePrecision] * N[(z2 / N[(N[(t$95$5 - 1.0), $MachinePrecision] * t$95$5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$7, 4e-11], N[(N[(1.0 / N[(t$95$1 - 1.0), $MachinePrecision]), $MachinePrecision] * N[(N[(N[(z2 / t$95$1), $MachinePrecision] / t$95$1), $MachinePrecision] * t$95$8), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.0625 * z2), $MachinePrecision] + N[(0.0625 * N[(N[(2.0 * z0), $MachinePrecision] + N[(2.0 * z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(0.125 * N[(z0 + z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z2), $MachinePrecision]]]]]]]]]]]]
\begin{array}{l}
t_0 := z2 + \left(z1 + z0\right)\\
t_1 := t\_0 + z2\\
t_2 := t\_1 \cdot t\_1\\
t_3 := \left(z0 + z1\right) + z2\\
t_4 := t\_3 + z2\\
t_5 := t\_4 \cdot t\_4\\
t_6 := t\_0 \cdot z2\\
t_7 := \left(t\_6 + z1 \cdot z0\right) \cdot \frac{t\_6}{\left(t\_2 - 1\right) \cdot t\_2}\\
t_8 := z0 \cdot z1 + t\_3 \cdot z2\\
\mathbf{if}\;t\_7 \leq -4 \cdot 10^{-304}:\\
\;\;\;\;\left(t\_8 \cdot t\_3\right) \cdot \frac{z2}{\left(t\_5 - 1\right) \cdot t\_5}\\
\mathbf{elif}\;t\_7 \leq 4 \cdot 10^{-11}:\\
\;\;\;\;\frac{1}{t\_1 - 1} \cdot \left(\frac{\frac{z2}{t\_1}}{t\_1} \cdot t\_8\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(0.0625 \cdot z2 + 0.0625 \cdot \left(2 \cdot z0 + 2 \cdot z1\right)\right) - 0.125 \cdot \left(z0 + z1\right)}{z2}\\
\end{array}
if (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < -3.9999999999999999e-304Initial program 47.4%
lift-*.f64N/A
lift-/.f64N/A
lift-*.f64N/A
associate-/l*N/A
associate-*r*N/A
Applied rewrites31.0%
if -3.9999999999999999e-304 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < 3.9999999999999998e-11Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
lift-/.f64N/A
lift--.f64N/A
lift-*.f64N/A
difference-of-sqr-1N/A
lift-+.f64N/A
+-commutativeN/A
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-+.f64N/A
associate-+l+N/A
lift-+.f64N/A
lift-+.f64N/A
Applied rewrites61.1%
Taylor expanded in z1 around inf
Applied rewrites44.9%
if 3.9999999999999998e-11 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
Taylor expanded in z2 around inf
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f6450.3%
Applied rewrites50.3%
Taylor expanded in z2 around 0
lower-/.f64N/A
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f6471.4%
Applied rewrites71.4%
(FPCore (z2 z1 z0)
:precision binary64
(let* ((t_0 (+ z2 (+ (fmin z1 z0) (fmax z1 z0))))
(t_1 (+ t_0 z2))
(t_2 (* t_1 t_1))
(t_3 (* t_0 z2))
(t_4 (+ (fmin z1 z0) z2))
(t_5 (* t_4 z2))
(t_6 (+ (fmax z1 z0) (fmin z1 z0)))
(t_7 (* (fmin z1 z0) (fmax z1 z0)))
(t_8 (* (+ t_3 t_7) (/ t_3 (* (- t_2 1.0) t_2))))
(t_9 (+ t_4 z2))
(t_10 (* t_9 t_9)))
(if (<= t_8 -5e-286)
(* (+ t_5 t_7) (/ t_5 (* (- t_10 1.0) t_10)))
(if (<= t_8 4e-11)
(*
(/ 1.0 (- t_1 1.0))
(*
(/ (/ z2 t_1) t_1)
(+ (* (fmax z1 z0) (fmin z1 z0)) (* (+ t_6 z2) z2))))
(/
(-
(+
(* 0.0625 z2)
(* 0.0625 (+ (* 2.0 (fmax z1 z0)) (* 2.0 (fmin z1 z0)))))
(* 0.125 t_6))
z2)))))double code(double z2, double z1, double z0) {
double t_0 = z2 + (fmin(z1, z0) + fmax(z1, z0));
double t_1 = t_0 + z2;
double t_2 = t_1 * t_1;
double t_3 = t_0 * z2;
double t_4 = fmin(z1, z0) + z2;
double t_5 = t_4 * z2;
double t_6 = fmax(z1, z0) + fmin(z1, z0);
double t_7 = fmin(z1, z0) * fmax(z1, z0);
double t_8 = (t_3 + t_7) * (t_3 / ((t_2 - 1.0) * t_2));
double t_9 = t_4 + z2;
double t_10 = t_9 * t_9;
double tmp;
if (t_8 <= -5e-286) {
tmp = (t_5 + t_7) * (t_5 / ((t_10 - 1.0) * t_10));
} else if (t_8 <= 4e-11) {
tmp = (1.0 / (t_1 - 1.0)) * (((z2 / t_1) / t_1) * ((fmax(z1, z0) * fmin(z1, z0)) + ((t_6 + z2) * z2)));
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * fmax(z1, z0)) + (2.0 * fmin(z1, z0))))) - (0.125 * t_6)) / z2;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
real(8) :: t_0
real(8) :: t_1
real(8) :: t_10
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
real(8) :: t_8
real(8) :: t_9
real(8) :: tmp
t_0 = z2 + (fmin(z1, z0) + fmax(z1, z0))
t_1 = t_0 + z2
t_2 = t_1 * t_1
t_3 = t_0 * z2
t_4 = fmin(z1, z0) + z2
t_5 = t_4 * z2
t_6 = fmax(z1, z0) + fmin(z1, z0)
t_7 = fmin(z1, z0) * fmax(z1, z0)
t_8 = (t_3 + t_7) * (t_3 / ((t_2 - 1.0d0) * t_2))
t_9 = t_4 + z2
t_10 = t_9 * t_9
if (t_8 <= (-5d-286)) then
tmp = (t_5 + t_7) * (t_5 / ((t_10 - 1.0d0) * t_10))
else if (t_8 <= 4d-11) then
tmp = (1.0d0 / (t_1 - 1.0d0)) * (((z2 / t_1) / t_1) * ((fmax(z1, z0) * fmin(z1, z0)) + ((t_6 + z2) * z2)))
else
tmp = (((0.0625d0 * z2) + (0.0625d0 * ((2.0d0 * fmax(z1, z0)) + (2.0d0 * fmin(z1, z0))))) - (0.125d0 * t_6)) / z2
end if
code = tmp
end function
public static double code(double z2, double z1, double z0) {
double t_0 = z2 + (fmin(z1, z0) + fmax(z1, z0));
double t_1 = t_0 + z2;
double t_2 = t_1 * t_1;
double t_3 = t_0 * z2;
double t_4 = fmin(z1, z0) + z2;
double t_5 = t_4 * z2;
double t_6 = fmax(z1, z0) + fmin(z1, z0);
double t_7 = fmin(z1, z0) * fmax(z1, z0);
double t_8 = (t_3 + t_7) * (t_3 / ((t_2 - 1.0) * t_2));
double t_9 = t_4 + z2;
double t_10 = t_9 * t_9;
double tmp;
if (t_8 <= -5e-286) {
tmp = (t_5 + t_7) * (t_5 / ((t_10 - 1.0) * t_10));
} else if (t_8 <= 4e-11) {
tmp = (1.0 / (t_1 - 1.0)) * (((z2 / t_1) / t_1) * ((fmax(z1, z0) * fmin(z1, z0)) + ((t_6 + z2) * z2)));
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * fmax(z1, z0)) + (2.0 * fmin(z1, z0))))) - (0.125 * t_6)) / z2;
}
return tmp;
}
def code(z2, z1, z0): t_0 = z2 + (fmin(z1, z0) + fmax(z1, z0)) t_1 = t_0 + z2 t_2 = t_1 * t_1 t_3 = t_0 * z2 t_4 = fmin(z1, z0) + z2 t_5 = t_4 * z2 t_6 = fmax(z1, z0) + fmin(z1, z0) t_7 = fmin(z1, z0) * fmax(z1, z0) t_8 = (t_3 + t_7) * (t_3 / ((t_2 - 1.0) * t_2)) t_9 = t_4 + z2 t_10 = t_9 * t_9 tmp = 0 if t_8 <= -5e-286: tmp = (t_5 + t_7) * (t_5 / ((t_10 - 1.0) * t_10)) elif t_8 <= 4e-11: tmp = (1.0 / (t_1 - 1.0)) * (((z2 / t_1) / t_1) * ((fmax(z1, z0) * fmin(z1, z0)) + ((t_6 + z2) * z2))) else: tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * fmax(z1, z0)) + (2.0 * fmin(z1, z0))))) - (0.125 * t_6)) / z2 return tmp
function code(z2, z1, z0) t_0 = Float64(z2 + Float64(fmin(z1, z0) + fmax(z1, z0))) t_1 = Float64(t_0 + z2) t_2 = Float64(t_1 * t_1) t_3 = Float64(t_0 * z2) t_4 = Float64(fmin(z1, z0) + z2) t_5 = Float64(t_4 * z2) t_6 = Float64(fmax(z1, z0) + fmin(z1, z0)) t_7 = Float64(fmin(z1, z0) * fmax(z1, z0)) t_8 = Float64(Float64(t_3 + t_7) * Float64(t_3 / Float64(Float64(t_2 - 1.0) * t_2))) t_9 = Float64(t_4 + z2) t_10 = Float64(t_9 * t_9) tmp = 0.0 if (t_8 <= -5e-286) tmp = Float64(Float64(t_5 + t_7) * Float64(t_5 / Float64(Float64(t_10 - 1.0) * t_10))); elseif (t_8 <= 4e-11) tmp = Float64(Float64(1.0 / Float64(t_1 - 1.0)) * Float64(Float64(Float64(z2 / t_1) / t_1) * Float64(Float64(fmax(z1, z0) * fmin(z1, z0)) + Float64(Float64(t_6 + z2) * z2)))); else tmp = Float64(Float64(Float64(Float64(0.0625 * z2) + Float64(0.0625 * Float64(Float64(2.0 * fmax(z1, z0)) + Float64(2.0 * fmin(z1, z0))))) - Float64(0.125 * t_6)) / z2); end return tmp end
function tmp_2 = code(z2, z1, z0) t_0 = z2 + (min(z1, z0) + max(z1, z0)); t_1 = t_0 + z2; t_2 = t_1 * t_1; t_3 = t_0 * z2; t_4 = min(z1, z0) + z2; t_5 = t_4 * z2; t_6 = max(z1, z0) + min(z1, z0); t_7 = min(z1, z0) * max(z1, z0); t_8 = (t_3 + t_7) * (t_3 / ((t_2 - 1.0) * t_2)); t_9 = t_4 + z2; t_10 = t_9 * t_9; tmp = 0.0; if (t_8 <= -5e-286) tmp = (t_5 + t_7) * (t_5 / ((t_10 - 1.0) * t_10)); elseif (t_8 <= 4e-11) tmp = (1.0 / (t_1 - 1.0)) * (((z2 / t_1) / t_1) * ((max(z1, z0) * min(z1, z0)) + ((t_6 + z2) * z2))); else tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * max(z1, z0)) + (2.0 * min(z1, z0))))) - (0.125 * t_6)) / z2; end tmp_2 = tmp; end
code[z2_, z1_, z0_] := Block[{t$95$0 = N[(z2 + N[(N[Min[z1, z0], $MachinePrecision] + N[Max[z1, z0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(t$95$0 + z2), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 * t$95$1), $MachinePrecision]}, Block[{t$95$3 = N[(t$95$0 * z2), $MachinePrecision]}, Block[{t$95$4 = N[(N[Min[z1, z0], $MachinePrecision] + z2), $MachinePrecision]}, Block[{t$95$5 = N[(t$95$4 * z2), $MachinePrecision]}, Block[{t$95$6 = N[(N[Max[z1, z0], $MachinePrecision] + N[Min[z1, z0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$7 = N[(N[Min[z1, z0], $MachinePrecision] * N[Max[z1, z0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$8 = N[(N[(t$95$3 + t$95$7), $MachinePrecision] * N[(t$95$3 / N[(N[(t$95$2 - 1.0), $MachinePrecision] * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$9 = N[(t$95$4 + z2), $MachinePrecision]}, Block[{t$95$10 = N[(t$95$9 * t$95$9), $MachinePrecision]}, If[LessEqual[t$95$8, -5e-286], N[(N[(t$95$5 + t$95$7), $MachinePrecision] * N[(t$95$5 / N[(N[(t$95$10 - 1.0), $MachinePrecision] * t$95$10), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$8, 4e-11], N[(N[(1.0 / N[(t$95$1 - 1.0), $MachinePrecision]), $MachinePrecision] * N[(N[(N[(z2 / t$95$1), $MachinePrecision] / t$95$1), $MachinePrecision] * N[(N[(N[Max[z1, z0], $MachinePrecision] * N[Min[z1, z0], $MachinePrecision]), $MachinePrecision] + N[(N[(t$95$6 + z2), $MachinePrecision] * z2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.0625 * z2), $MachinePrecision] + N[(0.0625 * N[(N[(2.0 * N[Max[z1, z0], $MachinePrecision]), $MachinePrecision] + N[(2.0 * N[Min[z1, z0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(0.125 * t$95$6), $MachinePrecision]), $MachinePrecision] / z2), $MachinePrecision]]]]]]]]]]]]]]
\begin{array}{l}
t_0 := z2 + \left(\mathsf{min}\left(z1, z0\right) + \mathsf{max}\left(z1, z0\right)\right)\\
t_1 := t\_0 + z2\\
t_2 := t\_1 \cdot t\_1\\
t_3 := t\_0 \cdot z2\\
t_4 := \mathsf{min}\left(z1, z0\right) + z2\\
t_5 := t\_4 \cdot z2\\
t_6 := \mathsf{max}\left(z1, z0\right) + \mathsf{min}\left(z1, z0\right)\\
t_7 := \mathsf{min}\left(z1, z0\right) \cdot \mathsf{max}\left(z1, z0\right)\\
t_8 := \left(t\_3 + t\_7\right) \cdot \frac{t\_3}{\left(t\_2 - 1\right) \cdot t\_2}\\
t_9 := t\_4 + z2\\
t_10 := t\_9 \cdot t\_9\\
\mathbf{if}\;t\_8 \leq -5 \cdot 10^{-286}:\\
\;\;\;\;\left(t\_5 + t\_7\right) \cdot \frac{t\_5}{\left(t\_10 - 1\right) \cdot t\_10}\\
\mathbf{elif}\;t\_8 \leq 4 \cdot 10^{-11}:\\
\;\;\;\;\frac{1}{t\_1 - 1} \cdot \left(\frac{\frac{z2}{t\_1}}{t\_1} \cdot \left(\mathsf{max}\left(z1, z0\right) \cdot \mathsf{min}\left(z1, z0\right) + \left(t\_6 + z2\right) \cdot z2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(0.0625 \cdot z2 + 0.0625 \cdot \left(2 \cdot \mathsf{max}\left(z1, z0\right) + 2 \cdot \mathsf{min}\left(z1, z0\right)\right)\right) - 0.125 \cdot t\_6}{z2}\\
\end{array}
if (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < -5.0000000000000004e-286Initial program 47.4%
Taylor expanded in z0 around 0
lower-+.f6445.1%
Applied rewrites45.1%
Taylor expanded in z0 around 0
lower-+.f6444.8%
Applied rewrites44.8%
Taylor expanded in z0 around 0
lower-+.f6445.3%
Applied rewrites45.3%
Taylor expanded in z0 around 0
lower-+.f6444.8%
Applied rewrites44.8%
Taylor expanded in z0 around 0
lower-+.f6441.3%
Applied rewrites41.3%
Taylor expanded in z0 around 0
lower-+.f6431.9%
Applied rewrites31.9%
if -5.0000000000000004e-286 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < 3.9999999999999998e-11Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
lift-/.f64N/A
lift--.f64N/A
lift-*.f64N/A
difference-of-sqr-1N/A
lift-+.f64N/A
+-commutativeN/A
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-+.f64N/A
associate-+l+N/A
lift-+.f64N/A
lift-+.f64N/A
Applied rewrites61.1%
Taylor expanded in z1 around inf
Applied rewrites44.9%
if 3.9999999999999998e-11 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
Taylor expanded in z2 around inf
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f6450.3%
Applied rewrites50.3%
Taylor expanded in z2 around 0
lower-/.f64N/A
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f6471.4%
Applied rewrites71.4%
(FPCore (z2 z1 z0)
:precision binary64
(let* ((t_0 (+ z2 (+ (fmin z1 z0) (fmax z1 z0))))
(t_1 (+ t_0 z2))
(t_2 (* t_1 t_1))
(t_3 (* t_0 z2))
(t_4 (* (+ (fmin z1 z0) z2) z2))
(t_5 (+ (fmax z1 z0) (fmin z1 z0)))
(t_6 (+ t_5 z2))
(t_7 (+ (+ z2 (fmin z1 z0)) z2))
(t_8 (+ t_6 z2))
(t_9 (* (fmin z1 z0) (fmax z1 z0)))
(t_10 (* (+ t_3 t_9) (/ t_3 (* (- t_2 1.0) t_2)))))
(if (<= t_10 -2e-181)
(* (+ t_4 t_9) (/ t_4 (* t_7 (* (- (* t_7 t_7) 1.0) t_7))))
(if (<= t_10 4e-11)
(*
(/
(+ (* (fmax z1 z0) (fmin z1 z0)) (* t_6 z2))
(- (* t_8 t_8) 1.0))
(/ z2 t_5))
(/
(-
(+
(* 0.0625 z2)
(* 0.0625 (+ (* 2.0 (fmax z1 z0)) (* 2.0 (fmin z1 z0)))))
(* 0.125 t_5))
z2)))))double code(double z2, double z1, double z0) {
double t_0 = z2 + (fmin(z1, z0) + fmax(z1, z0));
double t_1 = t_0 + z2;
double t_2 = t_1 * t_1;
double t_3 = t_0 * z2;
double t_4 = (fmin(z1, z0) + z2) * z2;
double t_5 = fmax(z1, z0) + fmin(z1, z0);
double t_6 = t_5 + z2;
double t_7 = (z2 + fmin(z1, z0)) + z2;
double t_8 = t_6 + z2;
double t_9 = fmin(z1, z0) * fmax(z1, z0);
double t_10 = (t_3 + t_9) * (t_3 / ((t_2 - 1.0) * t_2));
double tmp;
if (t_10 <= -2e-181) {
tmp = (t_4 + t_9) * (t_4 / (t_7 * (((t_7 * t_7) - 1.0) * t_7)));
} else if (t_10 <= 4e-11) {
tmp = (((fmax(z1, z0) * fmin(z1, z0)) + (t_6 * z2)) / ((t_8 * t_8) - 1.0)) * (z2 / t_5);
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * fmax(z1, z0)) + (2.0 * fmin(z1, z0))))) - (0.125 * t_5)) / z2;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
real(8) :: t_0
real(8) :: t_1
real(8) :: t_10
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
real(8) :: t_8
real(8) :: t_9
real(8) :: tmp
t_0 = z2 + (fmin(z1, z0) + fmax(z1, z0))
t_1 = t_0 + z2
t_2 = t_1 * t_1
t_3 = t_0 * z2
t_4 = (fmin(z1, z0) + z2) * z2
t_5 = fmax(z1, z0) + fmin(z1, z0)
t_6 = t_5 + z2
t_7 = (z2 + fmin(z1, z0)) + z2
t_8 = t_6 + z2
t_9 = fmin(z1, z0) * fmax(z1, z0)
t_10 = (t_3 + t_9) * (t_3 / ((t_2 - 1.0d0) * t_2))
if (t_10 <= (-2d-181)) then
tmp = (t_4 + t_9) * (t_4 / (t_7 * (((t_7 * t_7) - 1.0d0) * t_7)))
else if (t_10 <= 4d-11) then
tmp = (((fmax(z1, z0) * fmin(z1, z0)) + (t_6 * z2)) / ((t_8 * t_8) - 1.0d0)) * (z2 / t_5)
else
tmp = (((0.0625d0 * z2) + (0.0625d0 * ((2.0d0 * fmax(z1, z0)) + (2.0d0 * fmin(z1, z0))))) - (0.125d0 * t_5)) / z2
end if
code = tmp
end function
public static double code(double z2, double z1, double z0) {
double t_0 = z2 + (fmin(z1, z0) + fmax(z1, z0));
double t_1 = t_0 + z2;
double t_2 = t_1 * t_1;
double t_3 = t_0 * z2;
double t_4 = (fmin(z1, z0) + z2) * z2;
double t_5 = fmax(z1, z0) + fmin(z1, z0);
double t_6 = t_5 + z2;
double t_7 = (z2 + fmin(z1, z0)) + z2;
double t_8 = t_6 + z2;
double t_9 = fmin(z1, z0) * fmax(z1, z0);
double t_10 = (t_3 + t_9) * (t_3 / ((t_2 - 1.0) * t_2));
double tmp;
if (t_10 <= -2e-181) {
tmp = (t_4 + t_9) * (t_4 / (t_7 * (((t_7 * t_7) - 1.0) * t_7)));
} else if (t_10 <= 4e-11) {
tmp = (((fmax(z1, z0) * fmin(z1, z0)) + (t_6 * z2)) / ((t_8 * t_8) - 1.0)) * (z2 / t_5);
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * fmax(z1, z0)) + (2.0 * fmin(z1, z0))))) - (0.125 * t_5)) / z2;
}
return tmp;
}
def code(z2, z1, z0): t_0 = z2 + (fmin(z1, z0) + fmax(z1, z0)) t_1 = t_0 + z2 t_2 = t_1 * t_1 t_3 = t_0 * z2 t_4 = (fmin(z1, z0) + z2) * z2 t_5 = fmax(z1, z0) + fmin(z1, z0) t_6 = t_5 + z2 t_7 = (z2 + fmin(z1, z0)) + z2 t_8 = t_6 + z2 t_9 = fmin(z1, z0) * fmax(z1, z0) t_10 = (t_3 + t_9) * (t_3 / ((t_2 - 1.0) * t_2)) tmp = 0 if t_10 <= -2e-181: tmp = (t_4 + t_9) * (t_4 / (t_7 * (((t_7 * t_7) - 1.0) * t_7))) elif t_10 <= 4e-11: tmp = (((fmax(z1, z0) * fmin(z1, z0)) + (t_6 * z2)) / ((t_8 * t_8) - 1.0)) * (z2 / t_5) else: tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * fmax(z1, z0)) + (2.0 * fmin(z1, z0))))) - (0.125 * t_5)) / z2 return tmp
function code(z2, z1, z0) t_0 = Float64(z2 + Float64(fmin(z1, z0) + fmax(z1, z0))) t_1 = Float64(t_0 + z2) t_2 = Float64(t_1 * t_1) t_3 = Float64(t_0 * z2) t_4 = Float64(Float64(fmin(z1, z0) + z2) * z2) t_5 = Float64(fmax(z1, z0) + fmin(z1, z0)) t_6 = Float64(t_5 + z2) t_7 = Float64(Float64(z2 + fmin(z1, z0)) + z2) t_8 = Float64(t_6 + z2) t_9 = Float64(fmin(z1, z0) * fmax(z1, z0)) t_10 = Float64(Float64(t_3 + t_9) * Float64(t_3 / Float64(Float64(t_2 - 1.0) * t_2))) tmp = 0.0 if (t_10 <= -2e-181) tmp = Float64(Float64(t_4 + t_9) * Float64(t_4 / Float64(t_7 * Float64(Float64(Float64(t_7 * t_7) - 1.0) * t_7)))); elseif (t_10 <= 4e-11) tmp = Float64(Float64(Float64(Float64(fmax(z1, z0) * fmin(z1, z0)) + Float64(t_6 * z2)) / Float64(Float64(t_8 * t_8) - 1.0)) * Float64(z2 / t_5)); else tmp = Float64(Float64(Float64(Float64(0.0625 * z2) + Float64(0.0625 * Float64(Float64(2.0 * fmax(z1, z0)) + Float64(2.0 * fmin(z1, z0))))) - Float64(0.125 * t_5)) / z2); end return tmp end
function tmp_2 = code(z2, z1, z0) t_0 = z2 + (min(z1, z0) + max(z1, z0)); t_1 = t_0 + z2; t_2 = t_1 * t_1; t_3 = t_0 * z2; t_4 = (min(z1, z0) + z2) * z2; t_5 = max(z1, z0) + min(z1, z0); t_6 = t_5 + z2; t_7 = (z2 + min(z1, z0)) + z2; t_8 = t_6 + z2; t_9 = min(z1, z0) * max(z1, z0); t_10 = (t_3 + t_9) * (t_3 / ((t_2 - 1.0) * t_2)); tmp = 0.0; if (t_10 <= -2e-181) tmp = (t_4 + t_9) * (t_4 / (t_7 * (((t_7 * t_7) - 1.0) * t_7))); elseif (t_10 <= 4e-11) tmp = (((max(z1, z0) * min(z1, z0)) + (t_6 * z2)) / ((t_8 * t_8) - 1.0)) * (z2 / t_5); else tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * max(z1, z0)) + (2.0 * min(z1, z0))))) - (0.125 * t_5)) / z2; end tmp_2 = tmp; end
code[z2_, z1_, z0_] := Block[{t$95$0 = N[(z2 + N[(N[Min[z1, z0], $MachinePrecision] + N[Max[z1, z0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(t$95$0 + z2), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 * t$95$1), $MachinePrecision]}, Block[{t$95$3 = N[(t$95$0 * z2), $MachinePrecision]}, Block[{t$95$4 = N[(N[(N[Min[z1, z0], $MachinePrecision] + z2), $MachinePrecision] * z2), $MachinePrecision]}, Block[{t$95$5 = N[(N[Max[z1, z0], $MachinePrecision] + N[Min[z1, z0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(t$95$5 + z2), $MachinePrecision]}, Block[{t$95$7 = N[(N[(z2 + N[Min[z1, z0], $MachinePrecision]), $MachinePrecision] + z2), $MachinePrecision]}, Block[{t$95$8 = N[(t$95$6 + z2), $MachinePrecision]}, Block[{t$95$9 = N[(N[Min[z1, z0], $MachinePrecision] * N[Max[z1, z0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$10 = N[(N[(t$95$3 + t$95$9), $MachinePrecision] * N[(t$95$3 / N[(N[(t$95$2 - 1.0), $MachinePrecision] * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$10, -2e-181], N[(N[(t$95$4 + t$95$9), $MachinePrecision] * N[(t$95$4 / N[(t$95$7 * N[(N[(N[(t$95$7 * t$95$7), $MachinePrecision] - 1.0), $MachinePrecision] * t$95$7), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$10, 4e-11], N[(N[(N[(N[(N[Max[z1, z0], $MachinePrecision] * N[Min[z1, z0], $MachinePrecision]), $MachinePrecision] + N[(t$95$6 * z2), $MachinePrecision]), $MachinePrecision] / N[(N[(t$95$8 * t$95$8), $MachinePrecision] - 1.0), $MachinePrecision]), $MachinePrecision] * N[(z2 / t$95$5), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.0625 * z2), $MachinePrecision] + N[(0.0625 * N[(N[(2.0 * N[Max[z1, z0], $MachinePrecision]), $MachinePrecision] + N[(2.0 * N[Min[z1, z0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(0.125 * t$95$5), $MachinePrecision]), $MachinePrecision] / z2), $MachinePrecision]]]]]]]]]]]]]]
\begin{array}{l}
t_0 := z2 + \left(\mathsf{min}\left(z1, z0\right) + \mathsf{max}\left(z1, z0\right)\right)\\
t_1 := t\_0 + z2\\
t_2 := t\_1 \cdot t\_1\\
t_3 := t\_0 \cdot z2\\
t_4 := \left(\mathsf{min}\left(z1, z0\right) + z2\right) \cdot z2\\
t_5 := \mathsf{max}\left(z1, z0\right) + \mathsf{min}\left(z1, z0\right)\\
t_6 := t\_5 + z2\\
t_7 := \left(z2 + \mathsf{min}\left(z1, z0\right)\right) + z2\\
t_8 := t\_6 + z2\\
t_9 := \mathsf{min}\left(z1, z0\right) \cdot \mathsf{max}\left(z1, z0\right)\\
t_10 := \left(t\_3 + t\_9\right) \cdot \frac{t\_3}{\left(t\_2 - 1\right) \cdot t\_2}\\
\mathbf{if}\;t\_10 \leq -2 \cdot 10^{-181}:\\
\;\;\;\;\left(t\_4 + t\_9\right) \cdot \frac{t\_4}{t\_7 \cdot \left(\left(t\_7 \cdot t\_7 - 1\right) \cdot t\_7\right)}\\
\mathbf{elif}\;t\_10 \leq 4 \cdot 10^{-11}:\\
\;\;\;\;\frac{\mathsf{max}\left(z1, z0\right) \cdot \mathsf{min}\left(z1, z0\right) + t\_6 \cdot z2}{t\_8 \cdot t\_8 - 1} \cdot \frac{z2}{t\_5}\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(0.0625 \cdot z2 + 0.0625 \cdot \left(2 \cdot \mathsf{max}\left(z1, z0\right) + 2 \cdot \mathsf{min}\left(z1, z0\right)\right)\right) - 0.125 \cdot t\_5}{z2}\\
\end{array}
if (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < -2.0000000000000001e-181Initial program 47.4%
Taylor expanded in z0 around 0
lower-+.f6445.1%
Applied rewrites45.1%
Taylor expanded in z0 around 0
lower-+.f6444.8%
Applied rewrites44.8%
Taylor expanded in z0 around 0
lower-+.f6445.3%
Applied rewrites45.3%
Taylor expanded in z0 around 0
lower-+.f6444.8%
Applied rewrites44.8%
Taylor expanded in z0 around 0
lower-+.f6441.3%
Applied rewrites41.3%
Taylor expanded in z0 around 0
lower-+.f6431.9%
Applied rewrites31.9%
lift-*.f64N/A
lift-*.f64N/A
associate-*r*N/A
*-commutativeN/A
lower-*.f64N/A
Applied rewrites31.9%
if -2.0000000000000001e-181 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < 3.9999999999999998e-11Initial program 47.4%
lift-*.f64N/A
lift-/.f64N/A
associate-*r/N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.8%
Taylor expanded in z2 around 0
lower-/.f64N/A
lower-+.f6445.8%
Applied rewrites45.8%
if 3.9999999999999998e-11 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
Taylor expanded in z2 around inf
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f6450.3%
Applied rewrites50.3%
Taylor expanded in z2 around 0
lower-/.f64N/A
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f6471.4%
Applied rewrites71.4%
(FPCore (z2 z1 z0)
:precision binary64
(let* ((t_0 (+ z2 (+ z1 z0)))
(t_1 (+ t_0 z2))
(t_2 (* t_1 t_1))
(t_3 (+ (+ z0 z2) z2))
(t_4 (* t_3 t_3))
(t_5 (* t_0 z2))
(t_6 (* (+ t_5 (* z1 z0)) (/ t_5 (* (- t_2 1.0) t_2))))
(t_7 (+ (+ z0 z1) z2))
(t_8 (+ t_7 z2)))
(if (<= t_6 -1e-194)
(*
(* (+ (* (+ z0 z2) z2) (* z1 z0)) (+ z0 z2))
(/ z2 (* (- t_4 1.0) t_4)))
(if (<= t_6 4e-11)
(*
(/ (+ (* z0 z1) (* t_7 z2)) (- (* t_8 t_8) 1.0))
(/ z2 (+ z0 z1)))
(/
(-
(+ (* 0.0625 z2) (* 0.0625 (+ (* 2.0 z0) (* 2.0 z1))))
(* 0.125 (+ z0 z1)))
z2)))))double code(double z2, double z1, double z0) {
double t_0 = z2 + (z1 + z0);
double t_1 = t_0 + z2;
double t_2 = t_1 * t_1;
double t_3 = (z0 + z2) + z2;
double t_4 = t_3 * t_3;
double t_5 = t_0 * z2;
double t_6 = (t_5 + (z1 * z0)) * (t_5 / ((t_2 - 1.0) * t_2));
double t_7 = (z0 + z1) + z2;
double t_8 = t_7 + z2;
double tmp;
if (t_6 <= -1e-194) {
tmp = ((((z0 + z2) * z2) + (z1 * z0)) * (z0 + z2)) * (z2 / ((t_4 - 1.0) * t_4));
} else if (t_6 <= 4e-11) {
tmp = (((z0 * z1) + (t_7 * z2)) / ((t_8 * t_8) - 1.0)) * (z2 / (z0 + z1));
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
real(8) :: t_8
real(8) :: tmp
t_0 = z2 + (z1 + z0)
t_1 = t_0 + z2
t_2 = t_1 * t_1
t_3 = (z0 + z2) + z2
t_4 = t_3 * t_3
t_5 = t_0 * z2
t_6 = (t_5 + (z1 * z0)) * (t_5 / ((t_2 - 1.0d0) * t_2))
t_7 = (z0 + z1) + z2
t_8 = t_7 + z2
if (t_6 <= (-1d-194)) then
tmp = ((((z0 + z2) * z2) + (z1 * z0)) * (z0 + z2)) * (z2 / ((t_4 - 1.0d0) * t_4))
else if (t_6 <= 4d-11) then
tmp = (((z0 * z1) + (t_7 * z2)) / ((t_8 * t_8) - 1.0d0)) * (z2 / (z0 + z1))
else
tmp = (((0.0625d0 * z2) + (0.0625d0 * ((2.0d0 * z0) + (2.0d0 * z1)))) - (0.125d0 * (z0 + z1))) / z2
end if
code = tmp
end function
public static double code(double z2, double z1, double z0) {
double t_0 = z2 + (z1 + z0);
double t_1 = t_0 + z2;
double t_2 = t_1 * t_1;
double t_3 = (z0 + z2) + z2;
double t_4 = t_3 * t_3;
double t_5 = t_0 * z2;
double t_6 = (t_5 + (z1 * z0)) * (t_5 / ((t_2 - 1.0) * t_2));
double t_7 = (z0 + z1) + z2;
double t_8 = t_7 + z2;
double tmp;
if (t_6 <= -1e-194) {
tmp = ((((z0 + z2) * z2) + (z1 * z0)) * (z0 + z2)) * (z2 / ((t_4 - 1.0) * t_4));
} else if (t_6 <= 4e-11) {
tmp = (((z0 * z1) + (t_7 * z2)) / ((t_8 * t_8) - 1.0)) * (z2 / (z0 + z1));
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2;
}
return tmp;
}
def code(z2, z1, z0): t_0 = z2 + (z1 + z0) t_1 = t_0 + z2 t_2 = t_1 * t_1 t_3 = (z0 + z2) + z2 t_4 = t_3 * t_3 t_5 = t_0 * z2 t_6 = (t_5 + (z1 * z0)) * (t_5 / ((t_2 - 1.0) * t_2)) t_7 = (z0 + z1) + z2 t_8 = t_7 + z2 tmp = 0 if t_6 <= -1e-194: tmp = ((((z0 + z2) * z2) + (z1 * z0)) * (z0 + z2)) * (z2 / ((t_4 - 1.0) * t_4)) elif t_6 <= 4e-11: tmp = (((z0 * z1) + (t_7 * z2)) / ((t_8 * t_8) - 1.0)) * (z2 / (z0 + z1)) else: tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2 return tmp
function code(z2, z1, z0) t_0 = Float64(z2 + Float64(z1 + z0)) t_1 = Float64(t_0 + z2) t_2 = Float64(t_1 * t_1) t_3 = Float64(Float64(z0 + z2) + z2) t_4 = Float64(t_3 * t_3) t_5 = Float64(t_0 * z2) t_6 = Float64(Float64(t_5 + Float64(z1 * z0)) * Float64(t_5 / Float64(Float64(t_2 - 1.0) * t_2))) t_7 = Float64(Float64(z0 + z1) + z2) t_8 = Float64(t_7 + z2) tmp = 0.0 if (t_6 <= -1e-194) tmp = Float64(Float64(Float64(Float64(Float64(z0 + z2) * z2) + Float64(z1 * z0)) * Float64(z0 + z2)) * Float64(z2 / Float64(Float64(t_4 - 1.0) * t_4))); elseif (t_6 <= 4e-11) tmp = Float64(Float64(Float64(Float64(z0 * z1) + Float64(t_7 * z2)) / Float64(Float64(t_8 * t_8) - 1.0)) * Float64(z2 / Float64(z0 + z1))); else tmp = Float64(Float64(Float64(Float64(0.0625 * z2) + Float64(0.0625 * Float64(Float64(2.0 * z0) + Float64(2.0 * z1)))) - Float64(0.125 * Float64(z0 + z1))) / z2); end return tmp end
function tmp_2 = code(z2, z1, z0) t_0 = z2 + (z1 + z0); t_1 = t_0 + z2; t_2 = t_1 * t_1; t_3 = (z0 + z2) + z2; t_4 = t_3 * t_3; t_5 = t_0 * z2; t_6 = (t_5 + (z1 * z0)) * (t_5 / ((t_2 - 1.0) * t_2)); t_7 = (z0 + z1) + z2; t_8 = t_7 + z2; tmp = 0.0; if (t_6 <= -1e-194) tmp = ((((z0 + z2) * z2) + (z1 * z0)) * (z0 + z2)) * (z2 / ((t_4 - 1.0) * t_4)); elseif (t_6 <= 4e-11) tmp = (((z0 * z1) + (t_7 * z2)) / ((t_8 * t_8) - 1.0)) * (z2 / (z0 + z1)); else tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2; end tmp_2 = tmp; end
code[z2_, z1_, z0_] := Block[{t$95$0 = N[(z2 + N[(z1 + z0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(t$95$0 + z2), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 * t$95$1), $MachinePrecision]}, Block[{t$95$3 = N[(N[(z0 + z2), $MachinePrecision] + z2), $MachinePrecision]}, Block[{t$95$4 = N[(t$95$3 * t$95$3), $MachinePrecision]}, Block[{t$95$5 = N[(t$95$0 * z2), $MachinePrecision]}, Block[{t$95$6 = N[(N[(t$95$5 + N[(z1 * z0), $MachinePrecision]), $MachinePrecision] * N[(t$95$5 / N[(N[(t$95$2 - 1.0), $MachinePrecision] * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$7 = N[(N[(z0 + z1), $MachinePrecision] + z2), $MachinePrecision]}, Block[{t$95$8 = N[(t$95$7 + z2), $MachinePrecision]}, If[LessEqual[t$95$6, -1e-194], N[(N[(N[(N[(N[(z0 + z2), $MachinePrecision] * z2), $MachinePrecision] + N[(z1 * z0), $MachinePrecision]), $MachinePrecision] * N[(z0 + z2), $MachinePrecision]), $MachinePrecision] * N[(z2 / N[(N[(t$95$4 - 1.0), $MachinePrecision] * t$95$4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$6, 4e-11], N[(N[(N[(N[(z0 * z1), $MachinePrecision] + N[(t$95$7 * z2), $MachinePrecision]), $MachinePrecision] / N[(N[(t$95$8 * t$95$8), $MachinePrecision] - 1.0), $MachinePrecision]), $MachinePrecision] * N[(z2 / N[(z0 + z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.0625 * z2), $MachinePrecision] + N[(0.0625 * N[(N[(2.0 * z0), $MachinePrecision] + N[(2.0 * z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(0.125 * N[(z0 + z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z2), $MachinePrecision]]]]]]]]]]]]
\begin{array}{l}
t_0 := z2 + \left(z1 + z0\right)\\
t_1 := t\_0 + z2\\
t_2 := t\_1 \cdot t\_1\\
t_3 := \left(z0 + z2\right) + z2\\
t_4 := t\_3 \cdot t\_3\\
t_5 := t\_0 \cdot z2\\
t_6 := \left(t\_5 + z1 \cdot z0\right) \cdot \frac{t\_5}{\left(t\_2 - 1\right) \cdot t\_2}\\
t_7 := \left(z0 + z1\right) + z2\\
t_8 := t\_7 + z2\\
\mathbf{if}\;t\_6 \leq -1 \cdot 10^{-194}:\\
\;\;\;\;\left(\left(\left(z0 + z2\right) \cdot z2 + z1 \cdot z0\right) \cdot \left(z0 + z2\right)\right) \cdot \frac{z2}{\left(t\_4 - 1\right) \cdot t\_4}\\
\mathbf{elif}\;t\_6 \leq 4 \cdot 10^{-11}:\\
\;\;\;\;\frac{z0 \cdot z1 + t\_7 \cdot z2}{t\_8 \cdot t\_8 - 1} \cdot \frac{z2}{z0 + z1}\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(0.0625 \cdot z2 + 0.0625 \cdot \left(2 \cdot z0 + 2 \cdot z1\right)\right) - 0.125 \cdot \left(z0 + z1\right)}{z2}\\
\end{array}
if (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < -1e-194Initial program 47.4%
Taylor expanded in z1 around 0
Applied rewrites44.7%
Taylor expanded in z1 around 0
Applied rewrites44.3%
Taylor expanded in z1 around 0
Applied rewrites44.8%
Taylor expanded in z1 around 0
Applied rewrites44.3%
Taylor expanded in z1 around 0
Applied rewrites40.9%
Taylor expanded in z1 around 0
Applied rewrites30.8%
lift-*.f64N/A
lift-/.f64N/A
lift-*.f64N/A
associate-/l*N/A
Applied rewrites20.0%
if -1e-194 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < 3.9999999999999998e-11Initial program 47.4%
lift-*.f64N/A
lift-/.f64N/A
associate-*r/N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.8%
Taylor expanded in z2 around 0
lower-/.f64N/A
lower-+.f6445.8%
Applied rewrites45.8%
if 3.9999999999999998e-11 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
Taylor expanded in z2 around inf
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f6450.3%
Applied rewrites50.3%
Taylor expanded in z2 around 0
lower-/.f64N/A
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f6471.4%
Applied rewrites71.4%
(FPCore (z2 z1 z0)
:precision binary64
(let* ((t_0 (+ z2 (+ z1 z0)))
(t_1 (+ t_0 z2))
(t_2 (* t_1 t_1))
(t_3 (* t_0 z2))
(t_4 (* (+ t_3 (* z1 z0)) (/ t_3 (* (- t_2 1.0) t_2))))
(t_5 (+ (+ z0 z1) z2))
(t_6 (+ t_5 z2))
(t_7 (- (* t_6 t_6) 1.0)))
(if (<= t_4 -2e-120)
(* (/ t_5 t_7) (* 0.25 z2))
(if (<= t_4 4e-11)
(* (/ (+ (* z0 z1) (* t_5 z2)) t_7) (/ z2 (+ z0 z1)))
(/
(-
(+ (* 0.0625 z2) (* 0.0625 (+ (* 2.0 z0) (* 2.0 z1))))
(* 0.125 (+ z0 z1)))
z2)))))double code(double z2, double z1, double z0) {
double t_0 = z2 + (z1 + z0);
double t_1 = t_0 + z2;
double t_2 = t_1 * t_1;
double t_3 = t_0 * z2;
double t_4 = (t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2));
double t_5 = (z0 + z1) + z2;
double t_6 = t_5 + z2;
double t_7 = (t_6 * t_6) - 1.0;
double tmp;
if (t_4 <= -2e-120) {
tmp = (t_5 / t_7) * (0.25 * z2);
} else if (t_4 <= 4e-11) {
tmp = (((z0 * z1) + (t_5 * z2)) / t_7) * (z2 / (z0 + z1));
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
real(8) :: tmp
t_0 = z2 + (z1 + z0)
t_1 = t_0 + z2
t_2 = t_1 * t_1
t_3 = t_0 * z2
t_4 = (t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0d0) * t_2))
t_5 = (z0 + z1) + z2
t_6 = t_5 + z2
t_7 = (t_6 * t_6) - 1.0d0
if (t_4 <= (-2d-120)) then
tmp = (t_5 / t_7) * (0.25d0 * z2)
else if (t_4 <= 4d-11) then
tmp = (((z0 * z1) + (t_5 * z2)) / t_7) * (z2 / (z0 + z1))
else
tmp = (((0.0625d0 * z2) + (0.0625d0 * ((2.0d0 * z0) + (2.0d0 * z1)))) - (0.125d0 * (z0 + z1))) / z2
end if
code = tmp
end function
public static double code(double z2, double z1, double z0) {
double t_0 = z2 + (z1 + z0);
double t_1 = t_0 + z2;
double t_2 = t_1 * t_1;
double t_3 = t_0 * z2;
double t_4 = (t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2));
double t_5 = (z0 + z1) + z2;
double t_6 = t_5 + z2;
double t_7 = (t_6 * t_6) - 1.0;
double tmp;
if (t_4 <= -2e-120) {
tmp = (t_5 / t_7) * (0.25 * z2);
} else if (t_4 <= 4e-11) {
tmp = (((z0 * z1) + (t_5 * z2)) / t_7) * (z2 / (z0 + z1));
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2;
}
return tmp;
}
def code(z2, z1, z0): t_0 = z2 + (z1 + z0) t_1 = t_0 + z2 t_2 = t_1 * t_1 t_3 = t_0 * z2 t_4 = (t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2)) t_5 = (z0 + z1) + z2 t_6 = t_5 + z2 t_7 = (t_6 * t_6) - 1.0 tmp = 0 if t_4 <= -2e-120: tmp = (t_5 / t_7) * (0.25 * z2) elif t_4 <= 4e-11: tmp = (((z0 * z1) + (t_5 * z2)) / t_7) * (z2 / (z0 + z1)) else: tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2 return tmp
function code(z2, z1, z0) t_0 = Float64(z2 + Float64(z1 + z0)) t_1 = Float64(t_0 + z2) t_2 = Float64(t_1 * t_1) t_3 = Float64(t_0 * z2) t_4 = Float64(Float64(t_3 + Float64(z1 * z0)) * Float64(t_3 / Float64(Float64(t_2 - 1.0) * t_2))) t_5 = Float64(Float64(z0 + z1) + z2) t_6 = Float64(t_5 + z2) t_7 = Float64(Float64(t_6 * t_6) - 1.0) tmp = 0.0 if (t_4 <= -2e-120) tmp = Float64(Float64(t_5 / t_7) * Float64(0.25 * z2)); elseif (t_4 <= 4e-11) tmp = Float64(Float64(Float64(Float64(z0 * z1) + Float64(t_5 * z2)) / t_7) * Float64(z2 / Float64(z0 + z1))); else tmp = Float64(Float64(Float64(Float64(0.0625 * z2) + Float64(0.0625 * Float64(Float64(2.0 * z0) + Float64(2.0 * z1)))) - Float64(0.125 * Float64(z0 + z1))) / z2); end return tmp end
function tmp_2 = code(z2, z1, z0) t_0 = z2 + (z1 + z0); t_1 = t_0 + z2; t_2 = t_1 * t_1; t_3 = t_0 * z2; t_4 = (t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2)); t_5 = (z0 + z1) + z2; t_6 = t_5 + z2; t_7 = (t_6 * t_6) - 1.0; tmp = 0.0; if (t_4 <= -2e-120) tmp = (t_5 / t_7) * (0.25 * z2); elseif (t_4 <= 4e-11) tmp = (((z0 * z1) + (t_5 * z2)) / t_7) * (z2 / (z0 + z1)); else tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2; end tmp_2 = tmp; end
code[z2_, z1_, z0_] := Block[{t$95$0 = N[(z2 + N[(z1 + z0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(t$95$0 + z2), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 * t$95$1), $MachinePrecision]}, Block[{t$95$3 = N[(t$95$0 * z2), $MachinePrecision]}, Block[{t$95$4 = N[(N[(t$95$3 + N[(z1 * z0), $MachinePrecision]), $MachinePrecision] * N[(t$95$3 / N[(N[(t$95$2 - 1.0), $MachinePrecision] * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(z0 + z1), $MachinePrecision] + z2), $MachinePrecision]}, Block[{t$95$6 = N[(t$95$5 + z2), $MachinePrecision]}, Block[{t$95$7 = N[(N[(t$95$6 * t$95$6), $MachinePrecision] - 1.0), $MachinePrecision]}, If[LessEqual[t$95$4, -2e-120], N[(N[(t$95$5 / t$95$7), $MachinePrecision] * N[(0.25 * z2), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$4, 4e-11], N[(N[(N[(N[(z0 * z1), $MachinePrecision] + N[(t$95$5 * z2), $MachinePrecision]), $MachinePrecision] / t$95$7), $MachinePrecision] * N[(z2 / N[(z0 + z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.0625 * z2), $MachinePrecision] + N[(0.0625 * N[(N[(2.0 * z0), $MachinePrecision] + N[(2.0 * z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(0.125 * N[(z0 + z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z2), $MachinePrecision]]]]]]]]]]]
\begin{array}{l}
t_0 := z2 + \left(z1 + z0\right)\\
t_1 := t\_0 + z2\\
t_2 := t\_1 \cdot t\_1\\
t_3 := t\_0 \cdot z2\\
t_4 := \left(t\_3 + z1 \cdot z0\right) \cdot \frac{t\_3}{\left(t\_2 - 1\right) \cdot t\_2}\\
t_5 := \left(z0 + z1\right) + z2\\
t_6 := t\_5 + z2\\
t_7 := t\_6 \cdot t\_6 - 1\\
\mathbf{if}\;t\_4 \leq -2 \cdot 10^{-120}:\\
\;\;\;\;\frac{t\_5}{t\_7} \cdot \left(0.25 \cdot z2\right)\\
\mathbf{elif}\;t\_4 \leq 4 \cdot 10^{-11}:\\
\;\;\;\;\frac{z0 \cdot z1 + t\_5 \cdot z2}{t\_7} \cdot \frac{z2}{z0 + z1}\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(0.0625 \cdot z2 + 0.0625 \cdot \left(2 \cdot z0 + 2 \cdot z1\right)\right) - 0.125 \cdot \left(z0 + z1\right)}{z2}\\
\end{array}
if (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < -2e-120Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
Taylor expanded in z2 around inf
lower-*.f6449.3%
Applied rewrites49.3%
if -2e-120 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < 3.9999999999999998e-11Initial program 47.4%
lift-*.f64N/A
lift-/.f64N/A
associate-*r/N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.8%
Taylor expanded in z2 around 0
lower-/.f64N/A
lower-+.f6445.8%
Applied rewrites45.8%
if 3.9999999999999998e-11 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
Taylor expanded in z2 around inf
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f6450.3%
Applied rewrites50.3%
Taylor expanded in z2 around 0
lower-/.f64N/A
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f6471.4%
Applied rewrites71.4%
(FPCore (z2 z1 z0)
:precision binary64
(let* ((t_0 (+ z2 (+ z1 z0)))
(t_1 (+ t_0 z2))
(t_2 (* t_1 t_1))
(t_3 (* t_0 z2))
(t_4 (+ (+ z0 z1) z2))
(t_5 (+ t_4 z2)))
(if (<= (* (+ t_3 (* z1 z0)) (/ t_3 (* (- t_2 1.0) t_2))) -1e-282)
(* (/ t_4 (- (* t_5 t_5) 1.0)) (* 0.25 z2))
(/
(-
(+ (* 0.0625 z2) (* 0.0625 (+ (* 2.0 z0) (* 2.0 z1))))
(* 0.125 (+ z0 z1)))
z2))))double code(double z2, double z1, double z0) {
double t_0 = z2 + (z1 + z0);
double t_1 = t_0 + z2;
double t_2 = t_1 * t_1;
double t_3 = t_0 * z2;
double t_4 = (z0 + z1) + z2;
double t_5 = t_4 + z2;
double tmp;
if (((t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2))) <= -1e-282) {
tmp = (t_4 / ((t_5 * t_5) - 1.0)) * (0.25 * z2);
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: tmp
t_0 = z2 + (z1 + z0)
t_1 = t_0 + z2
t_2 = t_1 * t_1
t_3 = t_0 * z2
t_4 = (z0 + z1) + z2
t_5 = t_4 + z2
if (((t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0d0) * t_2))) <= (-1d-282)) then
tmp = (t_4 / ((t_5 * t_5) - 1.0d0)) * (0.25d0 * z2)
else
tmp = (((0.0625d0 * z2) + (0.0625d0 * ((2.0d0 * z0) + (2.0d0 * z1)))) - (0.125d0 * (z0 + z1))) / z2
end if
code = tmp
end function
public static double code(double z2, double z1, double z0) {
double t_0 = z2 + (z1 + z0);
double t_1 = t_0 + z2;
double t_2 = t_1 * t_1;
double t_3 = t_0 * z2;
double t_4 = (z0 + z1) + z2;
double t_5 = t_4 + z2;
double tmp;
if (((t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2))) <= -1e-282) {
tmp = (t_4 / ((t_5 * t_5) - 1.0)) * (0.25 * z2);
} else {
tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2;
}
return tmp;
}
def code(z2, z1, z0): t_0 = z2 + (z1 + z0) t_1 = t_0 + z2 t_2 = t_1 * t_1 t_3 = t_0 * z2 t_4 = (z0 + z1) + z2 t_5 = t_4 + z2 tmp = 0 if ((t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2))) <= -1e-282: tmp = (t_4 / ((t_5 * t_5) - 1.0)) * (0.25 * z2) else: tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2 return tmp
function code(z2, z1, z0) t_0 = Float64(z2 + Float64(z1 + z0)) t_1 = Float64(t_0 + z2) t_2 = Float64(t_1 * t_1) t_3 = Float64(t_0 * z2) t_4 = Float64(Float64(z0 + z1) + z2) t_5 = Float64(t_4 + z2) tmp = 0.0 if (Float64(Float64(t_3 + Float64(z1 * z0)) * Float64(t_3 / Float64(Float64(t_2 - 1.0) * t_2))) <= -1e-282) tmp = Float64(Float64(t_4 / Float64(Float64(t_5 * t_5) - 1.0)) * Float64(0.25 * z2)); else tmp = Float64(Float64(Float64(Float64(0.0625 * z2) + Float64(0.0625 * Float64(Float64(2.0 * z0) + Float64(2.0 * z1)))) - Float64(0.125 * Float64(z0 + z1))) / z2); end return tmp end
function tmp_2 = code(z2, z1, z0) t_0 = z2 + (z1 + z0); t_1 = t_0 + z2; t_2 = t_1 * t_1; t_3 = t_0 * z2; t_4 = (z0 + z1) + z2; t_5 = t_4 + z2; tmp = 0.0; if (((t_3 + (z1 * z0)) * (t_3 / ((t_2 - 1.0) * t_2))) <= -1e-282) tmp = (t_4 / ((t_5 * t_5) - 1.0)) * (0.25 * z2); else tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2; end tmp_2 = tmp; end
code[z2_, z1_, z0_] := Block[{t$95$0 = N[(z2 + N[(z1 + z0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(t$95$0 + z2), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 * t$95$1), $MachinePrecision]}, Block[{t$95$3 = N[(t$95$0 * z2), $MachinePrecision]}, Block[{t$95$4 = N[(N[(z0 + z1), $MachinePrecision] + z2), $MachinePrecision]}, Block[{t$95$5 = N[(t$95$4 + z2), $MachinePrecision]}, If[LessEqual[N[(N[(t$95$3 + N[(z1 * z0), $MachinePrecision]), $MachinePrecision] * N[(t$95$3 / N[(N[(t$95$2 - 1.0), $MachinePrecision] * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], -1e-282], N[(N[(t$95$4 / N[(N[(t$95$5 * t$95$5), $MachinePrecision] - 1.0), $MachinePrecision]), $MachinePrecision] * N[(0.25 * z2), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.0625 * z2), $MachinePrecision] + N[(0.0625 * N[(N[(2.0 * z0), $MachinePrecision] + N[(2.0 * z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(0.125 * N[(z0 + z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z2), $MachinePrecision]]]]]]]]
\begin{array}{l}
t_0 := z2 + \left(z1 + z0\right)\\
t_1 := t\_0 + z2\\
t_2 := t\_1 \cdot t\_1\\
t_3 := t\_0 \cdot z2\\
t_4 := \left(z0 + z1\right) + z2\\
t_5 := t\_4 + z2\\
\mathbf{if}\;\left(t\_3 + z1 \cdot z0\right) \cdot \frac{t\_3}{\left(t\_2 - 1\right) \cdot t\_2} \leq -1 \cdot 10^{-282}:\\
\;\;\;\;\frac{t\_4}{t\_5 \cdot t\_5 - 1} \cdot \left(0.25 \cdot z2\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(0.0625 \cdot z2 + 0.0625 \cdot \left(2 \cdot z0 + 2 \cdot z1\right)\right) - 0.125 \cdot \left(z0 + z1\right)}{z2}\\
\end{array}
if (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) < -1e-282Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
Taylor expanded in z2 around inf
lower-*.f6449.3%
Applied rewrites49.3%
if -1e-282 < (*.f64 (+.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 z1 z0)) (/.f64 (*.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (*.f64 (-.f64 (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2)) #s(literal 1 binary64)) (*.f64 (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2) (+.f64 (+.f64 z2 (+.f64 z1 z0)) z2))))) Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
Taylor expanded in z2 around inf
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f6450.3%
Applied rewrites50.3%
Taylor expanded in z2 around 0
lower-/.f64N/A
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f6471.4%
Applied rewrites71.4%
(FPCore (z2 z1 z0)
:precision binary64
(let* ((t_0 (+ (fmax z1 z0) (fmin z1 z0)))
(t_1
(-
(+ 0.0625 (* 0.125 (/ (fmax z1 z0) z2)))
(* 0.125 (/ t_0 z2)))))
(if (<= z2 -225.0)
t_1
(if (<= z2 6.4e+19)
(/
(-
(* 0.0625 (+ (* 2.0 (fmax z1 z0)) (* 2.0 (fmin z1 z0))))
(* 0.125 t_0))
z2)
(if (<= z2 2.8e+87)
(*
(/ 1.0 (fmax z1 z0))
(/ (* z2 (+ (fmin z1 z0) z2)) (fmax z1 z0)))
t_1)))))double code(double z2, double z1, double z0) {
double t_0 = fmax(z1, z0) + fmin(z1, z0);
double t_1 = (0.0625 + (0.125 * (fmax(z1, z0) / z2))) - (0.125 * (t_0 / z2));
double tmp;
if (z2 <= -225.0) {
tmp = t_1;
} else if (z2 <= 6.4e+19) {
tmp = ((0.0625 * ((2.0 * fmax(z1, z0)) + (2.0 * fmin(z1, z0)))) - (0.125 * t_0)) / z2;
} else if (z2 <= 2.8e+87) {
tmp = (1.0 / fmax(z1, z0)) * ((z2 * (fmin(z1, z0) + z2)) / fmax(z1, z0));
} else {
tmp = t_1;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
real(8) :: t_0
real(8) :: t_1
real(8) :: tmp
t_0 = fmax(z1, z0) + fmin(z1, z0)
t_1 = (0.0625d0 + (0.125d0 * (fmax(z1, z0) / z2))) - (0.125d0 * (t_0 / z2))
if (z2 <= (-225.0d0)) then
tmp = t_1
else if (z2 <= 6.4d+19) then
tmp = ((0.0625d0 * ((2.0d0 * fmax(z1, z0)) + (2.0d0 * fmin(z1, z0)))) - (0.125d0 * t_0)) / z2
else if (z2 <= 2.8d+87) then
tmp = (1.0d0 / fmax(z1, z0)) * ((z2 * (fmin(z1, z0) + z2)) / fmax(z1, z0))
else
tmp = t_1
end if
code = tmp
end function
public static double code(double z2, double z1, double z0) {
double t_0 = fmax(z1, z0) + fmin(z1, z0);
double t_1 = (0.0625 + (0.125 * (fmax(z1, z0) / z2))) - (0.125 * (t_0 / z2));
double tmp;
if (z2 <= -225.0) {
tmp = t_1;
} else if (z2 <= 6.4e+19) {
tmp = ((0.0625 * ((2.0 * fmax(z1, z0)) + (2.0 * fmin(z1, z0)))) - (0.125 * t_0)) / z2;
} else if (z2 <= 2.8e+87) {
tmp = (1.0 / fmax(z1, z0)) * ((z2 * (fmin(z1, z0) + z2)) / fmax(z1, z0));
} else {
tmp = t_1;
}
return tmp;
}
def code(z2, z1, z0): t_0 = fmax(z1, z0) + fmin(z1, z0) t_1 = (0.0625 + (0.125 * (fmax(z1, z0) / z2))) - (0.125 * (t_0 / z2)) tmp = 0 if z2 <= -225.0: tmp = t_1 elif z2 <= 6.4e+19: tmp = ((0.0625 * ((2.0 * fmax(z1, z0)) + (2.0 * fmin(z1, z0)))) - (0.125 * t_0)) / z2 elif z2 <= 2.8e+87: tmp = (1.0 / fmax(z1, z0)) * ((z2 * (fmin(z1, z0) + z2)) / fmax(z1, z0)) else: tmp = t_1 return tmp
function code(z2, z1, z0) t_0 = Float64(fmax(z1, z0) + fmin(z1, z0)) t_1 = Float64(Float64(0.0625 + Float64(0.125 * Float64(fmax(z1, z0) / z2))) - Float64(0.125 * Float64(t_0 / z2))) tmp = 0.0 if (z2 <= -225.0) tmp = t_1; elseif (z2 <= 6.4e+19) tmp = Float64(Float64(Float64(0.0625 * Float64(Float64(2.0 * fmax(z1, z0)) + Float64(2.0 * fmin(z1, z0)))) - Float64(0.125 * t_0)) / z2); elseif (z2 <= 2.8e+87) tmp = Float64(Float64(1.0 / fmax(z1, z0)) * Float64(Float64(z2 * Float64(fmin(z1, z0) + z2)) / fmax(z1, z0))); else tmp = t_1; end return tmp end
function tmp_2 = code(z2, z1, z0) t_0 = max(z1, z0) + min(z1, z0); t_1 = (0.0625 + (0.125 * (max(z1, z0) / z2))) - (0.125 * (t_0 / z2)); tmp = 0.0; if (z2 <= -225.0) tmp = t_1; elseif (z2 <= 6.4e+19) tmp = ((0.0625 * ((2.0 * max(z1, z0)) + (2.0 * min(z1, z0)))) - (0.125 * t_0)) / z2; elseif (z2 <= 2.8e+87) tmp = (1.0 / max(z1, z0)) * ((z2 * (min(z1, z0) + z2)) / max(z1, z0)); else tmp = t_1; end tmp_2 = tmp; end
code[z2_, z1_, z0_] := Block[{t$95$0 = N[(N[Max[z1, z0], $MachinePrecision] + N[Min[z1, z0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(0.0625 + N[(0.125 * N[(N[Max[z1, z0], $MachinePrecision] / z2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(0.125 * N[(t$95$0 / z2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z2, -225.0], t$95$1, If[LessEqual[z2, 6.4e+19], N[(N[(N[(0.0625 * N[(N[(2.0 * N[Max[z1, z0], $MachinePrecision]), $MachinePrecision] + N[(2.0 * N[Min[z1, z0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(0.125 * t$95$0), $MachinePrecision]), $MachinePrecision] / z2), $MachinePrecision], If[LessEqual[z2, 2.8e+87], N[(N[(1.0 / N[Max[z1, z0], $MachinePrecision]), $MachinePrecision] * N[(N[(z2 * N[(N[Min[z1, z0], $MachinePrecision] + z2), $MachinePrecision]), $MachinePrecision] / N[Max[z1, z0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]
\begin{array}{l}
t_0 := \mathsf{max}\left(z1, z0\right) + \mathsf{min}\left(z1, z0\right)\\
t_1 := \left(0.0625 + 0.125 \cdot \frac{\mathsf{max}\left(z1, z0\right)}{z2}\right) - 0.125 \cdot \frac{t\_0}{z2}\\
\mathbf{if}\;z2 \leq -225:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z2 \leq 6.4 \cdot 10^{+19}:\\
\;\;\;\;\frac{0.0625 \cdot \left(2 \cdot \mathsf{max}\left(z1, z0\right) + 2 \cdot \mathsf{min}\left(z1, z0\right)\right) - 0.125 \cdot t\_0}{z2}\\
\mathbf{elif}\;z2 \leq 2.8 \cdot 10^{+87}:\\
\;\;\;\;\frac{1}{\mathsf{max}\left(z1, z0\right)} \cdot \frac{z2 \cdot \left(\mathsf{min}\left(z1, z0\right) + z2\right)}{\mathsf{max}\left(z1, z0\right)}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
if z2 < -225 or 2.8000000000000002e87 < z2 Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
Taylor expanded in z2 around inf
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f6450.3%
Applied rewrites50.3%
Taylor expanded in z1 around 0
lower-*.f64N/A
lower-/.f6439.7%
Applied rewrites39.7%
if -225 < z2 < 6.4e19Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
Taylor expanded in z2 around inf
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f6450.3%
Applied rewrites50.3%
Taylor expanded in z2 around 0
lower-/.f64N/A
lower--.f64N/A
lower-*.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f6444.3%
Applied rewrites44.3%
if 6.4e19 < z2 < 2.8000000000000002e87Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
Taylor expanded in z0 around inf
lower-/.f64N/A
lower-*.f64N/A
lower-+.f6438.2%
Applied rewrites38.2%
Taylor expanded in z0 around inf
lower-/.f6432.4%
Applied rewrites32.4%
(FPCore (z2 z1 z0)
:precision binary64
(if (<= z2 -0.9)
0.0625
(if (<= z2 6.4e+19)
(/
(-
(* 0.0625 (+ (* 2.0 (fmax z1 z0)) (* 2.0 (fmin z1 z0))))
(* 0.125 (+ (fmax z1 z0) (fmin z1 z0))))
z2)
(if (<= z2 2.35e+140)
(*
(/ 1.0 (fmax z1 z0))
(/ (* z2 (+ (fmin z1 z0) z2)) (fmax z1 z0)))
0.0625))))double code(double z2, double z1, double z0) {
double tmp;
if (z2 <= -0.9) {
tmp = 0.0625;
} else if (z2 <= 6.4e+19) {
tmp = ((0.0625 * ((2.0 * fmax(z1, z0)) + (2.0 * fmin(z1, z0)))) - (0.125 * (fmax(z1, z0) + fmin(z1, z0)))) / z2;
} else if (z2 <= 2.35e+140) {
tmp = (1.0 / fmax(z1, z0)) * ((z2 * (fmin(z1, z0) + z2)) / fmax(z1, z0));
} else {
tmp = 0.0625;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
real(8) :: tmp
if (z2 <= (-0.9d0)) then
tmp = 0.0625d0
else if (z2 <= 6.4d+19) then
tmp = ((0.0625d0 * ((2.0d0 * fmax(z1, z0)) + (2.0d0 * fmin(z1, z0)))) - (0.125d0 * (fmax(z1, z0) + fmin(z1, z0)))) / z2
else if (z2 <= 2.35d+140) then
tmp = (1.0d0 / fmax(z1, z0)) * ((z2 * (fmin(z1, z0) + z2)) / fmax(z1, z0))
else
tmp = 0.0625d0
end if
code = tmp
end function
public static double code(double z2, double z1, double z0) {
double tmp;
if (z2 <= -0.9) {
tmp = 0.0625;
} else if (z2 <= 6.4e+19) {
tmp = ((0.0625 * ((2.0 * fmax(z1, z0)) + (2.0 * fmin(z1, z0)))) - (0.125 * (fmax(z1, z0) + fmin(z1, z0)))) / z2;
} else if (z2 <= 2.35e+140) {
tmp = (1.0 / fmax(z1, z0)) * ((z2 * (fmin(z1, z0) + z2)) / fmax(z1, z0));
} else {
tmp = 0.0625;
}
return tmp;
}
def code(z2, z1, z0): tmp = 0 if z2 <= -0.9: tmp = 0.0625 elif z2 <= 6.4e+19: tmp = ((0.0625 * ((2.0 * fmax(z1, z0)) + (2.0 * fmin(z1, z0)))) - (0.125 * (fmax(z1, z0) + fmin(z1, z0)))) / z2 elif z2 <= 2.35e+140: tmp = (1.0 / fmax(z1, z0)) * ((z2 * (fmin(z1, z0) + z2)) / fmax(z1, z0)) else: tmp = 0.0625 return tmp
function code(z2, z1, z0) tmp = 0.0 if (z2 <= -0.9) tmp = 0.0625; elseif (z2 <= 6.4e+19) tmp = Float64(Float64(Float64(0.0625 * Float64(Float64(2.0 * fmax(z1, z0)) + Float64(2.0 * fmin(z1, z0)))) - Float64(0.125 * Float64(fmax(z1, z0) + fmin(z1, z0)))) / z2); elseif (z2 <= 2.35e+140) tmp = Float64(Float64(1.0 / fmax(z1, z0)) * Float64(Float64(z2 * Float64(fmin(z1, z0) + z2)) / fmax(z1, z0))); else tmp = 0.0625; end return tmp end
function tmp_2 = code(z2, z1, z0) tmp = 0.0; if (z2 <= -0.9) tmp = 0.0625; elseif (z2 <= 6.4e+19) tmp = ((0.0625 * ((2.0 * max(z1, z0)) + (2.0 * min(z1, z0)))) - (0.125 * (max(z1, z0) + min(z1, z0)))) / z2; elseif (z2 <= 2.35e+140) tmp = (1.0 / max(z1, z0)) * ((z2 * (min(z1, z0) + z2)) / max(z1, z0)); else tmp = 0.0625; end tmp_2 = tmp; end
code[z2_, z1_, z0_] := If[LessEqual[z2, -0.9], 0.0625, If[LessEqual[z2, 6.4e+19], N[(N[(N[(0.0625 * N[(N[(2.0 * N[Max[z1, z0], $MachinePrecision]), $MachinePrecision] + N[(2.0 * N[Min[z1, z0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(0.125 * N[(N[Max[z1, z0], $MachinePrecision] + N[Min[z1, z0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z2), $MachinePrecision], If[LessEqual[z2, 2.35e+140], N[(N[(1.0 / N[Max[z1, z0], $MachinePrecision]), $MachinePrecision] * N[(N[(z2 * N[(N[Min[z1, z0], $MachinePrecision] + z2), $MachinePrecision]), $MachinePrecision] / N[Max[z1, z0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 0.0625]]]
\begin{array}{l}
\mathbf{if}\;z2 \leq -0.9:\\
\;\;\;\;0.0625\\
\mathbf{elif}\;z2 \leq 6.4 \cdot 10^{+19}:\\
\;\;\;\;\frac{0.0625 \cdot \left(2 \cdot \mathsf{max}\left(z1, z0\right) + 2 \cdot \mathsf{min}\left(z1, z0\right)\right) - 0.125 \cdot \left(\mathsf{max}\left(z1, z0\right) + \mathsf{min}\left(z1, z0\right)\right)}{z2}\\
\mathbf{elif}\;z2 \leq 2.35 \cdot 10^{+140}:\\
\;\;\;\;\frac{1}{\mathsf{max}\left(z1, z0\right)} \cdot \frac{z2 \cdot \left(\mathsf{min}\left(z1, z0\right) + z2\right)}{\mathsf{max}\left(z1, z0\right)}\\
\mathbf{else}:\\
\;\;\;\;0.0625\\
\end{array}
if z2 < -0.90000000000000002 or 2.3500000000000001e140 < z2 Initial program 47.4%
Taylor expanded in z2 around inf
Applied rewrites31.2%
if -0.90000000000000002 < z2 < 6.4e19Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
Taylor expanded in z2 around inf
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f6450.3%
Applied rewrites50.3%
Taylor expanded in z2 around 0
lower-/.f64N/A
lower--.f64N/A
lower-*.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f6444.3%
Applied rewrites44.3%
if 6.4e19 < z2 < 2.3500000000000001e140Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
Taylor expanded in z0 around inf
lower-/.f64N/A
lower-*.f64N/A
lower-+.f6438.2%
Applied rewrites38.2%
Taylor expanded in z0 around inf
lower-/.f6432.4%
Applied rewrites32.4%
(FPCore (z2 z1 z0) :precision binary64 (/ (- (+ (* 0.0625 z2) (* 0.0625 (+ (* 2.0 z0) (* 2.0 z1)))) (* 0.125 (+ z0 z1))) z2))
double code(double z2, double z1, double z0) {
return (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
code = (((0.0625d0 * z2) + (0.0625d0 * ((2.0d0 * z0) + (2.0d0 * z1)))) - (0.125d0 * (z0 + z1))) / z2
end function
public static double code(double z2, double z1, double z0) {
return (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2;
}
def code(z2, z1, z0): return (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2
function code(z2, z1, z0) return Float64(Float64(Float64(Float64(0.0625 * z2) + Float64(0.0625 * Float64(Float64(2.0 * z0) + Float64(2.0 * z1)))) - Float64(0.125 * Float64(z0 + z1))) / z2) end
function tmp = code(z2, z1, z0) tmp = (((0.0625 * z2) + (0.0625 * ((2.0 * z0) + (2.0 * z1)))) - (0.125 * (z0 + z1))) / z2; end
code[z2_, z1_, z0_] := N[(N[(N[(N[(0.0625 * z2), $MachinePrecision] + N[(0.0625 * N[(N[(2.0 * z0), $MachinePrecision] + N[(2.0 * z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(0.125 * N[(z0 + z1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z2), $MachinePrecision]
\frac{\left(0.0625 \cdot z2 + 0.0625 \cdot \left(2 \cdot z0 + 2 \cdot z1\right)\right) - 0.125 \cdot \left(z0 + z1\right)}{z2}
Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
Taylor expanded in z2 around inf
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-/.f64N/A
lower-+.f6450.3%
Applied rewrites50.3%
Taylor expanded in z2 around 0
lower-/.f64N/A
lower--.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-*.f64N/A
lower-+.f6471.4%
Applied rewrites71.4%
(FPCore (z2 z1 z0)
:precision binary64
(if (<= z2 -8.5e-26)
0.0625
(if (<= z2 2.35e+140)
(* (/ 1.0 z0) (/ (* z2 (+ z1 z2)) z0))
0.0625)))double code(double z2, double z1, double z0) {
double tmp;
if (z2 <= -8.5e-26) {
tmp = 0.0625;
} else if (z2 <= 2.35e+140) {
tmp = (1.0 / z0) * ((z2 * (z1 + z2)) / z0);
} else {
tmp = 0.0625;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
real(8) :: tmp
if (z2 <= (-8.5d-26)) then
tmp = 0.0625d0
else if (z2 <= 2.35d+140) then
tmp = (1.0d0 / z0) * ((z2 * (z1 + z2)) / z0)
else
tmp = 0.0625d0
end if
code = tmp
end function
public static double code(double z2, double z1, double z0) {
double tmp;
if (z2 <= -8.5e-26) {
tmp = 0.0625;
} else if (z2 <= 2.35e+140) {
tmp = (1.0 / z0) * ((z2 * (z1 + z2)) / z0);
} else {
tmp = 0.0625;
}
return tmp;
}
def code(z2, z1, z0): tmp = 0 if z2 <= -8.5e-26: tmp = 0.0625 elif z2 <= 2.35e+140: tmp = (1.0 / z0) * ((z2 * (z1 + z2)) / z0) else: tmp = 0.0625 return tmp
function code(z2, z1, z0) tmp = 0.0 if (z2 <= -8.5e-26) tmp = 0.0625; elseif (z2 <= 2.35e+140) tmp = Float64(Float64(1.0 / z0) * Float64(Float64(z2 * Float64(z1 + z2)) / z0)); else tmp = 0.0625; end return tmp end
function tmp_2 = code(z2, z1, z0) tmp = 0.0; if (z2 <= -8.5e-26) tmp = 0.0625; elseif (z2 <= 2.35e+140) tmp = (1.0 / z0) * ((z2 * (z1 + z2)) / z0); else tmp = 0.0625; end tmp_2 = tmp; end
code[z2_, z1_, z0_] := If[LessEqual[z2, -8.5e-26], 0.0625, If[LessEqual[z2, 2.35e+140], N[(N[(1.0 / z0), $MachinePrecision] * N[(N[(z2 * N[(z1 + z2), $MachinePrecision]), $MachinePrecision] / z0), $MachinePrecision]), $MachinePrecision], 0.0625]]
\begin{array}{l}
\mathbf{if}\;z2 \leq -8.5 \cdot 10^{-26}:\\
\;\;\;\;0.0625\\
\mathbf{elif}\;z2 \leq 2.35 \cdot 10^{+140}:\\
\;\;\;\;\frac{1}{z0} \cdot \frac{z2 \cdot \left(z1 + z2\right)}{z0}\\
\mathbf{else}:\\
\;\;\;\;0.0625\\
\end{array}
if z2 < -8.5e-26 or 2.3500000000000001e140 < z2 Initial program 47.4%
Taylor expanded in z2 around inf
Applied rewrites31.2%
if -8.5e-26 < z2 < 2.3500000000000001e140Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
Taylor expanded in z0 around inf
lower-/.f64N/A
lower-*.f64N/A
lower-+.f6438.2%
Applied rewrites38.2%
Taylor expanded in z0 around inf
lower-/.f6432.4%
Applied rewrites32.4%
(FPCore (z2 z1 z0) :precision binary64 (if (<= z2 -0.106) 0.0625 (if (<= z2 2e-28) (* (/ 0.25 z2) (/ (* z2 z1) z0)) 0.0625)))
double code(double z2, double z1, double z0) {
double tmp;
if (z2 <= -0.106) {
tmp = 0.0625;
} else if (z2 <= 2e-28) {
tmp = (0.25 / z2) * ((z2 * z1) / z0);
} else {
tmp = 0.0625;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
real(8) :: tmp
if (z2 <= (-0.106d0)) then
tmp = 0.0625d0
else if (z2 <= 2d-28) then
tmp = (0.25d0 / z2) * ((z2 * z1) / z0)
else
tmp = 0.0625d0
end if
code = tmp
end function
public static double code(double z2, double z1, double z0) {
double tmp;
if (z2 <= -0.106) {
tmp = 0.0625;
} else if (z2 <= 2e-28) {
tmp = (0.25 / z2) * ((z2 * z1) / z0);
} else {
tmp = 0.0625;
}
return tmp;
}
def code(z2, z1, z0): tmp = 0 if z2 <= -0.106: tmp = 0.0625 elif z2 <= 2e-28: tmp = (0.25 / z2) * ((z2 * z1) / z0) else: tmp = 0.0625 return tmp
function code(z2, z1, z0) tmp = 0.0 if (z2 <= -0.106) tmp = 0.0625; elseif (z2 <= 2e-28) tmp = Float64(Float64(0.25 / z2) * Float64(Float64(z2 * z1) / z0)); else tmp = 0.0625; end return tmp end
function tmp_2 = code(z2, z1, z0) tmp = 0.0; if (z2 <= -0.106) tmp = 0.0625; elseif (z2 <= 2e-28) tmp = (0.25 / z2) * ((z2 * z1) / z0); else tmp = 0.0625; end tmp_2 = tmp; end
code[z2_, z1_, z0_] := If[LessEqual[z2, -0.106], 0.0625, If[LessEqual[z2, 2e-28], N[(N[(0.25 / z2), $MachinePrecision] * N[(N[(z2 * z1), $MachinePrecision] / z0), $MachinePrecision]), $MachinePrecision], 0.0625]]
\begin{array}{l}
\mathbf{if}\;z2 \leq -0.106:\\
\;\;\;\;0.0625\\
\mathbf{elif}\;z2 \leq 2 \cdot 10^{-28}:\\
\;\;\;\;\frac{0.25}{z2} \cdot \frac{z2 \cdot z1}{z0}\\
\mathbf{else}:\\
\;\;\;\;0.0625\\
\end{array}
if z2 < -0.106 or 1.9999999999999999e-28 < z2 Initial program 47.4%
Taylor expanded in z2 around inf
Applied rewrites31.2%
if -0.106 < z2 < 1.9999999999999999e-28Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
Taylor expanded in z0 around inf
lower-/.f64N/A
lower-*.f64N/A
lower-+.f6438.2%
Applied rewrites38.2%
Taylor expanded in z2 around inf
lower-/.f6416.2%
Applied rewrites16.2%
Taylor expanded in z2 around 0
Applied rewrites19.1%
(FPCore (z2 z1 z0) :precision binary64 (if (<= z2 -0.0023) 0.0625 (if (<= z2 6.5e+19) (* (/ 1.0 (fmin z1 z0)) (* 0.25 z2)) 0.0625)))
double code(double z2, double z1, double z0) {
double tmp;
if (z2 <= -0.0023) {
tmp = 0.0625;
} else if (z2 <= 6.5e+19) {
tmp = (1.0 / fmin(z1, z0)) * (0.25 * z2);
} else {
tmp = 0.0625;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
real(8) :: tmp
if (z2 <= (-0.0023d0)) then
tmp = 0.0625d0
else if (z2 <= 6.5d+19) then
tmp = (1.0d0 / fmin(z1, z0)) * (0.25d0 * z2)
else
tmp = 0.0625d0
end if
code = tmp
end function
public static double code(double z2, double z1, double z0) {
double tmp;
if (z2 <= -0.0023) {
tmp = 0.0625;
} else if (z2 <= 6.5e+19) {
tmp = (1.0 / fmin(z1, z0)) * (0.25 * z2);
} else {
tmp = 0.0625;
}
return tmp;
}
def code(z2, z1, z0): tmp = 0 if z2 <= -0.0023: tmp = 0.0625 elif z2 <= 6.5e+19: tmp = (1.0 / fmin(z1, z0)) * (0.25 * z2) else: tmp = 0.0625 return tmp
function code(z2, z1, z0) tmp = 0.0 if (z2 <= -0.0023) tmp = 0.0625; elseif (z2 <= 6.5e+19) tmp = Float64(Float64(1.0 / fmin(z1, z0)) * Float64(0.25 * z2)); else tmp = 0.0625; end return tmp end
function tmp_2 = code(z2, z1, z0) tmp = 0.0; if (z2 <= -0.0023) tmp = 0.0625; elseif (z2 <= 6.5e+19) tmp = (1.0 / min(z1, z0)) * (0.25 * z2); else tmp = 0.0625; end tmp_2 = tmp; end
code[z2_, z1_, z0_] := If[LessEqual[z2, -0.0023], 0.0625, If[LessEqual[z2, 6.5e+19], N[(N[(1.0 / N[Min[z1, z0], $MachinePrecision]), $MachinePrecision] * N[(0.25 * z2), $MachinePrecision]), $MachinePrecision], 0.0625]]
\begin{array}{l}
\mathbf{if}\;z2 \leq -0.0023:\\
\;\;\;\;0.0625\\
\mathbf{elif}\;z2 \leq 6.5 \cdot 10^{+19}:\\
\;\;\;\;\frac{1}{\mathsf{min}\left(z1, z0\right)} \cdot \left(0.25 \cdot z2\right)\\
\mathbf{else}:\\
\;\;\;\;0.0625\\
\end{array}
if z2 < -0.0023 or 6.5e19 < z2 Initial program 47.4%
Taylor expanded in z2 around inf
Applied rewrites31.2%
if -0.0023 < z2 < 6.5e19Initial program 47.4%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
times-fracN/A
Applied rewrites57.3%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6458.8%
Applied rewrites58.8%
Taylor expanded in z1 around inf
lower-/.f6437.6%
Applied rewrites37.6%
Taylor expanded in z2 around inf
lower-*.f6416.0%
Applied rewrites16.0%
(FPCore (z2 z1 z0) :precision binary64 0.0625)
double code(double z2, double z1, double z0) {
return 0.0625;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(z2, z1, z0)
use fmin_fmax_functions
real(8), intent (in) :: z2
real(8), intent (in) :: z1
real(8), intent (in) :: z0
code = 0.0625d0
end function
public static double code(double z2, double z1, double z0) {
return 0.0625;
}
def code(z2, z1, z0): return 0.0625
function code(z2, z1, z0) return 0.0625 end
function tmp = code(z2, z1, z0) tmp = 0.0625; end
code[z2_, z1_, z0_] := 0.0625
0.0625
Initial program 47.4%
Taylor expanded in z2 around inf
Applied rewrites31.2%
herbie shell --seed 2025258
(FPCore (z2 z1 z0)
:name "(* (+ (* (+ z2 (+ z1 z0)) z2) (* z1 z0)) (/ (* (+ z2 (+ z1 z0)) z2) (* (- (* (+ (+ z2 (+ z1 z0)) z2) (+ (+ z2 (+ z1 z0)) z2)) 1) (* (+ (+ z2 (+ z1 z0)) z2) (+ (+ z2 (+ z1 z0)) z2)))))"
:precision binary64
(* (+ (* (+ z2 (+ z1 z0)) z2) (* z1 z0)) (/ (* (+ z2 (+ z1 z0)) z2) (* (- (* (+ (+ z2 (+ z1 z0)) z2) (+ (+ z2 (+ z1 z0)) z2)) 1.0) (* (+ (+ z2 (+ z1 z0)) z2) (+ (+ z2 (+ z1 z0)) z2))))))