
(FPCore (x) :precision binary64 (* (sqrt (- x 1.0)) (sqrt x)))
double code(double x) {
return sqrt((x - 1.0)) * sqrt(x);
}
real(8) function code(x)
use fmin_fmax_functions
real(8), intent (in) :: x
code = sqrt((x - 1.0d0)) * sqrt(x)
end function
public static double code(double x) {
return Math.sqrt((x - 1.0)) * Math.sqrt(x);
}
def code(x): return math.sqrt((x - 1.0)) * math.sqrt(x)
function code(x) return Float64(sqrt(Float64(x - 1.0)) * sqrt(x)) end
function tmp = code(x) tmp = sqrt((x - 1.0)) * sqrt(x); end
code[x_] := N[(N[Sqrt[N[(x - 1.0), $MachinePrecision]], $MachinePrecision] * N[Sqrt[x], $MachinePrecision]), $MachinePrecision]
\sqrt{x - 1} \cdot \sqrt{x}
Herbie found 5 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x) :precision binary64 (* (sqrt (- x 1.0)) (sqrt x)))
double code(double x) {
return sqrt((x - 1.0)) * sqrt(x);
}
real(8) function code(x)
use fmin_fmax_functions
real(8), intent (in) :: x
code = sqrt((x - 1.0d0)) * sqrt(x)
end function
public static double code(double x) {
return Math.sqrt((x - 1.0)) * Math.sqrt(x);
}
def code(x): return math.sqrt((x - 1.0)) * math.sqrt(x)
function code(x) return Float64(sqrt(Float64(x - 1.0)) * sqrt(x)) end
function tmp = code(x) tmp = sqrt((x - 1.0)) * sqrt(x); end
code[x_] := N[(N[Sqrt[N[(x - 1.0), $MachinePrecision]], $MachinePrecision] * N[Sqrt[x], $MachinePrecision]), $MachinePrecision]
\sqrt{x - 1} \cdot \sqrt{x}
(FPCore (x) :precision binary64 (* (sqrt (/ 1.0 (pow (- x 1.0) -1.0))) (sqrt x)))
double code(double x) {
return sqrt((1.0 / pow((x - 1.0), -1.0))) * sqrt(x);
}
real(8) function code(x)
use fmin_fmax_functions
real(8), intent (in) :: x
code = sqrt((1.0d0 / ((x - 1.0d0) ** (-1.0d0)))) * sqrt(x)
end function
public static double code(double x) {
return Math.sqrt((1.0 / Math.pow((x - 1.0), -1.0))) * Math.sqrt(x);
}
def code(x): return math.sqrt((1.0 / math.pow((x - 1.0), -1.0))) * math.sqrt(x)
function code(x) return Float64(sqrt(Float64(1.0 / (Float64(x - 1.0) ^ -1.0))) * sqrt(x)) end
function tmp = code(x) tmp = sqrt((1.0 / ((x - 1.0) ^ -1.0))) * sqrt(x); end
code[x_] := N[(N[Sqrt[N[(1.0 / N[Power[N[(x - 1.0), $MachinePrecision], -1.0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[Sqrt[x], $MachinePrecision]), $MachinePrecision]
\sqrt{\frac{1}{{\left(x - 1\right)}^{-1}}} \cdot \sqrt{x}
Initial program 99.2%
unpow1N/A
remove-double-negN/A
pow-negN/A
remove-sound-/N/A
lower-/.f64N/A
remove-sound-powN/A
lower-pow.f64N/A
metadata-eval99.2%
Applied rewrites99.2%
(FPCore (x) :precision binary64 (* (sqrt (- x 1.0)) (/ (sqrt (* x 2.0)) (sqrt 2.0))))
double code(double x) {
return sqrt((x - 1.0)) * (sqrt((x * 2.0)) / sqrt(2.0));
}
real(8) function code(x)
use fmin_fmax_functions
real(8), intent (in) :: x
code = sqrt((x - 1.0d0)) * (sqrt((x * 2.0d0)) / sqrt(2.0d0))
end function
public static double code(double x) {
return Math.sqrt((x - 1.0)) * (Math.sqrt((x * 2.0)) / Math.sqrt(2.0));
}
def code(x): return math.sqrt((x - 1.0)) * (math.sqrt((x * 2.0)) / math.sqrt(2.0))
function code(x) return Float64(sqrt(Float64(x - 1.0)) * Float64(sqrt(Float64(x * 2.0)) / sqrt(2.0))) end
function tmp = code(x) tmp = sqrt((x - 1.0)) * (sqrt((x * 2.0)) / sqrt(2.0)); end
code[x_] := N[(N[Sqrt[N[(x - 1.0), $MachinePrecision]], $MachinePrecision] * N[(N[Sqrt[N[(x * 2.0), $MachinePrecision]], $MachinePrecision] / N[Sqrt[2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\sqrt{x - 1} \cdot \frac{\sqrt{x \cdot 2}}{\sqrt{2}}
Initial program 99.2%
lift-sqrt.f64N/A
pow1/2N/A
rem-square-sqrtN/A
sqrt-unprodN/A
rem-sqrt-square-revN/A
pow1/2N/A
rem-sqrt-square-revN/A
sqrt-unprodN/A
rem-square-sqrtN/A
*-rgt-identityN/A
*-inversesN/A
associate-*r/N/A
sqrt-divN/A
lower-/.f64N/A
Applied rewrites99.1%
(FPCore (x) :precision binary64 (- x 0.5))
double code(double x) {
return x - 0.5;
}
real(8) function code(x)
use fmin_fmax_functions
real(8), intent (in) :: x
code = x - 0.5d0
end function
public static double code(double x) {
return x - 0.5;
}
def code(x): return x - 0.5
function code(x) return Float64(x - 0.5) end
function tmp = code(x) tmp = x - 0.5; end
code[x_] := N[(x - 0.5), $MachinePrecision]
x - 0.5
Initial program 99.2%
lift-*.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
sqrt-unprodN/A
*-commutativeN/A
lift--.f64N/A
distribute-rgt-out--N/A
*-rgt-identityN/A
*-rgt-identityN/A
*-rgt-identityN/A
lower-sqrt.f64N/A
*-rgt-identityN/A
*-rgt-identityN/A
*-rgt-identityN/A
distribute-rgt-out--N/A
lift--.f64N/A
*-commutativeN/A
lower-*.f6452.8%
Applied rewrites52.8%
Taylor expanded in x around inf
lower-*.f64N/A
lower--.f64N/A
lower-*.f64N/A
lower-/.f6499.0%
Applied rewrites99.0%
lift-*.f64N/A
*-commutativeN/A
lift--.f64N/A
lift-*.f64N/A
lift-/.f64N/A
mult-flip-revN/A
sub-to-mult-revN/A
lower--.f6499.0%
Applied rewrites99.0%
(FPCore (x) :precision binary64 -0.5)
double code(double x) {
return -0.5;
}
real(8) function code(x)
use fmin_fmax_functions
real(8), intent (in) :: x
code = -0.5d0
end function
public static double code(double x) {
return -0.5;
}
def code(x): return -0.5
function code(x) return -0.5 end
function tmp = code(x) tmp = -0.5; end
code[x_] := -0.5
-0.5
Initial program 99.2%
lift-*.f64N/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
sqrt-unprodN/A
*-commutativeN/A
lift--.f64N/A
distribute-rgt-out--N/A
*-rgt-identityN/A
*-rgt-identityN/A
*-rgt-identityN/A
lower-sqrt.f64N/A
*-rgt-identityN/A
*-rgt-identityN/A
*-rgt-identityN/A
distribute-rgt-out--N/A
lift--.f64N/A
*-commutativeN/A
lower-*.f6452.8%
Applied rewrites52.8%
Taylor expanded in x around inf
lower-*.f64N/A
lower--.f64N/A
lower-*.f64N/A
lower-/.f6499.0%
Applied rewrites99.0%
Taylor expanded in x around 0
Applied rewrites1.1%
herbie shell --seed 2025326
(FPCore (x)
:name "sqrt times"
:precision binary64
(* (sqrt (- x 1.0)) (sqrt x)))