
(FPCore (x y z t) :precision binary64 (+ (+ (+ (- (sqrt (+ x 1.0)) (sqrt x)) (- (sqrt (+ y 1.0)) (sqrt y))) (- (sqrt (+ z 1.0)) (sqrt z))) (- (sqrt (+ t 1.0)) (sqrt t))))
double code(double x, double y, double z, double t) {
return (((sqrt((x + 1.0)) - sqrt(x)) + (sqrt((y + 1.0)) - sqrt(y))) + (sqrt((z + 1.0)) - sqrt(z))) + (sqrt((t + 1.0)) - sqrt(t));
}
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(x, y, z, t)
use fmin_fmax_functions
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = (((sqrt((x + 1.0d0)) - sqrt(x)) + (sqrt((y + 1.0d0)) - sqrt(y))) + (sqrt((z + 1.0d0)) - sqrt(z))) + (sqrt((t + 1.0d0)) - sqrt(t))
end function
public static double code(double x, double y, double z, double t) {
return (((Math.sqrt((x + 1.0)) - Math.sqrt(x)) + (Math.sqrt((y + 1.0)) - Math.sqrt(y))) + (Math.sqrt((z + 1.0)) - Math.sqrt(z))) + (Math.sqrt((t + 1.0)) - Math.sqrt(t));
}
def code(x, y, z, t): return (((math.sqrt((x + 1.0)) - math.sqrt(x)) + (math.sqrt((y + 1.0)) - math.sqrt(y))) + (math.sqrt((z + 1.0)) - math.sqrt(z))) + (math.sqrt((t + 1.0)) - math.sqrt(t))
function code(x, y, z, t) return Float64(Float64(Float64(Float64(sqrt(Float64(x + 1.0)) - sqrt(x)) + Float64(sqrt(Float64(y + 1.0)) - sqrt(y))) + Float64(sqrt(Float64(z + 1.0)) - sqrt(z))) + Float64(sqrt(Float64(t + 1.0)) - sqrt(t))) end
function tmp = code(x, y, z, t) tmp = (((sqrt((x + 1.0)) - sqrt(x)) + (sqrt((y + 1.0)) - sqrt(y))) + (sqrt((z + 1.0)) - sqrt(z))) + (sqrt((t + 1.0)) - sqrt(t)); end
code[x_, y_, z_, t_] := N[(N[(N[(N[(N[Sqrt[N[(x + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[x], $MachinePrecision]), $MachinePrecision] + N[(N[Sqrt[N[(y + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[Sqrt[N[(z + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[z], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[Sqrt[N[(t + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[t], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(\left(\left(\sqrt{x + 1} - \sqrt{x}\right) + \left(\sqrt{y + 1} - \sqrt{y}\right)\right) + \left(\sqrt{z + 1} - \sqrt{z}\right)\right) + \left(\sqrt{t + 1} - \sqrt{t}\right)
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 19 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z t) :precision binary64 (+ (+ (+ (- (sqrt (+ x 1.0)) (sqrt x)) (- (sqrt (+ y 1.0)) (sqrt y))) (- (sqrt (+ z 1.0)) (sqrt z))) (- (sqrt (+ t 1.0)) (sqrt t))))
double code(double x, double y, double z, double t) {
return (((sqrt((x + 1.0)) - sqrt(x)) + (sqrt((y + 1.0)) - sqrt(y))) + (sqrt((z + 1.0)) - sqrt(z))) + (sqrt((t + 1.0)) - sqrt(t));
}
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(x, y, z, t)
use fmin_fmax_functions
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = (((sqrt((x + 1.0d0)) - sqrt(x)) + (sqrt((y + 1.0d0)) - sqrt(y))) + (sqrt((z + 1.0d0)) - sqrt(z))) + (sqrt((t + 1.0d0)) - sqrt(t))
end function
public static double code(double x, double y, double z, double t) {
return (((Math.sqrt((x + 1.0)) - Math.sqrt(x)) + (Math.sqrt((y + 1.0)) - Math.sqrt(y))) + (Math.sqrt((z + 1.0)) - Math.sqrt(z))) + (Math.sqrt((t + 1.0)) - Math.sqrt(t));
}
def code(x, y, z, t): return (((math.sqrt((x + 1.0)) - math.sqrt(x)) + (math.sqrt((y + 1.0)) - math.sqrt(y))) + (math.sqrt((z + 1.0)) - math.sqrt(z))) + (math.sqrt((t + 1.0)) - math.sqrt(t))
function code(x, y, z, t) return Float64(Float64(Float64(Float64(sqrt(Float64(x + 1.0)) - sqrt(x)) + Float64(sqrt(Float64(y + 1.0)) - sqrt(y))) + Float64(sqrt(Float64(z + 1.0)) - sqrt(z))) + Float64(sqrt(Float64(t + 1.0)) - sqrt(t))) end
function tmp = code(x, y, z, t) tmp = (((sqrt((x + 1.0)) - sqrt(x)) + (sqrt((y + 1.0)) - sqrt(y))) + (sqrt((z + 1.0)) - sqrt(z))) + (sqrt((t + 1.0)) - sqrt(t)); end
code[x_, y_, z_, t_] := N[(N[(N[(N[(N[Sqrt[N[(x + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[x], $MachinePrecision]), $MachinePrecision] + N[(N[Sqrt[N[(y + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[Sqrt[N[(z + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[z], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[Sqrt[N[(t + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[t], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(\left(\left(\sqrt{x + 1} - \sqrt{x}\right) + \left(\sqrt{y + 1} - \sqrt{y}\right)\right) + \left(\sqrt{z + 1} - \sqrt{z}\right)\right) + \left(\sqrt{t + 1} - \sqrt{t}\right)
\end{array}
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (sqrt (+ y 1.0)))
(t_2 (sqrt (+ z 1.0)))
(t_3 (- t_2 (sqrt z)))
(t_4 (sqrt (+ 1.0 x)))
(t_5 (- (sqrt (+ t 1.0)) (sqrt t)))
(t_6
(+ (+ (+ (- (sqrt (+ x 1.0)) (sqrt x)) (- t_1 (sqrt y))) t_3) t_5)))
(if (<= t_6 1.00005)
(+ (+ (fma (sqrt (pow y -1.0)) 0.5 (pow (+ t_4 (sqrt x)) -1.0)) t_3) t_5)
(if (<= t_6 2.25)
(-
(+
(+
(fma
(sqrt (pow t -1.0))
0.5
(pow (+ (sqrt (+ 1.0 z)) (sqrt z)) -1.0))
(sqrt (+ 1.0 y)))
t_4)
(+ (sqrt y) (sqrt x)))
(+
1.0
(-
(+ (+ (pow (+ (sqrt (+ 1.0 t)) (sqrt t)) -1.0) t_2) t_1)
(+ (+ (sqrt z) (sqrt y)) (sqrt x))))))))assert(x < y && y < z && z < t);
double code(double x, double y, double z, double t) {
double t_1 = sqrt((y + 1.0));
double t_2 = sqrt((z + 1.0));
double t_3 = t_2 - sqrt(z);
double t_4 = sqrt((1.0 + x));
double t_5 = sqrt((t + 1.0)) - sqrt(t);
double t_6 = (((sqrt((x + 1.0)) - sqrt(x)) + (t_1 - sqrt(y))) + t_3) + t_5;
double tmp;
if (t_6 <= 1.00005) {
tmp = (fma(sqrt(pow(y, -1.0)), 0.5, pow((t_4 + sqrt(x)), -1.0)) + t_3) + t_5;
} else if (t_6 <= 2.25) {
tmp = ((fma(sqrt(pow(t, -1.0)), 0.5, pow((sqrt((1.0 + z)) + sqrt(z)), -1.0)) + sqrt((1.0 + y))) + t_4) - (sqrt(y) + sqrt(x));
} else {
tmp = 1.0 + (((pow((sqrt((1.0 + t)) + sqrt(t)), -1.0) + t_2) + t_1) - ((sqrt(z) + sqrt(y)) + sqrt(x)));
}
return tmp;
}
x, y, z, t = sort([x, y, z, t]) function code(x, y, z, t) t_1 = sqrt(Float64(y + 1.0)) t_2 = sqrt(Float64(z + 1.0)) t_3 = Float64(t_2 - sqrt(z)) t_4 = sqrt(Float64(1.0 + x)) t_5 = Float64(sqrt(Float64(t + 1.0)) - sqrt(t)) t_6 = Float64(Float64(Float64(Float64(sqrt(Float64(x + 1.0)) - sqrt(x)) + Float64(t_1 - sqrt(y))) + t_3) + t_5) tmp = 0.0 if (t_6 <= 1.00005) tmp = Float64(Float64(fma(sqrt((y ^ -1.0)), 0.5, (Float64(t_4 + sqrt(x)) ^ -1.0)) + t_3) + t_5); elseif (t_6 <= 2.25) tmp = Float64(Float64(Float64(fma(sqrt((t ^ -1.0)), 0.5, (Float64(sqrt(Float64(1.0 + z)) + sqrt(z)) ^ -1.0)) + sqrt(Float64(1.0 + y))) + t_4) - Float64(sqrt(y) + sqrt(x))); else tmp = Float64(1.0 + Float64(Float64(Float64((Float64(sqrt(Float64(1.0 + t)) + sqrt(t)) ^ -1.0) + t_2) + t_1) - Float64(Float64(sqrt(z) + sqrt(y)) + sqrt(x)))); end return tmp end
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
code[x_, y_, z_, t_] := Block[{t$95$1 = N[Sqrt[N[(y + 1.0), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$2 = N[Sqrt[N[(z + 1.0), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$3 = N[(t$95$2 - N[Sqrt[z], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[Sqrt[N[(1.0 + x), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$5 = N[(N[Sqrt[N[(t + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[t], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(N[(N[(N[(N[Sqrt[N[(x + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[x], $MachinePrecision]), $MachinePrecision] + N[(t$95$1 - N[Sqrt[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$3), $MachinePrecision] + t$95$5), $MachinePrecision]}, If[LessEqual[t$95$6, 1.00005], N[(N[(N[(N[Sqrt[N[Power[y, -1.0], $MachinePrecision]], $MachinePrecision] * 0.5 + N[Power[N[(t$95$4 + N[Sqrt[x], $MachinePrecision]), $MachinePrecision], -1.0], $MachinePrecision]), $MachinePrecision] + t$95$3), $MachinePrecision] + t$95$5), $MachinePrecision], If[LessEqual[t$95$6, 2.25], N[(N[(N[(N[(N[Sqrt[N[Power[t, -1.0], $MachinePrecision]], $MachinePrecision] * 0.5 + N[Power[N[(N[Sqrt[N[(1.0 + z), $MachinePrecision]], $MachinePrecision] + N[Sqrt[z], $MachinePrecision]), $MachinePrecision], -1.0], $MachinePrecision]), $MachinePrecision] + N[Sqrt[N[(1.0 + y), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] + t$95$4), $MachinePrecision] - N[(N[Sqrt[y], $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(1.0 + N[(N[(N[(N[Power[N[(N[Sqrt[N[(1.0 + t), $MachinePrecision]], $MachinePrecision] + N[Sqrt[t], $MachinePrecision]), $MachinePrecision], -1.0], $MachinePrecision] + t$95$2), $MachinePrecision] + t$95$1), $MachinePrecision] - N[(N[(N[Sqrt[z], $MachinePrecision] + N[Sqrt[y], $MachinePrecision]), $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]
\begin{array}{l}
[x, y, z, t] = \mathsf{sort}([x, y, z, t])\\
\\
\begin{array}{l}
t_1 := \sqrt{y + 1}\\
t_2 := \sqrt{z + 1}\\
t_3 := t\_2 - \sqrt{z}\\
t_4 := \sqrt{1 + x}\\
t_5 := \sqrt{t + 1} - \sqrt{t}\\
t_6 := \left(\left(\left(\sqrt{x + 1} - \sqrt{x}\right) + \left(t\_1 - \sqrt{y}\right)\right) + t\_3\right) + t\_5\\
\mathbf{if}\;t\_6 \leq 1.00005:\\
\;\;\;\;\left(\mathsf{fma}\left(\sqrt{{y}^{-1}}, 0.5, {\left(t\_4 + \sqrt{x}\right)}^{-1}\right) + t\_3\right) + t\_5\\
\mathbf{elif}\;t\_6 \leq 2.25:\\
\;\;\;\;\left(\left(\mathsf{fma}\left(\sqrt{{t}^{-1}}, 0.5, {\left(\sqrt{1 + z} + \sqrt{z}\right)}^{-1}\right) + \sqrt{1 + y}\right) + t\_4\right) - \left(\sqrt{y} + \sqrt{x}\right)\\
\mathbf{else}:\\
\;\;\;\;1 + \left(\left(\left({\left(\sqrt{1 + t} + \sqrt{t}\right)}^{-1} + t\_2\right) + t\_1\right) - \left(\left(\sqrt{z} + \sqrt{y}\right) + \sqrt{x}\right)\right)\\
\end{array}
\end{array}
if (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 1.00005000000000011Initial program 80.7%
lift--.f64N/A
flip--N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f6481.1
lift-+.f64N/A
+-commutativeN/A
lower-+.f6481.1
Applied rewrites81.1%
Taylor expanded in y around inf
*-commutativeN/A
lower-fma.f64N/A
lower-sqrt.f64N/A
lower-/.f64N/A
lower-/.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f6475.7
Applied rewrites75.7%
if 1.00005000000000011 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 2.25Initial program 96.4%
lift--.f64N/A
flip--N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lower--.f64N/A
+-commutativeN/A
lower-+.f6496.6
Applied rewrites96.6%
Taylor expanded in t around inf
lower--.f64N/A
Applied rewrites21.4%
if 2.25 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) Initial program 97.1%
Taylor expanded in x around 0
+-commutativeN/A
associate--l+N/A
lower-fma.f64N/A
lower--.f64N/A
lower-sqrt.f6481.7
Applied rewrites81.7%
lift--.f64N/A
flip--N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lower--.f64N/A
+-commutativeN/A
lower-+.f6481.7
Applied rewrites81.7%
Taylor expanded in x around 0
associate--l+N/A
lower-+.f64N/A
lower--.f64N/A
Applied rewrites54.1%
Final simplification45.6%
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (- (sqrt (+ z 1.0)) (sqrt z)))
(t_2 (- (sqrt (+ t 1.0)) (sqrt t)))
(t_3
(+
(+
(+ (- (sqrt (+ x 1.0)) (sqrt x)) (- (sqrt (+ y 1.0)) (sqrt y)))
t_1)
t_2))
(t_4 (sqrt (+ 1.0 x))))
(if (<= t_3 0.0)
(+ (+ (* (sqrt (pow x -1.0)) 0.5) t_1) t_2)
(if (<= t_3 1.0)
(+ (+ (- t_4 (sqrt x)) t_1) t_2)
(if (<= t_3 2.3)
(-
(+ t_4 (+ (pow (+ (sqrt (+ 1.0 z)) (sqrt z)) -1.0) (sqrt (+ 1.0 y))))
(+ (sqrt y) (sqrt x)))
(+ (+ (+ (fma 0.5 x (- 1.0 (sqrt x))) (- 1.0 (sqrt y))) t_1) t_2))))))assert(x < y && y < z && z < t);
double code(double x, double y, double z, double t) {
double t_1 = sqrt((z + 1.0)) - sqrt(z);
double t_2 = sqrt((t + 1.0)) - sqrt(t);
double t_3 = (((sqrt((x + 1.0)) - sqrt(x)) + (sqrt((y + 1.0)) - sqrt(y))) + t_1) + t_2;
double t_4 = sqrt((1.0 + x));
double tmp;
if (t_3 <= 0.0) {
tmp = ((sqrt(pow(x, -1.0)) * 0.5) + t_1) + t_2;
} else if (t_3 <= 1.0) {
tmp = ((t_4 - sqrt(x)) + t_1) + t_2;
} else if (t_3 <= 2.3) {
tmp = (t_4 + (pow((sqrt((1.0 + z)) + sqrt(z)), -1.0) + sqrt((1.0 + y)))) - (sqrt(y) + sqrt(x));
} else {
tmp = ((fma(0.5, x, (1.0 - sqrt(x))) + (1.0 - sqrt(y))) + t_1) + t_2;
}
return tmp;
}
x, y, z, t = sort([x, y, z, t]) function code(x, y, z, t) t_1 = Float64(sqrt(Float64(z + 1.0)) - sqrt(z)) t_2 = Float64(sqrt(Float64(t + 1.0)) - sqrt(t)) t_3 = Float64(Float64(Float64(Float64(sqrt(Float64(x + 1.0)) - sqrt(x)) + Float64(sqrt(Float64(y + 1.0)) - sqrt(y))) + t_1) + t_2) t_4 = sqrt(Float64(1.0 + x)) tmp = 0.0 if (t_3 <= 0.0) tmp = Float64(Float64(Float64(sqrt((x ^ -1.0)) * 0.5) + t_1) + t_2); elseif (t_3 <= 1.0) tmp = Float64(Float64(Float64(t_4 - sqrt(x)) + t_1) + t_2); elseif (t_3 <= 2.3) tmp = Float64(Float64(t_4 + Float64((Float64(sqrt(Float64(1.0 + z)) + sqrt(z)) ^ -1.0) + sqrt(Float64(1.0 + y)))) - Float64(sqrt(y) + sqrt(x))); else tmp = Float64(Float64(Float64(fma(0.5, x, Float64(1.0 - sqrt(x))) + Float64(1.0 - sqrt(y))) + t_1) + t_2); end return tmp end
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[Sqrt[N[(z + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[z], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[Sqrt[N[(t + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[t], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(N[(N[(N[Sqrt[N[(x + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[x], $MachinePrecision]), $MachinePrecision] + N[(N[Sqrt[N[(y + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$1), $MachinePrecision] + t$95$2), $MachinePrecision]}, Block[{t$95$4 = N[Sqrt[N[(1.0 + x), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[t$95$3, 0.0], N[(N[(N[(N[Sqrt[N[Power[x, -1.0], $MachinePrecision]], $MachinePrecision] * 0.5), $MachinePrecision] + t$95$1), $MachinePrecision] + t$95$2), $MachinePrecision], If[LessEqual[t$95$3, 1.0], N[(N[(N[(t$95$4 - N[Sqrt[x], $MachinePrecision]), $MachinePrecision] + t$95$1), $MachinePrecision] + t$95$2), $MachinePrecision], If[LessEqual[t$95$3, 2.3], N[(N[(t$95$4 + N[(N[Power[N[(N[Sqrt[N[(1.0 + z), $MachinePrecision]], $MachinePrecision] + N[Sqrt[z], $MachinePrecision]), $MachinePrecision], -1.0], $MachinePrecision] + N[Sqrt[N[(1.0 + y), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[Sqrt[y], $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.5 * x + N[(1.0 - N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(1.0 - N[Sqrt[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$1), $MachinePrecision] + t$95$2), $MachinePrecision]]]]]]]]
\begin{array}{l}
[x, y, z, t] = \mathsf{sort}([x, y, z, t])\\
\\
\begin{array}{l}
t_1 := \sqrt{z + 1} - \sqrt{z}\\
t_2 := \sqrt{t + 1} - \sqrt{t}\\
t_3 := \left(\left(\left(\sqrt{x + 1} - \sqrt{x}\right) + \left(\sqrt{y + 1} - \sqrt{y}\right)\right) + t\_1\right) + t\_2\\
t_4 := \sqrt{1 + x}\\
\mathbf{if}\;t\_3 \leq 0:\\
\;\;\;\;\left(\sqrt{{x}^{-1}} \cdot 0.5 + t\_1\right) + t\_2\\
\mathbf{elif}\;t\_3 \leq 1:\\
\;\;\;\;\left(\left(t\_4 - \sqrt{x}\right) + t\_1\right) + t\_2\\
\mathbf{elif}\;t\_3 \leq 2.3:\\
\;\;\;\;\left(t\_4 + \left({\left(\sqrt{1 + z} + \sqrt{z}\right)}^{-1} + \sqrt{1 + y}\right)\right) - \left(\sqrt{y} + \sqrt{x}\right)\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\mathsf{fma}\left(0.5, x, 1 - \sqrt{x}\right) + \left(1 - \sqrt{y}\right)\right) + t\_1\right) + t\_2\\
\end{array}
\end{array}
if (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 0.0Initial program 3.4%
lift--.f64N/A
flip--N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f643.4
lift-+.f64N/A
+-commutativeN/A
lower-+.f643.4
Applied rewrites3.4%
Taylor expanded in y around inf
lower-/.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f6439.6
Applied rewrites39.6%
Taylor expanded in x around inf
Applied rewrites39.6%
if 0.0 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 1Initial program 97.2%
Taylor expanded in y around inf
lower--.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f6477.5
Applied rewrites77.5%
if 1 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 2.2999999999999998Initial program 95.5%
lift--.f64N/A
flip--N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lower--.f64N/A
+-commutativeN/A
lower-+.f6496.0
Applied rewrites96.0%
Taylor expanded in t around inf
lower--.f64N/A
Applied rewrites20.3%
if 2.2999999999999998 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) Initial program 97.1%
Taylor expanded in x around 0
+-commutativeN/A
associate--l+N/A
lower-fma.f64N/A
lower--.f64N/A
lower-sqrt.f6481.5
Applied rewrites81.5%
Taylor expanded in y around 0
lower--.f64N/A
lower-sqrt.f6460.4
Applied rewrites60.4%
Final simplification45.2%
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (sqrt (+ y 1.0)))
(t_2 (sqrt (+ z 1.0)))
(t_3 (- t_2 (sqrt z)))
(t_4 (+ (- (sqrt (+ x 1.0)) (sqrt x)) (- t_1 (sqrt y))))
(t_5 (- (sqrt (+ t 1.0)) (sqrt t)))
(t_6 (+ (+ t_4 t_3) t_5)))
(if (<= t_6 0.0)
(+ (+ (* (+ (sqrt (pow x -1.0)) (sqrt (pow y -1.0))) 0.5) t_3) t_5)
(if (<= t_6 2.0001)
(+ (+ t_4 (* (sqrt (pow z -1.0)) 0.5)) t_5)
(+
1.0
(-
(+ (+ (pow (+ (sqrt (+ 1.0 t)) (sqrt t)) -1.0) t_2) t_1)
(+ (+ (sqrt z) (sqrt y)) (sqrt x))))))))assert(x < y && y < z && z < t);
double code(double x, double y, double z, double t) {
double t_1 = sqrt((y + 1.0));
double t_2 = sqrt((z + 1.0));
double t_3 = t_2 - sqrt(z);
double t_4 = (sqrt((x + 1.0)) - sqrt(x)) + (t_1 - sqrt(y));
double t_5 = sqrt((t + 1.0)) - sqrt(t);
double t_6 = (t_4 + t_3) + t_5;
double tmp;
if (t_6 <= 0.0) {
tmp = (((sqrt(pow(x, -1.0)) + sqrt(pow(y, -1.0))) * 0.5) + t_3) + t_5;
} else if (t_6 <= 2.0001) {
tmp = (t_4 + (sqrt(pow(z, -1.0)) * 0.5)) + t_5;
} else {
tmp = 1.0 + (((pow((sqrt((1.0 + t)) + sqrt(t)), -1.0) + t_2) + t_1) - ((sqrt(z) + sqrt(y)) + sqrt(x)));
}
return tmp;
}
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
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(x, y, z, t)
use fmin_fmax_functions
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
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_1 = sqrt((y + 1.0d0))
t_2 = sqrt((z + 1.0d0))
t_3 = t_2 - sqrt(z)
t_4 = (sqrt((x + 1.0d0)) - sqrt(x)) + (t_1 - sqrt(y))
t_5 = sqrt((t + 1.0d0)) - sqrt(t)
t_6 = (t_4 + t_3) + t_5
if (t_6 <= 0.0d0) then
tmp = (((sqrt((x ** (-1.0d0))) + sqrt((y ** (-1.0d0)))) * 0.5d0) + t_3) + t_5
else if (t_6 <= 2.0001d0) then
tmp = (t_4 + (sqrt((z ** (-1.0d0))) * 0.5d0)) + t_5
else
tmp = 1.0d0 + (((((sqrt((1.0d0 + t)) + sqrt(t)) ** (-1.0d0)) + t_2) + t_1) - ((sqrt(z) + sqrt(y)) + sqrt(x)))
end if
code = tmp
end function
assert x < y && y < z && z < t;
public static double code(double x, double y, double z, double t) {
double t_1 = Math.sqrt((y + 1.0));
double t_2 = Math.sqrt((z + 1.0));
double t_3 = t_2 - Math.sqrt(z);
double t_4 = (Math.sqrt((x + 1.0)) - Math.sqrt(x)) + (t_1 - Math.sqrt(y));
double t_5 = Math.sqrt((t + 1.0)) - Math.sqrt(t);
double t_6 = (t_4 + t_3) + t_5;
double tmp;
if (t_6 <= 0.0) {
tmp = (((Math.sqrt(Math.pow(x, -1.0)) + Math.sqrt(Math.pow(y, -1.0))) * 0.5) + t_3) + t_5;
} else if (t_6 <= 2.0001) {
tmp = (t_4 + (Math.sqrt(Math.pow(z, -1.0)) * 0.5)) + t_5;
} else {
tmp = 1.0 + (((Math.pow((Math.sqrt((1.0 + t)) + Math.sqrt(t)), -1.0) + t_2) + t_1) - ((Math.sqrt(z) + Math.sqrt(y)) + Math.sqrt(x)));
}
return tmp;
}
[x, y, z, t] = sort([x, y, z, t]) def code(x, y, z, t): t_1 = math.sqrt((y + 1.0)) t_2 = math.sqrt((z + 1.0)) t_3 = t_2 - math.sqrt(z) t_4 = (math.sqrt((x + 1.0)) - math.sqrt(x)) + (t_1 - math.sqrt(y)) t_5 = math.sqrt((t + 1.0)) - math.sqrt(t) t_6 = (t_4 + t_3) + t_5 tmp = 0 if t_6 <= 0.0: tmp = (((math.sqrt(math.pow(x, -1.0)) + math.sqrt(math.pow(y, -1.0))) * 0.5) + t_3) + t_5 elif t_6 <= 2.0001: tmp = (t_4 + (math.sqrt(math.pow(z, -1.0)) * 0.5)) + t_5 else: tmp = 1.0 + (((math.pow((math.sqrt((1.0 + t)) + math.sqrt(t)), -1.0) + t_2) + t_1) - ((math.sqrt(z) + math.sqrt(y)) + math.sqrt(x))) return tmp
x, y, z, t = sort([x, y, z, t]) function code(x, y, z, t) t_1 = sqrt(Float64(y + 1.0)) t_2 = sqrt(Float64(z + 1.0)) t_3 = Float64(t_2 - sqrt(z)) t_4 = Float64(Float64(sqrt(Float64(x + 1.0)) - sqrt(x)) + Float64(t_1 - sqrt(y))) t_5 = Float64(sqrt(Float64(t + 1.0)) - sqrt(t)) t_6 = Float64(Float64(t_4 + t_3) + t_5) tmp = 0.0 if (t_6 <= 0.0) tmp = Float64(Float64(Float64(Float64(sqrt((x ^ -1.0)) + sqrt((y ^ -1.0))) * 0.5) + t_3) + t_5); elseif (t_6 <= 2.0001) tmp = Float64(Float64(t_4 + Float64(sqrt((z ^ -1.0)) * 0.5)) + t_5); else tmp = Float64(1.0 + Float64(Float64(Float64((Float64(sqrt(Float64(1.0 + t)) + sqrt(t)) ^ -1.0) + t_2) + t_1) - Float64(Float64(sqrt(z) + sqrt(y)) + sqrt(x)))); end return tmp end
x, y, z, t = num2cell(sort([x, y, z, t])){:}
function tmp_2 = code(x, y, z, t)
t_1 = sqrt((y + 1.0));
t_2 = sqrt((z + 1.0));
t_3 = t_2 - sqrt(z);
t_4 = (sqrt((x + 1.0)) - sqrt(x)) + (t_1 - sqrt(y));
t_5 = sqrt((t + 1.0)) - sqrt(t);
t_6 = (t_4 + t_3) + t_5;
tmp = 0.0;
if (t_6 <= 0.0)
tmp = (((sqrt((x ^ -1.0)) + sqrt((y ^ -1.0))) * 0.5) + t_3) + t_5;
elseif (t_6 <= 2.0001)
tmp = (t_4 + (sqrt((z ^ -1.0)) * 0.5)) + t_5;
else
tmp = 1.0 + (((((sqrt((1.0 + t)) + sqrt(t)) ^ -1.0) + t_2) + t_1) - ((sqrt(z) + sqrt(y)) + sqrt(x)));
end
tmp_2 = tmp;
end
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
code[x_, y_, z_, t_] := Block[{t$95$1 = N[Sqrt[N[(y + 1.0), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$2 = N[Sqrt[N[(z + 1.0), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$3 = N[(t$95$2 - N[Sqrt[z], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(N[Sqrt[N[(x + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[x], $MachinePrecision]), $MachinePrecision] + N[(t$95$1 - N[Sqrt[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[Sqrt[N[(t + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[t], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(N[(t$95$4 + t$95$3), $MachinePrecision] + t$95$5), $MachinePrecision]}, If[LessEqual[t$95$6, 0.0], N[(N[(N[(N[(N[Sqrt[N[Power[x, -1.0], $MachinePrecision]], $MachinePrecision] + N[Sqrt[N[Power[y, -1.0], $MachinePrecision]], $MachinePrecision]), $MachinePrecision] * 0.5), $MachinePrecision] + t$95$3), $MachinePrecision] + t$95$5), $MachinePrecision], If[LessEqual[t$95$6, 2.0001], N[(N[(t$95$4 + N[(N[Sqrt[N[Power[z, -1.0], $MachinePrecision]], $MachinePrecision] * 0.5), $MachinePrecision]), $MachinePrecision] + t$95$5), $MachinePrecision], N[(1.0 + N[(N[(N[(N[Power[N[(N[Sqrt[N[(1.0 + t), $MachinePrecision]], $MachinePrecision] + N[Sqrt[t], $MachinePrecision]), $MachinePrecision], -1.0], $MachinePrecision] + t$95$2), $MachinePrecision] + t$95$1), $MachinePrecision] - N[(N[(N[Sqrt[z], $MachinePrecision] + N[Sqrt[y], $MachinePrecision]), $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]
\begin{array}{l}
[x, y, z, t] = \mathsf{sort}([x, y, z, t])\\
\\
\begin{array}{l}
t_1 := \sqrt{y + 1}\\
t_2 := \sqrt{z + 1}\\
t_3 := t\_2 - \sqrt{z}\\
t_4 := \left(\sqrt{x + 1} - \sqrt{x}\right) + \left(t\_1 - \sqrt{y}\right)\\
t_5 := \sqrt{t + 1} - \sqrt{t}\\
t_6 := \left(t\_4 + t\_3\right) + t\_5\\
\mathbf{if}\;t\_6 \leq 0:\\
\;\;\;\;\left(\left(\sqrt{{x}^{-1}} + \sqrt{{y}^{-1}}\right) \cdot 0.5 + t\_3\right) + t\_5\\
\mathbf{elif}\;t\_6 \leq 2.0001:\\
\;\;\;\;\left(t\_4 + \sqrt{{z}^{-1}} \cdot 0.5\right) + t\_5\\
\mathbf{else}:\\
\;\;\;\;1 + \left(\left(\left({\left(\sqrt{1 + t} + \sqrt{t}\right)}^{-1} + t\_2\right) + t\_1\right) - \left(\left(\sqrt{z} + \sqrt{y}\right) + \sqrt{x}\right)\right)\\
\end{array}
\end{array}
if (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 0.0Initial program 3.4%
Taylor expanded in y around inf
+-commutativeN/A
associate--l+N/A
*-commutativeN/A
lower-fma.f64N/A
lower-sqrt.f64N/A
lower-/.f64N/A
lower--.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f6415.8
Applied rewrites15.8%
Taylor expanded in x around inf
Applied rewrites48.9%
if 0.0 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 2.00010000000000021Initial program 96.2%
Taylor expanded in z around inf
*-commutativeN/A
lower-*.f64N/A
lower-sqrt.f64N/A
lower-/.f6463.3
Applied rewrites63.3%
if 2.00010000000000021 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) Initial program 96.8%
Taylor expanded in x around 0
+-commutativeN/A
associate--l+N/A
lower-fma.f64N/A
lower--.f64N/A
lower-sqrt.f6478.8
Applied rewrites78.8%
lift--.f64N/A
flip--N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lower--.f64N/A
+-commutativeN/A
lower-+.f6478.8
Applied rewrites78.8%
Taylor expanded in x around 0
associate--l+N/A
lower-+.f64N/A
lower--.f64N/A
Applied rewrites52.9%
Final simplification59.0%
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (sqrt (+ y 1.0)))
(t_2 (sqrt (+ 1.0 x)))
(t_3 (sqrt (+ z 1.0)))
(t_4 (- t_3 (sqrt z)))
(t_5 (- (sqrt (+ t 1.0)) (sqrt t)))
(t_6
(+ (+ (+ (- (sqrt (+ x 1.0)) (sqrt x)) (- t_1 (sqrt y))) t_4) t_5)))
(if (<= t_6 1.0)
(+ (+ (pow (+ t_2 (sqrt x)) -1.0) t_4) t_5)
(if (<= t_6 2.01)
(-
(+ t_2 (+ (pow (+ (sqrt (+ 1.0 z)) (sqrt z)) -1.0) (sqrt (+ 1.0 y))))
(+ (sqrt y) (sqrt x)))
(+
1.0
(-
(+ (+ (pow (+ (sqrt (+ 1.0 t)) (sqrt t)) -1.0) t_3) t_1)
(+ (+ (sqrt z) (sqrt y)) (sqrt x))))))))assert(x < y && y < z && z < t);
double code(double x, double y, double z, double t) {
double t_1 = sqrt((y + 1.0));
double t_2 = sqrt((1.0 + x));
double t_3 = sqrt((z + 1.0));
double t_4 = t_3 - sqrt(z);
double t_5 = sqrt((t + 1.0)) - sqrt(t);
double t_6 = (((sqrt((x + 1.0)) - sqrt(x)) + (t_1 - sqrt(y))) + t_4) + t_5;
double tmp;
if (t_6 <= 1.0) {
tmp = (pow((t_2 + sqrt(x)), -1.0) + t_4) + t_5;
} else if (t_6 <= 2.01) {
tmp = (t_2 + (pow((sqrt((1.0 + z)) + sqrt(z)), -1.0) + sqrt((1.0 + y)))) - (sqrt(y) + sqrt(x));
} else {
tmp = 1.0 + (((pow((sqrt((1.0 + t)) + sqrt(t)), -1.0) + t_3) + t_1) - ((sqrt(z) + sqrt(y)) + sqrt(x)));
}
return tmp;
}
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
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(x, y, z, t)
use fmin_fmax_functions
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
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_1 = sqrt((y + 1.0d0))
t_2 = sqrt((1.0d0 + x))
t_3 = sqrt((z + 1.0d0))
t_4 = t_3 - sqrt(z)
t_5 = sqrt((t + 1.0d0)) - sqrt(t)
t_6 = (((sqrt((x + 1.0d0)) - sqrt(x)) + (t_1 - sqrt(y))) + t_4) + t_5
if (t_6 <= 1.0d0) then
tmp = (((t_2 + sqrt(x)) ** (-1.0d0)) + t_4) + t_5
else if (t_6 <= 2.01d0) then
tmp = (t_2 + (((sqrt((1.0d0 + z)) + sqrt(z)) ** (-1.0d0)) + sqrt((1.0d0 + y)))) - (sqrt(y) + sqrt(x))
else
tmp = 1.0d0 + (((((sqrt((1.0d0 + t)) + sqrt(t)) ** (-1.0d0)) + t_3) + t_1) - ((sqrt(z) + sqrt(y)) + sqrt(x)))
end if
code = tmp
end function
assert x < y && y < z && z < t;
public static double code(double x, double y, double z, double t) {
double t_1 = Math.sqrt((y + 1.0));
double t_2 = Math.sqrt((1.0 + x));
double t_3 = Math.sqrt((z + 1.0));
double t_4 = t_3 - Math.sqrt(z);
double t_5 = Math.sqrt((t + 1.0)) - Math.sqrt(t);
double t_6 = (((Math.sqrt((x + 1.0)) - Math.sqrt(x)) + (t_1 - Math.sqrt(y))) + t_4) + t_5;
double tmp;
if (t_6 <= 1.0) {
tmp = (Math.pow((t_2 + Math.sqrt(x)), -1.0) + t_4) + t_5;
} else if (t_6 <= 2.01) {
tmp = (t_2 + (Math.pow((Math.sqrt((1.0 + z)) + Math.sqrt(z)), -1.0) + Math.sqrt((1.0 + y)))) - (Math.sqrt(y) + Math.sqrt(x));
} else {
tmp = 1.0 + (((Math.pow((Math.sqrt((1.0 + t)) + Math.sqrt(t)), -1.0) + t_3) + t_1) - ((Math.sqrt(z) + Math.sqrt(y)) + Math.sqrt(x)));
}
return tmp;
}
[x, y, z, t] = sort([x, y, z, t]) def code(x, y, z, t): t_1 = math.sqrt((y + 1.0)) t_2 = math.sqrt((1.0 + x)) t_3 = math.sqrt((z + 1.0)) t_4 = t_3 - math.sqrt(z) t_5 = math.sqrt((t + 1.0)) - math.sqrt(t) t_6 = (((math.sqrt((x + 1.0)) - math.sqrt(x)) + (t_1 - math.sqrt(y))) + t_4) + t_5 tmp = 0 if t_6 <= 1.0: tmp = (math.pow((t_2 + math.sqrt(x)), -1.0) + t_4) + t_5 elif t_6 <= 2.01: tmp = (t_2 + (math.pow((math.sqrt((1.0 + z)) + math.sqrt(z)), -1.0) + math.sqrt((1.0 + y)))) - (math.sqrt(y) + math.sqrt(x)) else: tmp = 1.0 + (((math.pow((math.sqrt((1.0 + t)) + math.sqrt(t)), -1.0) + t_3) + t_1) - ((math.sqrt(z) + math.sqrt(y)) + math.sqrt(x))) return tmp
x, y, z, t = sort([x, y, z, t]) function code(x, y, z, t) t_1 = sqrt(Float64(y + 1.0)) t_2 = sqrt(Float64(1.0 + x)) t_3 = sqrt(Float64(z + 1.0)) t_4 = Float64(t_3 - sqrt(z)) t_5 = Float64(sqrt(Float64(t + 1.0)) - sqrt(t)) t_6 = Float64(Float64(Float64(Float64(sqrt(Float64(x + 1.0)) - sqrt(x)) + Float64(t_1 - sqrt(y))) + t_4) + t_5) tmp = 0.0 if (t_6 <= 1.0) tmp = Float64(Float64((Float64(t_2 + sqrt(x)) ^ -1.0) + t_4) + t_5); elseif (t_6 <= 2.01) tmp = Float64(Float64(t_2 + Float64((Float64(sqrt(Float64(1.0 + z)) + sqrt(z)) ^ -1.0) + sqrt(Float64(1.0 + y)))) - Float64(sqrt(y) + sqrt(x))); else tmp = Float64(1.0 + Float64(Float64(Float64((Float64(sqrt(Float64(1.0 + t)) + sqrt(t)) ^ -1.0) + t_3) + t_1) - Float64(Float64(sqrt(z) + sqrt(y)) + sqrt(x)))); end return tmp end
x, y, z, t = num2cell(sort([x, y, z, t])){:}
function tmp_2 = code(x, y, z, t)
t_1 = sqrt((y + 1.0));
t_2 = sqrt((1.0 + x));
t_3 = sqrt((z + 1.0));
t_4 = t_3 - sqrt(z);
t_5 = sqrt((t + 1.0)) - sqrt(t);
t_6 = (((sqrt((x + 1.0)) - sqrt(x)) + (t_1 - sqrt(y))) + t_4) + t_5;
tmp = 0.0;
if (t_6 <= 1.0)
tmp = (((t_2 + sqrt(x)) ^ -1.0) + t_4) + t_5;
elseif (t_6 <= 2.01)
tmp = (t_2 + (((sqrt((1.0 + z)) + sqrt(z)) ^ -1.0) + sqrt((1.0 + y)))) - (sqrt(y) + sqrt(x));
else
tmp = 1.0 + (((((sqrt((1.0 + t)) + sqrt(t)) ^ -1.0) + t_3) + t_1) - ((sqrt(z) + sqrt(y)) + sqrt(x)));
end
tmp_2 = tmp;
end
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
code[x_, y_, z_, t_] := Block[{t$95$1 = N[Sqrt[N[(y + 1.0), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$2 = N[Sqrt[N[(1.0 + x), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$3 = N[Sqrt[N[(z + 1.0), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$4 = N[(t$95$3 - N[Sqrt[z], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[Sqrt[N[(t + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[t], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(N[(N[(N[(N[Sqrt[N[(x + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[x], $MachinePrecision]), $MachinePrecision] + N[(t$95$1 - N[Sqrt[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$4), $MachinePrecision] + t$95$5), $MachinePrecision]}, If[LessEqual[t$95$6, 1.0], N[(N[(N[Power[N[(t$95$2 + N[Sqrt[x], $MachinePrecision]), $MachinePrecision], -1.0], $MachinePrecision] + t$95$4), $MachinePrecision] + t$95$5), $MachinePrecision], If[LessEqual[t$95$6, 2.01], N[(N[(t$95$2 + N[(N[Power[N[(N[Sqrt[N[(1.0 + z), $MachinePrecision]], $MachinePrecision] + N[Sqrt[z], $MachinePrecision]), $MachinePrecision], -1.0], $MachinePrecision] + N[Sqrt[N[(1.0 + y), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[Sqrt[y], $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(1.0 + N[(N[(N[(N[Power[N[(N[Sqrt[N[(1.0 + t), $MachinePrecision]], $MachinePrecision] + N[Sqrt[t], $MachinePrecision]), $MachinePrecision], -1.0], $MachinePrecision] + t$95$3), $MachinePrecision] + t$95$1), $MachinePrecision] - N[(N[(N[Sqrt[z], $MachinePrecision] + N[Sqrt[y], $MachinePrecision]), $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]
\begin{array}{l}
[x, y, z, t] = \mathsf{sort}([x, y, z, t])\\
\\
\begin{array}{l}
t_1 := \sqrt{y + 1}\\
t_2 := \sqrt{1 + x}\\
t_3 := \sqrt{z + 1}\\
t_4 := t\_3 - \sqrt{z}\\
t_5 := \sqrt{t + 1} - \sqrt{t}\\
t_6 := \left(\left(\left(\sqrt{x + 1} - \sqrt{x}\right) + \left(t\_1 - \sqrt{y}\right)\right) + t\_4\right) + t\_5\\
\mathbf{if}\;t\_6 \leq 1:\\
\;\;\;\;\left({\left(t\_2 + \sqrt{x}\right)}^{-1} + t\_4\right) + t\_5\\
\mathbf{elif}\;t\_6 \leq 2.01:\\
\;\;\;\;\left(t\_2 + \left({\left(\sqrt{1 + z} + \sqrt{z}\right)}^{-1} + \sqrt{1 + y}\right)\right) - \left(\sqrt{y} + \sqrt{x}\right)\\
\mathbf{else}:\\
\;\;\;\;1 + \left(\left(\left({\left(\sqrt{1 + t} + \sqrt{t}\right)}^{-1} + t\_3\right) + t\_1\right) - \left(\left(\sqrt{z} + \sqrt{y}\right) + \sqrt{x}\right)\right)\\
\end{array}
\end{array}
if (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 1Initial program 81.3%
lift--.f64N/A
flip--N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f6481.3
lift-+.f64N/A
+-commutativeN/A
lower-+.f6481.3
Applied rewrites81.3%
Taylor expanded in y around inf
lower-/.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f6472.4
Applied rewrites72.4%
if 1 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 2.0099999999999998Initial program 95.6%
lift--.f64N/A
flip--N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lower--.f64N/A
+-commutativeN/A
lower-+.f6495.9
Applied rewrites95.9%
Taylor expanded in t around inf
lower--.f64N/A
Applied rewrites18.1%
if 2.0099999999999998 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) Initial program 96.9%
Taylor expanded in x around 0
+-commutativeN/A
associate--l+N/A
lower-fma.f64N/A
lower--.f64N/A
lower-sqrt.f6481.3
Applied rewrites81.3%
lift--.f64N/A
flip--N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lower--.f64N/A
+-commutativeN/A
lower-+.f6481.3
Applied rewrites81.3%
Taylor expanded in x around 0
associate--l+N/A
lower-+.f64N/A
lower--.f64N/A
Applied rewrites54.5%
Final simplification43.2%
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (sqrt (+ 1.0 x)))
(t_2 (- (sqrt (+ z 1.0)) (sqrt z)))
(t_3 (sqrt (+ t 1.0)))
(t_4 (- t_3 (sqrt t)))
(t_5
(+
(+
(+ (- (sqrt (+ x 1.0)) (sqrt x)) (- (sqrt (+ y 1.0)) (sqrt y)))
t_2)
t_4)))
(if (<= t_5 1.0)
(+ (+ (pow (+ t_1 (sqrt x)) -1.0) t_2) t_4)
(if (<= t_5 2.99999)
(-
(+ t_1 (+ (pow (+ (sqrt (+ 1.0 z)) (sqrt z)) -1.0) (sqrt (+ 1.0 y))))
(+ (sqrt y) (sqrt x)))
(+
(+ (+ (fma 0.5 x (- 1.0 (sqrt x))) (- 1.0 (sqrt y))) (- 1.0 (sqrt z)))
(/ (- (+ t 1.0) t) (+ (sqrt t) t_3)))))))assert(x < y && y < z && z < t);
double code(double x, double y, double z, double t) {
double t_1 = sqrt((1.0 + x));
double t_2 = sqrt((z + 1.0)) - sqrt(z);
double t_3 = sqrt((t + 1.0));
double t_4 = t_3 - sqrt(t);
double t_5 = (((sqrt((x + 1.0)) - sqrt(x)) + (sqrt((y + 1.0)) - sqrt(y))) + t_2) + t_4;
double tmp;
if (t_5 <= 1.0) {
tmp = (pow((t_1 + sqrt(x)), -1.0) + t_2) + t_4;
} else if (t_5 <= 2.99999) {
tmp = (t_1 + (pow((sqrt((1.0 + z)) + sqrt(z)), -1.0) + sqrt((1.0 + y)))) - (sqrt(y) + sqrt(x));
} else {
tmp = ((fma(0.5, x, (1.0 - sqrt(x))) + (1.0 - sqrt(y))) + (1.0 - sqrt(z))) + (((t + 1.0) - t) / (sqrt(t) + t_3));
}
return tmp;
}
x, y, z, t = sort([x, y, z, t]) function code(x, y, z, t) t_1 = sqrt(Float64(1.0 + x)) t_2 = Float64(sqrt(Float64(z + 1.0)) - sqrt(z)) t_3 = sqrt(Float64(t + 1.0)) t_4 = Float64(t_3 - sqrt(t)) t_5 = Float64(Float64(Float64(Float64(sqrt(Float64(x + 1.0)) - sqrt(x)) + Float64(sqrt(Float64(y + 1.0)) - sqrt(y))) + t_2) + t_4) tmp = 0.0 if (t_5 <= 1.0) tmp = Float64(Float64((Float64(t_1 + sqrt(x)) ^ -1.0) + t_2) + t_4); elseif (t_5 <= 2.99999) tmp = Float64(Float64(t_1 + Float64((Float64(sqrt(Float64(1.0 + z)) + sqrt(z)) ^ -1.0) + sqrt(Float64(1.0 + y)))) - Float64(sqrt(y) + sqrt(x))); else tmp = Float64(Float64(Float64(fma(0.5, x, Float64(1.0 - sqrt(x))) + Float64(1.0 - sqrt(y))) + Float64(1.0 - sqrt(z))) + Float64(Float64(Float64(t + 1.0) - t) / Float64(sqrt(t) + t_3))); end return tmp end
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
code[x_, y_, z_, t_] := Block[{t$95$1 = N[Sqrt[N[(1.0 + x), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$2 = N[(N[Sqrt[N[(z + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[z], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[Sqrt[N[(t + 1.0), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$4 = N[(t$95$3 - N[Sqrt[t], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(N[(N[(N[Sqrt[N[(x + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[x], $MachinePrecision]), $MachinePrecision] + N[(N[Sqrt[N[(y + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$2), $MachinePrecision] + t$95$4), $MachinePrecision]}, If[LessEqual[t$95$5, 1.0], N[(N[(N[Power[N[(t$95$1 + N[Sqrt[x], $MachinePrecision]), $MachinePrecision], -1.0], $MachinePrecision] + t$95$2), $MachinePrecision] + t$95$4), $MachinePrecision], If[LessEqual[t$95$5, 2.99999], N[(N[(t$95$1 + N[(N[Power[N[(N[Sqrt[N[(1.0 + z), $MachinePrecision]], $MachinePrecision] + N[Sqrt[z], $MachinePrecision]), $MachinePrecision], -1.0], $MachinePrecision] + N[Sqrt[N[(1.0 + y), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[Sqrt[y], $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.5 * x + N[(1.0 - N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(1.0 - N[Sqrt[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(1.0 - N[Sqrt[z], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(t + 1.0), $MachinePrecision] - t), $MachinePrecision] / N[(N[Sqrt[t], $MachinePrecision] + t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]
\begin{array}{l}
[x, y, z, t] = \mathsf{sort}([x, y, z, t])\\
\\
\begin{array}{l}
t_1 := \sqrt{1 + x}\\
t_2 := \sqrt{z + 1} - \sqrt{z}\\
t_3 := \sqrt{t + 1}\\
t_4 := t\_3 - \sqrt{t}\\
t_5 := \left(\left(\left(\sqrt{x + 1} - \sqrt{x}\right) + \left(\sqrt{y + 1} - \sqrt{y}\right)\right) + t\_2\right) + t\_4\\
\mathbf{if}\;t\_5 \leq 1:\\
\;\;\;\;\left({\left(t\_1 + \sqrt{x}\right)}^{-1} + t\_2\right) + t\_4\\
\mathbf{elif}\;t\_5 \leq 2.99999:\\
\;\;\;\;\left(t\_1 + \left({\left(\sqrt{1 + z} + \sqrt{z}\right)}^{-1} + \sqrt{1 + y}\right)\right) - \left(\sqrt{y} + \sqrt{x}\right)\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\mathsf{fma}\left(0.5, x, 1 - \sqrt{x}\right) + \left(1 - \sqrt{y}\right)\right) + \left(1 - \sqrt{z}\right)\right) + \frac{\left(t + 1\right) - t}{\sqrt{t} + t\_3}\\
\end{array}
\end{array}
if (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 1Initial program 81.3%
lift--.f64N/A
flip--N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f6481.3
lift-+.f64N/A
+-commutativeN/A
lower-+.f6481.3
Applied rewrites81.3%
Taylor expanded in y around inf
lower-/.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f6472.4
Applied rewrites72.4%
if 1 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 2.99998999999999993Initial program 95.9%
lift--.f64N/A
flip--N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lower--.f64N/A
+-commutativeN/A
lower-+.f6496.3
Applied rewrites96.3%
Taylor expanded in t around inf
lower--.f64N/A
Applied rewrites20.9%
if 2.99998999999999993 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) Initial program 96.7%
Taylor expanded in x around 0
+-commutativeN/A
associate--l+N/A
lower-fma.f64N/A
lower--.f64N/A
lower-sqrt.f6482.5
Applied rewrites82.5%
lift--.f64N/A
flip--N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lower--.f64N/A
+-commutativeN/A
lower-+.f6482.5
Applied rewrites82.5%
Taylor expanded in z around 0
lower--.f64N/A
lower-sqrt.f6463.8
Applied rewrites63.8%
Taylor expanded in y around 0
lower--.f64N/A
lower-sqrt.f6445.5
Applied rewrites45.5%
Final simplification39.8%
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (sqrt (+ 1.0 x)))
(t_2 (- (sqrt (+ z 1.0)) (sqrt z)))
(t_3 (- (sqrt (+ t 1.0)) (sqrt t)))
(t_4
(+
(+
(+ (- (sqrt (+ x 1.0)) (sqrt x)) (- (sqrt (+ y 1.0)) (sqrt y)))
t_2)
t_3)))
(if (<= t_4 1.0)
(+ (+ (pow (+ t_1 (sqrt x)) -1.0) t_2) t_3)
(if (<= t_4 2.3)
(-
(+ t_1 (+ (pow (+ (sqrt (+ 1.0 z)) (sqrt z)) -1.0) (sqrt (+ 1.0 y))))
(+ (sqrt y) (sqrt x)))
(+ (+ (+ (fma 0.5 x (- 1.0 (sqrt x))) (- 1.0 (sqrt y))) t_2) t_3)))))assert(x < y && y < z && z < t);
double code(double x, double y, double z, double t) {
double t_1 = sqrt((1.0 + x));
double t_2 = sqrt((z + 1.0)) - sqrt(z);
double t_3 = sqrt((t + 1.0)) - sqrt(t);
double t_4 = (((sqrt((x + 1.0)) - sqrt(x)) + (sqrt((y + 1.0)) - sqrt(y))) + t_2) + t_3;
double tmp;
if (t_4 <= 1.0) {
tmp = (pow((t_1 + sqrt(x)), -1.0) + t_2) + t_3;
} else if (t_4 <= 2.3) {
tmp = (t_1 + (pow((sqrt((1.0 + z)) + sqrt(z)), -1.0) + sqrt((1.0 + y)))) - (sqrt(y) + sqrt(x));
} else {
tmp = ((fma(0.5, x, (1.0 - sqrt(x))) + (1.0 - sqrt(y))) + t_2) + t_3;
}
return tmp;
}
x, y, z, t = sort([x, y, z, t]) function code(x, y, z, t) t_1 = sqrt(Float64(1.0 + x)) t_2 = Float64(sqrt(Float64(z + 1.0)) - sqrt(z)) t_3 = Float64(sqrt(Float64(t + 1.0)) - sqrt(t)) t_4 = Float64(Float64(Float64(Float64(sqrt(Float64(x + 1.0)) - sqrt(x)) + Float64(sqrt(Float64(y + 1.0)) - sqrt(y))) + t_2) + t_3) tmp = 0.0 if (t_4 <= 1.0) tmp = Float64(Float64((Float64(t_1 + sqrt(x)) ^ -1.0) + t_2) + t_3); elseif (t_4 <= 2.3) tmp = Float64(Float64(t_1 + Float64((Float64(sqrt(Float64(1.0 + z)) + sqrt(z)) ^ -1.0) + sqrt(Float64(1.0 + y)))) - Float64(sqrt(y) + sqrt(x))); else tmp = Float64(Float64(Float64(fma(0.5, x, Float64(1.0 - sqrt(x))) + Float64(1.0 - sqrt(y))) + t_2) + t_3); end return tmp end
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
code[x_, y_, z_, t_] := Block[{t$95$1 = N[Sqrt[N[(1.0 + x), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$2 = N[(N[Sqrt[N[(z + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[z], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[Sqrt[N[(t + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[t], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(N[(N[(N[Sqrt[N[(x + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[x], $MachinePrecision]), $MachinePrecision] + N[(N[Sqrt[N[(y + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$2), $MachinePrecision] + t$95$3), $MachinePrecision]}, If[LessEqual[t$95$4, 1.0], N[(N[(N[Power[N[(t$95$1 + N[Sqrt[x], $MachinePrecision]), $MachinePrecision], -1.0], $MachinePrecision] + t$95$2), $MachinePrecision] + t$95$3), $MachinePrecision], If[LessEqual[t$95$4, 2.3], N[(N[(t$95$1 + N[(N[Power[N[(N[Sqrt[N[(1.0 + z), $MachinePrecision]], $MachinePrecision] + N[Sqrt[z], $MachinePrecision]), $MachinePrecision], -1.0], $MachinePrecision] + N[Sqrt[N[(1.0 + y), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[Sqrt[y], $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.5 * x + N[(1.0 - N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(1.0 - N[Sqrt[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$2), $MachinePrecision] + t$95$3), $MachinePrecision]]]]]]]
\begin{array}{l}
[x, y, z, t] = \mathsf{sort}([x, y, z, t])\\
\\
\begin{array}{l}
t_1 := \sqrt{1 + x}\\
t_2 := \sqrt{z + 1} - \sqrt{z}\\
t_3 := \sqrt{t + 1} - \sqrt{t}\\
t_4 := \left(\left(\left(\sqrt{x + 1} - \sqrt{x}\right) + \left(\sqrt{y + 1} - \sqrt{y}\right)\right) + t\_2\right) + t\_3\\
\mathbf{if}\;t\_4 \leq 1:\\
\;\;\;\;\left({\left(t\_1 + \sqrt{x}\right)}^{-1} + t\_2\right) + t\_3\\
\mathbf{elif}\;t\_4 \leq 2.3:\\
\;\;\;\;\left(t\_1 + \left({\left(\sqrt{1 + z} + \sqrt{z}\right)}^{-1} + \sqrt{1 + y}\right)\right) - \left(\sqrt{y} + \sqrt{x}\right)\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\mathsf{fma}\left(0.5, x, 1 - \sqrt{x}\right) + \left(1 - \sqrt{y}\right)\right) + t\_2\right) + t\_3\\
\end{array}
\end{array}
if (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 1Initial program 81.3%
lift--.f64N/A
flip--N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f6481.3
lift-+.f64N/A
+-commutativeN/A
lower-+.f6481.3
Applied rewrites81.3%
Taylor expanded in y around inf
lower-/.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f6472.4
Applied rewrites72.4%
if 1 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 2.2999999999999998Initial program 95.5%
lift--.f64N/A
flip--N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lower--.f64N/A
+-commutativeN/A
lower-+.f6496.0
Applied rewrites96.0%
Taylor expanded in t around inf
lower--.f64N/A
Applied rewrites20.3%
if 2.2999999999999998 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) Initial program 97.1%
Taylor expanded in x around 0
+-commutativeN/A
associate--l+N/A
lower-fma.f64N/A
lower--.f64N/A
lower-sqrt.f6481.5
Applied rewrites81.5%
Taylor expanded in y around 0
lower--.f64N/A
lower-sqrt.f6460.4
Applied rewrites60.4%
Final simplification45.5%
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (- (sqrt (+ z 1.0)) (sqrt z)))
(t_2 (- (sqrt (+ t 1.0)) (sqrt t)))
(t_3
(+
(+
(+ (- (sqrt (+ x 1.0)) (sqrt x)) (- (sqrt (+ y 1.0)) (sqrt y)))
t_1)
t_2)))
(if (<= t_3 0.0)
(+ (+ (* (sqrt (pow x -1.0)) 0.5) t_1) t_2)
(if (<= t_3 1.999999)
(+
(-
(+ (pow (+ (sqrt (+ 1.0 y)) (sqrt y)) -1.0) (sqrt (+ 1.0 x)))
(sqrt x))
t_2)
(+ (+ (+ (fma 0.5 x (- 1.0 (sqrt x))) (- 1.0 (sqrt y))) t_1) t_2)))))assert(x < y && y < z && z < t);
double code(double x, double y, double z, double t) {
double t_1 = sqrt((z + 1.0)) - sqrt(z);
double t_2 = sqrt((t + 1.0)) - sqrt(t);
double t_3 = (((sqrt((x + 1.0)) - sqrt(x)) + (sqrt((y + 1.0)) - sqrt(y))) + t_1) + t_2;
double tmp;
if (t_3 <= 0.0) {
tmp = ((sqrt(pow(x, -1.0)) * 0.5) + t_1) + t_2;
} else if (t_3 <= 1.999999) {
tmp = ((pow((sqrt((1.0 + y)) + sqrt(y)), -1.0) + sqrt((1.0 + x))) - sqrt(x)) + t_2;
} else {
tmp = ((fma(0.5, x, (1.0 - sqrt(x))) + (1.0 - sqrt(y))) + t_1) + t_2;
}
return tmp;
}
x, y, z, t = sort([x, y, z, t]) function code(x, y, z, t) t_1 = Float64(sqrt(Float64(z + 1.0)) - sqrt(z)) t_2 = Float64(sqrt(Float64(t + 1.0)) - sqrt(t)) t_3 = Float64(Float64(Float64(Float64(sqrt(Float64(x + 1.0)) - sqrt(x)) + Float64(sqrt(Float64(y + 1.0)) - sqrt(y))) + t_1) + t_2) tmp = 0.0 if (t_3 <= 0.0) tmp = Float64(Float64(Float64(sqrt((x ^ -1.0)) * 0.5) + t_1) + t_2); elseif (t_3 <= 1.999999) tmp = Float64(Float64(Float64((Float64(sqrt(Float64(1.0 + y)) + sqrt(y)) ^ -1.0) + sqrt(Float64(1.0 + x))) - sqrt(x)) + t_2); else tmp = Float64(Float64(Float64(fma(0.5, x, Float64(1.0 - sqrt(x))) + Float64(1.0 - sqrt(y))) + t_1) + t_2); end return tmp end
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[Sqrt[N[(z + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[z], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[Sqrt[N[(t + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[t], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(N[(N[(N[Sqrt[N[(x + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[x], $MachinePrecision]), $MachinePrecision] + N[(N[Sqrt[N[(y + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$1), $MachinePrecision] + t$95$2), $MachinePrecision]}, If[LessEqual[t$95$3, 0.0], N[(N[(N[(N[Sqrt[N[Power[x, -1.0], $MachinePrecision]], $MachinePrecision] * 0.5), $MachinePrecision] + t$95$1), $MachinePrecision] + t$95$2), $MachinePrecision], If[LessEqual[t$95$3, 1.999999], N[(N[(N[(N[Power[N[(N[Sqrt[N[(1.0 + y), $MachinePrecision]], $MachinePrecision] + N[Sqrt[y], $MachinePrecision]), $MachinePrecision], -1.0], $MachinePrecision] + N[Sqrt[N[(1.0 + x), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] - N[Sqrt[x], $MachinePrecision]), $MachinePrecision] + t$95$2), $MachinePrecision], N[(N[(N[(N[(0.5 * x + N[(1.0 - N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(1.0 - N[Sqrt[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$1), $MachinePrecision] + t$95$2), $MachinePrecision]]]]]]
\begin{array}{l}
[x, y, z, t] = \mathsf{sort}([x, y, z, t])\\
\\
\begin{array}{l}
t_1 := \sqrt{z + 1} - \sqrt{z}\\
t_2 := \sqrt{t + 1} - \sqrt{t}\\
t_3 := \left(\left(\left(\sqrt{x + 1} - \sqrt{x}\right) + \left(\sqrt{y + 1} - \sqrt{y}\right)\right) + t\_1\right) + t\_2\\
\mathbf{if}\;t\_3 \leq 0:\\
\;\;\;\;\left(\sqrt{{x}^{-1}} \cdot 0.5 + t\_1\right) + t\_2\\
\mathbf{elif}\;t\_3 \leq 1.999999:\\
\;\;\;\;\left(\left({\left(\sqrt{1 + y} + \sqrt{y}\right)}^{-1} + \sqrt{1 + x}\right) - \sqrt{x}\right) + t\_2\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\mathsf{fma}\left(0.5, x, 1 - \sqrt{x}\right) + \left(1 - \sqrt{y}\right)\right) + t\_1\right) + t\_2\\
\end{array}
\end{array}
if (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 0.0Initial program 3.4%
lift--.f64N/A
flip--N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f643.4
lift-+.f64N/A
+-commutativeN/A
lower-+.f643.4
Applied rewrites3.4%
Taylor expanded in y around inf
lower-/.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f6439.6
Applied rewrites39.6%
Taylor expanded in x around inf
Applied rewrites39.6%
if 0.0 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 1.99999900000000008Initial program 95.3%
Taylor expanded in x around 0
+-commutativeN/A
associate--l+N/A
lower-fma.f64N/A
lower--.f64N/A
lower-sqrt.f6429.4
Applied rewrites29.4%
lift--.f64N/A
flip--N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lower--.f64N/A
+-commutativeN/A
lower-+.f6429.4
Applied rewrites29.4%
Taylor expanded in z around inf
lower--.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-/.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f6457.9
Applied rewrites57.9%
if 1.99999900000000008 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) Initial program 96.8%
Taylor expanded in x around 0
+-commutativeN/A
associate--l+N/A
lower-fma.f64N/A
lower--.f64N/A
lower-sqrt.f6463.6
Applied rewrites63.6%
Taylor expanded in y around 0
lower--.f64N/A
lower-sqrt.f6437.3
Applied rewrites37.3%
Final simplification42.6%
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (- (sqrt (+ z 1.0)) (sqrt z)))
(t_2 (- (sqrt (+ t 1.0)) (sqrt t)))
(t_3
(+
(+
(+ (- (sqrt (+ x 1.0)) (sqrt x)) (- (sqrt (+ y 1.0)) (sqrt y)))
t_1)
t_2)))
(if (<= t_3 0.2)
(+ (+ (* (sqrt (pow x -1.0)) 0.5) t_1) t_2)
(if (<= t_3 2.0001)
(+
(fma (fma -0.125 x 0.5) x 1.0)
(-
(fma (sqrt (pow z -1.0)) 0.5 (sqrt (+ 1.0 y)))
(+ (sqrt y) (sqrt x))))
(+ (+ (+ (fma 0.5 x (- 1.0 (sqrt x))) (- 1.0 (sqrt y))) t_1) t_2)))))assert(x < y && y < z && z < t);
double code(double x, double y, double z, double t) {
double t_1 = sqrt((z + 1.0)) - sqrt(z);
double t_2 = sqrt((t + 1.0)) - sqrt(t);
double t_3 = (((sqrt((x + 1.0)) - sqrt(x)) + (sqrt((y + 1.0)) - sqrt(y))) + t_1) + t_2;
double tmp;
if (t_3 <= 0.2) {
tmp = ((sqrt(pow(x, -1.0)) * 0.5) + t_1) + t_2;
} else if (t_3 <= 2.0001) {
tmp = fma(fma(-0.125, x, 0.5), x, 1.0) + (fma(sqrt(pow(z, -1.0)), 0.5, sqrt((1.0 + y))) - (sqrt(y) + sqrt(x)));
} else {
tmp = ((fma(0.5, x, (1.0 - sqrt(x))) + (1.0 - sqrt(y))) + t_1) + t_2;
}
return tmp;
}
x, y, z, t = sort([x, y, z, t]) function code(x, y, z, t) t_1 = Float64(sqrt(Float64(z + 1.0)) - sqrt(z)) t_2 = Float64(sqrt(Float64(t + 1.0)) - sqrt(t)) t_3 = Float64(Float64(Float64(Float64(sqrt(Float64(x + 1.0)) - sqrt(x)) + Float64(sqrt(Float64(y + 1.0)) - sqrt(y))) + t_1) + t_2) tmp = 0.0 if (t_3 <= 0.2) tmp = Float64(Float64(Float64(sqrt((x ^ -1.0)) * 0.5) + t_1) + t_2); elseif (t_3 <= 2.0001) tmp = Float64(fma(fma(-0.125, x, 0.5), x, 1.0) + Float64(fma(sqrt((z ^ -1.0)), 0.5, sqrt(Float64(1.0 + y))) - Float64(sqrt(y) + sqrt(x)))); else tmp = Float64(Float64(Float64(fma(0.5, x, Float64(1.0 - sqrt(x))) + Float64(1.0 - sqrt(y))) + t_1) + t_2); end return tmp end
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[Sqrt[N[(z + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[z], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[Sqrt[N[(t + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[t], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(N[(N[(N[Sqrt[N[(x + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[x], $MachinePrecision]), $MachinePrecision] + N[(N[Sqrt[N[(y + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$1), $MachinePrecision] + t$95$2), $MachinePrecision]}, If[LessEqual[t$95$3, 0.2], N[(N[(N[(N[Sqrt[N[Power[x, -1.0], $MachinePrecision]], $MachinePrecision] * 0.5), $MachinePrecision] + t$95$1), $MachinePrecision] + t$95$2), $MachinePrecision], If[LessEqual[t$95$3, 2.0001], N[(N[(N[(-0.125 * x + 0.5), $MachinePrecision] * x + 1.0), $MachinePrecision] + N[(N[(N[Sqrt[N[Power[z, -1.0], $MachinePrecision]], $MachinePrecision] * 0.5 + N[Sqrt[N[(1.0 + y), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] - N[(N[Sqrt[y], $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.5 * x + N[(1.0 - N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(1.0 - N[Sqrt[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$1), $MachinePrecision] + t$95$2), $MachinePrecision]]]]]]
\begin{array}{l}
[x, y, z, t] = \mathsf{sort}([x, y, z, t])\\
\\
\begin{array}{l}
t_1 := \sqrt{z + 1} - \sqrt{z}\\
t_2 := \sqrt{t + 1} - \sqrt{t}\\
t_3 := \left(\left(\left(\sqrt{x + 1} - \sqrt{x}\right) + \left(\sqrt{y + 1} - \sqrt{y}\right)\right) + t\_1\right) + t\_2\\
\mathbf{if}\;t\_3 \leq 0.2:\\
\;\;\;\;\left(\sqrt{{x}^{-1}} \cdot 0.5 + t\_1\right) + t\_2\\
\mathbf{elif}\;t\_3 \leq 2.0001:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(-0.125, x, 0.5\right), x, 1\right) + \left(\mathsf{fma}\left(\sqrt{{z}^{-1}}, 0.5, \sqrt{1 + y}\right) - \left(\sqrt{y} + \sqrt{x}\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\mathsf{fma}\left(0.5, x, 1 - \sqrt{x}\right) + \left(1 - \sqrt{y}\right)\right) + t\_1\right) + t\_2\\
\end{array}
\end{array}
if (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 0.20000000000000001Initial program 18.8%
lift--.f64N/A
flip--N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f6418.8
lift-+.f64N/A
+-commutativeN/A
lower-+.f6418.8
Applied rewrites18.8%
Taylor expanded in y around inf
lower-/.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f6449.0
Applied rewrites49.0%
Taylor expanded in x around inf
Applied rewrites49.0%
if 0.20000000000000001 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 2.00010000000000021Initial program 96.2%
Taylor expanded in t around inf
lower--.f64N/A
associate-+r+N/A
lower-+.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f643.6
Applied rewrites3.6%
Applied rewrites25.3%
Taylor expanded in x around 0
Applied rewrites21.5%
Taylor expanded in z around inf
Applied rewrites21.2%
if 2.00010000000000021 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) Initial program 96.8%
Taylor expanded in x around 0
+-commutativeN/A
associate--l+N/A
lower-fma.f64N/A
lower--.f64N/A
lower-sqrt.f6478.8
Applied rewrites78.8%
Taylor expanded in y around 0
lower--.f64N/A
lower-sqrt.f6457.6
Applied rewrites57.6%
Final simplification35.4%
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (sqrt (+ y 1.0)))
(t_2 (sqrt (+ z 1.0)))
(t_3 (- t_2 (sqrt z)))
(t_4 (- (sqrt (+ t 1.0)) (sqrt t)))
(t_5
(+ (+ (+ (- (sqrt (+ x 1.0)) (sqrt x)) (- t_1 (sqrt y))) t_3) t_4)))
(if (<= t_5 0.2)
(+ (+ (* (sqrt (pow x -1.0)) 0.5) t_3) t_4)
(if (<= t_5 3.0)
(+
(fma (fma -0.125 x 0.5) x 1.0)
(+ t_1 (- (- (sqrt (+ 1.0 z)) (sqrt z)) (+ (sqrt y) (sqrt x)))))
(+
1.0
(-
(+ (+ 1.0 (sqrt (+ 1.0 t))) t_2)
(+ (+ (+ (sqrt z) (sqrt y)) (sqrt x)) (sqrt t))))))))assert(x < y && y < z && z < t);
double code(double x, double y, double z, double t) {
double t_1 = sqrt((y + 1.0));
double t_2 = sqrt((z + 1.0));
double t_3 = t_2 - sqrt(z);
double t_4 = sqrt((t + 1.0)) - sqrt(t);
double t_5 = (((sqrt((x + 1.0)) - sqrt(x)) + (t_1 - sqrt(y))) + t_3) + t_4;
double tmp;
if (t_5 <= 0.2) {
tmp = ((sqrt(pow(x, -1.0)) * 0.5) + t_3) + t_4;
} else if (t_5 <= 3.0) {
tmp = fma(fma(-0.125, x, 0.5), x, 1.0) + (t_1 + ((sqrt((1.0 + z)) - sqrt(z)) - (sqrt(y) + sqrt(x))));
} else {
tmp = 1.0 + (((1.0 + sqrt((1.0 + t))) + t_2) - (((sqrt(z) + sqrt(y)) + sqrt(x)) + sqrt(t)));
}
return tmp;
}
x, y, z, t = sort([x, y, z, t]) function code(x, y, z, t) t_1 = sqrt(Float64(y + 1.0)) t_2 = sqrt(Float64(z + 1.0)) t_3 = Float64(t_2 - sqrt(z)) t_4 = Float64(sqrt(Float64(t + 1.0)) - sqrt(t)) t_5 = Float64(Float64(Float64(Float64(sqrt(Float64(x + 1.0)) - sqrt(x)) + Float64(t_1 - sqrt(y))) + t_3) + t_4) tmp = 0.0 if (t_5 <= 0.2) tmp = Float64(Float64(Float64(sqrt((x ^ -1.0)) * 0.5) + t_3) + t_4); elseif (t_5 <= 3.0) tmp = Float64(fma(fma(-0.125, x, 0.5), x, 1.0) + Float64(t_1 + Float64(Float64(sqrt(Float64(1.0 + z)) - sqrt(z)) - Float64(sqrt(y) + sqrt(x))))); else tmp = Float64(1.0 + Float64(Float64(Float64(1.0 + sqrt(Float64(1.0 + t))) + t_2) - Float64(Float64(Float64(sqrt(z) + sqrt(y)) + sqrt(x)) + sqrt(t)))); end return tmp end
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
code[x_, y_, z_, t_] := Block[{t$95$1 = N[Sqrt[N[(y + 1.0), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$2 = N[Sqrt[N[(z + 1.0), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$3 = N[(t$95$2 - N[Sqrt[z], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[Sqrt[N[(t + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[t], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(N[(N[(N[Sqrt[N[(x + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[x], $MachinePrecision]), $MachinePrecision] + N[(t$95$1 - N[Sqrt[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$3), $MachinePrecision] + t$95$4), $MachinePrecision]}, If[LessEqual[t$95$5, 0.2], N[(N[(N[(N[Sqrt[N[Power[x, -1.0], $MachinePrecision]], $MachinePrecision] * 0.5), $MachinePrecision] + t$95$3), $MachinePrecision] + t$95$4), $MachinePrecision], If[LessEqual[t$95$5, 3.0], N[(N[(N[(-0.125 * x + 0.5), $MachinePrecision] * x + 1.0), $MachinePrecision] + N[(t$95$1 + N[(N[(N[Sqrt[N[(1.0 + z), $MachinePrecision]], $MachinePrecision] - N[Sqrt[z], $MachinePrecision]), $MachinePrecision] - N[(N[Sqrt[y], $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(1.0 + N[(N[(N[(1.0 + N[Sqrt[N[(1.0 + t), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] + t$95$2), $MachinePrecision] - N[(N[(N[(N[Sqrt[z], $MachinePrecision] + N[Sqrt[y], $MachinePrecision]), $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision] + N[Sqrt[t], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]
\begin{array}{l}
[x, y, z, t] = \mathsf{sort}([x, y, z, t])\\
\\
\begin{array}{l}
t_1 := \sqrt{y + 1}\\
t_2 := \sqrt{z + 1}\\
t_3 := t\_2 - \sqrt{z}\\
t_4 := \sqrt{t + 1} - \sqrt{t}\\
t_5 := \left(\left(\left(\sqrt{x + 1} - \sqrt{x}\right) + \left(t\_1 - \sqrt{y}\right)\right) + t\_3\right) + t\_4\\
\mathbf{if}\;t\_5 \leq 0.2:\\
\;\;\;\;\left(\sqrt{{x}^{-1}} \cdot 0.5 + t\_3\right) + t\_4\\
\mathbf{elif}\;t\_5 \leq 3:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(-0.125, x, 0.5\right), x, 1\right) + \left(t\_1 + \left(\left(\sqrt{1 + z} - \sqrt{z}\right) - \left(\sqrt{y} + \sqrt{x}\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;1 + \left(\left(\left(1 + \sqrt{1 + t}\right) + t\_2\right) - \left(\left(\left(\sqrt{z} + \sqrt{y}\right) + \sqrt{x}\right) + \sqrt{t}\right)\right)\\
\end{array}
\end{array}
if (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 0.20000000000000001Initial program 18.8%
lift--.f64N/A
flip--N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f6418.8
lift-+.f64N/A
+-commutativeN/A
lower-+.f6418.8
Applied rewrites18.8%
Taylor expanded in y around inf
lower-/.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f6449.0
Applied rewrites49.0%
Taylor expanded in x around inf
Applied rewrites49.0%
if 0.20000000000000001 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 3Initial program 96.5%
Taylor expanded in t around inf
lower--.f64N/A
associate-+r+N/A
lower-+.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f6413.1
Applied rewrites13.1%
Applied rewrites30.0%
Taylor expanded in x around 0
Applied rewrites27.1%
if 3 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) Initial program 95.5%
Taylor expanded in t around inf
lower--.f64N/A
associate-+r+N/A
lower-+.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f6420.3
Applied rewrites20.3%
Taylor expanded in x around 0
associate--l+N/A
lower-+.f64N/A
lower--.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
Applied rewrites90.9%
Taylor expanded in y around 0
Applied rewrites79.8%
Final simplification32.5%
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (sqrt (+ y 1.0)))
(t_2 (sqrt (+ z 1.0)))
(t_3 (- t_2 (sqrt z)))
(t_4 (- (sqrt (+ t 1.0)) (sqrt t)))
(t_5
(+ (+ (+ (- (sqrt (+ x 1.0)) (sqrt x)) (- t_1 (sqrt y))) t_3) t_4)))
(if (<= t_5 0.2)
(+ (+ (* (sqrt (pow x -1.0)) 0.5) t_3) t_4)
(if (<= t_5 3.0)
(+
(fma (fma -0.125 x 0.5) x 1.0)
(+ t_1 (- (- (sqrt (+ 1.0 z)) (sqrt z)) (+ (sqrt y) (sqrt x)))))
(+
2.0
(-
(+ (sqrt (+ 1.0 t)) t_2)
(+ (+ (+ (sqrt z) (sqrt y)) (sqrt x)) (sqrt t))))))))assert(x < y && y < z && z < t);
double code(double x, double y, double z, double t) {
double t_1 = sqrt((y + 1.0));
double t_2 = sqrt((z + 1.0));
double t_3 = t_2 - sqrt(z);
double t_4 = sqrt((t + 1.0)) - sqrt(t);
double t_5 = (((sqrt((x + 1.0)) - sqrt(x)) + (t_1 - sqrt(y))) + t_3) + t_4;
double tmp;
if (t_5 <= 0.2) {
tmp = ((sqrt(pow(x, -1.0)) * 0.5) + t_3) + t_4;
} else if (t_5 <= 3.0) {
tmp = fma(fma(-0.125, x, 0.5), x, 1.0) + (t_1 + ((sqrt((1.0 + z)) - sqrt(z)) - (sqrt(y) + sqrt(x))));
} else {
tmp = 2.0 + ((sqrt((1.0 + t)) + t_2) - (((sqrt(z) + sqrt(y)) + sqrt(x)) + sqrt(t)));
}
return tmp;
}
x, y, z, t = sort([x, y, z, t]) function code(x, y, z, t) t_1 = sqrt(Float64(y + 1.0)) t_2 = sqrt(Float64(z + 1.0)) t_3 = Float64(t_2 - sqrt(z)) t_4 = Float64(sqrt(Float64(t + 1.0)) - sqrt(t)) t_5 = Float64(Float64(Float64(Float64(sqrt(Float64(x + 1.0)) - sqrt(x)) + Float64(t_1 - sqrt(y))) + t_3) + t_4) tmp = 0.0 if (t_5 <= 0.2) tmp = Float64(Float64(Float64(sqrt((x ^ -1.0)) * 0.5) + t_3) + t_4); elseif (t_5 <= 3.0) tmp = Float64(fma(fma(-0.125, x, 0.5), x, 1.0) + Float64(t_1 + Float64(Float64(sqrt(Float64(1.0 + z)) - sqrt(z)) - Float64(sqrt(y) + sqrt(x))))); else tmp = Float64(2.0 + Float64(Float64(sqrt(Float64(1.0 + t)) + t_2) - Float64(Float64(Float64(sqrt(z) + sqrt(y)) + sqrt(x)) + sqrt(t)))); end return tmp end
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
code[x_, y_, z_, t_] := Block[{t$95$1 = N[Sqrt[N[(y + 1.0), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$2 = N[Sqrt[N[(z + 1.0), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$3 = N[(t$95$2 - N[Sqrt[z], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[Sqrt[N[(t + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[t], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(N[(N[(N[Sqrt[N[(x + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[x], $MachinePrecision]), $MachinePrecision] + N[(t$95$1 - N[Sqrt[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$3), $MachinePrecision] + t$95$4), $MachinePrecision]}, If[LessEqual[t$95$5, 0.2], N[(N[(N[(N[Sqrt[N[Power[x, -1.0], $MachinePrecision]], $MachinePrecision] * 0.5), $MachinePrecision] + t$95$3), $MachinePrecision] + t$95$4), $MachinePrecision], If[LessEqual[t$95$5, 3.0], N[(N[(N[(-0.125 * x + 0.5), $MachinePrecision] * x + 1.0), $MachinePrecision] + N[(t$95$1 + N[(N[(N[Sqrt[N[(1.0 + z), $MachinePrecision]], $MachinePrecision] - N[Sqrt[z], $MachinePrecision]), $MachinePrecision] - N[(N[Sqrt[y], $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(2.0 + N[(N[(N[Sqrt[N[(1.0 + t), $MachinePrecision]], $MachinePrecision] + t$95$2), $MachinePrecision] - N[(N[(N[(N[Sqrt[z], $MachinePrecision] + N[Sqrt[y], $MachinePrecision]), $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision] + N[Sqrt[t], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]
\begin{array}{l}
[x, y, z, t] = \mathsf{sort}([x, y, z, t])\\
\\
\begin{array}{l}
t_1 := \sqrt{y + 1}\\
t_2 := \sqrt{z + 1}\\
t_3 := t\_2 - \sqrt{z}\\
t_4 := \sqrt{t + 1} - \sqrt{t}\\
t_5 := \left(\left(\left(\sqrt{x + 1} - \sqrt{x}\right) + \left(t\_1 - \sqrt{y}\right)\right) + t\_3\right) + t\_4\\
\mathbf{if}\;t\_5 \leq 0.2:\\
\;\;\;\;\left(\sqrt{{x}^{-1}} \cdot 0.5 + t\_3\right) + t\_4\\
\mathbf{elif}\;t\_5 \leq 3:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(-0.125, x, 0.5\right), x, 1\right) + \left(t\_1 + \left(\left(\sqrt{1 + z} - \sqrt{z}\right) - \left(\sqrt{y} + \sqrt{x}\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;2 + \left(\left(\sqrt{1 + t} + t\_2\right) - \left(\left(\left(\sqrt{z} + \sqrt{y}\right) + \sqrt{x}\right) + \sqrt{t}\right)\right)\\
\end{array}
\end{array}
if (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 0.20000000000000001Initial program 18.8%
lift--.f64N/A
flip--N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f6418.8
lift-+.f64N/A
+-commutativeN/A
lower-+.f6418.8
Applied rewrites18.8%
Taylor expanded in y around inf
lower-/.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f6449.0
Applied rewrites49.0%
Taylor expanded in x around inf
Applied rewrites49.0%
if 0.20000000000000001 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) < 3Initial program 96.5%
Taylor expanded in t around inf
lower--.f64N/A
associate-+r+N/A
lower-+.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f6413.1
Applied rewrites13.1%
Applied rewrites30.0%
Taylor expanded in x around 0
Applied rewrites27.1%
if 3 < (+.f64 (+.f64 (+.f64 (-.f64 (sqrt.f64 (+.f64 x #s(literal 1 binary64))) (sqrt.f64 x)) (-.f64 (sqrt.f64 (+.f64 y #s(literal 1 binary64))) (sqrt.f64 y))) (-.f64 (sqrt.f64 (+.f64 z #s(literal 1 binary64))) (sqrt.f64 z))) (-.f64 (sqrt.f64 (+.f64 t #s(literal 1 binary64))) (sqrt.f64 t))) Initial program 95.5%
Taylor expanded in t around inf
lower--.f64N/A
associate-+r+N/A
lower-+.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f6420.3
Applied rewrites20.3%
Taylor expanded in x around 0
associate--l+N/A
lower-+.f64N/A
lower--.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
Applied rewrites90.9%
Taylor expanded in y around 0
Applied rewrites79.7%
Final simplification32.5%
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (- (sqrt (+ z 1.0)) (sqrt z)))
(t_2 (- (sqrt (+ t 1.0)) (sqrt t))))
(if (<= y 7.8e+14)
(+
(+ (+ (fma 0.5 x (- 1.0 (sqrt x))) (- (sqrt (+ y 1.0)) (sqrt y))) t_1)
t_2)
(+ (+ (pow (+ (sqrt (+ 1.0 x)) (sqrt x)) -1.0) t_1) t_2))))assert(x < y && y < z && z < t);
double code(double x, double y, double z, double t) {
double t_1 = sqrt((z + 1.0)) - sqrt(z);
double t_2 = sqrt((t + 1.0)) - sqrt(t);
double tmp;
if (y <= 7.8e+14) {
tmp = ((fma(0.5, x, (1.0 - sqrt(x))) + (sqrt((y + 1.0)) - sqrt(y))) + t_1) + t_2;
} else {
tmp = (pow((sqrt((1.0 + x)) + sqrt(x)), -1.0) + t_1) + t_2;
}
return tmp;
}
x, y, z, t = sort([x, y, z, t]) function code(x, y, z, t) t_1 = Float64(sqrt(Float64(z + 1.0)) - sqrt(z)) t_2 = Float64(sqrt(Float64(t + 1.0)) - sqrt(t)) tmp = 0.0 if (y <= 7.8e+14) tmp = Float64(Float64(Float64(fma(0.5, x, Float64(1.0 - sqrt(x))) + Float64(sqrt(Float64(y + 1.0)) - sqrt(y))) + t_1) + t_2); else tmp = Float64(Float64((Float64(sqrt(Float64(1.0 + x)) + sqrt(x)) ^ -1.0) + t_1) + t_2); end return tmp end
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[Sqrt[N[(z + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[z], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[Sqrt[N[(t + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[t], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, 7.8e+14], N[(N[(N[(N[(0.5 * x + N[(1.0 - N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[Sqrt[N[(y + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$1), $MachinePrecision] + t$95$2), $MachinePrecision], N[(N[(N[Power[N[(N[Sqrt[N[(1.0 + x), $MachinePrecision]], $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision], -1.0], $MachinePrecision] + t$95$1), $MachinePrecision] + t$95$2), $MachinePrecision]]]]
\begin{array}{l}
[x, y, z, t] = \mathsf{sort}([x, y, z, t])\\
\\
\begin{array}{l}
t_1 := \sqrt{z + 1} - \sqrt{z}\\
t_2 := \sqrt{t + 1} - \sqrt{t}\\
\mathbf{if}\;y \leq 7.8 \cdot 10^{+14}:\\
\;\;\;\;\left(\left(\mathsf{fma}\left(0.5, x, 1 - \sqrt{x}\right) + \left(\sqrt{y + 1} - \sqrt{y}\right)\right) + t\_1\right) + t\_2\\
\mathbf{else}:\\
\;\;\;\;\left({\left(\sqrt{1 + x} + \sqrt{x}\right)}^{-1} + t\_1\right) + t\_2\\
\end{array}
\end{array}
if y < 7.8e14Initial program 96.9%
Taylor expanded in x around 0
+-commutativeN/A
associate--l+N/A
lower-fma.f64N/A
lower--.f64N/A
lower-sqrt.f6454.7
Applied rewrites54.7%
if 7.8e14 < y Initial program 88.0%
lift--.f64N/A
flip--N/A
lower-/.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
lower--.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f6488.4
lift-+.f64N/A
+-commutativeN/A
lower-+.f6488.4
Applied rewrites88.4%
Taylor expanded in y around inf
lower-/.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f6492.3
Applied rewrites92.3%
Final simplification72.3%
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
(FPCore (x y z t)
:precision binary64
(if (<= t 2.6e+17)
(+
2.0
(-
(+ (sqrt (+ 1.0 t)) (sqrt (+ z 1.0)))
(+ (+ (+ (sqrt z) (sqrt y)) (sqrt x)) (sqrt t))))
(+
(sqrt (+ x 1.0))
(+
(sqrt (+ y 1.0))
(- (- (sqrt (+ 1.0 z)) (sqrt z)) (+ (sqrt y) (sqrt x)))))))assert(x < y && y < z && z < t);
double code(double x, double y, double z, double t) {
double tmp;
if (t <= 2.6e+17) {
tmp = 2.0 + ((sqrt((1.0 + t)) + sqrt((z + 1.0))) - (((sqrt(z) + sqrt(y)) + sqrt(x)) + sqrt(t)));
} else {
tmp = sqrt((x + 1.0)) + (sqrt((y + 1.0)) + ((sqrt((1.0 + z)) - sqrt(z)) - (sqrt(y) + sqrt(x))));
}
return tmp;
}
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
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(x, y, z, t)
use fmin_fmax_functions
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if (t <= 2.6d+17) then
tmp = 2.0d0 + ((sqrt((1.0d0 + t)) + sqrt((z + 1.0d0))) - (((sqrt(z) + sqrt(y)) + sqrt(x)) + sqrt(t)))
else
tmp = sqrt((x + 1.0d0)) + (sqrt((y + 1.0d0)) + ((sqrt((1.0d0 + z)) - sqrt(z)) - (sqrt(y) + sqrt(x))))
end if
code = tmp
end function
assert x < y && y < z && z < t;
public static double code(double x, double y, double z, double t) {
double tmp;
if (t <= 2.6e+17) {
tmp = 2.0 + ((Math.sqrt((1.0 + t)) + Math.sqrt((z + 1.0))) - (((Math.sqrt(z) + Math.sqrt(y)) + Math.sqrt(x)) + Math.sqrt(t)));
} else {
tmp = Math.sqrt((x + 1.0)) + (Math.sqrt((y + 1.0)) + ((Math.sqrt((1.0 + z)) - Math.sqrt(z)) - (Math.sqrt(y) + Math.sqrt(x))));
}
return tmp;
}
[x, y, z, t] = sort([x, y, z, t]) def code(x, y, z, t): tmp = 0 if t <= 2.6e+17: tmp = 2.0 + ((math.sqrt((1.0 + t)) + math.sqrt((z + 1.0))) - (((math.sqrt(z) + math.sqrt(y)) + math.sqrt(x)) + math.sqrt(t))) else: tmp = math.sqrt((x + 1.0)) + (math.sqrt((y + 1.0)) + ((math.sqrt((1.0 + z)) - math.sqrt(z)) - (math.sqrt(y) + math.sqrt(x)))) return tmp
x, y, z, t = sort([x, y, z, t]) function code(x, y, z, t) tmp = 0.0 if (t <= 2.6e+17) tmp = Float64(2.0 + Float64(Float64(sqrt(Float64(1.0 + t)) + sqrt(Float64(z + 1.0))) - Float64(Float64(Float64(sqrt(z) + sqrt(y)) + sqrt(x)) + sqrt(t)))); else tmp = Float64(sqrt(Float64(x + 1.0)) + Float64(sqrt(Float64(y + 1.0)) + Float64(Float64(sqrt(Float64(1.0 + z)) - sqrt(z)) - Float64(sqrt(y) + sqrt(x))))); end return tmp end
x, y, z, t = num2cell(sort([x, y, z, t])){:}
function tmp_2 = code(x, y, z, t)
tmp = 0.0;
if (t <= 2.6e+17)
tmp = 2.0 + ((sqrt((1.0 + t)) + sqrt((z + 1.0))) - (((sqrt(z) + sqrt(y)) + sqrt(x)) + sqrt(t)));
else
tmp = sqrt((x + 1.0)) + (sqrt((y + 1.0)) + ((sqrt((1.0 + z)) - sqrt(z)) - (sqrt(y) + sqrt(x))));
end
tmp_2 = tmp;
end
NOTE: x, y, z, and t should be sorted in increasing order before calling this function. code[x_, y_, z_, t_] := If[LessEqual[t, 2.6e+17], N[(2.0 + N[(N[(N[Sqrt[N[(1.0 + t), $MachinePrecision]], $MachinePrecision] + N[Sqrt[N[(z + 1.0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] - N[(N[(N[(N[Sqrt[z], $MachinePrecision] + N[Sqrt[y], $MachinePrecision]), $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision] + N[Sqrt[t], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[Sqrt[N[(x + 1.0), $MachinePrecision]], $MachinePrecision] + N[(N[Sqrt[N[(y + 1.0), $MachinePrecision]], $MachinePrecision] + N[(N[(N[Sqrt[N[(1.0 + z), $MachinePrecision]], $MachinePrecision] - N[Sqrt[z], $MachinePrecision]), $MachinePrecision] - N[(N[Sqrt[y], $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
[x, y, z, t] = \mathsf{sort}([x, y, z, t])\\
\\
\begin{array}{l}
\mathbf{if}\;t \leq 2.6 \cdot 10^{+17}:\\
\;\;\;\;2 + \left(\left(\sqrt{1 + t} + \sqrt{z + 1}\right) - \left(\left(\left(\sqrt{z} + \sqrt{y}\right) + \sqrt{x}\right) + \sqrt{t}\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\sqrt{x + 1} + \left(\sqrt{y + 1} + \left(\left(\sqrt{1 + z} - \sqrt{z}\right) - \left(\sqrt{y} + \sqrt{x}\right)\right)\right)\\
\end{array}
\end{array}
if t < 2.6e17Initial program 95.2%
Taylor expanded in t around inf
lower--.f64N/A
associate-+r+N/A
lower-+.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f646.5
Applied rewrites6.5%
Taylor expanded in x around 0
associate--l+N/A
lower-+.f64N/A
lower--.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
Applied rewrites27.6%
Taylor expanded in y around 0
Applied rewrites23.9%
if 2.6e17 < t Initial program 89.3%
Taylor expanded in t around inf
lower--.f64N/A
associate-+r+N/A
lower-+.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f6422.7
Applied rewrites22.7%
Applied rewrites49.6%
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
(FPCore (x y z t)
:precision binary64
(if (<= t 2.6e+17)
(+
2.0
(-
(+ (sqrt (+ 1.0 t)) (sqrt (+ z 1.0)))
(+ (+ (+ (sqrt z) (sqrt y)) (sqrt x)) (sqrt t))))
(+
1.0
(+
(sqrt (+ y 1.0))
(- (- (sqrt (+ 1.0 z)) (sqrt z)) (+ (sqrt y) (sqrt x)))))))assert(x < y && y < z && z < t);
double code(double x, double y, double z, double t) {
double tmp;
if (t <= 2.6e+17) {
tmp = 2.0 + ((sqrt((1.0 + t)) + sqrt((z + 1.0))) - (((sqrt(z) + sqrt(y)) + sqrt(x)) + sqrt(t)));
} else {
tmp = 1.0 + (sqrt((y + 1.0)) + ((sqrt((1.0 + z)) - sqrt(z)) - (sqrt(y) + sqrt(x))));
}
return tmp;
}
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
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(x, y, z, t)
use fmin_fmax_functions
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if (t <= 2.6d+17) then
tmp = 2.0d0 + ((sqrt((1.0d0 + t)) + sqrt((z + 1.0d0))) - (((sqrt(z) + sqrt(y)) + sqrt(x)) + sqrt(t)))
else
tmp = 1.0d0 + (sqrt((y + 1.0d0)) + ((sqrt((1.0d0 + z)) - sqrt(z)) - (sqrt(y) + sqrt(x))))
end if
code = tmp
end function
assert x < y && y < z && z < t;
public static double code(double x, double y, double z, double t) {
double tmp;
if (t <= 2.6e+17) {
tmp = 2.0 + ((Math.sqrt((1.0 + t)) + Math.sqrt((z + 1.0))) - (((Math.sqrt(z) + Math.sqrt(y)) + Math.sqrt(x)) + Math.sqrt(t)));
} else {
tmp = 1.0 + (Math.sqrt((y + 1.0)) + ((Math.sqrt((1.0 + z)) - Math.sqrt(z)) - (Math.sqrt(y) + Math.sqrt(x))));
}
return tmp;
}
[x, y, z, t] = sort([x, y, z, t]) def code(x, y, z, t): tmp = 0 if t <= 2.6e+17: tmp = 2.0 + ((math.sqrt((1.0 + t)) + math.sqrt((z + 1.0))) - (((math.sqrt(z) + math.sqrt(y)) + math.sqrt(x)) + math.sqrt(t))) else: tmp = 1.0 + (math.sqrt((y + 1.0)) + ((math.sqrt((1.0 + z)) - math.sqrt(z)) - (math.sqrt(y) + math.sqrt(x)))) return tmp
x, y, z, t = sort([x, y, z, t]) function code(x, y, z, t) tmp = 0.0 if (t <= 2.6e+17) tmp = Float64(2.0 + Float64(Float64(sqrt(Float64(1.0 + t)) + sqrt(Float64(z + 1.0))) - Float64(Float64(Float64(sqrt(z) + sqrt(y)) + sqrt(x)) + sqrt(t)))); else tmp = Float64(1.0 + Float64(sqrt(Float64(y + 1.0)) + Float64(Float64(sqrt(Float64(1.0 + z)) - sqrt(z)) - Float64(sqrt(y) + sqrt(x))))); end return tmp end
x, y, z, t = num2cell(sort([x, y, z, t])){:}
function tmp_2 = code(x, y, z, t)
tmp = 0.0;
if (t <= 2.6e+17)
tmp = 2.0 + ((sqrt((1.0 + t)) + sqrt((z + 1.0))) - (((sqrt(z) + sqrt(y)) + sqrt(x)) + sqrt(t)));
else
tmp = 1.0 + (sqrt((y + 1.0)) + ((sqrt((1.0 + z)) - sqrt(z)) - (sqrt(y) + sqrt(x))));
end
tmp_2 = tmp;
end
NOTE: x, y, z, and t should be sorted in increasing order before calling this function. code[x_, y_, z_, t_] := If[LessEqual[t, 2.6e+17], N[(2.0 + N[(N[(N[Sqrt[N[(1.0 + t), $MachinePrecision]], $MachinePrecision] + N[Sqrt[N[(z + 1.0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] - N[(N[(N[(N[Sqrt[z], $MachinePrecision] + N[Sqrt[y], $MachinePrecision]), $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision] + N[Sqrt[t], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(1.0 + N[(N[Sqrt[N[(y + 1.0), $MachinePrecision]], $MachinePrecision] + N[(N[(N[Sqrt[N[(1.0 + z), $MachinePrecision]], $MachinePrecision] - N[Sqrt[z], $MachinePrecision]), $MachinePrecision] - N[(N[Sqrt[y], $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
[x, y, z, t] = \mathsf{sort}([x, y, z, t])\\
\\
\begin{array}{l}
\mathbf{if}\;t \leq 2.6 \cdot 10^{+17}:\\
\;\;\;\;2 + \left(\left(\sqrt{1 + t} + \sqrt{z + 1}\right) - \left(\left(\left(\sqrt{z} + \sqrt{y}\right) + \sqrt{x}\right) + \sqrt{t}\right)\right)\\
\mathbf{else}:\\
\;\;\;\;1 + \left(\sqrt{y + 1} + \left(\left(\sqrt{1 + z} - \sqrt{z}\right) - \left(\sqrt{y} + \sqrt{x}\right)\right)\right)\\
\end{array}
\end{array}
if t < 2.6e17Initial program 95.2%
Taylor expanded in t around inf
lower--.f64N/A
associate-+r+N/A
lower-+.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f646.5
Applied rewrites6.5%
Taylor expanded in x around 0
associate--l+N/A
lower-+.f64N/A
lower--.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
Applied rewrites27.6%
Taylor expanded in y around 0
Applied rewrites23.9%
if 2.6e17 < t Initial program 89.3%
Taylor expanded in t around inf
lower--.f64N/A
associate-+r+N/A
lower-+.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f6422.7
Applied rewrites22.7%
Applied rewrites49.6%
Taylor expanded in x around 0
Applied rewrites47.9%
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
(FPCore (x y z t)
:precision binary64
(if (<= z 3600000000000.0)
(+
(fma (fma -0.125 x 0.5) x 1.0)
(- (+ (sqrt (+ z 1.0)) 1.0) (+ (+ (sqrt z) (sqrt y)) (sqrt x))))
(+ (sqrt (+ x 1.0)) (- (sqrt (+ y 1.0)) (+ (sqrt y) (sqrt x))))))assert(x < y && y < z && z < t);
double code(double x, double y, double z, double t) {
double tmp;
if (z <= 3600000000000.0) {
tmp = fma(fma(-0.125, x, 0.5), x, 1.0) + ((sqrt((z + 1.0)) + 1.0) - ((sqrt(z) + sqrt(y)) + sqrt(x)));
} else {
tmp = sqrt((x + 1.0)) + (sqrt((y + 1.0)) - (sqrt(y) + sqrt(x)));
}
return tmp;
}
x, y, z, t = sort([x, y, z, t]) function code(x, y, z, t) tmp = 0.0 if (z <= 3600000000000.0) tmp = Float64(fma(fma(-0.125, x, 0.5), x, 1.0) + Float64(Float64(sqrt(Float64(z + 1.0)) + 1.0) - Float64(Float64(sqrt(z) + sqrt(y)) + sqrt(x)))); else tmp = Float64(sqrt(Float64(x + 1.0)) + Float64(sqrt(Float64(y + 1.0)) - Float64(sqrt(y) + sqrt(x)))); end return tmp end
NOTE: x, y, z, and t should be sorted in increasing order before calling this function. code[x_, y_, z_, t_] := If[LessEqual[z, 3600000000000.0], N[(N[(N[(-0.125 * x + 0.5), $MachinePrecision] * x + 1.0), $MachinePrecision] + N[(N[(N[Sqrt[N[(z + 1.0), $MachinePrecision]], $MachinePrecision] + 1.0), $MachinePrecision] - N[(N[(N[Sqrt[z], $MachinePrecision] + N[Sqrt[y], $MachinePrecision]), $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[Sqrt[N[(x + 1.0), $MachinePrecision]], $MachinePrecision] + N[(N[Sqrt[N[(y + 1.0), $MachinePrecision]], $MachinePrecision] - N[(N[Sqrt[y], $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
[x, y, z, t] = \mathsf{sort}([x, y, z, t])\\
\\
\begin{array}{l}
\mathbf{if}\;z \leq 3600000000000:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(-0.125, x, 0.5\right), x, 1\right) + \left(\left(\sqrt{z + 1} + 1\right) - \left(\left(\sqrt{z} + \sqrt{y}\right) + \sqrt{x}\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\sqrt{x + 1} + \left(\sqrt{y + 1} - \left(\sqrt{y} + \sqrt{x}\right)\right)\\
\end{array}
\end{array}
if z < 3.6e12Initial program 95.9%
Taylor expanded in t around inf
lower--.f64N/A
associate-+r+N/A
lower-+.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f6422.2
Applied rewrites22.2%
Applied rewrites26.1%
Taylor expanded in x around 0
Applied rewrites23.7%
Taylor expanded in y around 0
Applied rewrites18.0%
if 3.6e12 < z Initial program 89.3%
Taylor expanded in t around inf
lower--.f64N/A
associate-+r+N/A
lower-+.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f643.3
Applied rewrites3.3%
Applied rewrites30.2%
Taylor expanded in z around inf
Applied rewrites30.2%
NOTE: x, y, z, and t should be sorted in increasing order before calling this function. (FPCore (x y z t) :precision binary64 (+ 1.0 (+ (sqrt (+ y 1.0)) (- (- (sqrt (+ 1.0 z)) (sqrt z)) (+ (sqrt y) (sqrt x))))))
assert(x < y && y < z && z < t);
double code(double x, double y, double z, double t) {
return 1.0 + (sqrt((y + 1.0)) + ((sqrt((1.0 + z)) - sqrt(z)) - (sqrt(y) + sqrt(x))));
}
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
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(x, y, z, t)
use fmin_fmax_functions
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = 1.0d0 + (sqrt((y + 1.0d0)) + ((sqrt((1.0d0 + z)) - sqrt(z)) - (sqrt(y) + sqrt(x))))
end function
assert x < y && y < z && z < t;
public static double code(double x, double y, double z, double t) {
return 1.0 + (Math.sqrt((y + 1.0)) + ((Math.sqrt((1.0 + z)) - Math.sqrt(z)) - (Math.sqrt(y) + Math.sqrt(x))));
}
[x, y, z, t] = sort([x, y, z, t]) def code(x, y, z, t): return 1.0 + (math.sqrt((y + 1.0)) + ((math.sqrt((1.0 + z)) - math.sqrt(z)) - (math.sqrt(y) + math.sqrt(x))))
x, y, z, t = sort([x, y, z, t]) function code(x, y, z, t) return Float64(1.0 + Float64(sqrt(Float64(y + 1.0)) + Float64(Float64(sqrt(Float64(1.0 + z)) - sqrt(z)) - Float64(sqrt(y) + sqrt(x))))) end
x, y, z, t = num2cell(sort([x, y, z, t])){:}
function tmp = code(x, y, z, t)
tmp = 1.0 + (sqrt((y + 1.0)) + ((sqrt((1.0 + z)) - sqrt(z)) - (sqrt(y) + sqrt(x))));
end
NOTE: x, y, z, and t should be sorted in increasing order before calling this function. code[x_, y_, z_, t_] := N[(1.0 + N[(N[Sqrt[N[(y + 1.0), $MachinePrecision]], $MachinePrecision] + N[(N[(N[Sqrt[N[(1.0 + z), $MachinePrecision]], $MachinePrecision] - N[Sqrt[z], $MachinePrecision]), $MachinePrecision] - N[(N[Sqrt[y], $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
[x, y, z, t] = \mathsf{sort}([x, y, z, t])\\
\\
1 + \left(\sqrt{y + 1} + \left(\left(\sqrt{1 + z} - \sqrt{z}\right) - \left(\sqrt{y} + \sqrt{x}\right)\right)\right)
\end{array}
Initial program 92.8%
Taylor expanded in t around inf
lower--.f64N/A
associate-+r+N/A
lower-+.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f6413.2
Applied rewrites13.2%
Applied rewrites28.1%
Taylor expanded in x around 0
Applied rewrites27.9%
NOTE: x, y, z, and t should be sorted in increasing order before calling this function. (FPCore (x y z t) :precision binary64 (+ (sqrt (+ x 1.0)) (- (sqrt (+ y 1.0)) (+ (sqrt y) (sqrt x)))))
assert(x < y && y < z && z < t);
double code(double x, double y, double z, double t) {
return sqrt((x + 1.0)) + (sqrt((y + 1.0)) - (sqrt(y) + sqrt(x)));
}
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
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(x, y, z, t)
use fmin_fmax_functions
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = sqrt((x + 1.0d0)) + (sqrt((y + 1.0d0)) - (sqrt(y) + sqrt(x)))
end function
assert x < y && y < z && z < t;
public static double code(double x, double y, double z, double t) {
return Math.sqrt((x + 1.0)) + (Math.sqrt((y + 1.0)) - (Math.sqrt(y) + Math.sqrt(x)));
}
[x, y, z, t] = sort([x, y, z, t]) def code(x, y, z, t): return math.sqrt((x + 1.0)) + (math.sqrt((y + 1.0)) - (math.sqrt(y) + math.sqrt(x)))
x, y, z, t = sort([x, y, z, t]) function code(x, y, z, t) return Float64(sqrt(Float64(x + 1.0)) + Float64(sqrt(Float64(y + 1.0)) - Float64(sqrt(y) + sqrt(x)))) end
x, y, z, t = num2cell(sort([x, y, z, t])){:}
function tmp = code(x, y, z, t)
tmp = sqrt((x + 1.0)) + (sqrt((y + 1.0)) - (sqrt(y) + sqrt(x)));
end
NOTE: x, y, z, and t should be sorted in increasing order before calling this function. code[x_, y_, z_, t_] := N[(N[Sqrt[N[(x + 1.0), $MachinePrecision]], $MachinePrecision] + N[(N[Sqrt[N[(y + 1.0), $MachinePrecision]], $MachinePrecision] - N[(N[Sqrt[y], $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
[x, y, z, t] = \mathsf{sort}([x, y, z, t])\\
\\
\sqrt{x + 1} + \left(\sqrt{y + 1} - \left(\sqrt{y} + \sqrt{x}\right)\right)
\end{array}
Initial program 92.8%
Taylor expanded in t around inf
lower--.f64N/A
associate-+r+N/A
lower-+.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f6413.2
Applied rewrites13.2%
Applied rewrites28.1%
Taylor expanded in z around inf
Applied rewrites21.1%
NOTE: x, y, z, and t should be sorted in increasing order before calling this function. (FPCore (x y z t) :precision binary64 (+ (fma (fma -0.125 x 0.5) x 1.0) (- (sqrt (+ 1.0 y)) (+ (sqrt y) (sqrt x)))))
assert(x < y && y < z && z < t);
double code(double x, double y, double z, double t) {
return fma(fma(-0.125, x, 0.5), x, 1.0) + (sqrt((1.0 + y)) - (sqrt(y) + sqrt(x)));
}
x, y, z, t = sort([x, y, z, t]) function code(x, y, z, t) return Float64(fma(fma(-0.125, x, 0.5), x, 1.0) + Float64(sqrt(Float64(1.0 + y)) - Float64(sqrt(y) + sqrt(x)))) end
NOTE: x, y, z, and t should be sorted in increasing order before calling this function. code[x_, y_, z_, t_] := N[(N[(N[(-0.125 * x + 0.5), $MachinePrecision] * x + 1.0), $MachinePrecision] + N[(N[Sqrt[N[(1.0 + y), $MachinePrecision]], $MachinePrecision] - N[(N[Sqrt[y], $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
[x, y, z, t] = \mathsf{sort}([x, y, z, t])\\
\\
\mathsf{fma}\left(\mathsf{fma}\left(-0.125, x, 0.5\right), x, 1\right) + \left(\sqrt{1 + y} - \left(\sqrt{y} + \sqrt{x}\right)\right)
\end{array}
Initial program 92.8%
Taylor expanded in t around inf
lower--.f64N/A
associate-+r+N/A
lower-+.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f6413.2
Applied rewrites13.2%
Applied rewrites28.1%
Taylor expanded in x around 0
Applied rewrites25.3%
Taylor expanded in z around inf
Applied rewrites18.6%
NOTE: x, y, z, and t should be sorted in increasing order before calling this function. (FPCore (x y z t) :precision binary64 (- (sqrt z) (+ (+ (sqrt z) (sqrt y)) (sqrt x))))
assert(x < y && y < z && z < t);
double code(double x, double y, double z, double t) {
return sqrt(z) - ((sqrt(z) + sqrt(y)) + sqrt(x));
}
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
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(x, y, z, t)
use fmin_fmax_functions
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = sqrt(z) - ((sqrt(z) + sqrt(y)) + sqrt(x))
end function
assert x < y && y < z && z < t;
public static double code(double x, double y, double z, double t) {
return Math.sqrt(z) - ((Math.sqrt(z) + Math.sqrt(y)) + Math.sqrt(x));
}
[x, y, z, t] = sort([x, y, z, t]) def code(x, y, z, t): return math.sqrt(z) - ((math.sqrt(z) + math.sqrt(y)) + math.sqrt(x))
x, y, z, t = sort([x, y, z, t]) function code(x, y, z, t) return Float64(sqrt(z) - Float64(Float64(sqrt(z) + sqrt(y)) + sqrt(x))) end
x, y, z, t = num2cell(sort([x, y, z, t])){:}
function tmp = code(x, y, z, t)
tmp = sqrt(z) - ((sqrt(z) + sqrt(y)) + sqrt(x));
end
NOTE: x, y, z, and t should be sorted in increasing order before calling this function. code[x_, y_, z_, t_] := N[(N[Sqrt[z], $MachinePrecision] - N[(N[(N[Sqrt[z], $MachinePrecision] + N[Sqrt[y], $MachinePrecision]), $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
[x, y, z, t] = \mathsf{sort}([x, y, z, t])\\
\\
\sqrt{z} - \left(\left(\sqrt{z} + \sqrt{y}\right) + \sqrt{x}\right)
\end{array}
Initial program 92.8%
Taylor expanded in t around inf
lower--.f64N/A
associate-+r+N/A
lower-+.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f6413.2
Applied rewrites13.2%
Taylor expanded in z around inf
Applied rewrites1.8%
NOTE: x, y, z, and t should be sorted in increasing order before calling this function. (FPCore (x y z t) :precision binary64 (- (sqrt x)))
assert(x < y && y < z && z < t);
double code(double x, double y, double z, double t) {
return -sqrt(x);
}
NOTE: x, y, z, and t should be sorted in increasing order before calling this function.
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(x, y, z, t)
use fmin_fmax_functions
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = -sqrt(x)
end function
assert x < y && y < z && z < t;
public static double code(double x, double y, double z, double t) {
return -Math.sqrt(x);
}
[x, y, z, t] = sort([x, y, z, t]) def code(x, y, z, t): return -math.sqrt(x)
x, y, z, t = sort([x, y, z, t]) function code(x, y, z, t) return Float64(-sqrt(x)) end
x, y, z, t = num2cell(sort([x, y, z, t])){:}
function tmp = code(x, y, z, t)
tmp = -sqrt(x);
end
NOTE: x, y, z, and t should be sorted in increasing order before calling this function. code[x_, y_, z_, t_] := (-N[Sqrt[x], $MachinePrecision])
\begin{array}{l}
[x, y, z, t] = \mathsf{sort}([x, y, z, t])\\
\\
-\sqrt{x}
\end{array}
Initial program 92.8%
Taylor expanded in t around inf
lower--.f64N/A
associate-+r+N/A
lower-+.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f64N/A
lower-sqrt.f6413.2
Applied rewrites13.2%
Taylor expanded in x around 0
associate--l+N/A
lower-+.f64N/A
lower--.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-+.f64N/A
Applied rewrites30.5%
Taylor expanded in x around inf
Applied rewrites1.6%
(FPCore (x y z t)
:precision binary64
(+
(+
(+
(/ 1.0 (+ (sqrt (+ x 1.0)) (sqrt x)))
(/ 1.0 (+ (sqrt (+ y 1.0)) (sqrt y))))
(/ 1.0 (+ (sqrt (+ z 1.0)) (sqrt z))))
(- (sqrt (+ t 1.0)) (sqrt t))))
double code(double x, double y, double z, double t) {
return (((1.0 / (sqrt((x + 1.0)) + sqrt(x))) + (1.0 / (sqrt((y + 1.0)) + sqrt(y)))) + (1.0 / (sqrt((z + 1.0)) + sqrt(z)))) + (sqrt((t + 1.0)) - sqrt(t));
}
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(x, y, z, t)
use fmin_fmax_functions
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = (((1.0d0 / (sqrt((x + 1.0d0)) + sqrt(x))) + (1.0d0 / (sqrt((y + 1.0d0)) + sqrt(y)))) + (1.0d0 / (sqrt((z + 1.0d0)) + sqrt(z)))) + (sqrt((t + 1.0d0)) - sqrt(t))
end function
public static double code(double x, double y, double z, double t) {
return (((1.0 / (Math.sqrt((x + 1.0)) + Math.sqrt(x))) + (1.0 / (Math.sqrt((y + 1.0)) + Math.sqrt(y)))) + (1.0 / (Math.sqrt((z + 1.0)) + Math.sqrt(z)))) + (Math.sqrt((t + 1.0)) - Math.sqrt(t));
}
def code(x, y, z, t): return (((1.0 / (math.sqrt((x + 1.0)) + math.sqrt(x))) + (1.0 / (math.sqrt((y + 1.0)) + math.sqrt(y)))) + (1.0 / (math.sqrt((z + 1.0)) + math.sqrt(z)))) + (math.sqrt((t + 1.0)) - math.sqrt(t))
function code(x, y, z, t) return Float64(Float64(Float64(Float64(1.0 / Float64(sqrt(Float64(x + 1.0)) + sqrt(x))) + Float64(1.0 / Float64(sqrt(Float64(y + 1.0)) + sqrt(y)))) + Float64(1.0 / Float64(sqrt(Float64(z + 1.0)) + sqrt(z)))) + Float64(sqrt(Float64(t + 1.0)) - sqrt(t))) end
function tmp = code(x, y, z, t) tmp = (((1.0 / (sqrt((x + 1.0)) + sqrt(x))) + (1.0 / (sqrt((y + 1.0)) + sqrt(y)))) + (1.0 / (sqrt((z + 1.0)) + sqrt(z)))) + (sqrt((t + 1.0)) - sqrt(t)); end
code[x_, y_, z_, t_] := N[(N[(N[(N[(1.0 / N[(N[Sqrt[N[(x + 1.0), $MachinePrecision]], $MachinePrecision] + N[Sqrt[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(1.0 / N[(N[Sqrt[N[(y + 1.0), $MachinePrecision]], $MachinePrecision] + N[Sqrt[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(1.0 / N[(N[Sqrt[N[(z + 1.0), $MachinePrecision]], $MachinePrecision] + N[Sqrt[z], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[Sqrt[N[(t + 1.0), $MachinePrecision]], $MachinePrecision] - N[Sqrt[t], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(\left(\frac{1}{\sqrt{x + 1} + \sqrt{x}} + \frac{1}{\sqrt{y + 1} + \sqrt{y}}\right) + \frac{1}{\sqrt{z + 1} + \sqrt{z}}\right) + \left(\sqrt{t + 1} - \sqrt{t}\right)
\end{array}
herbie shell --seed 2024364
(FPCore (x y z t)
:name "Main:z from "
:precision binary64
:alt
(! :herbie-platform default (+ (+ (+ (/ 1 (+ (sqrt (+ x 1)) (sqrt x))) (/ 1 (+ (sqrt (+ y 1)) (sqrt y)))) (/ 1 (+ (sqrt (+ z 1)) (sqrt z)))) (- (sqrt (+ t 1)) (sqrt t))))
(+ (+ (+ (- (sqrt (+ x 1.0)) (sqrt x)) (- (sqrt (+ y 1.0)) (sqrt y))) (- (sqrt (+ z 1.0)) (sqrt z))) (- (sqrt (+ t 1.0)) (sqrt t))))