
(FPCore (x y) :precision binary64 (pow (+ x y) (- (+ x y) (/ 1.0 2.0))))
double code(double x, double y) {
return pow((x + y), ((x + y) - (1.0 / 2.0)));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (x + y) ** ((x + y) - (1.0d0 / 2.0d0))
end function
public static double code(double x, double y) {
return Math.pow((x + y), ((x + y) - (1.0 / 2.0)));
}
def code(x, y): return math.pow((x + y), ((x + y) - (1.0 / 2.0)))
function code(x, y) return Float64(x + y) ^ Float64(Float64(x + y) - Float64(1.0 / 2.0)) end
function tmp = code(x, y) tmp = (x + y) ^ ((x + y) - (1.0 / 2.0)); end
code[x_, y_] := N[Power[N[(x + y), $MachinePrecision], N[(N[(x + y), $MachinePrecision] - N[(1.0 / 2.0), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]
{\left(x + y\right)}^{\left(\left(x + y\right) - \frac{1}{2}\right)}
Herbie found 8 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y) :precision binary64 (pow (+ x y) (- (+ x y) (/ 1.0 2.0))))
double code(double x, double y) {
return pow((x + y), ((x + y) - (1.0 / 2.0)));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (x + y) ** ((x + y) - (1.0d0 / 2.0d0))
end function
public static double code(double x, double y) {
return Math.pow((x + y), ((x + y) - (1.0 / 2.0)));
}
def code(x, y): return math.pow((x + y), ((x + y) - (1.0 / 2.0)))
function code(x, y) return Float64(x + y) ^ Float64(Float64(x + y) - Float64(1.0 / 2.0)) end
function tmp = code(x, y) tmp = (x + y) ^ ((x + y) - (1.0 / 2.0)); end
code[x_, y_] := N[Power[N[(x + y), $MachinePrecision], N[(N[(x + y), $MachinePrecision] - N[(1.0 / 2.0), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]
{\left(x + y\right)}^{\left(\left(x + y\right) - \frac{1}{2}\right)}
(FPCore (x y) :precision binary64 (* (pow (+ (fmax x y) (fmin x y)) (* (- (fmax x y) 0.5) 1.0)) (pow (* (+ 1.0 (/ (fmin x y) (fmax x y))) (fmax x y)) (fmin x y))))
double code(double x, double y) {
return pow((fmax(x, y) + fmin(x, y)), ((fmax(x, y) - 0.5) * 1.0)) * pow(((1.0 + (fmin(x, y) / fmax(x, y))) * fmax(x, y)), fmin(x, y));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = ((merge(y, merge(x, max(x, y), y /= y), x /= x) + merge(y, merge(x, min(x, y), y /= y), x /= x)) ** ((merge(y, merge(x, max(x, y), y /= y), x /= x) - 0.5d0) * 1.0d0)) * (((1.0d0 + (merge(y, merge(x, min(x, y), y /= y), x /= x) / merge(y, merge(x, max(x, y), y /= y), x /= x))) * merge(y, merge(x, max(x, y), y /= y), x /= x)) ** merge(y, merge(x, min(x, y), y /= y), x /= x))
end function
public static double code(double x, double y) {
return Math.pow((fmax(x, y) + fmin(x, y)), ((fmax(x, y) - 0.5) * 1.0)) * Math.pow(((1.0 + (fmin(x, y) / fmax(x, y))) * fmax(x, y)), fmin(x, y));
}
def code(x, y): return math.pow((fmax(x, y) + fmin(x, y)), ((fmax(x, y) - 0.5) * 1.0)) * math.pow(((1.0 + (fmin(x, y) / fmax(x, y))) * fmax(x, y)), fmin(x, y))
function code(x, y) return Float64((Float64(((x != x) ? y : ((y != y) ? x : max(x, y))) + ((x != x) ? y : ((y != y) ? x : min(x, y)))) ^ Float64(Float64(((x != x) ? y : ((y != y) ? x : max(x, y))) - 0.5) * 1.0)) * (Float64(Float64(1.0 + Float64(((x != x) ? y : ((y != y) ? x : min(x, y))) / ((x != x) ? y : ((y != y) ? x : max(x, y))))) * ((x != x) ? y : ((y != y) ? x : max(x, y)))) ^ ((x != x) ? y : ((y != y) ? x : min(x, y))))) end
function tmp = code(x, y) tmp = ((max(x, y) + min(x, y)) ^ ((max(x, y) - 0.5) * 1.0)) * (((1.0 + (min(x, y) / max(x, y))) * max(x, y)) ^ min(x, y)); end
code[x_, y_] := N[(N[Power[N[(N[Max[x, y], $MachinePrecision] + N[Min[x, y], $MachinePrecision]), $MachinePrecision], N[(N[(N[Max[x, y], $MachinePrecision] - 0.5), $MachinePrecision] * 1.0), $MachinePrecision]], $MachinePrecision] * N[Power[N[(N[(1.0 + N[(N[Min[x, y], $MachinePrecision] / N[Max[x, y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[Max[x, y], $MachinePrecision]), $MachinePrecision], N[Min[x, y], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
{\left(\mathsf{max}\left(x, y\right) + \mathsf{min}\left(x, y\right)\right)}^{\left(\left(\mathsf{max}\left(x, y\right) - 0.5\right) \cdot 1\right)} \cdot {\left(\left(1 + \frac{\mathsf{min}\left(x, y\right)}{\mathsf{max}\left(x, y\right)}\right) \cdot \mathsf{max}\left(x, y\right)\right)}^{\left(\mathsf{min}\left(x, y\right)\right)}
Initial program 96.6%
lift-pow.f64N/A
lift--.f64N/A
lift-+.f64N/A
associate--l+N/A
+-commutativeN/A
pow-addN/A
lower-unsound-*.f64N/A
lower-unsound-pow.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f64N/A
lift-/.f64N/A
metadata-evalN/A
lower-unsound-pow.f6497.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6497.8%
Applied rewrites97.8%
lift-pow.f64N/A
sqr-powN/A
lower-unsound-*.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-+.f64N/A
lower-unsound-pow.f64N/A
lower-unsound-/.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-+.f64N/A
lower-unsound-pow.f64N/A
lower-unsound-/.f6497.6%
Applied rewrites97.6%
lift-+.f64N/A
sum-to-multN/A
lower-unsound-*.f64N/A
lower-unsound-+.f64N/A
lower-unsound-/.f6497.5%
Applied rewrites97.5%
lift-*.f64N/A
lift-pow.f64N/A
lift-pow.f64N/A
pow-sqrN/A
lower-pow.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-+.f64N/A
count-2-revN/A
lift-/.f64N/A
mult-flipN/A
metadata-evalN/A
lift-/.f64N/A
mult-flipN/A
metadata-evalN/A
distribute-lft-outN/A
metadata-evalN/A
lower-*.f6497.6%
Applied rewrites97.6%
(FPCore (x y) :precision binary64 (let* ((t_0 (+ (fmin x y) (fmax x y)))) (/ (pow t_0 (+ -0.25 (fmax x y))) (pow t_0 (- 0.25 (fmin x y))))))
double code(double x, double y) {
double t_0 = fmin(x, y) + fmax(x, y);
return pow(t_0, (-0.25 + fmax(x, y))) / pow(t_0, (0.25 - fmin(x, y)));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
t_0 = merge(y, merge(x, min(x, y), y /= y), x /= x) + merge(y, merge(x, max(x, y), y /= y), x /= x)
code = (t_0 ** ((-0.25d0) + merge(y, merge(x, max(x, y), y /= y), x /= x))) / (t_0 ** (0.25d0 - merge(y, merge(x, min(x, y), y /= y), x /= x)))
end function
public static double code(double x, double y) {
double t_0 = fmin(x, y) + fmax(x, y);
return Math.pow(t_0, (-0.25 + fmax(x, y))) / Math.pow(t_0, (0.25 - fmin(x, y)));
}
def code(x, y): t_0 = fmin(x, y) + fmax(x, y) return math.pow(t_0, (-0.25 + fmax(x, y))) / math.pow(t_0, (0.25 - fmin(x, y)))
function code(x, y) t_0 = Float64(((x != x) ? y : ((y != y) ? x : min(x, y))) + ((x != x) ? y : ((y != y) ? x : max(x, y)))) return Float64((t_0 ^ Float64(-0.25 + ((x != x) ? y : ((y != y) ? x : max(x, y))))) / (t_0 ^ Float64(0.25 - ((x != x) ? y : ((y != y) ? x : min(x, y)))))) end
function tmp = code(x, y) t_0 = min(x, y) + max(x, y); tmp = (t_0 ^ (-0.25 + max(x, y))) / (t_0 ^ (0.25 - min(x, y))); end
code[x_, y_] := Block[{t$95$0 = N[(N[Min[x, y], $MachinePrecision] + N[Max[x, y], $MachinePrecision]), $MachinePrecision]}, N[(N[Power[t$95$0, N[(-0.25 + N[Max[x, y], $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / N[Power[t$95$0, N[(0.25 - N[Min[x, y], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
t_0 := \mathsf{min}\left(x, y\right) + \mathsf{max}\left(x, y\right)\\
\frac{{t\_0}^{\left(-0.25 + \mathsf{max}\left(x, y\right)\right)}}{{t\_0}^{\left(0.25 - \mathsf{min}\left(x, y\right)\right)}}
\end{array}
Initial program 96.6%
lift-pow.f64N/A
lift--.f64N/A
lift-+.f64N/A
add-flipN/A
associate--l-N/A
pow-subN/A
lower-unsound-/.f64N/A
lower-unsound-pow.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
+-commutativeN/A
sub-flipN/A
lower-unsound-pow.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f6497.8%
lift-/.f64N/A
metadata-eval97.8%
Applied rewrites97.8%
Applied rewrites97.8%
(FPCore (x y) :precision binary64 (* (pow (+ y x) (- y 0.5)) (pow (+ y x) x)))
double code(double x, double y) {
return pow((y + x), (y - 0.5)) * pow((y + x), x);
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = ((y + x) ** (y - 0.5d0)) * ((y + x) ** x)
end function
public static double code(double x, double y) {
return Math.pow((y + x), (y - 0.5)) * Math.pow((y + x), x);
}
def code(x, y): return math.pow((y + x), (y - 0.5)) * math.pow((y + x), x)
function code(x, y) return Float64((Float64(y + x) ^ Float64(y - 0.5)) * (Float64(y + x) ^ x)) end
function tmp = code(x, y) tmp = ((y + x) ^ (y - 0.5)) * ((y + x) ^ x); end
code[x_, y_] := N[(N[Power[N[(y + x), $MachinePrecision], N[(y - 0.5), $MachinePrecision]], $MachinePrecision] * N[Power[N[(y + x), $MachinePrecision], x], $MachinePrecision]), $MachinePrecision]
{\left(y + x\right)}^{\left(y - 0.5\right)} \cdot {\left(y + x\right)}^{x}
Initial program 96.6%
lift-pow.f64N/A
lift--.f64N/A
lift-+.f64N/A
associate--l+N/A
+-commutativeN/A
pow-addN/A
lower-unsound-*.f64N/A
lower-unsound-pow.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f64N/A
lift-/.f64N/A
metadata-evalN/A
lower-unsound-pow.f6497.8%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6497.8%
Applied rewrites97.8%
(FPCore (x y) :precision binary64 (let* ((t_0 (+ (fmax x y) (fmin x y)))) (* (pow t_0 (- (fmin x y) 0.5)) (pow t_0 (fmax x y)))))
double code(double x, double y) {
double t_0 = fmax(x, y) + fmin(x, y);
return pow(t_0, (fmin(x, y) - 0.5)) * pow(t_0, fmax(x, y));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
t_0 = merge(y, merge(x, max(x, y), y /= y), x /= x) + merge(y, merge(x, min(x, y), y /= y), x /= x)
code = (t_0 ** (merge(y, merge(x, min(x, y), y /= y), x /= x) - 0.5d0)) * (t_0 ** merge(y, merge(x, max(x, y), y /= y), x /= x))
end function
public static double code(double x, double y) {
double t_0 = fmax(x, y) + fmin(x, y);
return Math.pow(t_0, (fmin(x, y) - 0.5)) * Math.pow(t_0, fmax(x, y));
}
def code(x, y): t_0 = fmax(x, y) + fmin(x, y) return math.pow(t_0, (fmin(x, y) - 0.5)) * math.pow(t_0, fmax(x, y))
function code(x, y) t_0 = Float64(((x != x) ? y : ((y != y) ? x : max(x, y))) + ((x != x) ? y : ((y != y) ? x : min(x, y)))) return Float64((t_0 ^ Float64(((x != x) ? y : ((y != y) ? x : min(x, y))) - 0.5)) * (t_0 ^ ((x != x) ? y : ((y != y) ? x : max(x, y))))) end
function tmp = code(x, y) t_0 = max(x, y) + min(x, y); tmp = (t_0 ^ (min(x, y) - 0.5)) * (t_0 ^ max(x, y)); end
code[x_, y_] := Block[{t$95$0 = N[(N[Max[x, y], $MachinePrecision] + N[Min[x, y], $MachinePrecision]), $MachinePrecision]}, N[(N[Power[t$95$0, N[(N[Min[x, y], $MachinePrecision] - 0.5), $MachinePrecision]], $MachinePrecision] * N[Power[t$95$0, N[Max[x, y], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
t_0 := \mathsf{max}\left(x, y\right) + \mathsf{min}\left(x, y\right)\\
{t\_0}^{\left(\mathsf{min}\left(x, y\right) - 0.5\right)} \cdot {t\_0}^{\left(\mathsf{max}\left(x, y\right)\right)}
\end{array}
Initial program 96.6%
lift-pow.f64N/A
lift--.f64N/A
lift-+.f64N/A
+-commutativeN/A
associate--l+N/A
+-commutativeN/A
pow-addN/A
lower-unsound-*.f64N/A
lower-unsound-pow.f64N/A
lift-+.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower--.f64N/A
lift-/.f64N/A
metadata-evalN/A
lower-unsound-pow.f6497.7%
lift-+.f64N/A
+-commutativeN/A
lower-+.f6497.7%
Applied rewrites97.7%
(FPCore (x y) :precision binary64 (pow (+ x y) (- (+ -0.25 y) (- 0.25 x))))
double code(double x, double y) {
return pow((x + y), ((-0.25 + y) - (0.25 - x)));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (x + y) ** (((-0.25d0) + y) - (0.25d0 - x))
end function
public static double code(double x, double y) {
return Math.pow((x + y), ((-0.25 + y) - (0.25 - x)));
}
def code(x, y): return math.pow((x + y), ((-0.25 + y) - (0.25 - x)))
function code(x, y) return Float64(x + y) ^ Float64(Float64(-0.25 + y) - Float64(0.25 - x)) end
function tmp = code(x, y) tmp = (x + y) ^ ((-0.25 + y) - (0.25 - x)); end
code[x_, y_] := N[Power[N[(x + y), $MachinePrecision], N[(N[(-0.25 + y), $MachinePrecision] - N[(0.25 - x), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]
{\left(x + y\right)}^{\left(\left(-0.25 + y\right) - \left(0.25 - x\right)\right)}
Initial program 96.6%
lift--.f64N/A
sub-negate-revN/A
lift-+.f64N/A
associate--r+N/A
sub-negateN/A
lower--.f64N/A
lower--.f6496.6%
lift-/.f64N/A
metadata-eval96.6%
Applied rewrites96.6%
lift--.f64N/A
sub-flipN/A
lift--.f64N/A
sub-negate-revN/A
lift--.f64N/A
+-commutativeN/A
lift--.f64N/A
associate--r-N/A
lift--.f64N/A
sub-to-mult-revN/A
lift-/.f64N/A
lift--.f64N/A
*-commutativeN/A
lift--.f64N/A
lift-/.f64N/A
lift--.f64N/A
div-subN/A
associate--r-N/A
distribute-rgt-inN/A
lower-+.f64N/A
Applied rewrites96.6%
lift-+.f64N/A
+-commutativeN/A
add-flipN/A
lift-*.f64N/A
lift-/.f64N/A
associate-*l/N/A
associate-/l*N/A
*-inversesN/A
*-rgt-identityN/A
lift--.f64N/A
sub-negate-revN/A
associate--r-N/A
lift--.f64N/A
*-rgt-identityN/A
metadata-evalN/A
distribute-lft-outN/A
metadata-evalN/A
mult-flipN/A
lift-/.f64N/A
metadata-evalN/A
mult-flipN/A
lift-/.f64N/A
lift-/.f64N/A
lift--.f64N/A
div-subN/A
associate-+r-N/A
Applied rewrites96.6%
(FPCore (x y) :precision binary64 (pow (+ (fmin x y) (fmax x y)) (- (fmin x y) (- 0.5 (fmax x y)))))
double code(double x, double y) {
return pow((fmin(x, y) + fmax(x, y)), (fmin(x, y) - (0.5 - fmax(x, y))));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (merge(y, merge(x, min(x, y), y /= y), x /= x) + merge(y, merge(x, max(x, y), y /= y), x /= x)) ** (merge(y, merge(x, min(x, y), y /= y), x /= x) - (0.5d0 - merge(y, merge(x, max(x, y), y /= y), x /= x)))
end function
public static double code(double x, double y) {
return Math.pow((fmin(x, y) + fmax(x, y)), (fmin(x, y) - (0.5 - fmax(x, y))));
}
def code(x, y): return math.pow((fmin(x, y) + fmax(x, y)), (fmin(x, y) - (0.5 - fmax(x, y))))
function code(x, y) return Float64(((x != x) ? y : ((y != y) ? x : min(x, y))) + ((x != x) ? y : ((y != y) ? x : max(x, y)))) ^ Float64(((x != x) ? y : ((y != y) ? x : min(x, y))) - Float64(0.5 - ((x != x) ? y : ((y != y) ? x : max(x, y))))) end
function tmp = code(x, y) tmp = (min(x, y) + max(x, y)) ^ (min(x, y) - (0.5 - max(x, y))); end
code[x_, y_] := N[Power[N[(N[Min[x, y], $MachinePrecision] + N[Max[x, y], $MachinePrecision]), $MachinePrecision], N[(N[Min[x, y], $MachinePrecision] - N[(0.5 - N[Max[x, y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]
{\left(\mathsf{min}\left(x, y\right) + \mathsf{max}\left(x, y\right)\right)}^{\left(\mathsf{min}\left(x, y\right) - \left(0.5 - \mathsf{max}\left(x, y\right)\right)\right)}
Initial program 96.6%
lift--.f64N/A
sub-negate-revN/A
lift-+.f64N/A
associate--r+N/A
sub-negateN/A
lower--.f64N/A
lower--.f6496.6%
lift-/.f64N/A
metadata-eval96.6%
Applied rewrites96.6%
lift--.f64N/A
sub-flipN/A
lift--.f64N/A
sub-negate-revN/A
lift--.f64N/A
+-commutativeN/A
lift--.f64N/A
associate--r-N/A
lift--.f64N/A
lower--.f6496.6%
Applied rewrites96.6%
(FPCore (x y) :precision binary64 (pow (+ (fmin x y) (fmax x y)) (- (fmax x y) 0.5)))
double code(double x, double y) {
return pow((fmin(x, y) + fmax(x, y)), (fmax(x, y) - 0.5));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (merge(y, merge(x, min(x, y), y /= y), x /= x) + merge(y, merge(x, max(x, y), y /= y), x /= x)) ** (merge(y, merge(x, max(x, y), y /= y), x /= x) - 0.5d0)
end function
public static double code(double x, double y) {
return Math.pow((fmin(x, y) + fmax(x, y)), (fmax(x, y) - 0.5));
}
def code(x, y): return math.pow((fmin(x, y) + fmax(x, y)), (fmax(x, y) - 0.5))
function code(x, y) return Float64(((x != x) ? y : ((y != y) ? x : min(x, y))) + ((x != x) ? y : ((y != y) ? x : max(x, y)))) ^ Float64(((x != x) ? y : ((y != y) ? x : max(x, y))) - 0.5) end
function tmp = code(x, y) tmp = (min(x, y) + max(x, y)) ^ (max(x, y) - 0.5); end
code[x_, y_] := N[Power[N[(N[Min[x, y], $MachinePrecision] + N[Max[x, y], $MachinePrecision]), $MachinePrecision], N[(N[Max[x, y], $MachinePrecision] - 0.5), $MachinePrecision]], $MachinePrecision]
{\left(\mathsf{min}\left(x, y\right) + \mathsf{max}\left(x, y\right)\right)}^{\left(\mathsf{max}\left(x, y\right) - 0.5\right)}
Initial program 96.6%
Taylor expanded in x around 0
metadata-evalN/A
lower--.f64N/A
metadata-eval19.2%
Applied rewrites19.2%
(FPCore (x y) :precision binary64 (pow (fmax x y) (- (fmax x y) 0.5)))
double code(double x, double y) {
return pow(fmax(x, y), (fmax(x, y) - 0.5));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = merge(y, merge(x, max(x, y), y /= y), x /= x) ** (merge(y, merge(x, max(x, y), y /= y), x /= x) - 0.5d0)
end function
public static double code(double x, double y) {
return Math.pow(fmax(x, y), (fmax(x, y) - 0.5));
}
def code(x, y): return math.pow(fmax(x, y), (fmax(x, y) - 0.5))
function code(x, y) return ((x != x) ? y : ((y != y) ? x : max(x, y))) ^ Float64(((x != x) ? y : ((y != y) ? x : max(x, y))) - 0.5) end
function tmp = code(x, y) tmp = max(x, y) ^ (max(x, y) - 0.5); end
code[x_, y_] := N[Power[N[Max[x, y], $MachinePrecision], N[(N[Max[x, y], $MachinePrecision] - 0.5), $MachinePrecision]], $MachinePrecision]
{\left(\mathsf{max}\left(x, y\right)\right)}^{\left(\mathsf{max}\left(x, y\right) - 0.5\right)}
Initial program 96.6%
lift--.f64N/A
sub-negate-revN/A
lift-+.f64N/A
associate--r+N/A
sub-negateN/A
lower--.f64N/A
lower--.f6496.6%
lift-/.f64N/A
metadata-eval96.6%
Applied rewrites96.6%
Taylor expanded in x around 0
Applied rewrites19.2%
Taylor expanded in x around 0
Applied rewrites17.6%
herbie shell --seed 1
(FPCore (x y)
:name "pow(x+y,x+y-1/2)"
:precision binary64
:pre (and (and (<= 0.001 x) (<= x 100.0)) (and (<= 0.001 y) (<= y 100.0)))
(pow (+ x y) (- (+ x y) (/ 1.0 2.0))))